Liceul Teoretic "Mihai Eminescu"
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
f10.hide
f10a.show
ENDPROC
PROCEDURE bt4.click
f10.hide
f10b.show
ENDPROC
PROCEDURE bt5.click
f10.hide
f10c.show
ENDPROC
PROCEDURE bt6.click
f10.hide
f10d.show
ENDPROC
PROCEDURE bt7.click
f10.hide
f10e.show
ENDPROC
PROCEDURE bt8.click
f10.hide
f10f.show
ENDPROC
PROCEDURE bt9.click
f10.hide
f10g.show
ENDPROC
PROCEDURE bt10.click
f10.hide
f10h.show
ENDPROC
PROCEDURE bt11.click
f10.hide
f10i.show
ENDPROC
PROCEDURE bt12.click
f10.hide
f10j.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10a as form
caption='Sectia sistematica'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicasistematica.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
ENDPROC
PROCEDURE bt2.click
f10a.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10b as form
caption='Informatii Flora si vegetatia Romaniei'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaflora.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
ENDPROC
PROCEDURE bt2.click
f10b.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10c as form
caption='Informatii sectia Ornamentala'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaornamentala.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
ENDPROC
PROCEDURE bt2.click
f10c.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10d as form
caption='Informatii Dentrologica'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicadentrologica.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
ENDPROC
PROCEDURE bt2.click
f10d.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10e as form
caption='Informatii Flora Globului'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaflora globului.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
ENDPROC
PROCEDURE bt2.click
f10e.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10f as form
caption='Informatii Biologica'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicabiologica.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
ENDPROC
PROCEDURE bt2.click
f10f.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10g as form
caption='Informatii Plante Utile'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaplante utile.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
ENDPROC
PROCEDURE bt2.click
f10g.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10h as form
caption='Informatii Complexul de sere'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicasere.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
ENDPROC
PROCEDURE bt2.click
f10h.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10i as form
caption='Informatii Rosarium'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicarosarium.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
ENDPROC
PROCEDURE bt2.click
f10i.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma10j as form
caption='Informatii Silvostepa Moldovei'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicasilvostepa.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
ENDPROC
PROCEDURE bt2.click
f10j.hide
f10.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma6 as form
caption='Orar vizite'
height
width
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaprogram vizite.jpg.bmp'
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
ENDPROC
PROCEDURE bt2.click
f6.hide
f5.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma7 as form
caption='Istoric'
height
width
scrollbars
picture='C:UsersAdministratorMy DocumentsOanaGradina botanicaistoric-bun.jpg'
ADD OBJECT bt1 as commandbutton
ADD OBJECT bt2 as commandbutton
ADD OBJECT l as label
l.width
l.backstyle
l.top
l.left
l.caption
l.rotation
l.visible=.t.
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
ENDPROC
PROCEDURE bt2.click
f7.hide
f5.show
ENDPROC
ENDDEFINE
DEFINE CLASS forma8 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
BIBLIOGRAFIE
Dima Gabriel,Dima Mihai:Bazele Visual FoxPro 5.0, Editura Teora, Bucuresti,1999.
Microsoft Visual FoxPro 6.0, Ghidul Programatorului,Editura Teora , Bucuresti,2000.
Pantiru Mariana, Pantiru Ionut:Baza de date.Editura L&S Infomat, Bucuresti,1999.
Pantiru Mariana, Pantiru Ionut, Pantiru Irina-Ioana: Informatica.Varianta Visual FoxPro, editura L&S Infomat, Bucuresti,2004.
Fotache Marin, Baze de Date Relationale Organizare, interogare, normalizare, Editura Junimea, Iasi, 1997.
Petrus Paul, Microsoft Visual FoxPro 5.0 pas cu pas, Editura Promedia-Plus, Cluj-Napoca, 1998.
|
Politica de confidentialitate |
 .com |
Copyright ©
2024 - Toate drepturile rezervate. Toate documentele au caracter informativ cu scop educational. |
Personaje din literatura |
| Baltagul – caracterizarea personajelor |
| Caracterizare Alexandru Lapusneanul |
| Caracterizarea lui Gavilescu |
| Caracterizarea personajelor negative din basmul |
Tehnica si mecanica |
| Cuplaje - definitii. notatii. exemple. repere istorice. |
| Actionare macara |
| Reprezentarea si cotarea filetelor |
Geografie |
| Turismul pe terra |
| Vulcanii Și mediul |
| Padurile pe terra si industrializarea lemnului |
| Termeni si conditii |
| Contact |
| Creeaza si tu |
