?? categor.prg
字號:
procedur categor
CLOSE DATABASES
DEFINE WINDOW one FROM 3, 5 TO 13, 33 FLOAT DOUBLE COLOR SCHEME 5 shadow
ACTIVATE WINDOW one
@ 1,2 GET mchoice FUNCTION '*RNV Someri;Clienti';
SIZE 1, 10, 1 DEFAULT 'Someri'
@ 3,15 GET okcancel FUNCTION '*V \!OK;\?Cancel' DEFAULT 1;
SIZE 1, 10, 1
READ CYCLE
IF okcancel = 2
WAIT WINDOW 'Cancel ' NOWAIT
ELSE
DO CASE
CASE mchoice = 'Someri'
do sommer
CASE mchoice = 'Clienti'
do agent
ENDCASE
ENDIF
deact wind one
procedure sommer
clos data
use someri
set order to numele
DEFINE WINDOW win FROM 1,0 TO 24,79 ;
COLOR w+/gr shadow
ACTIVATE WINDOW win
DEFINE WINDOW kive FROM 2,9 TO 18,72 ;
COLOR w+/b shadow
do dat
DEFINE WINDOW menu FROM 20,2 TO 23,77 ;
COLOR w/b shadow
ACTIVATE WINDOW menu
@ 1,2 GET aleg FUNCTION '*NH \<Urmatorul;\<Precedentul;\<Inceput;\<Sfirsit;\<Caut;\<EXIT';
SIZE 2,10,1 VALID aha() DEFAULT (1)
READ CYCLE
DEACT WIND win
DEACT WIND kive
DEACT WIND menu
procedure dat
ACTIVATE WINDOW kive
set color to w/b,g/b
@0,5 say 'Nume :'
@1,5 say 'Prenume :'
@2,5 say 'Prenume 1:'
@3,5 say 'Prenume 2:'
@4,5 say 'Prenume 3:'
@5,5 say 'Ziua :'
@6,5 say 'Luna :'
@7,5 say 'Anul nasterii:'
@8,5 say 'Buletin :'
@9,5 say 'Strada :'
@10,5 say 'Nr. :'
@11,5 say 'Telefon :'
@12,5 say 'Domiciliu in :'
@13,5 say 'Calificare 1 :'
@14,5 say 'Calificare 2 :'
@ 0,22 SAY numele ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 1,22 SAY prenume ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 2,22 SAY prenume_1 ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 3,22 SAY prenume_2 ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 4,22 SAY prenume_3 ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 5,22 SAY zi_nastere ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 6,22 SAY luna_naste;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 7,22 SAY an_nastere ;
SIZE 1,4, 0 ;
PICTURE "99999"
@ 8,22 SAY bulet_iden ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxx"
@9,22 SAY str_domic ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@10,22 SAY nr_domicil ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@11,22 SAY telefon ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxx"
@12,22 SAY oras_domic ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxx"
@13,22 SAY calific_1 ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@14,22 SAY calific_2 ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
PROCEDURE aha
DO CASE
CASE aleg=1
SKIP
do dat
IF EOF()
SKIP -1
WAIT WINDOW 'ULTIMUL SOMER DIN BAZA DE DATE !'NOWAIT
ENDIF
CASE aleg=2
SKIP -1
do dat
IF BOF()
SKIP
WAIT WINDOW 'PRIMUL SOMER DIN BAZA DE DATE !'NOWAIT
ENDIF
CASE aleg = 3
GO TOP
do dat
WAIT WINDOW 'INCEPUTUL bazei de date !'NOWAIT
CASE aleg = 4
GO BOTTOM
do dat
WAIT WINDOW 'SFIRSITUL bazei de date !'NOWAIT
CASE aleg = 5
name=" "
do cau with name,"Care este numele persoanei cautate ?"
locate for left(upper(numele),len(name))=trim(name)
if found()
DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
DOUBLE COLOR w/b
ACTIVATE WINDOW carti
set color to w+/b,g+/b
browse for left(upper(numele),len(name))=trim(name) ;
title 'Date despre ...'nomenu nomodify
DEACT WIND carti
else
do atentie with "Nu cunosc aceasta persoana !"
go top
endif
show gets
CASE aleg = 6
CLEAR READ
clos data
DEACT WINDOW win
DEACT wind kive
deact wind menu
do categor
* RETURN
ENDCASE
show gets
PROCEDURE cau
PARAMETER cau,mess1
DEFINE WINDOW culeg FROM 13,4 TO 17,73 title'8 -caut dupa buletin';
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg
@0,0 SAY PADC(mess1,WCOLS())
@2,25 GET cau;
SIZE 1,10;
DEFAULT 0;
PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
READ
IF cau='8' then
do caubulet
endif
DEACTIVATE WINDOW culeg
RETURN
procedure caubulet
name=" "
do nume with name,"Introduceti SERIA si NUMARUL buletinului cautat !"
locate for left(upper(buletin),len(name))=trim(name)
if found()
do dat
else
do atentie with "Nu am date despre acest buletin !"
go top
endif
show gets
*************************************************************
procedure agent
clos data
use clienti
set order to den_ag_ec
DEFINE WINDOW excit FROM 1,0 TO 24,79 ;
COLOR w+/rb shadow
ACTIVATE WINDOW excit
DEFINE WINDOW nanu FROM 2,9 TO 18,72 ;
COLOR w+/b shadow
do sel
DEFINE WINDOW menu FROM 20,2 TO 23,77 ;
COLOR w/b shadow
ACTIVATE WINDOW menu
@ 1,2 GET aleg FUNCTION '*NH \<Urmatorul;\<Precedentul;\<Inceput;\<Sfirsit;\<Caut;\<EXIT';
SIZE 2,10,1 VALID haha() DEFAULT (1)
READ CYCLE
DEACT WIND excit
DEACT WIND nanu
DEACT WIND menu
procedure sel
ACTIVATE WINDOW nanu
set color to w/b,g/b
@4,5 say 'Codul fiscal :'
@5,5 say 'Forma juridica :'
@6,5 say 'Agent economic :'
@7,5 say 'Localitate :'
@8,5 say 'Strada :'
@9,5 say 'Numar :'
@ 4,22 SAY cod_fiscal ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 5,22 SAY form_jurid ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 6,22 SAY den_ag_ec ;
SIZE 1,35, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 7,22 SAY localitate;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 8,22 SAY strada ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
@ 9,22 SAY numar ;
SIZE 1,30, 0 ;
PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
PROCEDURE haha
DO CASE
CASE aleg=1
SKIP
do sel
IF EOF()
SKIP -1
WAIT WINDOW 'ULTIMUL agent economic DIN BAZA DE DATE !'NOWAIT
ENDIF
CASE aleg=2
SKIP -1
do sel
IF BOF()
SKIP
WAIT WINDOW 'PRIMUL agent economic DIN BAZA DE DATE !'NOWAIT
ENDIF
CASE aleg = 3
GO TOP
do sel
WAIT WINDOW 'INCEPUTUL bazei de date !'NOWAIT
CASE aleg = 4
GO BOTTOM
do sel
WAIT WINDOW 'SFIRSITUL bazei de date !'NOWAIT
CASE aleg = 5
name=" "
do cic with name,"Care este numele agentului ec. cautat ?"
locate for left(upper(den_ag_ec),len(name))=trim(name)
if found()
DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
DOUBLE COLOR w/b
ACTIVATE WINDOW carti
set color to w+/b,g+/b
browse for left(upper(den_ag_ec),len(name))=trim(name) ;
title 'Date despre ...'nomenu nomodify
DEACT WIND carti
else
do atentie with "Nu cunosc acest agent economic !"
go top
endif
show gets
CASE aleg = 6
CLEAR READ
clos data
DEACT WINDOW excit
DEACT wind nanu
deact wind menu
do categor
* RETURN
ENDCASE
show gets
PROCEDURE cic
PARAMETER cic,mess1
DEFINE WINDOW culeg FROM 13,4 TO 17,73 title'8 -caut dupa localitate';
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg
@0,0 SAY PADC(mess1,WCOLS())
@2,25 GET cic;
SIZE 1,10;
DEFAULT 0;
PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
READ
IF cau='8' then
do caulocal
endif
DEACTIVATE WINDOW culeg
RETURN
procedure caulocal
name=" "
do nume with name,"Introduceti LOCALITATEA in care se afla agentul ec. cautat !"
locate for left(upper(localitate),len(name))=trim(name)
if found()
do dat
else
do atentie with "Nu am date despre aceasta localitate !"
go top
endif
show gets
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -