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

USE tabel2 IN

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

width

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

ADD OBJECT b1 as commandbutton

ADD OBJECT b2 as commandbutton

b1.caption='INTRARE'

b1.height

b1.left

b1.top

b1.width

b1.visible=.t.

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

b2.caption='IESIRE'

b2.height

b2.left

b2.top

b2.width

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height

bt1.caption='INCHIDE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

txt1.caption='VA MULTUMIM!'

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.fontunderline=.t.

txt1.backstyle

txt1.forecolor RGB

PROCEDURE bt1.click

thisform Release

ENDPROC

enddefine

define class forma2 as form

caption='Informatii'

height

width

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

txt2.top

txt2.width

txt2.visible=.t.

txt2.left

txt2.fontsize

txt2.fontunderline=.t.

txt2.backstyle

txt2.forecolor RGB

b2.caption='Informatii personal'

b2.height

b2.left

b2.top

b2.width

b2.visible=.t.

b2.fontsize

b3.caption='Informatii plante'

b3.height

b3.left

b3.top

b3.width

b3.visible=.t.

b3.fontsize

b4.caption='Alte informatii'

b4.height

b4.left

b4.top

b4.width

b4.visible=.t.

b4.fontsize

b6.caption='Chestionar'

b6.height

b6.left

b6.top

b6.width

b6.visible=.t.

b6.fontsize

b5.caption='IESIRE'

b5.height

b5.left

b5.top

b5.width

b5.visible=.t.

b5.fontsize

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

DEFINE CLASS forma12 as Form

caption='chestionar'

backcolor RGB

closable=.f.

height

width

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

g1.height

g1.width

g1.visible=.t.

g1.left

l1.caption='Nume'

l1.height

l1.width

l1.backstyle

l1.fontsize

l1.fontitalic=.t.

l1.top

l1.left

l1.forecolor RGB

l1.fontbold=.t.

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

l2.caption='Email'

l2.height

l2.width

l2.backstyle

l2.fontsize

l2.fontitalic=.t.

l2.top

l2.left

l2.forecolor RGB

l2.fontbold=.t.

txt2.height

txt2.top

txt2.width

txt2.visible=.t.

txt2.left

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

l3.height

l3.width

l3.backstyle

l3.fontsize

l3.fontitalic=.t.

l3.top

l3.left

l3.forecolor RGB

l3.fontbold=.t.

ttb1.caption='Da'

ttb1.height

ttb1.left

ttb1.top

ttb1.width

ttb1.visible=.t.

ttb2.caption='Nu'

ttb2.height

ttb2.left

ttb2.top

ttb2.width

ttb2.visible=.t.

br1.top

br1.left

br1.name='buton'

br2.top

br2.left

br2.name='buton1'

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

l4.height

l4.width

l4.backstyle

l4.fontsize

l4.fontitalic=.t.

l4.top

l4.left

l4.forecolor RGB

l4.fontbold=.t.

l5.caption='Scrieti aici'

l5.height

l5.width

l5.backstyle

l5.fontsize

l5.fontitalic=.t.

l5.top

l5.left

l5.forecolor RGB

l5.fontbold=.t.

txt3.height

txt3.top

txt3.width

txt3.visible=.t.

txt3.left

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

l6.height

l6.width

l6.backstyle

l6.fontsize

l6.fontitalic=.t.

l6.top

l6.left

l6.forecolor RGB

l6.fontbold=.t.

ttb3.caption='Da'

ttb3.height

ttb3.left

ttb3.top

ttb3.width

ttb3.visible=.t.

ttb4.caption='Nu'

ttb4.height

ttb4.left

ttb4.top

ttb4.width

ttb4.visible=.t.

br3.top

br3.left

br3.name='buton2'

br4.top

br4.left

br4.name='buton3'

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

l7.height

l7.width

l7.backstyle

l7.fontsize

l7.fontitalic=.t.

l7.top

l7.left

l7.forecolor RGB

l7.fontbold=.t.

l8.caption='Scrieti aici'

