Creeaza.com - informatii profesionale despre


Evidentiem nevoile sociale din educatie - Referate profesionale unice



Acasa » referate » informatica
Lucrare atestat informatica - „administrarea gradinii botanice”

Lucrare atestat informatica - „administrarea gradinii botanice”



Liceul Teoretic „Mihai Eminescu”

PROFIL MATEMATICA- INFORMATICA

CLASA A 12-A MI2

LUCRARE PENTRU OBTINEREA  ATESTATULUI PROFESIONAL


„ADMINISTRAREA

GRADINII BOTANICE”

 

 

 

MEMORIU JUSTIFICATIV

 

 

            Natura si interactiunea oamenilor cu ea este foarte importanta avand

in vedere si nevoia de relaxare.De aproximativ un secol,datorita industriei in

continua dezvoltare si a defrisarii plantatiilor destul de abundenta din intreaga lume ,vegetatia a fost pusa in pericol.Asfelt a luat nastere Gradina Botanica unde botanistii si oamenii de stiinta aparatori ai naturii,din intreaga lume,au reusit sa infiinteze un arsenal destul de bogat cu plante prezente zi de zi ,pas cu pas dar si plante rare sau chiar pe cale de disparitie,pentru a le proteja si a le expune iubitorilor de natura.

           Gradina  Botanica a dezvoltat relatii numeroase cu majoritatea tarilor din intreaga lume de altfel fiind si modul cel mai important prin achizitionarea plantelor noi.

            Relieful variat  permite aranjamente deosebite de arhitectura peisagista grupand plantele in locatii si categorii diferite datorita varietatii acestora .

           Sunt cultivate nu numai plante cu importanta economica  (melifere,medicinale,textile sau industriale) dar se incearca si inmultirea unor plante rare amenintate cu disparitia .

           Gradina Botanica reprezinta de astfel o importanta baza de cercetare pentru botanisti.

           Pot fi admirate si studiate plante din intreaga lume.

           Luand in considerare aceste motive precum  si faptul de a cauta informatii despre plante si fauna intr-un format electronic,am considerat foarte utila o aplicatie care sa tina evidenta intregii vegetatii si care sa ofere explicatii si lamuriri cat mai utile si accesibile.   

 

                      

                      

DESCRIEREA LIMBAJULUI  FOXPRO

          Cu trecerea timpului si dezvoltarea informaticii, calculatorul s-a implicat in tot mai multe domenii de activitate, o multitudine de probleme gasindu-si astfel rezolvarea prin intermediul sau.

            O clasificare a problemelor rezolvate cu ajutorul calculatorului, tinand cont de volumul datelor si al prelucrarilor implicate in rezolvare ar putea fi urmatoarea :

-       probleme care implica prelucrari putine asupra unui volum mare de date

-       probleme a caror rezolvare presupune un volum mediu de prelucrari asupra unui volum mediu de date

-       probleme in rezolvarea carora intra un volum mic de date asupra lor efectuandu-se un volum mare de prelucrari.

Sistemele de gestiune a bazelor de date (SGBD) reprezinta sisteme informatice specializate in stocarea si prelucrarea unui volum mare de date, in rezolvarea problemelor de primul tip, din clasificarea anterioara.

Un SGBD trebuie sa asigure urmatoarele functiuni elementare, referitoare la bazele de date :

-       definirea bazei de date

-       introducerea datelor (adaugarea de noi date la baza de date)

-       modificarea unor date existente in baza de date

-       stergerea unor date interogarea bazei de date, adica extragerea informatiilor stocate in aceasta.

         Comenzile FOXPRO permit descrierea tuturor functiunilor generale ale unui SGBD, anume :

1.gestionarea structurii conceptuale a bazei de date separat de structura fizica (CREATE, MODIFY STRUCTURE, COPY STRUCTURE, CREATE TABLE)

2.gestionarea datelor : incarcare (APPEND, INSERT), modificare (REPLACE, EDIT), stergere (DELETE, PACK, RECALL)

     3.afisarea datelor in diferite modalitati (CREATE/MODIFY REPORT, CREATE/MODIFY LABEL)

4.modularizare si parametrizare (PROCEDURE, FUNCTION)

              

                          

 

                         DESCRIEREA APLICATIEI

 Fiind o aplicatie care necesita prelucrarea unui volum mare de date am ales drept limbaj pentru scrierea acesteia limbajul FOXPRO (versiunea pentru Windows-9.0). Aplicatia poate rula pe sisteme de operare  Windows 2000, Windows XP, Windows Server 2003, Windows Vista,  Windows 7.

In cadrul aplicatiei am folosit urmatoarele baze de date:

TABEL1.dbf  (pentru pastrarea datelor personalului):
1.NUME                   CHARACTER      30

2.OCUPATIE           CHARACTER      30

3.SALAR_LEI          NUMERIC           10

TABEL2.dbf(pentru pastrarea datelor chestionarului)

1.NUME                    CHARACTER      30

2.EMAIL                   CHARACTER      30

3.OPINIE1                 MEMO                  4

