-

:

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 'IJ :' 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 'в ' 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 ' -' + 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.DATAIF! FOUND ()

WAIT ' !' WINDOW

RETURN

ENDIF

J = 1

I = 1

FILE = 'DOLG.TXT'

PATH = SYS (5) + CURDIR (SYS (5))

ACTIVATE WINDOW WHERE BOTTOM

SELECT A

@ 1,1 GET J FUNCTION;

'* R H ; H ; ' VALID A ()

@ 5,1 SAY ':'

@ 5,12 EDIT FILE SIZE 1,13,12 COLOR, W + / BG ,,,,,,,, W / RB;

DISABLE

@ 7,6 SAY ':'

@ 7,12 EDIT PATH SIZE 1,24 COLOR, W + / BG ,,,,,,,, W / RB;

DISABLE

@ 1,28 GET I FUNCTION;

'* OK; HA' SIZE 1,1,1

READ CYCLE

DO CASE

CASE I = 2.OR.LASTKEY () = 27 && <> ESC

DEACTIVATE WINDOW WHERE

CASE I = 1.AND.J = 1 &&

DEACTIVATE WINDOW WHERE

GO TOP

ACTIVATE WINDOW SELECT1

CLEAR

***

I = 1

LOCATE FOR '' #ALLTRIM (DTOC (B.DATA, 1));

.AND.B.DATAIF FOUND ()

? ALLTRIM (STR (I)), '. ', FIO,' в : ', NOMBIL

A = NOMBIL

ENDIF

DO WHILE FOUND ()

IF ROW () = 17.OR.ROW () = 18

WAIT 'H ' WINDOW

CLEAR

ENDIF

IF A # NOMBIL

A = NOMBIL

I = I + 1

? ALLTRIM (STR (I)), '. ', FIO,' в : ', NOMBIL

ENDIF

? '', B.WRITER, B.NAME, '', B.INVNOM, '', B.DATA

CONTINUE

ENDDO

WAIT 'ʳ ' WINDOW

DEACTIVATE WINDOW SELECT1

CASE I = 1.AND.J = 2 &&

DEACTIVATE WINDOW WHERE

IF PRINTSTATUS ()

SET PRINTER ON

SET PRINTER TO LPT1

DO DOLGMEN &&

EJECT PAGE

SET PRINTER TO

SET PRINTER OFF

ELSE

WAIT ' !' WINDOW

ENDIF

CASE I = 1.AND.J = 3 &&

DEACTIVATE WINDOW WHERE

SET PRINTER ON

FULL = PATH + FILE &&

SET PRINTER TO & FULL

DO DOLGMEN

SET PRINT TO

SET PRINTER OFF

ENDCASE

SET SPACE ON

RETURN

***

PROCEDURE EXIT

ACTIVATE WINDOW EXIT TOP

@ 0,5 SAY ' ?'

YN = 2

@ 1,12 GET YN FUNCTION;

'* H ; H' SIZE 1,1,6

READ CYCLE

IF YN = 1

M = 5

ELSE

M = 0

ENDIF

DEACTIVATE WINDOW EXIT

RETURN

*** F1

PROCEDURE HELP

ON KEY

PUSH KEY CLEAR

ACTIVATE WINDOW F1

SET CURSOR OFF

TEXT

1. - F1

2. ,

F2

3. , F3

4. ,

F4

5. - ESCAPE

ENDTEXT

WAIT '' NOWAIT

SET CURSOR ON

DEACTIVATE WINDOW F1

POP KEY

DO KEY

RETURN

*** F4

PROCEDURE EDIT

ON KEY

ON KEY LABEL F1 DO F1

CLEAR READ

SELECT A

ACTIVATE WINDOW F4 TOP

I = 0

FIOe = FIO

ADDRe = ADDR

@ 1,2 SAY '...' GET FIOe

@ 3,2 SAY '' GET ADDRe

@ 5,2 SAY 'в -' + ALLTRIM (STR (N))

@ 5,32 GET I FUNCTION;

'* H OK; H' SIZE 1,1,4

READ CYCLE

IF I = 1

REPLACE FIO WITH FIOe, ADDR WITH ADDRe

ENDIF

DEACTIVATE WINDOW F4

DO BROWSE1

SELECT B

DO KEY

RETURN

***

PROCEDURE BROWSE1

ACTIVATE WINDOW BROWSE1 BOTTOM

@ 0,2 SAY ':' + FIO

@ 1,2 SAY ':' + ADDR

@ 2,2 SAY ' :' + ALLTRIM (STR (NOMBIL))

RETURN

*** F3

PROCEDURE POISKBOOK

ON KEY

ON KEY LABEL F1 DO F1

CLEAR READ

SELECT B

GO TOP

ACTIVATE WINDOW F3 BOTTOM

D = 0

DO WHILE D = 0

CLEAR READ

I = 0

@ 1,3 SAY ':' GET WRITER1 DEFAULT SPACE (20)

@ 3,3 SAY 'HH:' GET NAME1 DEFAULT SPACE (40)

@ 5,3 SAY 'в H:' GET YEAR1 FUNCTION'ZZZZ 'PICTURE' 9999 'DEFAULT 0

@ 7,3 SAY 'H. в: 'GET INVNOM1 FUNCTION' ZZZZ 'PICTURE' 9999 'DEFAULT 0

