Realizarea formularelor in Forms Designer

Realizarea formularelor se face prin intermediul Project Manager, optiunea Forms-> New Form.

Pe formularul creat se adauga elemente si obiecte noi de tipul butoanelor, etichete, casete de text, grid, liste etc din fereastra Toolbox. Proprietatile elementelor (nume, culoare, dimensiune, evenimente) se stabilesc din fereastra Properties (fig.1)

Fig. 1 Realizarea formularelor

Pentru scrierea instructiunilor se utilizeaza fereastra Code Window sau se da dublu click pe obiectul respectiv.

Pentru lansarea in executie a unei interogari sau a altui formular se utilizeaza comanda:

DO nume fis.extensie.

Se precizeaza calea completa de acces la fisierul respectiv.

Executarea unui formular se face prin optiunea Run din Project Manager

Realizarea meniurilor in Visual FoxPro

Meniurile se pot realiza fie prin utilizarea de comenzi, fie visual, prin intermediul utilitarului Project Manager, sectiunea Other-> Menus (fig. 2).

Fig. 2 Realizarea meniurilor in VFOX

Optiunile meniului se editeaza, se stabilesc functiile fiecarei optiuni. Pentru lansarea in executie a formularelor rapoartelor sau programelor realizate anterior se utilizeaza comanda DO nume fisier.extensie. Trebuie precizata calea de acces la fisierele respective!!!

Exemplu: pt optiunea Furnizori din meniul aplicatiei Gest (vezi exemplul din Fox) se doreste lansarea in executie a formularului furnizori.scx:

do form 'c:gestformsfurnizori.scx'

Executarea unui meniu se face prin optiunea Run din Project Manager.

Atentie! La rularea meniului creat acesta va apare pe fereastra principala a mediului FoxPro.

Realizarea meniurilor prin comenzi

Crearea meniurilor se face prin comanda Define Menu.

Activarea meniurilor in momentul executiei se realizeaza prin comanda Activate menu. Pentru mai multe detalii despre comenzi consultati capitolul dedicat meniurilor din carte!!!

In continuare este prezentat un exemplu de meniu asociat formularului frmprincipal din aplicatia Gest. Formularul principal al aplicatiei are proprietatea desktop setata pe true (din Fereastra Properties) pentru a se putea rula meniul asociat.

close all

define menu mainmenu bar in window form1

NOTE    Definirea PAD-urilor

define pad _Furnizori of mainmenu prompt'<Furnizori' key alt+F

define pad _Facturi of mainmenu prompt 'F<acturi' key alt+A

define pad _Produse of mainmenu prompt '<Produse' key alt+P

define pad _Comenzi of mainmenu prompt 'C<omenzi' key alt+C

define pad _Stocuri of mainmenu prompt '<Stocuri' key alt+S

define pad __Exit of mainmenu prompt '<Exit' key alt+E

activate menu mainmenu

Note    Definirea POPUP-urilor

Note    Furnizori

ON PAD _Furnizori OF mainmenu ACTIVATE POPUP furnizori

DEFINE POPUP furnizori

DEFINE BAR 1 OF furnizori PROMPT '<Adauga furnizor' key alt+A

DEFINE BAR 2 OF furnizori PROMPT 'Situatie aprovizionari'

define bar 3 of furnizori prompt 'Raport Furnizori'

define bar 4 of furnizori prompt 'Raport Facturi furnizor'

ON SELECTION BAR 1 OF furnizori do form furnizori.scx

ON SELECTION BAR 2 OF furnizori do aprovizionare.qpr

on selection bar 3 of furnizori report form furnizori.frx PREVIEW

on selection bar 4 of furnizori report form Facturifurnizor.frx PREVIEW

Note    facturi

ON PAD _facturi OF mainmenu ACTIVATE POPUP facturi

DEFINE POPUP facturi

DEFINE BAR 1 OF facturi PROMPT 'Factura <Noua' key alt+N

on selection bar 1 of facturi do form facturi.scx

define bar 2 of facturi prompt 'Facturi curente'

on selection bar 2 of facturi do facturin_data.qpr

define bar 3 of facturi prompt 'Facturi cu valoare mare'

on selection bar 3 of facturi do facturi_valoare.qpr

Note    Produse

on pad _produse of mainmenu activate popup produse

define popup produse

define bar 1 of produse prompt '<Adauga produs' key alt+A

on selection bar 1 of produse do form produse.scx

Note    Socuri

on pad _stocuri of mainmenu activate popup stocuri

define popup stocuri

define bar 1 of stocuri prompt '<Vizualizare stocuri' key alt+V

on selection bar 1 of stocuri do form stocuri.scx

Note    Comenzi

on pad _comenzi of mainmenu activate popup comenzi

define popup comenzi

define bar 1 of comenzi prompt 'Ana<liza comenzi' key alt+L

on selection bar 1 of comenzi do form comenzi.scx

Note exit

ON SELECTION PAD __exit OF mainmenu quit