NPA.Text = gTabelStudenti(gIndiceStudent).CNP
    txtMatrA.Text = gTabelStudenti(gIndiceStudent).Matricol
    txtAnA.Text = rst.Fields("AnStudiu")
    txtSemA.Text = ToStringR(rst.Fields("Semestru"))
    txtGrA.Text = rst.Fields("Grupa")
  End If
  rst.Close
End Sub
Private Sub IncarcaDateContract(cnn As ADODB.Connection)
  Dim strCaut As String
  Dim rst As New ADODB.Recordset
  Dim IDisc As Integer
  strCaut = "Select DISTINCT Sectia, SemestruCrt, AnUniv, Disciplina, TipDisciplina, OreCurs, OreSem, OreLuc, Credite, ModFinalizare, SemestruPlan, Indrumator from STUDENTI_CONTRACTE where " & _
            "[Facultatea] = " & gCodFac & " AND " & _
            "[Sectia] = " & gTabelStudenti(gIndiceStudent).sectia & " AND " & _
            "Trim([NrMatricol]) = Trim(" & Chr(34) & gTabelStudenti(gIndiceStudent).Matricol & Chr(34) & ");"
  rst.Open strCaut, cnn, adOpenStatic, adLockReadOnly
  
  gNrDisciplineContract = 0
  
  If rst.RecordCount > 0 Then
    ReDim gTabelDisciplineContract(1 To rst.RecordCount)
    rst.MoveFirst
    Do While Not rst.EOF
      'indicele disciplinei din gTabelDiscipline
      IDisc = IndiceDisciplina(rst.Fields("Sectia"), _
                               rst.Fields("AnUniv"), _
                               rst.Fields("Disciplina"), _
                               rst.Fields("SemestruPlan"), _
                               rst.Fields("Indrumator"))
      'disciplina nu exista: se incarca
      If IDisc = 0 Then
        IncarcaTabelDisciplineAltAnUniv gSectie, rst.Fields("AnUniv")
        IDisc = IndiceDisciplina(rst.Fields("Sectia"), _
                                 rst.Fields("AnUniv"), _
                                 rst.Fields("Disciplina"), _
                                 rst.Fields("SemestruPlan"), _
                                 rst.Fields("Indrumator"))
      End If
      gNrDisciplineContract = gNrDisciplineContract + 1
      gTabelDisciplineContract(gNrDisciplineContract).IDisc = IDisc
      gTabelDisciplineContract(gNrDisciplineContract).semestru = rst.Fields("SemestruCrt")
      rst.MoveNext
    Loop
  End If
  rst.Close
End Sub
Private Sub IncarcaDateNote(cnn As ADODB.Connection)
  Dim strCaut As String
  Dim rst As New ADODB.Recordset
  Dim id As Integer
  strCaut = "Select ID, Sectia, SemestruCrt, AnUniv, Disciplina, SemestruPlan, Indrumator, Data, Nota, NotaC, Absent, NotaFinala from STUDENTI_NOTE where " & _
            "[Facultatea] = " & gCodFac & " AND " & _
            "[Sectia] = " & gTabelStudenti(gIndiceStudent).sectia & " AND " & _
            "Trim([NrMatricol]) = Trim(" & Chr(34) & gTabelStudenti(gIndiceStudent).Matricol & Chr(34) & _
            ") ORDER BY Disciplina, Data;"
  rst.Open strCaut, cnn, adOpenStatic, adLockReadOnly
  
  gNrNote = 0
  
  If rst.RecordCount > 0 Then
    ReDim gTabelNote(1 To rst.RecordCount)
    rst.MoveFirst
    Do While Not rst.EOF
      'indicele disciplinei din gTabelDiscipline
      id = IndiceDisciplina(rst.Fields("Sectia"), _
                            rst.Fields("AnUniv"), _
                            rst.Fields("Disciplina"), _
                            rst.Fields("SemestruPlan"), _
                            ToStringR(rst.Fields("Indrumator")))
      'disciplina nu exista: se incarca
      If id = 0 Then
        IncarcaTabelDisciplineAltAnUniv gSectie, rst.Fields("AnUniv")
        id = IndiceDisciplina(rst.Fields("Sectia"), _
                              rst.Fields("AnUniv"), _
                              rst.Fields("Disciplina"), _
                              rst.Fields("SemestruPlan"), _
                              ToStringR(rst.Fields("Indrumator")))
      End If
      gNrNote = gNrNote + 1
      gTabelNote(gNrNote).id = rst.Fields("ID")
      gTabelNote(gNrNote).semCrt = rst.Fields("SemestruCrt")
      gTabelNote(gNrNote).anUniv = rst.Fields("AnUniv")
      gTabelNote(gNrNote).Disc = rst.Fields("Disciplina")
      gTabelNote(gNrNote).IDisc = id
      gTabelNote(gNrNote).semPlan = rst.Fields("SemestruPlan")
      If IsNull(rst.Fields("Data")) Then
        gTabelNote(gNrNote).data = Now
      Else
        gTabelNote(gNrNote).data = rst.Fields("Data")
      End If
      gTabelNote(gNrNote).nota = rst.Fields("Nota")
      gTabelNote(gNrNote).notaC = ToStringR(rst.Fields("NotaC"))
      gTabelNote(gNrNote).absent = rst.Fields("Absent")
      gTabelNote(gNrNote).finala = rst.Fields("NotaFinala")
      gTabelNote(gNrNote).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 i As Integer
  Dim id As Long
  Dim sectia As Integer
  strCaut = "Select * from STUDENTI_NOTE where " & _
            "[Facultatea] = " & gCodFac & " AND " & _
            "[Sectia] = " & gTabelStudenti(gIndiceStudent).sectia & " AND " & _
            "[NrMatricol] = " & Chr(34) & gTabelStudenti(gIndiceStudent).Matricol & Chr(34) & ";"
  'deschide conexiunea
  'deschide rst in actualizare
  rst.Open strCaut, cnnStud, adOpenKeyset, adLockOptimistic
  'sterge notele care au fost sterse din grid
  If rst.RecordCount > 0 Then
    For i = 1 To gNrNote
      If gTabelNote(i).Sters Then
        If gTabelNote(i).id > 0 Then   'numai daca nota este in tabela
          rst.MoveFirst
          rst.Find "ID = " & gTabelNote(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
  sectia = gTabelStudenti(gIndiceStudent).sectia
  'adauga notele
  For i = 1 To gNrNote
    If Not gTabelNote(i).Sters Then
      id = gTabelNote(i).IDisc
      If gTabelNote(i).id = 0 Then  'nota noua
        rst.AddNew
        rst.Fields("Facultatea") = gCodFac
        rst.Fields("Sectia") = sectia
        rst.Fields("NrMatricol") = ToString1(txtMatrA.Text)
        rst.Fields("SemestruCrt") = gTabelNote(i).semCrt
        rst.Fields("AnUniv") = gTabelNote(i).anUniv
        rst.Fields("Disciplina") = gTabelNote(i).Disc
        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") = gTabelNote(i).semPlan
        rst.Fields("Data") = gTabelNote(i).data
        rst.Fields("Nota") = gTabelNote(i).nota
        rst.Fields("NotaC") = gTabelNote(i).notaC
        rst.Fields("Absent") = gTabelNote(i).absent
        rst.Fields("NotaFinala") = gTabelNote(i).finala
        gTabelNote(i).id = rs