4.OPINIE2                 MEMO                  4

5.OPINIE 3                MEMO                  4

  

              La lansarea aplicatiei va aparea urmatoarea fereastra:                                                             

Apasarea butonului IESIRE determina iesirea din aplicatie,iar butonul INTRARE determina deschiderea urmatoarei ferestre ce constitue prefata aplicatiei Gradinii Botanice.

1.Apasarea butonului INFORMATII PERSONAL determina deschiderea unei ferestre cu inregistrarile personalului.

2.Apasarea butonului INFORMATII PLANTE determina deschiderea unei ferestre alcatuita din plante si informatii despre acestea.

3.Apasarea butonului ALTE INFORMATII determina deschiderea unei ferestre care contine informatii utile despre Gradina Botanica.

4.Apasarea butonului CHESTIONAR determina deschiderea unei ferestre ce contine un chestionar care cere parerea despre Gradina Botanica.

5.Apasarea butonului IESIRE termina deschiderea unei ferestre care contine un alt buton de IESIRE acesta inchizand aplicatia.

            1.Fereastra aparuta in urma determinarii butonului INFORMATII PERSONAL cuprinde 3 label-uri si un buton  OK cu ajutorul carora se va face inregistrari in tabel.Butonul IESIRE determina inchiderea automata a aplicatiei iar butonul INAPOI determina revenirea aplicatiei la pagina precedenta.

     

2.Fereastra aparuta in urma determinarii butonului INFORMATII PLANTE contine plante si cate un buton INFORMATII pentru fiecare,determinand astfel ca la fiecare planta sa apara o alta fereastra cu mai multe informatii despre aceasta.Butonul IESIRE determina iesirea automata din aplicatie,iar butonul INAPOI determina revenirea la pagina precedenta.

3.Fereastra aparuta in urma determinarii butonului ALTE INFORMATII contine 3 butoane fiecare determinand aparitia undei alte ferestre cu informatii mult mai numeroase.

Butonul TERMINAT determina deschiderea unei ferestre cu un buton de IESIRE,acesta inchizand aplicatia.Butonul INAPOI determina revenirea la pagina anterioara.

   Butonul ORAR VIZITE din fereastra ALTE INFORMATII determina deschiderea unei alte ferestre care ofera informatii despre programul de vizita..Butonul IESIRE determina inchiderea automata a aplicatiei,iar butonul INAPOI determina revenirea la pagina anterioara.

   Butonul SCURT ISTORIC din fereastra ALTE INFORMATII determina deschiderea unei ferestre care contine informatii despre trecutul si infiintarea Gradinii Botanice.Aceasta contine doua butoane :IESIRE care determina inchiderea automata a aplicatiei,si un buton INAPOI care determina revenirea la pagina anterioara.

 Butonul SECTOARE din fereastra ALTE INFORMATII determina deschiderea unei ferestre cu doua butoane :IESIRE care determina inchiderea automata a aplicatiei si INAPOI care determina revenirea la pagina anterioara. .Mai contine inca 10 butoane,fiecare dintre acestea numerotate ,determina deschiderea unei alte ferestre cu informatii despre fiecare sector al Gradinii Botanice.fiecare dintre acestea contine un buton de IESIRE care determina inchiderea automata a aplicatiei si un buton INAPOI care determina revenirea la pagina anterioara.

4.Fereastra aparuta in urma determinarii butonului CHESTIONAR determina deschiderea unei noi ferestre  care contine un continut tip chestionar si un tabel.Mai contine  textbox-uri si label-uri in care se va face completarea chestionarului si un buton  ADAUGARE cu ajutorul caruia se va face adaugarea datelor in tabel.Contine de altfel si doua butoane:TERMINARE care determina inchiderea aplicatiei si INAPOI care determina revenirea la pagina anterioara.

5.Fereastra aparuta in urma determinarii butonului IESIRE determina aparitia unei ferestre  cu un buton IESIRE care determina inchiderea aplicatiei.

               CODUL SURSA

USE tabel1 IN 1

USE tabel2 IN 2

f1=CREATEOBJECT('forma1')

f2=CREATEOBJECT('forma2')

f3=CREATEOBJECT('forma3')

f4=CREATEOBJECT('forma4')

fx=CREATEOBJECT('formax')

fx1=CREATEOBJECT('formax1')

fx2=CREATEOBJECT('formax2')

fx3=CREATEOBJECT('formax3')

fx4=CREATEOBJECT('formax4')

fx5=CREATEOBJECT('formax5')

fx6=CREATEOBJECT('formax6')

fx7=CREATEOBJECT('formax7')

fx8=CREATEOBJECT('formax8')

fx9=CREATEOBJECT('formax9')

fx10=CREATEOBJECT('formax10')

fx11=CREATEOBJECT('formax11')

fx12=CREATEOBJECT('formax12')

fx13=CREATEOBJECT('formax13')

fx14=CREATEOBJECT('formax14')

fx15=CREATEOBJECT('formax15')

fx16=CREATEOBJECT('formax16')