l8.height

l8.width

l8.backstyle

l8.fontsize

l8.fontitalic=.t.

l8.top

l8.left

l8.forecolor RGB

l8.fontbold=.t.

txt4.height

txt4.top

txt4.width

txt4.visible=.t.

txt4.left

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

l9.height

l9.width

l9.backstyle

l9.fontsize

l9.fontitalic=.t.

l9.top

l9.left

l9.forecolor RGB

l9.fontbold=.t.

l12.caption='Scrieti aici'

l12.height

l12.width

l12.backstyle

l12.fontsize

l12.fontitalic=.t.

l12.top

l12.left

l12.forecolor RGB

l12.fontbold=.t.

txt5.height

txt5.top

txt5.width

txt5.visible=.t.

txt5.left

l10.caption='Ne puteti scrie mai multe'

l10.height

l10.width

l10.backstyle

l10.fontsize

l10.fontitalic=.t.

l10.top

l10.left

l10.forecolor RGB

l10.fontbold=.t.

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

l11.height

l11.width

l11.backstyle

l11.fontsize

l11.fontitalic=.t.

l11.top

l11.left

l11.forecolor RGB

l11.fontbold=.t.

bt1.caption='TERMINARE'

bt1.height

bt1.left

bt1.top

bt1.width

bt1.visible=.t.

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

bt2.caption='INAPOI'

bt2.height

bt2.left

bt2.top

bt2.width

bt2.visible=.t.

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

bt3.caption='ADAUGARE'

bt3.height

bt3.left

bt3.top

bt3.width

bt3.visible=.t.

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

PROCEDURE load

SELECT

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

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height

bt1.caption='INCHIDE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

txt1.caption='VA MULTUMIM!'

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.fontunderline=.t.

txt1.backstyle

txt1.forecolor RGB

PROCEDURE bt1.click

thisform Release

ENDPROC

enddefine

DEFINE CLASS forma9 as Form

caption='Terminat'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaforma8.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT txt1 as label

bt1.height

bt1.caption='INCHIDE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

txt1.caption='VA MULTUMIM!'

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.fontunderline=.t.

txt1.backstyle

txt1.forecolor RGB

PROCEDURE bt1.click

thisform Release

ENDPROC

enddefine

SELECT

define class forma3 as form

height

width

backcolor RGB

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

g1.height

g1.width

g1.visible=.t.

l1.caption='Adaugare angajat'

l1.height

l1.width

l1.backstyle

l1.fontsize

l1.fontitalic=.t.

l1.fontunderline=.t.

l1.top

l1.left

l1.forecolor RGB

l1.fontbold=.t.

l2.caption='Scrie nume'

l2.height

l2.width

l2.fontsize

l2.fontitalic=.t.

l2.top

l2.left

l2.forecolor RGB

l2.backstyle

l2.visible=.t.

l2.fontbold=.t.

txt1.width

txt1.height

txt1.top

txt1.left

l3.caption='Scrie ocupatie'

l3.height

l3.width

l3.fontsize

l3.top

l3.left

l3.visible=.t.

l3.forecolor RGB

l3.backstyle

l3.fontitalic=.t.

l3.fontbold=.t.

txt2.width

txt2.height

txt2.top

txt2.left

l4.caption='Scrie salar'

l4.height

l4.width

l4.fontsize

l4.top

l4.left

l4.visible=.t.

l4.forecolor RGB

l4.backstyle

l4.fontitalic=.t.

l4.fontbold=.t.

txt3.width

txt3.height

txt3.top

txt3.left

bt1.height

bt1.caption='OK'

bt1.width

bt1.top

bt1.left

bt4.height

bt4.caption='IESIRE'

bt4.width

bt4.top

bt4.left

bt4.visible=.t.

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

bt5.height

bt5.caption='INAPOI'

bt5.width

bt5.top

bt5.left

bt5.visible=.t.

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

PROCEDURE load

SELECT

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

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

width

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

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.backstyle

txt1.forecolor RGB

