Documente online.
Username / Parola inexistente
  Zona de administrare documente. Fisierele tale  
Am uitat parola x Creaza cont nou
  Home Exploreaza
Upload




























Programul sursa

Informatica




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










Document Info


Accesari: 1517
Apreciat:

Comenteaza documentul:

Nu esti inregistrat
Trebuie sa fii utilizator inregistrat pentru a putea comenta


Creaza cont nou

A fost util?

Daca documentul a fost util si crezi ca merita
sa adaugi un link catre el la tine in site

Copiaza codul
in pagina web a site-ului tau.




eCoduri.com - coduri postale, contabile, CAEN sau bancare

Politica de confidentialitate




Copyright © Contact (SCRIGROUP Int. 2022 )