fx17=CREATEOBJECT('formax17')

fx18=CREATEOBJECT('formax18')

f5=CREATEOBJECT('forma5')

f6=CREATEOBJECT('forma6')

f7=CREATEOBJECT('forma7')

f8=CREATEOBJECT('forma8')

f9=CREATEOBJECT('forma9')

f10=CREATEOBJECT('forma10')

f10a=CREATEOBJECT('forma10a')

f10b=CREATEOBJECT('forma10b')

f10c=CREATEOBJECT('forma10c')

f10d=CREATEOBJECT('forma10d')

f10e=CREATEOBJECT('forma10e')

f10f=CREATEOBJECT('forma10f')

f10g=CREATEOBJECT('forma10g')

f10h=CREATEOBJECT('forma10h')

f10i=CREATEOBJECT('forma10i')

f10j=CREATEOBJECT('forma10j')

f11=CREATEOBJECT('forma11')

f12=CREATEOBJECT('forma12')

f1.show

READ events

define CLASS forma1 as Form

caption='Gradina Botanica'

height=400

width=400

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicagradina botanica intrare.jpg'

ADD OBJECT b1 as commandbutton

ADD OBJECT b2 as commandbutton

b1.caption='INTRARE'

b1.height=60

b1.left=20

b1.top=270

b1.width=360

b1.visible=.t.

b1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

b2.caption='IESIRE'

b2.height=60

b2.left=20

b2.top=330

b2.width=360

b2.visible=.t.

b2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE b1.click

thisform.Release

f2.show

ENDPROC

PROCEDURE b2.click

f1.hide

f11.show

ENDPROC

ENDDEFINE

DEFINE CLASS forma11 as Form

caption='Terminat'

height=220

width=250

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height=60

bt1.caption='INCHIDE'

bt1.width=100

bt1.top=150

bt1.left=60

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

txt1.caption='VA MULTUMIM!'

txt1.height=40

txt1.top=40

txt1.width=250

txt1.visible=.t.

txt1.left=30

txt1.fontsize=20

txt1.fontunderline=.t.

txt1.backstyle=0

txt1.forecolor=RGB(255,255,255)

PROCEDURE bt1.click

thisform.Release

ENDPROC

enddefine

define class forma2 as form

caption='Informatii'

height=300

width=400

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicainformatii.jpg'

ADD OBJECT b2 as commandbutton

ADD OBJECT b3 as commandbutton

ADD OBJECT b4 as commandbutton

ADD OBJECT b5 as commandbutton

ADD OBJECT b6 as commandbutton

ADD OBJECT txt2 as label

 

txt2.caption='INFORMATII'

txt2.height=70

txt2.top=5

txt2.width=300

txt2.visible=.t.

txt2.left=45

txt2.fontsize=40

txt2.fontunderline=.t.

txt2.backstyle=0

txt2.forecolor=RGB(255,255,255)

b2.caption='Informatii personal'

b2.height=40

b2.left=20

b2.top=55

b2.width=360

b2.visible=.t.

b2.fontsize=12

b3.caption='Informatii plante'

b3.height=40

b3.left=20

b3.top=100

b3.width=360

b3.visible=.t.

b3.fontsize=12

b4.caption='Alte informatii'

b4.height=40

b4.left=20

b4.top=145

b4.width=360

b4.visible=.t.

b4.fontsize=12

b6.caption='Chestionar'

b6.height=40

b6.left=20

b6.top=190

b6.width=360

b6.visible=.t.

b6.fontsize=12

b5.caption='IESIRE'

b5.height=60

b5.left=150

b5.top=235

b5.width=80

b5.visible=.t.

b5.fontsize=12

b5.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE b2.click

f3.show

f2.hide

ENDPROC

PROCEDURE b3.click

f4.show

f2.hide

ENDPROC

PROCEDURE b4.click

f5.show

f2.hide

ENDPROC

PROCEDURE b6.click

f12.show

f2.hide

ENDPROC

PROCEDURE b5.click

f9.show

f2.hide

ENDPROC

ENDDEFINE

SELECT 2

DEFINE CLASS forma12 as Form

caption='chestionar'

backcolor=RGB(128,0,0)

closable=.f.

height=600

width=1000

ADD OBJECT g1 as grid

ADD OBJECT l1 as label

ADD OBJECT l2 as label

ADD OBJECT l3 as label

ADD OBJECT l4 as label

ADD OBJECT l5 as label

ADD OBJECT l6 as label

ADD OBJECT l7 as label

ADD OBJECT l8 as label

ADD OBJECT l9 as label

ADD OBJECT l10 as label

ADD OBJECT l11 as label

ADD OBJECT l12 as label

ADD OBJECT txt1 as textbox

ADD OBJECT txt2 as textbox

ADD OBJECT txt3 as textbox

ADD OBJECT txt4 as textbox

ADD OBJECT txt5 as textbox

ADD OBJECT ttb1 as label

ADD OBJECT ttb2 as label

ADD OBJECT ttb3 as label

ADD OBJECT ttb4 as label