txt2.caption='Petunia'

txt2.height

txt2.top

txt2.width

txt2.visible=.t.

txt2.left

txt2.fontsize

txt2.backstyle

txt2.forecolor RGB

txt3.caption='Prunus tenella '

txt3.height

txt3.top

txt3.width

txt3.visible=.t.

txt3.left

txt3.fontsize

txt3.backstyle

txt3.forecolor RGB

txt4.caption='Levantica'

txt4.height

txt4.top

txt4.width

txt4.visible=.t.

txt4.left

txt4.fontsize

txt4.backstyle

txt4.forecolor RGB

txt5.caption='Musetel'

txt5.height

txt5.top

txt5.width

txt5.visible=.t.

txt5.left

txt5.fontsize

txt5.backstyle

txt5.forecolor RGB

txt6.caption='Lacramioare'

txt6.height

txt6.top

txt6.width

txt6.visible=.t.

txt6.left

txt6.fontsize

txt6.backstyle

txt6.forecolor RGB

txt7.caption='Bujor'

txt7.height

txt7.top

txt7.width

txt7.visible=.t.

txt7.left

txt7.fontsize

txt7.backstyle

txt7.forecolor RGB

txt8.caption='Arborele pagodelor'

txt8.height

txt8.top

txt8.width

txt8.visible=.t.

txt8.left

txt8.fontsize

txt8.backstyle

txt8.forecolor RGB

txt9.caption='Calinul'

txt9.height

txt9.top

txt9.width

txt9.visible=.t.

txt9.left

txt9.fontsize

txt9.backstyle

txt9.forecolor RGB

txt10.caption='Trandafir'

txt10.height

txt10.top

txt10.width

txt10.visible=.t.

txt10.left

txt10.fontsize

txt10.backstyle

txt10.forecolor RGB

txt12.caption='Crizantema'

txt12.height

txt12.top

txt12.width

txt12.visible=.t.

txt12.left

txt12.fontsize

txt12.backstyle

txt12.forecolor RGB

txt13.caption='Crin'

txt13.height

txt13.top

txt13.width

txt13.visible=.t.

txt13.left

txt13.fontsize

txt13.backstyle

txt13.forecolor RGB

txt14.caption='Feriga'

txt14.height

txt14.top

txt14.width

txt14.visible=.t.

txt14.left

txt14.fontsize

txt14.backstyle

txt14.forecolor RGB

txt15.caption='Frezie'

txt15.height

txt15.top

txt15.width

txt15.visible=.t.

txt15.left

txt15.fontsize

txt15.backstyle

txt15.forecolor RGB

txt16.caption='Gladiola'

txt16.height

txt16.top

txt16.width

txt16.visible=.t.

txt16.left

txt16.fontsize

txt16.backstyle

txt16.forecolor RGB

txt17.caption='Margareta'

txt17.height

txt17.top

txt17.width

txt17.visible=.t.

txt17.left

txt17.fontsize

txt17.backstyle

txt17.forecolor RGB

txt18.caption='Aloe-Vera'

txt18.height

txt18.top

txt18.width

txt18.visible=.t.

txt18.left

txt18.fontsize

txt18.backstyle

txt18.forecolor RGB

txt19.caption='Brad'

txt19.height

txt19.top

txt19.width

txt19.visible=.t.

txt19.left

txt19.fontsize

txt19.backstyle

txt19.forecolor RGB

txt20.caption='Smochin'

txt20.height

txt20.top

txt20.width

txt20.visible=.t.

txt20.left

txt20.fontsize

txt20.backstyle

txt20.forecolor RGB

bt1.caption='informatii'

bt1.height

bt1.left

bt1.top

bt1.width

bt1.visible=.t.

bt1.fontsize

bt2.caption='informatii'

bt2.height

bt2.left

bt2.top

bt2.width

bt2.visible=.t.

bt2.fontsize

bt3.caption='informatii'

bt3.height

bt3.left

bt3.top

bt3.width

bt3.visible=.t.

