FoxPro 2.0 |


,  ,  , , , , , ,  -  , , , , . - .
 : 
:

 

 


FoxPro 2.0 -


:
: ,
: 83 Kb
:
6
:
249
: FoxPro 2.0



:

1. ..3

2. .4

3. , .5

4. ..8

5. ⅅ17

6. ...18

7. .19

.

:

NOMBIL, READERS BOOKS ( --).

,

1. , .

2. .

3. ) .

) , .

) .

) .

) .

4. .

5. .

6. .

***
CLEAR
RELEASE ALL
SET MOUSE OFF
SET BELL OFF
SET TALK OFF
SET ESCAPE OFF
SET DATE GERMAN
SET HELP OFF
ON KEY
CLEAR MACROS
***
DEFINE WINDOW BEGIN FROM 3,15 TO 16,64;

COLOR N/GR,,GR+/GR DOUBL
ACTIVATE WINDOW BEGIN
PS=0
DO WHILE PS=0
@ 0,16 SAY " "
@ 1,10 SAY " """
@ 3,7 SAY " " ""
@ 4,17 SAY "( 21)"
@ 6,2 SAY ": -198 .."
@ 7,2 SAY " : .."
@ 11,21 SAY " :" GET PAS DEFAULT SPACE(10)
READ

DO CASE

CASE PAS#"332087S"

WAIT " " WINDOW

OTHERWISE

PS=1

RELEASE WINDOW BEGIN

ENDCASE
ENDDO
***
USE READERS IN A ORDER 1
USE BOOKS IN B ORDER 1
SET RELATION TO NOMBIL INTO B
SET SKIP TO B
***
DEFINE WINDOW F1 FROM 12,27 TO 20,73;

TITLE " ";

COLOR W+/G DOUBL SHADOW
DEFINE WINDOW F3 FROM 13,10 TO 22,69;

TITLE " H ";

COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW SELECT FROM 3,2 TO 14,78;

TITLE " H ";

COLOR W+/GR,W+/GR,W+/GR,W+/GR,,W+/N
DEFINE WINDOW SELECT1 FROM 2,0 TO 22,79;

TITLE " H ";

COLOR W+/BG
DEFINE WINDOW F4 FROM 11,0 TO 18,53;

TITLE "HH ";

COLOR SCHEME 5 DOUBL SHADOW
DEFINE WINDOW BROWSE1 FROM 0,0 TO 4,79;

TITLE DTOC(DATE());

COLOR W+/B
DEFINE WINDOW BROWSE FROM 5,0 TO 15,79;

COLOR SCHEME 10
DEFINE WINDOW NOMER FROM 15,25 TO 18,55;

TITLE " ";

COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND FROM 14,15 TO 22,69;

TITLE " H ";

DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW APPEND1 FROM 13,15 TO 23,69;

TITLE " H H ";

DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW WHERE FROM 14,15 TO 23,54;

TITLE " HH ";

DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW EXIT FROM 16,20 TO 19,60;

COLOR SCHEME 7 SHADOW
*** ()
SET COLOR TO W+/B ,N/RB
SELECT A
M=0
DO WHILE M#5
CLEAR
@ 3,20 TO 13,58 DOUBL
@ 5,28 SAY " H H: " COLOR BG/B
@ 7,28 PROMPT " "
@ 8,28 PROMPT " "
@ 9,28 PROMPT " H "
@ 10,28 PROMPT " H "
@ 11,28 PROMPT " "
MENU TO M

DO MENUGLAV
ENDDO
***
***
ON KEY
SET COLOR TO
SET BELL ON
SET MOUSE ON
SET HELP ON
CLEAR WINDOWS
CLOSE ALL
CLEAR
*** H
***
PROCEDURE MENUGLAV
DO CASE

CASE M=1

DO MAIN

CASE M=2

DO APPENDREADER

CASE M=3

DO APPENDBOOK

CASE M=4

DO DOLG

CASE M=5

DO EXIT

