")
      gTabelNoteDisciplina(gNrNoteDisciplina).semCrt = rst.Fields("SemestruCrt")
      gTabelNoteDisciplina(gNrNoteDisciplina).anUniv = rst.Fields("AnUniv")
      gTabelNoteDisciplina(gNrNoteDisciplina).semPlan = rst.Fields("SemestruPlan")
      gTabelNoteDisciplina(gNrNoteDisciplina).data = rst.Fields("Data")
      gTabelNoteDisciplina(gNrNoteDisciplina).nota = rst.Fields("Nota")
      gTabelNoteDisciplina(gNrNoteDisciplina).notaC = ToString1(rst.Fields("NotaC"))
      gTabelNoteDisciplina(gNrNoteDisciplina).absent = rst.Fields("Absent")
      gTabelNoteDisciplina(gNrNoteDisciplina).finala = rst.Fields("NotaFinala")
      gTabelNoteDisciplina(gNrNoteDisciplina).Sters = False
      rst.MoveNext
    Loop
  End If
  rst.Close
End Sub
Private Sub SalveazaDateNote()
  Dim strCaut As String
  Dim rst As New ADODB.Recordset
  Dim id As Integer
  Dim i As Integer
  Dim strSemAn As String
  Dim strFilter As String
  Dim dataNota As Date
  
  strSemAn = ""
  For i = 0 To lstSemestru.ListCount - 1
    If lstSemestru.Selected(i) Then
      If strSemAn <> "" Then
        strSemAn = strSemAn & " OR "
      End If
      strSemAn = strSemAn & "(SemestruCrt = " & Left$(lstSemestru.List(i), 2) & _
                            " AND AnUniv = " & Mid$(lstSemestru.List(i), 6, 4) & ")"
    End If
  Next i
  id = indDisc
  strCaut = "Select * from STUDENTI_NOTE where " & _
            "[Facultatea] = " & gCodFac & " AND " & _
            "[Sectia] = " & gSectie & " AND " & _
            "Disciplina = '" & gTabelDiscipline(id).cod & "' "
  If strSemAn <> "" Then
    strCaut = strCaut & "AND (" & strSemAn & ")"
  End If
  strCaut = strCaut & " ORDER BY Disciplina, Data;"
  'deschide rst in actualizare
  rst.Open strCaut, cnnStud, adOpenKeyset, adLockOptimistic
  'ATENTIE AICI!
  'sterge inregistrarile care s-au sters din gTabelNoteDisciplina
  If rst.RecordCount > 0 Then
    For i = 1 To gNrNoteDisciplina
      If gTabelNoteDisciplina(i).Sters Then
        'nota este inregistrata in Studenti_Note
        If gTabelNoteDisciplina(i).id > 0 Then
          rst.MoveFirst
          rst.Find "ID = " & gTabelNoteDisciplina(i).id
          If Not rst.EOF Then
            rst.Delete
            If rst.RecordCount > 0 Then rst.MoveFirst
          End If
        End If
      End If
    Next i
  End If
  'adauga inregistrarile
  For i = 1 To gNrNoteDisciplina
    If Not gTabelNoteDisciplina(i).Sters Then
      'daca este nota noua, adauga inregistrarea
      If gTabelNoteDisciplina(i).id = 0 Then
        rst.AddNew
        rst.Fields("Facultatea") = gCodFac
        rst.Fields("Sectia") = gSectie
        rst.Fields("NrMatricol") = gTabelNoteDisciplina(i).Matricol
        rst.Fields("SemestruCrt") = gTabelNoteDisciplina(i).semCrt
        rst.Fields("AnUniv") = gTabelNoteDisciplina(i).anUniv
        rst.Fields("Disciplina") = gTabelDiscipline(id).cod
        rst.Fields("NrCredite") = gTabelDiscipline(id).Credite
        rst.Fields("TipDisc") = gTabelDiscipline(id).tip
        If Trim$(gTabelDiscipline(id).codIndrum) = "" Then
          rst.Fields("Indrumator") = " "
        Else
          rst.Fields("Indrumator") = gTabelDiscipline(id).codIndrum
        End If
        rst.Fields("SemestruPlan") = gTabelNoteDisciplina(i).semPlan
        rst.Fields("Data") = gTabelNoteDisciplina(i).data
        rst.Fields("Nota") = gTabelNoteDisciplina(i).nota
        rst.Fields("NotaC") = gTabelNoteDisciplina(i).notaC
        rst.Fields("Absent") = gTabelNoteDisciplina(i).absent
        rst.Fields("NotaFinala") = gTabelNoteDisciplina(i).finala
        gTabelNoteDisciplina(i).id = rst.Fields("ID")
        'actualizeaza
        rst.Update
      Else  'nota existenta: modifica inregistrarea
        rst.MoveFirst
        rst.Find "ID = " & gTabelNoteDisciplina(i).id
        If Not rst.EOF Then
          'modifica informatiile despre nota
          rst.Fields("Data") = gTabelNoteDisciplina(i).data
          rst.Fields("Nota") = gTabelNoteDisciplina(i).nota
          rst.Fields("NotaC") = gTabelNoteDisciplina(i).notaC
          rst.Fields("Absent") = gTabelNoteDisciplina(i).absent
          rst.Fields("NotaFinala") = gTabelNoteDisciplina(i).finala
          'rst.Fields("Disciplina") = gTabelNoteDisciplina(i).Disc
          rst.Fields("NrCredite") = gTabelDiscipline(id).Credite
          rst.Fields("TipDisc") = gTabelDiscipline(id).tip
          rst.Update
        End If
      End If
    End If
  Next i
  rst.Close
End Sub
Public Sub ConfigureazaGriduri()
  grdNote.Enabled = False
  SeteazaGridNoteDisciplina cnnStud, grdNote
  IncarcaLstSortGr