ADD OBJECT br1 as optionbutton 

ADD OBJECT br2 as optionbutton

ADD OBJECT br3 as optionbutton

ADD OBJECT br4 as optionbutton

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

ADD OBJECT bt3 as commandbutton

g1.top=10

g1.height=300

g1.width=400

g1.visible=.t.

g1.left=500

l1.caption='Nume'

l1.height=30

l1.width=70

l1.backstyle=0

l1.fontsize=14

l1.fontitalic=.t.

l1.top=20

l1.left=10

l1.forecolor=RGB(0,0,0)

l1.fontbold=.t.

txt1.height=25

txt1.top=20

txt1.width=200

txt1.visible=.t.

txt1.left=100

l2.caption='Email'

l2.height=20

l2.width=70

l2.backstyle=0

l2.fontsize=14

l2.fontitalic=.t.

l2.top=50

l2.left=10

l2.forecolor=RGB(0,0,0)

l2.fontbold=.t.

txt2.height=25

txt2.top=50

txt2.width=200

txt2.visible=.t.

txt2.left=100

l3.caption='1.Ati dori mai mult informatii despre Gradina Botanica?'

l3.height=20

l3.width=450

l3.backstyle=0

l3.fontsize=10

l3.fontitalic=.t.

l3.top=90

l3.left=10

l3.forecolor=RGB(0,0,0)

l3.fontbold=.t.

ttb1.caption='Da'

ttb1.height=16

ttb1.left=25

ttb1.top=120

ttb1.width=20

ttb1.visible=.t.

ttb2.caption='Nu'

ttb2.height=16

ttb2.left=70

ttb2.top=120

ttb2.width=20

ttb2.visible=.t.

br1.top=120

br1.left=10

br1.name='buton'

br2.top=120

br2.left=55

br2.name='buton1'

l4.caption='2.Daca DA,ce ati dori?'

l4.height=20

l4.width=200

l4.backstyle=0

l4.fontsize=10

l4.fontitalic=.t.

l4.top=150

l4.left=10

l4.forecolor=RGB(0,0,0)

l4.fontbold=.t.

l5.caption='Scrieti aici'

l5.height=20

l5.width=200

l5.backstyle=0

l5.fontsize=10

l5.fontitalic=.t.

l5.top=180

l5.left=30

l5.forecolor=RGB(0,0,0)

l5.fontbold=.t.

txt3.height=60

txt3.top=180

txt3.width=150

txt3.visible=.t.

txt3.left=120

l6.caption='3.Ati vizitat Gradina Botanica?'

l6.height=20

l6.width=450

l6.backstyle=0

l6.fontsize=10

l6.fontitalic=.t.

l6.top=250

l6.left=10

l6.forecolor=RGB(0,0,0)

l6.fontbold=.t.

ttb3.caption='Da'

ttb3.height=16

ttb3.left=25

ttb3.top=280

ttb3.width=20

ttb3.visible=.t.

ttb4.caption='Nu'

ttb4.height=16

ttb4.left=70

ttb4.top=280

ttb4.width=20

ttb4.visible=.t.

br3.top=280

br3.left=10

br3.name='buton2'

br4.top=280

br4.left=55

br4.name='buton3'

l7.caption='4.Daca DA,ce v-a placut cel mai mult?'

l7.height=20

l7.width=300

l7.backstyle=0

l7.fontsize=10

l7.fontitalic=.t.

l7.top=310

l7.left=10

l7.forecolor=RGB(0,0,0)

l7.fontbold=.t.

l8.caption='Scrieti aici'

l8.height=20

l8.width=80

l8.backstyle=0

l8.fontsize=10

l8.fontitalic=.t.

l8.top=340

l8.left=30

l8.forecolor=RGB(0,0,0)

l8.fontbold=.t.

txt4.height=60

txt4.top=340

txt4.width=150

txt4.visible=.t.

txt4.left=120

l9.caption='5.Vi se pare Gradina botanica un obiectiv turistic important?Si de ce?'

l9.height=20

l9.width=450

l9.backstyle=0

l9.fontsize=10

l9.fontitalic=.t.

l9.top=410

l9.left=10

l9.forecolor=RGB(0,0,0)

l9.fontbold=.t.

l12.caption='Scrieti aici'

l12.height=20

l12.width=80

l12.backstyle=0

l12.fontsize=10

l12.fontitalic=.t.

l12.top=435

l12.left=30

l12.forecolor=RGB(0,0,0)

l12.fontbold=.t.

txt5.height=60

txt5.top=435

txt5.width=150

txt5.visible=.t.

txt5.left=120

l10.caption='Ne puteti scrie mai multe'

l10.height=20

l10.width=450

l10.backstyle=0

l10.fontsize=10

l10.fontitalic=.t.

l10.top=490

l10.left=760

l10.forecolor=RGB(0,0,0)

l10.fontbold=.t.

l11.caption='la adresa gbotanica@yahoo.com'

l11.height=20

l11.width=450

l11.backstyle=0

l11.fontsize=10

l11.fontitalic=.t.