@ 7,26 GET I FUNCTION;

'* H ..; OK; H' SIZE 1,1,4

READ CYCLE

***

P = '. T.'

P = P + IIF (EMPTY (WRITER1), '', '. AND.WRITER = [' + PROPER (ALLTRIM (WRITER1)) + ']')

P = P + IIF (EMPTY (NAME1), '', '. AND.NAME = [' + (UPPER (SUBSTR (ALLTRIM (NAME1), 1,1));

+ SUBSTR (ALLTRIM (NAME1), 2,39)) + ']')

P = P + IIF (EMPTY (YEAR1), '', '. AND.YEAR =' + STR (YEAR1))

P = P + IIF (EMPTY (INVNOM1), '', '. AND.INVNOM =' + STR (INVNOM1))

P = P + '. AND.NOMBIL = 0'

DO CASE

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

D = 1

DEACTIVATE WINDOW F3

DO KEY

RETURN

CASE (I = 1.OR.I = 2) .AND.P == '. T..AND.NOMBIL = 0'

WAIT ' ' WINDOW

CASE I = 1

***

GO TOP

X = 1

RELEASE H

LOCATE FOR & P

DO WHILE FOUND ()

DECLARE H (X)

H (X) = WRITER + NAME + '' +;

ALLTRIM (STR (YEAR)) + '' +;

ALLTRIM (STR (INVNOM))

CONTINUE

X = X + 1

ENDDO

J = 1

IF X # 1

ACTIVATE WINDOW SELECT

@ 9,1 SAY 'ESC - H; ENTER - Hò '

@ 0,0 GET J FROM H SIZE 9,75 VALID (B ());

COLOR GR / GR ,,,,, W + / B ,,, W + / B, W + / B

READ CYCLE

DEACTIVATE WINDOW SELECT

IF LASTKEY () # 27

WRITER1 = SUBSTR (H (J), 1,20)

NAME1 = SUBSTR (H (J), 21,40)

YEAR1 = VAL (SUBSTR (H (J), 62,4))

INVNOM1 = VAL (SUBSTR (H (J), 68))

ENDIF

ELSE

WAIT 'H !' WINDOW

ENDIF

OTHERWISE

GO TOP

LOCATE FOR & P

IF! FOUND ()

P = .T.

WAIT ' !' WINDOW

ELSE

IF DATA # {}. AND.NOMBIL # 0

WAIT ' !' WINDOW

ELSE

REPLACE DATA WITH DATE (), NOMBIL WITH n

D = 1

ENDIF

ENDIF

ENDCASE

ENDDO

DEACTIVATE WINDOW F3

DO KEY

RETURN

*** F2

PROCEDURE DELETE

ON KEY

CLEAR READ

SELECT B

IF NOMBIL = n

ACTIVATE WINDOW EXIT TOP

@ 0,8 SAY ' ?'

YN = 2

@ 1,12 GET YN FUNCTION;

'* H ; H' SIZE 1,1,6

READ CYCLE

IF YN = 1

REPLACE DATA WITH {}, NOMBIL WITH 0

ENDIF

DEACTIVATE WINDOW EXIT

ELSE

WAIT ' !' WINDOW

ENDIF

DO KEY

RETURN

***

PROCEDURE KEY

ON KEY LABEL F1 DO HELP

ON KEY LABEL F2 DO DELETE

ON KEY LABEL F3 DO POISKBOOK

ON KEY LABEL F4 DO EDIT

RETURN

***

PROCEDURE DOLGMEN

GO TOP

I = 1

LOCATE FOR '' #ALLTRIM (DTOC (B.DATA, 1)). AND.B.DATAIF FOUND ()

? ALLTRIM (STR (I)), '. ', FIO,' в : ', NOMBIL

A = NOMBIL

ENDIF

DO WHILE FOUND ()

IF A # NOMBIL

A = NOMBIL

I = I + 1

? ALLTRIM (STR (I)), '. ', FIO,' в : ', NOMBIL

ENDIF

? '', B.WRITER, B.NAME, '', B.INVNOM, '', B.DATA

CONTINUE

ENDDO

***

FUNCTION A

IF J = 3

SHOW GET FILE ENABLE

SHOW GET PATH ENABLE

SHOW GET J, 3 DISABLE

ELSE

SHOW GET PATH DISABLE

SHOW GET FILE DISABLE

SHOW GET J, 3 ENABLE

ENDIF

RETURN

***

FUNCTION B

IF LASTKEY () = 13

CLEAR READ

ENDIF

RETURN

*** F1

PROCEDURE F1

RETURN

:

1. в : 2

. 4 12.07.97

ϳ . ³ 2020 5 12.07.97

. 9 12.07.96

2. в : 4

.. 6 23.12.96

. 10 23.12.96

3. в : 12

., . 13 31.01.95

. 15 31.01.95

. 17 31.01.95

ϳ (332087S). , , , , .

. , , , : , , , . . ( , , , ), ... . , . . ESCAPE .

' , . ϳ , .

.

' : , , . , . , .

, , DOS.

˳

1. .., .. .

2. .. FoxPro 2.5 / 2.6 DOS WINDOWS. - .: , 1996. -660.

© 8ref.com -
8ref.com