PDF Gestiunea Unei Firme Www.e Referat

Porosanu Stefan-Cristian Clasa a XII a B Proiect atestat Matematica-Informatică

Gestiunea unei firme

Realizati un program pentru evidenta activitatii de desfacere a unei firme in limbajul de programare Access.

Programul se adreseaza tuturor persoanelor care vor, sau si-au deschis o firma de constructii si au novoie de o contabiltate a materialelor. Utilizarea programului este foarte usoara de catre toti operatorii PC.

Dotarile minime ale calculatorului cerute de program sunt:

Procesor Intel sau Amd de 300 Mhz ;16 Mbram ;Placa video de 8 Mb ;Sistem de operare : Windows 95, 98, 98se, Me, Xp ;

Clienţi

Cod clientDenumireAdresaLocalitateJudeţTelefonBancaCont

Produse

Cod produsDenumireFirma producatoare Unitate masuraData fabricatieiFirma producatoareStoc minimStoc maximStoc

Livrări

Nr contractCod clientCod produsCantitatePret unitarData livrariiAchitatData achitarii

Tabela clienţi conţine toţi clienţii firmei, existenţi la momentul dat în baza de date cât şi informaţii detaliate despre aceştia:

Cod client – codul clientuluiDenumire – numele clientuluiAdresa – adresa clientului.Localitate – localitatea Judeţ – judeţul

2


Telefon – numărul de telefon unde poate fi contactat clientul.Banca – banca unde are deschis contul.Cont – numărul contului.

Tabela produse conţine toate produsele existente la momentul dat în stocurile firmei:

Cod produs – codul produsuluiDenumire – numele produsuluiUnitate de masura – unitatea de masură(kg, buc ,L,etc.)Data fabricatiei – data fabricaţiei produsuluiFirma producatoare – firma producătoareStoc minim – stocul minim de produse al firmeiStoc maxim – stocul maxim de produse al firmeiStoc – stocul actual (la un moment dat)

Tabela livrari conţine toate contractele de vânzare – cumpărare încheiate de firmă:

Numar contract – codul unic al contractului.Cod client – codul clientului (câmp prezent şi în tabela clienţi).Cod produs – codul produsului (câmp prezent şi în tabela produse).Cantitate – cantitatea vândută dintr-un produs pe contract.Pret unitar – preţul unitar al produsului.Data livrarii – data livrării produselor.Achitat – opţiune (dacă a fost achitată valoarea cotractului)Data achitarii – data achitării produselor

Panoul de comutare al programului a fost creat cu ajutorul generatorului de meniuri. La selectarea submeniurilor se activează forme (ferestre) sau proceduri. Formele au fost create cu ajotorul generatorului de forme.

3


Management

Produse

Se deschide un formular care ne permite să vizualizăm înregistrările din tabela produse şi, la alegere putem modifica, şterge sau adăuga înregistrări cu ajutorul butoanelor din partea de jos a ferestrei. Avem la dispoziţie un care va scoate la imprimantă tabelul produse .Tot aici se pot localiza anumite înregistrări dorite.

4


Clienţi

Se deschide un formular care ne permite să vizualizăm înregistrările din această tabelă şi, la alegere putem modifica, şterge sau adăuga înregistrări cu ajutorul butoanelor din partea de jos a ferestrei. Tot cu ajutorul acestor butoane se scoate la imprimantă toţi clienţii firmei.

Livrări

La alegerea submeniului Livrari din meniu va apare formularul Management Livrări care prezintă aceleaşi opţiuni de actualizare descrise şi la celelalte două tabele (adăugare, modificare, stergere înregistrări şi poate scoate raportul cu toate livrările facute de firmă până în acel moment.)

5


Contracte

Acest submeniu listează toate contractele firmei formular. Această afişare cuprinde şi denumirea clientului, preluată din tabela Clienţi.

Contracte

6


Stocuri

La alegerea acestei opţiunii se vor afişa pe un formular produsele cu un stoc peste stocul maxim necesar, precum şi cele aflate sub stocul minim.

7


În meniul Despre veţi găsi, aşa cum vă aşteptaţi, date despre realizatorul acestui proiect. Acest formular apare la alegerea meniului:

Despre:

8


Cod sursa:

Clien ţi :

Private Sub Comanda16_Click()On Error GoTo Err_Comanda16_Click

DoCmd.GoToRecord , , acNewRec

Exit_Comanda16_Click: Exit Sub

Err_Comanda16_Click: MsgBox Err.Description Resume Exit_Comanda16_Click End SubPrivate Sub Comanda17_Click()On Error GoTo Err_Comanda17_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


Err_Comanda17_Click: MsgBox Err.Description Resume Exit_Comanda17_Click

9


End SubPrivate Sub Comanda18_Click()On Error GoTo Err_Comanda18_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.PrintOut acSelection