ENDCASE
RETURN
***
PROCEDURE MAIN
D=0
DO WHILE D=0
SELECT A

ACTIVATE WINDOW NOMER

@ 0,1 SAY " "

@ 1,4 GET A FUNCTION "ZZZZ" PICTURE "9999" DEFAULT 0

I=0

@ 0,21 GET I FUNCTION;

"* ;H" SIZE 1,1,0

READ CYCLE
***
DO CASE

CASE I=1.AND.EMPTY(A)

WAIT "H " WINDOW

CASE I=1.AND.!EMPTY(A).AND.!SEEK(A)

WAIT " "+ALLTRIM(STR(A))+;

" " WINDOW

CASE I=2.OR.LASTKEY()=27

DEACTIVATE WINDOW NOMER

D=1

RETURN

OTHERWISE

DEACTIVATE WINDOW NOMER

D=1

*** BROWSE-

DO KEY && n=RECNO()

CLEAR

@ 16,0 SAY " F1- F2-H H F3-;
H F4-H HH "

DO BROWSE1

SELECT B

ACTIVATE WINDOW BROWSE TOP

BROWSE TITLE " H, HH ";

FIELDS WRITER :H="":15,;

NAME :H="HH":33 ,;

YEAR :H=" .":8 ,;

INVNOM :H="H ":5 ,;

DATA :H=" ":11;

FOR NOMBIL=n ;

NOEDIT NOAPPEND WINDOW BROWSE

DEACTIVATE WINDOW BROWSE

DEACTIVATE WINDOW BROWSE1
ENDCASE
ENDDO
ON KEY
RETURN
***
PROCEDURE APPENDREADER
SELECT A
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND BOTTOM
DO WHILE D=0

@ 1,1 SAY "... " GET FIOn DEFAULT SPACE(30)

@ 3,1 SAY " " GET ADDRn DEFAULT SPACE(40)

@ 5,1 SAY "H - "+STR(N,2)

I=0

@ 6,30 GET I FUNCTION;

"*H ;H" SIZE 1,1,4

READ CYCLE
DO CASE

CASE I=1.AND.""#ALLTRIM(FIOn).AND.;

""#ALLTRIM(ADDRn)

APPEND BLANK

REPLACE FIO WITH FIOn, ADDR WITH ADDRn,;

NOMBIL WITH N

D=1

CASE I=2.OR.LASTKEY()=27

D=1

OTHERWISE

WAIT " " WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND
RETURN
*** H
PROCEDURE APPENDBOOK
SELECT B
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND1 BOTTOM
DO WHILE D=0

@ 1,1 SAY " " GET WRITERn DEFAULT SPACE(20)

@ 3,1 SAY "HH " GET NAMEn DEFAULT SPACE(40)

@ 5,1 SAY " . " GET YEARn FUNCTION "ZZZZ" PICTURE "9999" DEFAULT 0

@ 7,1 SAY "H. - "+STR(N,2)

I=0

@ 8,30 GET I FUNCTION;

"*H ;H" SIZE 1,1,4
READ CYCLE
DO CASE

CASE I=1.AND.""#ALLTRIM(WRITERn);

.AND.""#ALLTRIM(NAMEn);

.AND.""#ALLTRIM(STR(YEARn))

APPEND BLANK

REPLACE WRITER WITH WRITERn, NAME WITH NAMEn,;

NOMBIL WITH N

D=1

CASE I=2.OR.LASTKEY()=27

D=1

OTHERWISE

WAIT " " WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND1
RETURN
*** H
PROCEDURE DOLG
SET SPACE OFF
LOCATE FOR ""#ALLTRIM(DTOC(B.DATA,1)).AND.B.DATA





 




 
:

:
 

:
: 60160
: 626
: 2381
: 1034
: 12078
: 5238
: 1016
: 1546
: 9
: 6802
: 1

: 90891


[ ]

:

 

 

: FoxPro 2.0 |

© 2022 - , , .