3.2. Programul sursa
Meniu principal
Option Compare Database
Private Sub Comanda1_Click()
DoCmd.OpenForm ("Angaj 16116u203q ati")
End Sub
Private Sub Comanda2_Click()
DoCmd.OpenForm ("Avans chenzinal")
End Sub
Private Sub Comanda3_Click()
DoCmd.OpenForm ("Salarii")
End Sub
Private Sub Comanda4_Click()
DoCmd.OpenForm ("Plati/Inregistrari")
End Sub
Private Sub Comanda5_Click()
DoCmd.Close
End Sub
Meniu Angajati
Option Compare Database
Private Sub Comanda2_Click()
DoCmd.Close
End Sub
Private Sub Command0_Click()
DoCmd.OpenForm ("Angajati noi")
End Sub
Private Sub Command1_Click()
DoCmd.OpenForm ("Realizari lunare")
End Sub
Option Compare Database
Private Sub Comanda3_Click()
Dim sql As String
sql = "INSERT INTO Tabel nominal angajati (Numepren,Nrmarca,Normactct,Dataang)" & _
"VALUES (ucase(TRIM(Numepren))," & _
"Ucase(TRIM(Nrmarca.Value))," & _
"Ucase(TRIM(Normactct))," & _
"Ucase(TRIM(Dataang.Value)))"
DoCmd.RunSQL sql
End Sub
Private Sub Comanda4_Click()
DoCmd.Close
End Sub
Meniu Avans chenzinal
Option Compare Database
Private Sub Comanda0_Click()
DoCmd.OpenTable "Calcul avans"
End Sub
Private Sub Comanda1_Click()
DoCmd.OpenTable "Lista avans chenzinal"
End Sub
Private Sub Comanda2_Click()
DoCmd.Close
End Sub
Meniu Salarii
Option Compare Database
Private Sub Comanda0_Click()
DoCmd.OpenForm "Calcul salarii"
End Sub
Private Sub Comanda1_Click()
DoCmd.OpenTable "Stat de plata"
End Sub
Private Sub Comanda2_Click()
DoCmd.Close
End Sub
Meniu Plati/Inregistrari
Option Compare Database
Private Sub Comanda0_Click()
DoCmd.Close
End Sub
Private Sub Command1_Click()
DoCmd.OpenForm "Ordine de plata"
End Sub
Private Sub Command2_Click()
DoCmd.OpenForm "Nota contabila"
End Sub
Private Sub Command3_Click()
DoCmd.OpenForm "Nomenclator Ordine de Plata"
End Sub
|
