CATEGORII DOCUMENTE |
Colegiul National " Al. I. Cuza " Corabia
Lucrare pentru atestarea competentelor profesionale
Gestiune Magazin Alimentar
1.Motivatia alegerii temei
Deoarece metoda veche de gestionare a bunurilor era greoaie si necesita mult timp am decis sa dezvolt acest program pentru facilitarea desfasurarii activitatii intr-un magazin alimentar.
Acest program faciliteaza atat munca conducerii care cunoaste intotdeauna detaliile despre produsele aflate in magazin,cat si a vanzatorului care este ajutat in defasurarea activitatii.
Programul ajuta vanzatorul in procesul de vanzare a produselor aflate in magazin calculand totalul de plata pentru un anumit client si in acelasi timp tine evidenta produselor aflate pe stoc.
2.Structura aplicatiei
-2.1 Structuri de date utilizate-
Programul are la baza urmatoarea baza de date:
Proiect2.dbc care contine tabelele:
Categorie. dbf - tine evidenta produselor oferite spre vanzare si are urmatoarea structura:
Cod_produs - N2
Denumire - C20
Pret_unita - N10.1
Stoc- N6
Cantitate -N6
Total_de_plata - N10 .2
Total.dbf-inregistreaza toate valorile pretului total si are urmatoarea structura:
Total_de_p -N10.2
-2.2 Organizarea continutului informational-
Programul tine evidenta produselor dintr-un magazin alimentar .Are in componenta sa urmatoarele formulare ce cuprind:
Form1.scx -formular principal-cuprinde urmatoarele butoane:
-Butonul 'Cauta' care la introducerea in campul text1 a numelui unui produs cautat va afisa in campurile txtpret_unita ,txtstoc,txtcod_produs pretul produsului,cantitatea care mai este in stoc respectiv codul produsului
-Butonul 'Calculeaza' -calculeaza pentru o valoare introdusa in campul txtcantitate valoarea pe care trebuie sa o plateasca clientul pentru un anumit produs,valoare afisata in campul text2.
In campul text3 este facuta suma valorilor afisate in campul text2,suma ce ramane pana la apasarea butonului 'Resetare'
-Butonul 'Resetare'-prin apasarea acestui buton valorile afisate in campurile text1,text2,text3,txtcantitate sunt resetate la valoarea nula.
-Butonul 'Editare produse'-prin apasarea acestui buton este deschis formularul parola.scx care contine butonul 'ok' ,butonul 'iesire' si campul text1 care in functie de parola introdusa va deschide sau nu formularul editare.scx
-Butonul 'Afisare produse'-la apasarea acestui buton este deschis raportul 'Afisare.frx' care contine o lista cu produsele si detalii depre acestea .
-Butonul 'Iesire'-la apasarea acestui buton formularul 'form1.scx'este inchis.
Parola.scx-acest formular cuprinde urmatoarele butoane:
-Butonul 'Ok'-la apasarea acestui buton, in functie de parola introdusa va apare mesajul 'Foarte bine' si se va deschide formularul editare.scx in cazul in care parola este validata,iar daca parola nu este validata va apare mesajul 'Parola gresita'
-Butonul 'Iesire'-la apasarea acestui buton se inchide formularul Parola.scx
Formularul 'Editare.scx'-acest formular este deschis numai daca este validata parola introdusa la formularul 'parola.scx'
Cuprinde urmatoarele butoane:
-Butonul 'Adaugare'-prin apasarea acestui buton sunt introduse in tabela categorie.dbf noi inregistrari in functie de valorile introduse de la tastatura in campurile txtcod_produs,txtdenumire,txtpret_unita,txtstoc.
-Butonul 'Modificare'-prin apasarea acestui buton este modificata o anumita inregistrare din tabela categorie.dbf in functie de valoarea introdusa de la tastatura in campul text1.
-Butonul 'Stergere'- prin apasarea acestui buton este stearsa o anumita inregistrare din tabela categorie.dbf in functie de valoarea introdusa de la tastatura in campul txtcod_produs.
-Butonul 'Iesire'-inchide formularul 'editare.scx'
Programul contine si raportul 'Afisare.frx' care afiseaza informatii precum stoc ,pret,denumire,cod produs despre produse .
3.Detalii tehnice de implementare
In formularul 'Form1.scx' butoanele au urmatoarele algoritme:
-Butonul 'Cauta':
USE c:proiect2categorie.dbf AGAIN
GO top
i=0
DO WHILE i<RECCOUNT()
IF denumire=thisform.text1.Value
GOTO cod_produs
thisform.txtpret_unita.Value=pret_unita
thisform.txtstoc.Value=stoc
thisform.txtCantitate.Value=0
thisform.txtCod_produs.Value=cod_produs
i=RECCOUNT()+1
ELSE
IF EOF()
WAIT WINDOW TIMEOUT 3 [Nu exista un produs cu numele respectiv]
i=i+RECCOUNT()
ELSE
i=i+1
skip
ENDIF
endif
ENDDO
PUBLIC b
b=cod_produs
-Butonul 'Calculeaza':
USE c:proiect2categorie.dbf again
GOTO b
c=stoc
IF thisform.txtcantitate.value<thisform.txtstoc.Value
thisform.text2.Value=thisform.txtcantitate.value*thisform.txtpret_unita.value
thisform.txtstoc.Value=thisform.txtstoc.Value-thisform.txtcantitate.value
replace stoc WITH c-thisform.txtCantitate.value
a=a+thisform.text2.value
thisform.text3.Value=a
USE C:PROIECT2categorie.DBF AGAIN
replace total_de_plata WITH a
ELSE
WAIT WINDOW TIMEOUT 3 [produsul nu exista in cantitatea ceruta]
endif
-Butonul 'Resetare':
a=0
thisform.txtCantitate.Value=[ ]
thisform.text2.Value=[ ]
thisform.text3.Value=[ ]
thisform.text1.Value=[ ]
-Butonul 'Editare produse':
DO FORM c:proiect2parola.scx
-Butonul 'Afisare produse':
REPORT FORM c:proiect2afisare.frx preview
-Butonul 'Iesire':
thisform.release
In formularul 'editare.scx' butoanele au urmatoarele algoritme:
-Butonul 'Adaugare':
USE c:proiect2categorie.dbf
GO bottom
APPEND BLANK
replace cod_produs WITH thisform.txtCod_produs.Value
replace denumire WITH thisform.txtDenumire.Value
replace pret_unita WITH thisform.txtPret_unita.Value
replace stoc WITH thisform.txtstoc.Value
-Butonul 'Modificare':
USE c:proiect2categorie.dbf AGAIN
GO top
i=0
DO WHILE i<=RECCOUNT()
IF cod_produs=VAL(thisform.text1.Value)
GOTO cod_produs
thisform.txtpret_unita.Value=pret_unita
thisform.txtstoc.Value=stoc
thisform.txtcod_produs.Value=cod_produs
thisform.txtDenumire.Value=denumire
i=RECCOUNT()+1
ELSE
IF EOF()
WAIT WINDOW TIMEOUT 3 [Nu exista un produs cu numele respectiv]
i=i+RECCOUNT()
ELSE
i=i+1
skip
ENDIF
endif
ENDDO
-Butonul 'Stergere':
USE c:proiect2categorie.dbf EXCLUSIVE
DELETE FOR cod_produs=thisform.txtCod_produs.Value
Pack
-Butonul 'Iesire':
thisform.release
In formularul 'parola.scx' butoanele au urmatoarele algoritme:
-Butonul 'Ok':
set exact on
IF thisform.text1.Value='magazin'
WAIT WINDOW TIMEOUT 1 [Foarte bine]
WAIT TIMEOUT 0.001
thisform.Release
DO FORM c:proiect2editare.scx
ELSE
WAIT WINDOW TIMEOUT 3 [Parola gresita]
k=k+1
IF k=4
WAIT WINDOW TIMEOUT 3 [Accesul interzis]
thisform.Release
ENDIF
Endif
-Butonul 'Iesire':
thisform.release
4.Resurse hard si soft necesare
Programul este realizat in Visual Fox Pro 8.0 pe un sistem de operare Windows XP.
Cerintele minime pentru ca acest program sa functioneze in conditii optime sunt:
-Pentium II cu 64 M de RAM
-Limbaj de programare Visual Fox Pro
5.Modalitati de utilizare
Pentru utilizarea acestui program utilizatorul trebuie sa copieze folderul Proiect2 in discul local C:
Se deschide programul in Visual Fox Pro si se utilizeaza fisierul Proiect2 de tip .pjx din care se selecteaza formularul form1.
Se apasa butonul Run pentru inceperea executiei programului.
6.Modalitati de dezvoltare
Cuprins
1.Motivatia alegerii temei..............2
2.STRUCTURA APLICATIEI............3
2.1 Structuri de date utilizate...........3
2.2 Organizarea continutului informational....4
3.Detalii tehnice de implementare..........9
4.Resurse hard si soft necesare..........13
5.Modalitati de utilizare............14
6.Modalitati de dezvoltare...........15
Politica de confidentialitate | Termeni si conditii de utilizare |
Vizualizari: 3903
Importanta:
Termeni si conditii de utilizare | Contact
© SCRIGROUP 2024 . All rights reserved