l11.top=510

l11.left=785

l11.forecolor=RGB(0,0,0)

l11.fontbold=.t.

bt1.caption='TERMINARE'

bt1.height=50

bt1.left=800

bt1.top=550

bt1.width=100

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.caption='INAPOI'

bt2.height=50

bt2.left=400

bt2.top=550

bt2.width=100

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt3.caption='ADAUGARE'

bt3.height=50

bt3.left=40

bt3.top=550

bt3.width=100

bt3.visible=.t.

bt3.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE load

SELECT 2

GO bottom

ENDPROC

PROCEDURE unload

USE

ENDPROC

PROCEDURE init

IF EOF()

thisform.txt1.value=''

thisform.txt2.value=''

thisform.txt3.value=''

thisform.txt4.value=''

thisform.txt5.value=''

ENDIF

ENDPROC

PROCEDURE bt3.click

SELECT 2

APPEND BLANK

replace tabel2.nume WITH ALLTRIM(thisform.txt1.value)

replace tabel2.email WITH ALLTRIM(thisform.txt2.value)

replace tabel2.opinie1 WITH thisform.txt3.value

replace tabel2.opinie2 WITH thisform.txt4.value

replace tabel2.opinie3 WITH thisform.txt5.value

thisform.refresh

ENDPROC

PROCEDURE bt1.click

f12.hide

f8.show

ENDPROC

PROCEDURE bt2.click

f12.hide

f2.show

ENDPROC

ENDDEFINE

DEFINE CLASS forma14 as Form

caption='Terminat'

height=220

width=250

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height=60

bt1.caption='INCHIDE'

bt1.width=100

bt1.top=150

bt1.left=60

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

txt1.caption='VA MULTUMIM!'

txt1.height=40

txt1.top=40

txt1.width=250

txt1.visible=.t.

txt1.left=30

txt1.fontsize=20

txt1.fontunderline=.t.

txt1.backstyle=0

txt1.forecolor=RGB(255,255,255)

PROCEDURE bt1.click

thisform.Release

ENDPROC

enddefine

DEFINE CLASS forma9 as Form

caption='Terminat'

height=220

width=250

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height=60

bt1.caption='INCHIDE'

bt1.width=100

bt1.top=150

bt1.left=60

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

txt1.caption='VA MULTUMIM!'

txt1.height=40

txt1.top=40

txt1.width=250

txt1.visible=.t.

txt1.left=30

txt1.fontsize=20

txt1.fontunderline=.t.

txt1.backstyle=0

txt1.forecolor=RGB(255,255,255)

PROCEDURE bt1.click

thisform.Release

ENDPROC

enddefine

SELECT 1

define class forma3 as form

height=600

width=500

backcolor=RGB(128,0,0)

closable=.t.

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicapersonal.jpg'

ADD OBJECT g1 as grid

ADD OBJECT l1 as label

ADD OBJECT l2 as label

ADD OBJECT l3 as label

ADD OBJECT l4 as label

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt4 as commandbutton

ADD OBJECT bt5 as commandbutton

ADD OBJECT txt1 as textbox

ADD OBJECT txt2 as textbox

ADD OBJECT txt3 as textbox

g1.top=10

g1.height=300

g1.width=400

g1.visible=.t.

l1.caption='Adaugare angajat'

l1.height=60

l1.width=210

l1.backstyle=0

l1.fontsize=16

l1.fontitalic=.t.

l1.fontunderline=.t.

l1.top=330

l1.left=15

l1.forecolor=RGB(255,0,0)

l1.fontbold=.t.

l2.caption='Scrie nume'

l2.height=20

l2.width=210

l2.fontsize=14

l2.fontitalic=.t.

l2.top=375

l2.left=10

l2.forecolor=RGB(255,0,0)

l2.backstyle=0

l2.visible=.t.

l2.fontbold=.t.

txt1.width=200

txt1.height=23

txt1.top=375

txt1.left=155

l3.caption='Scrie ocupatie'

l3.height=20

l3.width=160

l3.fontsize=14

l3.top=400

l3.left=10

l3.visible=.t.

l3.forecolor=RGB(255,0,0)

l3.backstyle=0

l3.fontitalic=.t.

l3.fontbold=.t.

txt2.width=200

txt2.height=23

txt2.top=400

txt2.left=155

l4.caption='Scrie salar'

l4.height=20

l4.width=160

l4.fontsize=14

l4.top=425

l4.left=10

l4.visible=.t.

l4.forecolor=RGB(255,0,0)

l4.backstyle=0

l4.fontitalic=.t.

l4.fontbold=.t.

txt3.width=200

txt3.height=23

txt3.top=425

txt3.left=155

bt1.height=23

bt1.caption='OK'

bt1.width=30

bt1.top=455

bt1.left=230

bt4.height=60

bt4.caption='IESIRE'

bt4.width=70

bt4.top=530

bt4.left=10

bt4.visible=.t.

bt4.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt5.height=60

bt5.caption='INAPOI'

bt5.width=70

bt5.top=530

bt5.left=410