Err_Comanda19_Click: MsgBox Err.Description Resume Exit_Comanda19_Click End Sub

Livr ă ri:

Option Compare Database



10










11








Produse:





12










13




Panou de comutare:


Private Sub Comanda22_DblClick(Cancel As Integer)

End Sub

Private Sub Form_Open(Cancel As Integer)' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default. Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Implicit' " Me.FilterOn = True End Sub

Private Sub Form_Current()' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "") FillOptions End Sub

Private Sub FillOptions()' Fill in the options for this switchboard page.

' The number of buttons on the form. Const conNumButtons = 8

14


Dim con As Object Dim rs As Object Dim stSql As String Dim intOption As Integer ' Set the focus to the first button on the form, ' and then hide all of the buttons on the form ' but the first. You can't hide the field with the focus. Me![Option1].SetFocus For intOption = 2 To conNumButtons Me("Option" & intOption).Visible = False Me("OptionLabel" & intOption).Visible = False Next intOption ' Open the table of Switchboard Items, and find ' the first item for this Switchboard Page. Set con = Application.CurrentProject.Connection stSql = "SELECT * FROM [Switchboard Items]" stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID] stSql = stSql & " ORDER BY [ItemNumber];" Set rs = CreateObject("ADODB.Recordset") rs.Open stSql, con, 1 ' 1 = adOpenKeyset ' If there are no options for this Switchboard Page, ' display a message. Otherwise, fill the page with the items. If (rs.EOF) Then Me![OptionLabel1].Caption = "Aceasta pagina a panoului de comutare nu contine elemente" Else While (Not (rs.EOF)) Me("Option" & rs![ItemNumber]).Visible = True Me("OptionLabel" & rs![ItemNumber]).Visible = True Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText] rs.MoveNext Wend End If

' Close the recordset and the database. rs.Close Set rs = Nothing

15


Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)' This function is called when a button is clicked.' intBtn indicates which button was clicked.

' Constants for the commands that can be executed. Const conCmdGotoSwitchboard = 1 Const conCmdOpenFormAdd = 2 Const conCmdOpenFormBrowse = 3 Const conCmdOpenReport = 4 Const conCmdCustomizeSwitchboard = 5 Const conCmdExitApplication = 6 Const conCmdRunMacro = 7 Const conCmdRunCode = 8 Const conCmdOpenPage = 9

' An error that is special cased. Const conErrDoCmdCancelled = 2501 Dim con As Object Dim rs As Object Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table ' that corresponds to the button that was clicked. Set con = Application.CurrentProject.Connection Set rs = CreateObject("ADODB.Recordset") stSql = "SELECT * FROM [Switchboard Items] " stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn rs.Open stSql, con, 1 ' 1 = adOpenKeyset ' If no item matches, report the error and exit the function. If (rs.EOF) Then MsgBox "Eroare la citirea tabelului Elemente al panoului de comutare." rs.Close

16


Set rs = Nothing Set con = Nothing Exit Function End If Select Case rs![Command] ' Go to another switchboard. Case conCmdGotoSwitchboard Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument] ' Open a form in Add mode. Case conCmdOpenFormAdd DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form. Case conCmdOpenFormBrowse DoCmd.OpenForm rs![Argument]

' Open a report. Case conCmdOpenReport DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard. Case conCmdCustomizeSwitchboard ' Handle the case where the Switchboard Manager ' is not installed (e.g. Minimal Install). On Error Resume Next Application.Run "ACWZMAIN.sbm_Entry" If (Err <> 0) Then MsgBox "Comanda indisponibila." On Error GoTo 0 ' Update the form. Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Implicit' " Me.Caption = Nz(Me![ItemText], "") FillOptions

' Exit the application. Case conCmdExitApplication CloseCurrentDatabase

' Run a macro.

17


Case conCmdRunMacro DoCmd.RunMacro rs![Argument]

' Run code. Case conCmdRunCode Application.Run rs![Argument]

' Open a Data Access Page Case conCmdOpenPage DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized. Case Else MsgBox "Optiune necunoscuta." End Select

' Close the recordset and the database. rs.Close HandleButtonClick_Exit:On Error Resume Next Set rs = Nothing Set con = Nothing Exit Function

HandleButtonClick_Err: ' If the action was cancelled by the user for ' some reason, don't display an error message. ' Instead, resume on the next line. If (Err = conErrDoCmdCancelled) Then Resume Next Else MsgBox "Eroare la executarea comenzii.", vbCritical Resume HandleButtonClick_Exit End If End Function.

Bibliografie:

18


“ Informatică, tehnologii asistate de calculator varianta Access", autori Mariana ,Ionuţ şi Ioana- Irina Panţiru editura L&S Infomat

“ Pogramare în Accesss ” autor Tudor Sorin editura Teora

19

PDF Gestiunea Unei Firme Www.e Referat

Documents

Transcript of PDF Gestiunea Unei Firme Www.e Referat