VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmTipMedie 
   ClientHeight    =   6090
   ClientLeft      =   1455
   ClientTop       =   495
   ClientWidth     =   8610
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   238
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6090
   ScaleWidth      =   8610
   Begin VB.CommandButton cmdInchide 
      Caption         =   "Închid&e"
      Height          =   435
      Left            =   7050
      TabIndex        =   13
      Top             =   3255
      Width           =   1455
   End
   Begin VB.Frame fraDate 
      Caption         =   "Date"
      Height          =   2145
      Left            =   120
      TabIndex        =   4
      Top             =   3840
      Width           =   6750
      Begin VB.ComboBox cmbPerioada 
         Height          =   330
         ItemData        =   "frmTipMedie.frx":0000
         Left            =   4380
         List            =   "frmTipMedie.frx":000D
         TabIndex        =   8
         Top             =   360
         Width           =   2235
      End
      Begin VB.CommandButton cmdRenunta 
         Caption         =   "&Renunță"
         Height          =   435
         Left            =   5115
         TabIndex        =   12
         Top             =   1530
         Width           =   1455
      End
      Begin VB.CommandButton cmdAccepta 
         Caption         =   "A&cceptă"
         Height          =   435
         Left            =   165
         TabIndex        =   11
         Top             =   1560
         Width           =   1455
      End
      Begin VB.TextBox txtDen 
         Alignment       =   2  'Center
         Height          =   390
         Left            =   1275
         TabIndex        =   10
         Top             =   960
         Width           =   5325
      End
      Begin VB.TextBox txtId 
         Alignment       =   2  'Center
         Height          =   390
         Left            =   1260
         TabIndex        =   6
         Top             =   300
         Width           =   645
      End
      Begin VB.Label lblPerioada 
         Caption         =   "Perioada de calcul"
         Height          =   210
         Left            =   2640
         TabIndex        =   7
         Top             =   420
         Width           =   1665
      End
      Begin VB.Label lblDen 
         Caption         =   "Denumire"
         Height          =   210
         Left            =   165
         TabIndex        =   9
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label lblId 
         Caption         =   "Cod"
         Height          =   210
         Left            =   240
         TabIndex        =   5
         Top             =   480
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdSterge 
      Caption         =   "&Sterge"
      Height          =   435
      Left            =   7050
      TabIndex        =   3
      Top             =   1650
      Width           =   1455
   End
   Begin VB.CommandButton cmdModifica 
      Caption         =   "&Modifică"
      Height          =   435
      Left            =   7050
      TabIndex        =   2
      Top             =   870
      Width           =   1455
   End
   Begin VB.CommandButton cmdAdauga 
      Caption         =   "&Adaugă"
      Height          =   435
      Left            =   7020
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin MSFlexGridLib.MSFlexGrid grdDate 
      Height          =   3630
      Left            =   120
      TabIndex        =   0
      Top             =   90
      Width           =   6825
      _ExtentX        =   12039
      _ExtentY        =   6403
      _Version        =   393216
      SelectionMode   =   1
   End
End
Attribute VB_Name = "frmTipMedie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdAccepta_Click()
  clsTM.Accepta
End Sub

Private Sub cmdAdauga_Click()
  clsTM.Adauga
End Sub

Private Sub cmdInchide_Click()
  clsTM.Inchide
End Sub

Private Sub cmdModifica_Click()
  clsTM.Modifica
End Sub

Private Sub cmdRenunta_Click()
  clsTM.Renunta
End Sub

Private Sub cmdSterge_Click()
  clsTM.Sterge
End Sub

Private Sub grdDate_Click()
  clsTM.Selecteaza 1
End Sub

Private Sub grdDate_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
  clsTM.Compara Row1, Row2, Cmp
End Sub

Private Sub grdDate_MouseUp(Button As Integer, Shift As Integer, x A