EndProperty Height = 195 Left = 5220 TabIndex = 22 Top = 5100 Width = 3495 End Begin VB.Label lblStatistici Caption = "Statistici" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 1620 TabIndex = 15 Top = 1740 Width = 855 End Begin VB.Label lblContract Caption = "Discipline Ón contractul de studii din semestrele marcate" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 4440 TabIndex = 17 Top = 1740 Width = 4875 End Begin VB.Label lblDisc Caption = "Disc. oferite in sem. crt." BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 120 TabIndex = 20 Top = 5100 Width = 2235 End Begin VB.Label lblNumeA Caption = "Numele studentului" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 120 TabIndex = 1 Top = 1140 Width = 1935 End Begin VB.Label lblCNPA Caption = "Cod numeric personal" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 5460 TabIndex = 3 Top = 1140 Width = 1935 End Begin VB.Label lblGrA Caption = "Grupa" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 10140 TabIndex = 11 Top = 1140 Width = 735 End Begin VB.Label lblSemA Caption = "Sem." BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 9480 TabIndex = 9 Top = 1140 Width = 495 End Begin VB.Label lblAnA Caption = "An studii" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 8640 TabIndex = 7 Top = 1140 Width = 735 End Begin VB.Label lblMatrA BackColor = &H8000000A& Caption = "Matricol" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 7500 TabIndex = 5 Top = 1140 Width = 735 End Begin VB.Label lblContext BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 120 TabIndex = 0 Top = 0 Width = 6375 End Begin VB.Label lblSemestru Caption = "Sem./anul univ." BeginProperty Font Name = "Arial" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 120 TabIndex = 13 Top = 1740 Width = 1395 End End Attribute VB_Name = "frmContracte" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Public flagModif As Boolean Public Sub ConfigureazaGriduri() grdContract.Enabled = False SeteazaGridContract cnnStud, grdContract grdContract.Enabled = True IncarcaLstSortGrid ConfigureazaGridStatistici grdStatistici End Sub Private Sub ConfigureazaGridStatistici(grd As MSFlexGrid) Dim i As Integer Dim fs As Single Dim strG As String Dim indS As Integer fs = 12 * grd.Font.Size grd.Rows = lstSemestru.ListCount + 1 grd.FixedCols = 0 grd.Cols = 7 ScrieText grd, 0, 0, "Sem" grd.ColWidth(0) = 4.2 * fs ScrieText grd, 0, 1, "Tot cr" grd.ColWidth(1) = 5.5 * fs ScrieText grd, 0, 2, "Cr sp" grd.ColWidth(2) = 5.5 * fs ScrieText grd,