bt3.fontsize

bt4.caption='informatii'

bt4.height

bt4.left

bt4.top

bt4.width

bt4.visible=.t.

bt4.fontsize

bt5.caption='informatii'

bt5.height

bt5.left

bt5.top

bt5.width

bt5.visible=.t.

bt5.fontsize

bt6.caption='informatii'

bt6.height

bt6.left

bt6.top

bt6.width

bt6.visible=.t.

bt6.fontsize

bt7.caption='informatii'

bt7.height

bt7.left

bt7.top

bt7.width

bt7.visible=.t.

bt7.fontsize

bt8.caption='informatii'

bt8.height

bt8.left

bt8.top

bt8.width

bt8.visible=.t.

bt8.fontsize

bt9.caption='informatii'

bt9.height

bt9.left

bt9.top

bt9.width

bt9.visible=.t.

bt9.fontsize

bt10a.caption='informatii'

bt10a.height

bt10a.left

bt10a.top

bt10a.width

bt10a.visible=.t.

bt10a.fontsize

bt12.caption='informatii'

bt12.height

bt12.left

bt12.top

bt12.width

bt12.visible=.t.

bt12.fontsize

bt13.caption='informatii'

bt13.height

bt13.left

bt13.top

bt13.width

bt13.visible=.t.

bt13.fontsize

bt14.caption='informatii'

bt14.height

bt14.left

bt14.top

bt14.width

bt14.visible=.t.

bt14.fontsize

bt15.caption='informatii'

bt15.height

bt15.left

bt15.top

bt15.width

bt15.visible=.t.

bt15.fontsize

bt16.caption='informati'

bt16.height

bt16.left

bt16.top

bt16.width

bt16.visible=.t.

bt16.fontsize

bt17.caption='informatii'

bt17.height

bt17.left

bt17.top

bt17.width

bt17.visible=.t.

bt17.fontsize

bt18.caption='informatii'

bt18.height

bt18.left

bt18.top

bt18.width

bt18.visible=.t.

bt18.fontsize

bt19.caption='informatii'

bt19.height

bt19.left

bt19.top

bt19.width

bt19.visible=.t.

bt19.fontsize

bt20.caption='informatii'

bt20.height

bt20.left

bt20.top

bt20.width

bt20.visible=.t.

bt20.fontsize

bt10.height

bt10.caption='IESIRE'

bt10.width

bt10.top

bt10.left

bt10.visible=.t.

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

bt11.height

bt11.caption='INAPOI'

bt11.width

bt11.top

bt11.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalalea.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaPetunia.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

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

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalevantica.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicamusetel.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalacramioare.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicabujor.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

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

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicacalinul.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicatrandafir.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

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

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicacrizantema.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx10.hide

f4.show

ENDPROC

ENDDEFINE

define class formax11 as form

caption='Informatii crin'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicacrin.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx11.hide

f4.show

ENDPROC

ENDDEFINE

define class formax12 as form

caption='Informatii feriga'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaferiga.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx12.hide

f4.show

ENDPROC

ENDDEFINE

define class formax13 as form

caption='Informatii frezie'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicafrezie.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx13.hide

f4.show

ENDPROC

ENDDEFINE

define class formax14 as form

caption='Informatii gladiola'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicagladiola.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx14.hide

f4.show

ENDPROC

ENDDEFINE

define class formax15 as form

caption='Informatii margareta'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicamargareta.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx15.hide

f4.show

ENDPROC

ENDDEFINE

define class formax16 as form

caption='Informatii aloe-vera'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaaloe.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx16.hide

f4.show

ENDPROC

ENDDEFINE

define class formax17 as form

caption='Informatii brad'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicabrad.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx17.hide

f4.show

ENDPROC

ENDDEFINE

define class formax18 as form

caption='Informatii smochin'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicasmochin.jpg'

ADD OBJECT bt1 as commandbutton

ADD OBJECT bt2 as commandbutton

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

PROCEDURE bt1.click

thisform release

CLEAR EVENTS