bt5.visible=.t.

bt5.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE load

SELECT 1

GO bottom

ENDPROC

PROCEDURE unload

USE

ENDPROC

PROCEDURE init

IF EOF()

thisform.txt1.value=''

thisform.txt2.value=''

thisform.txt3.value=''

ENDIF

ENDPROC

PROCEDURE bt1.click

SELECT 1

APPEND BLANK

replace tabel1.nume WITH ALLTRIM(thisform.txt1.value)

replace tabel1.ocupatie WITH ALLTRIM(thisform.txt2.value)

replace tabel1.salar_lei WITH VAL(thisform.txt3.value)

thisform.refresh

ENDPROC

PROCEDURE bt4.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt5.click

f3.hide

f2.show

ENDPROC

enddefine

define class forma4 as form

caption='Plante'

height=500

width=500

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicatrandafir alb.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

ADD OBJECT bt3 as commandbutton

ADD OBJECT bt4 as commandbutton

ADD OBJECT bt5 as commandbutton

ADD OBJECT bt6 as commandbutton

ADD OBJECT bt7 as commandbutton

ADD OBJECT bt8 as commandbutton

ADD OBJECT bt9 as commandbutton

ADD OBJECT bt10a as commandbutton

ADD OBJECT bt12 as commandbutton

ADD OBJECT bt13 as commandbutton

ADD OBJECT bt14 as commandbutton

ADD OBJECT bt15 as commandbutton

ADD OBJECT bt16 as commandbutton

ADD OBJECT bt17 as commandbutton

ADD OBJECT bt18 as commandbutton

ADD OBJECT bt19 as commandbutton

ADD OBJECT bt20 as commandbutton

ADD OBJECT bt10 as commandbutton

ADD OBJECT bt11 as commandbutton

ADD OBJECT txt1 as label

ADD OBJECT txt2 as label

ADD OBJECT txt3 as label

ADD OBJECT txt4 as label

ADD OBJECT txt5 as label

ADD OBJECT txt6 as label

ADD OBJECT txt7 as label

ADD OBJECT txt8 as label

ADD OBJECT txt9 as label

ADD OBJECT txt10 as label

ADD OBJECT txt12 as label

ADD OBJECT txt13 as label

ADD OBJECT txt14 as label

ADD OBJECT txt15 as label

ADD OBJECT txt16 as label

ADD OBJECT txt17 as label

ADD OBJECT txt18 as label

ADD OBJECT txt19 as label

ADD OBJECT txt20 as label

txt1.caption='Lalea'

txt1.height=16

txt1.top=20

txt1.width=50

txt1.visible=.t.

txt1.left=10

txt1.fontsize=12

txt1.backstyle=0

txt1.forecolor=RGB(0,0,0)

txt2.caption='Petunia'

txt2.height=16

txt2.top=40

txt2.width=65

txt2.visible=.t.

txt2.left=10

txt2.fontsize=12

txt2.backstyle=0

txt2.forecolor=RGB(0,0,0)

txt3.caption='Prunus tenella '

txt3.height=16

txt3.top=60

txt3.width=140

txt3.visible=.t.

txt3.left=10

txt3.fontsize=12

txt3.backstyle=0

txt3.forecolor=RGB(0,0,0)

txt4.caption='Levantica'

txt4.height=16

txt4.top=80

txt4.width=95

txt4.visible=.t.

txt4.left=10

txt4.fontsize=12

txt4.backstyle=0

txt4.forecolor=RGB(0,0,0)

txt5.caption='Musetel'

txt5.height=16

txt5.top=100

txt5.width=110

txt5.visible=.t.

txt5.left=10

txt5.fontsize=12

txt5.backstyle=0

txt5.forecolor=RGB(0,0,0)

txt6.caption='Lacramioare'

txt6.height=16

txt6.top=120

txt6.width=125

txt6.visible=.t.

txt6.left=10

txt6.fontsize=12

txt6.backstyle=0

txt6.forecolor=RGB(0,0,0)

txt7.caption='Bujor'

txt7.height=16

txt7.top=140

txt7.width=140

txt7.visible=.t.

txt7.left=10

txt7.fontsize=12

txt7.backstyle=0

txt7.forecolor=RGB(0,0,0)

txt8.caption='Arborele pagodelor'

txt8.height=20

txt8.top=160

txt8.width=155

txt8.visible=.t.

txt8.left=10

txt8.fontsize=12

txt8.backstyle=0

txt8.forecolor=RGB(0,0,0)

txt9.caption='Calinul'

txt9.height=16

txt9.top=180

txt9.width=170

txt9.visible=.t.

txt9.left=10

txt9.fontsize=12

txt9.backstyle=0

txt9.forecolor=RGB(0,0,0)

txt10.caption='Trandafir'

txt10.height=16

txt10.top=200

txt10.width=190

txt10.visible=.t.

txt10.left=10

txt10.fontsize=12

txt10.backstyle=0

txt10.forecolor=RGB(0,0,0)

txt12.caption='Crizantema'

txt12.height=16

