er
  Dim indS As Integer
  Dim j As Integer
  Dim t As Integer
  Dim totc As Single
  Dim totcs As Single
  Dim totoc As Single
  Dim totos As Single
  Dim totol As Single
  Dim totop As Single
  Dim strG As String
  For i = 0 To lstSemestru.ListCount - 1
    indS = lstSemestru.ItemData(i)
    totc = 0   'total credite pe semestrul inds
    totcs = 0  'total credite in spec pe semestrul inds
    totoc = 0  'total ore curs pe semestrul inds
    totos = 0  'total ore sem pe semestrul inds
    totol = 0  'total ore lab pe semestrul inds
    totop = 0  'total ore pr pe semestrul inds
    For j = 1 To gNrDisciplineContract
      If Not gTabelDisciplineContract(j).Sters Then
        If gTabelDisciplineContract(j).semestru = indS Then
          IDisc = gTabelDisciplineContract(j).IDisc
          If IDisc <> 0 Then
            totoc = totoc + gTabelDiscipline(IDisc).OreCurs
            totos = totos + gTabelDiscipline(IDisc).OreSem
            totol = totol + gTabelDiscipline(IDisc).OreLuc
            totop = totop + gTabelDiscipline(IDisc).OrePr
            totc = totc + gTabelDiscipline(IDisc).Credite
            t = gTabelDiscipline(IDisc).tip
            If t = 1 Or t = 2 Then
              totcs = totcs + gTabelDiscipline(IDisc).Credite
            End If
          End If
        End If
      End If
    Next j
    strG = CStr(indS) & Chr(9) & _
           Format$(totc, "0.00") & Chr(9) & _
           Format$(totcs, "0.00") & Chr(9) & _
           Format$(totoc, "0.00") & Chr(9) & _
           Format$(totos, "0.00") & Chr(9) & _
           Format$(totol, "0.00") & Chr(9) & _
           Format$(totop, "0.00")
    grdStatistici.row = i + 1
    ModificaLinie grdStatistici, strG
  Next i
  If grdStatistici.Rows > 1 Then grdStatistici.FixedRows = 1
End Sub
Private Sub AdaugaLinieGridContract(id As Integer, semC As Integer)
  Dim StrGrid As String
  StrGrid = semC & Chr(9) & _
            gTabelDiscipline(id).AnUnivPlan & Chr(9) & _
            gTabelDiscipline(id).cod & Chr(9) & _
            gTabelDiscipline(id).den & Chr(9) & _
            gTabelDiscipline(id).tip & Chr(9) & _
            Format$(gTabelDiscipline(id).OreCurs, "0.0") & Chr(9) & _
            Format$(gTabelDiscipline(id).OreSem, "0.0") & Chr(9) & _
            Format$(gTabelDiscipline(id).OreLuc, "0.0") & Chr(9) & _
            Format$(gTabelDiscipline(id).OrePr, "0.0") & Chr(9) & _
            Format$(gTabelDiscipline(id).Credite, "0.0") & Chr(9) & _
            gTabelDiscipline(id).ModFinalizare & Chr(9) & _
            gTabelDiscipline(id).semPlan & Chr(9) & _
            gTabelDiscipline(id).codIndrum & Chr(9) & _
            CStr(id)
  grdContract.AddItem StrGrid
End Sub
Private Sub StergeLinieGridContract(id As Integer)
  Dim i As Integer
  For i = 1 To grdContract.Rows - 1
    If CInt(CitesteText(grdContract, i, 13)) = id Then
      StergeLinieIndice grdContract, i
      Exit For
    End If
  Next i
End Sub
Private Sub SalveazaDateContract()
  Dim strCaut As String
  Dim rst As New ADODB.Recordset
  Dim i As Integer
  Dim IDisc As Integer
  Dim sectia As Integer
  strCaut = "Select * from STUDENTI_CONTRACTE where " & _
            "[Facultatea] = " & gCodFac & " AND " & _
            "[Sectia] = " & gTabelStudenti(gIndiceStudent).sectia & " AND " & _
            "[NrMatricol] = " & Chr(34) & gTabelStudenti(gIndiceStudent).Matricol & Chr(34) & ";"
  'deschide rst in actualizare
  rst.Open strCaut, cnnStud, adOpenKeyset, adLockOptimistic
  'sterge inregistrarile sterse
  If rst.RecordCount > 0 Then
    For i = 1 To gNrDisciplineContract
      If gTabelDisciplineContract(i).Sters Then
        If gTabelDisciplineContract(i).id > 0 Then  'disc inreg in STUDENTI_CONTRACTE
          rst.MoveFirst
          rst.Find "ID = " & gTabelDisciplineContract(i).id
          If Not rst.EOF Then
            rst.Delete
            If rst.RecordCount > 0 Then rst.MoveFirst
          End If
        End If