ENDPROC

PROCEDURE bt2.click

fx18.hide

f4.show

ENDPROC

ENDDEFINE

PROCEDURE b4.click

thisform Release

f5.show

ENDPROC

ENDDEFINE

define class forma5 as form

caption='Alte Informatii'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaalte informatii.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 txt1 as label

txt1.caption='Alte Informatii'

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.backstyle

txt1.forecolor RGB

bt1.height

bt1.caption='Orar vizite'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

bt2.height

bt2.caption='Scurt Istoric'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

bt5.height

bt5.caption='Sectoare'

bt5.width

bt5.top

bt5.left

bt5.visible=.t.

bt3.height

bt3.caption='INAPOI'

bt3.width

bt3.top

bt3.left

bt3.visible=.t.

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

bt4.height

bt4.caption='TERMINAT'

bt4.width

bt4.top

bt4.left

bt4.visible=.t.

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

PROCEDURE bt3.click

f5.hide

f2.show

ENDPROC

PROCEDURE bt4.click

f5.hide

f8.show

endproc

PROCEDURE bt2.click

f5.hide

f7.show

ENDPROC

PROCEDURE bt1.click

f5.hide

f6.show

ENDPROC

PROCEDURE bt5.click

f5.hide

f10.show

ENDPROC

ENDDEFINE

DEFINE CLASS forma10 as form

caption='Legenda sectii'

height

width

picture='C:UsersAdministratorMy DocumentsOanaGradina botanicalegenda sectii.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 bt10 as commandbutton

ADD OBJECT bt11 as commandbutton

ADD OBJECT bt12 as commandbutton

ADD OBJECT txt1 as label

ADD OBJECT txt2 as label

txt1.caption='Click pe sectoare pentru detalii'

txt1.height

txt1.top

txt1.width

txt1.visible=.t.

txt1.left

txt1.fontsize

txt1.fontunderline=.t.

txt1.backstyle

txt1.forecolor RGB

txt2.caption='Harta sectii'

txt2.height

txt2.top

txt2.width

txt2.visible=.t.

txt2.left

txt2.fontsize

txt2.fontunderline=.t.

txt2.backstyle

txt2.forecolor RGB

bt1.height

bt1.caption='IESIRE'

bt1.width

bt1.top

bt1.left

bt1.visible=.t.

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

bt2.height

bt2.caption='INAPOI'

bt2.width

bt2.top

bt2.left

bt2.visible=.t.

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

bt3.height

bt3.caption

bt3.width

bt3.top

bt3.left

bt3.visible=.t.

bt3.forecolor RGB

bt4.height

bt4.caption

bt4.width

bt4.top

bt4.left

bt4.visible=.t.

bt4.forecolor RGB

bt5.height

bt5.caption

bt5.width

bt5.top

bt5.left

bt5.visible=.t.

bt5.forecolor RGB

bt6.height

bt6.caption

bt6.width

bt6.top

bt6.left

bt6.visible=.t.

bt6.forecolor RGB

bt7.height

bt7.caption

bt7.width

bt7.top

bt7.left

bt7.visible=.t.

bt7.forecolor RGB

bt8.height

bt8.caption

bt8.width

bt8.top

bt8.left

bt8.visible=.t.

bt8.forecolor RGB

bt9.height

bt9.caption

bt9.width

bt9.top

bt9.left

bt9.visible=.t.

bt9.forecolor RGB

bt10.height

bt10.caption

bt10.width

bt10.top

bt10.left

bt10.visible=.t.

bt10.forecolor RGB

bt11.height

bt11.caption

bt11.width

bt11.top

bt11.left

bt11.visible=.t.

bt11.forecolor RGB

bt12.height

bt12.caption

bt12.width

bt12.top

bt12.left

bt12.visible=.t.

bt12.forecolor RGB

PROCEDURE bt1.click

thisform Release

ENDPROC

PROCEDURE bt2.click

f10.hide

f5.show

ENDPROC

PROCEDURE bt3.click