txt12.top=220

txt12.width=190

txt12.visible=.t.

txt12.left=10

txt12.fontsize=12

txt12.backstyle=0

txt12.forecolor=RGB(0,0,0)

txt13.caption='Crin'

txt13.height=16

txt13.top=240

txt13.width=190

txt13.visible=.t.

txt13.left=10

txt13.fontsize=12

txt13.backstyle=0

txt13.forecolor=RGB(0,0,0)

txt14.caption='Feriga'

txt14.height=18

txt14.top=260

txt14.width=190

txt14.visible=.t.

txt14.left=10

txt14.fontsize=12

txt14.backstyle=0

txt14.forecolor=RGB(0,0,0)

txt15.caption='Frezie'

txt15.height=18

txt15.top=280

txt15.width=190

txt15.visible=.t.

txt15.left=10

txt15.fontsize=12

txt15.backstyle=0

txt15.forecolor=RGB(0,0,0)

txt16.caption='Gladiola'

txt16.height=16

txt16.top=300

txt16.width=190

txt16.visible=.t.

txt16.left=10

txt16.fontsize=12

txt16.backstyle=0

txt16.forecolor=RGB(0,0,0)

txt17.caption='Margareta'

txt17.height=18

txt17.top=320

txt17.width=190

txt17.visible=.t.

txt17.left=10

txt17.fontsize=12

txt17.backstyle=0

txt17.forecolor=RGB(0,0,0)

txt18.caption='Aloe-Vera'

txt18.height=16

txt18.top=340

txt18.width=190

txt18.visible=.t.

txt18.left=10

txt18.fontsize=12

txt18.backstyle=0

txt18.forecolor=RGB(0,0,0)

txt19.caption='Brad'

txt19.height=16

txt19.top=360

txt19.width=190

txt19.visible=.t.

txt19.left=10

txt19.fontsize=12

txt19.backstyle=0

txt19.forecolor=RGB(0,0,0)

txt20.caption='Smochin'

txt20.height=16

txt20.top=380

txt20.width=190

txt20.visible=.t.

txt20.left=10

txt20.fontsize=12

txt20.backstyle=0

txt20.forecolor=RGB(0,0,0)

bt1.caption='informatii'

bt1.height=20

bt1.left=200

bt1.top=20

bt1.width=180

bt1.visible=.t.

bt1.fontsize=12

bt2.caption='informatii'

bt2.height=20

bt2.left=200

bt2.top=40

bt2.width=180

bt2.visible=.t.

bt2.fontsize=12

bt3.caption='informatii'

bt3.height=20

bt3.left=200

bt3.top=60

bt3.width=180

bt3.visible=.t.

bt3.fontsize=12

bt4.caption='informatii'

bt4.height=20

bt4.left=200

bt4.top=80

bt4.width=180

bt4.visible=.t.

bt4.fontsize=12

bt5.caption='informatii'

bt5.height=20

bt5.left=200

bt5.top=100

bt5.width=180

bt5.visible=.t.

bt5.fontsize=12

bt6.caption='informatii'

bt6.height=20

bt6.left=200

bt6.top=120

bt6.width=180

bt6.visible=.t.

bt6.fontsize=12

bt7.caption='informatii'

bt7.height=20

bt7.left=200

bt7.top=140

bt7.width=180

bt7.visible=.t.

bt7.fontsize=12

bt8.caption='informatii'

bt8.height=20

bt8.left=200

bt8.top=160

bt8.width=180

bt8.visible=.t.

bt8.fontsize=12

bt9.caption='informatii'

bt9.height=20

bt9.left=200

bt9.top=180

bt9.width=180

bt9.visible=.t.

bt9.fontsize=12

bt10a.caption='informatii'

bt10a.height=20

bt10a.left=200

bt10a.top=200

bt10a.width=180

bt10a.visible=.t.

bt10a.fontsize=12

bt12.caption='informatii'

bt12.height=20

bt12.left=200

bt12.top=220

bt12.width=180

bt12.visible=.t.

bt12.fontsize=12

bt13.caption='informatii'

bt13.height=20

bt13.left=200

bt13.top=240

bt13.width=180

bt13.visible=.t.

bt13.fontsize=12

bt14.caption='informatii'

bt14.height=20

bt14.left=200

bt14.top=260

bt14.width=180

bt14.visible=.t.

bt14.fontsize=12

bt15.caption='informatii'

bt15.height=20

bt15.left=200

bt15.top=280

bt15.width=180

bt15.visible=.t.

bt15.fontsize=12

bt16.caption='informati'

bt16.height=20

bt16.left=200

bt16.top=300

bt16.width=180

bt16.visible=.t.

bt16.fontsize=12

bt17.caption='informatii'

bt17.height=20

bt17.left=200

bt17.top=320

bt17.width=180

bt17.visible=.t.

bt17.fontsize=12

bt18.caption='informatii'

bt18.height=20

bt18.left=200

bt18.top=340

bt18.width=180

bt18.visible=.t.

bt18.fontsize=12

bt19.caption='informatii'

