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,