bt19.height=20

bt19.left=200

bt19.top=360

bt19.width=180

bt19.visible=.t.

bt19.fontsize=12

bt20.caption='informatii'

bt20.height=20

bt20.left=200

bt20.top=380

bt20.width=180

bt20.visible=.t.

bt20.fontsize=12

bt10.height=60

bt10.caption='IESIRE'

bt10.width=100

bt10.top=430

bt10.left=10

bt10.visible=.t.

bt10.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt11.height=60

bt11.caption='INAPOI'

bt11.width=100

bt11.top=430

bt11.left=390

bt11.visible=.t.

bt11.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt10.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt11.click

f4.hide

f2.show

ENDPROC

PROCEDURE bt1.click

f4.hide

fx.show

ENDPROC

PROCEDURE bt2.click

f4.hide

fx1.show

ENDPROC

PROCEDURE bt3.click

f4.hide

fx2.show

ENDPROC

PROCEDURE bt4.click

f4.hide

fx3.show

ENDPROC

PROCEDURE bt5.click

f4.hide

fx4.show

ENDPROC

PROCEDURE bt6.click

f4.hide

fx5.show

ENDPROC

PROCEDURE bt7.click

f4.hide

fx6.show

ENDPROC

PROCEDURE bt8.click

f4.hide

fx7.show

ENDPROC

PROCEDURE bt9.click

f4.hide

fx8.show

ENDPROC

PROCEDURE bt10a.click

f4.hide

fx9.show

ENDPROC

PROCEDURE bt12.click

f4.hide

fx10.show

ENDPROC

PROCEDURE bt13.click

f4.hide

fx11.show

ENDPROC

PROCEDURE bt14.click

f4.hide

fx12.show

ENDPROC

PROCEDURE bt15.click

f4.hide

fx13.show

ENDPROC

PROCEDURE bt16.click

f4.hide

fx14.show

ENDPROC

PROCEDURE bt17.click

f4.hide

fx15.show

ENDPROC



PROCEDURE bt18.click

f4.hide

fx16.show

ENDPROC

PROCEDURE bt19.click

f4.hide

fx17.show

ENDPROC

PROCEDURE bt20.click

f4.hide

fx18.show

ENDPROC

ENDDEFINE

define class formax as form

caption='Informatii lalea'

height=555

width=817

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalalea.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=492

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=492

bt2.left=740

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx.hide

f4.show

ENDPROC

ENDDEFINE

define class formax1 as form

caption='Informatii petunia'

height=530

width=787

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaPetunia.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=460

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=460

bt2.left=690

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx1.hide

f4.show

ENDPROC

ENDDEFINE

define class formax2 as form

caption='Informatii Prunus tenella '

height=493

width=784

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaPrunus tenella.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=432

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=432

bt2.left=690

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx2.hide

f4.show

ENDPROC

ENDDEFINE

define class formax3 as form

caption='Informatii levantica'

height=500

width=780

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalevantica.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=430

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=430

bt2.left=690

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx3.hide

f4.show

ENDPROC

ENDDEFINE

define class formax4 as form

caption='Informatii musetel'

height=494

width=810

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicamusetel.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=432

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=432

bt2.left=720

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx4.hide

f4.show

ENDPROC

ENDDEFINE

define class formax5 as form

caption='Informatii lacramioare '

height=527

width=810

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalacramioare.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=460

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=460

bt2.left=710

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx5.hide

f4.show

ENDPROC

ENDDEFINE

define class formax6 as form

caption='Informatii bujor '

height=504

width=800

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicabujor.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=444

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=444

bt2.left=710

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx6.hide

f4.show

ENDPROC

ENDDEFINE

define class formax7 as form

caption='Informatii arborele pagodelor'

height=505

width=800

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaarborele pagodelor.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=440

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=440

bt2.left=710

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx7.hide

f4.show

ENDPROC

ENDDEFINE

define class formax8 as form

caption='Informatii calinul'

height=500

width=800

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicacalinul.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=60

bt1.caption='IESIRE'

bt1.width=70

bt1.top=420

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=60

bt2.caption='INAPOI'

bt2.width=70

bt2.top=420

bt2.left=710

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx8.hide

f4.show

endproc

enddefine

define class formax9 as form

caption='Informatii trandafir'

height=516

width=805

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicatrandafir.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=50

bt1.caption='IESIRE'

bt1.width=70

bt1.top=460

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=50

bt2.caption='INAPOI'

bt2.width=70

bt2.top=460

bt2.left=715

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx9.hide

f4.show

ENDPROC

ENDDEFINE

define class formax10 as form

caption='Informatii crizantema'

height=530

width=805

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicacrizantema.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height=50

bt1.caption='IESIRE'

bt1.width=70

bt1.top=460

bt1.left=10

bt1.visible=.t.

bt1.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

bt2.height=50

bt2.caption='INAPOI'

bt2.width=70

bt2.top=460

bt2.left=715

bt2.visible=.t.

bt2.picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaclick.jpg'

PROCEDURE bt1.click

thisform.release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.