Ѕаза данных страховой компании


–еферат >> Ѕанковское дело

(ant5)

MEMBER('ANT')

MEN4 PROCEDURE

SCREEN SCREEN PRE(SCR),WINDOW(10,36),AT(6,23),HUE(5,3)

ROW(1,1) STRING('+-{34}+')

ROW(2,1) REPEAT(3),EVERY(3);STRING('¶<0{34}>¶') .

ROW(3,1) STRING('¶<0{9},130><0><0{10}>¶')

ROW(4,1) STRING('¶<0{12}><0><0><0{13}>¶')

ROW(6,1) STRING('¶<0{4}><0{19}>¶')

ROW(7,1) STRING('¶<0{4}><0{18}>¶')

ROW(9,1) STRING('¶<0{34}>¶')

ROW(10,1) STRING('+-{34}+')

ROW(4,13) STRING('(')

COL(19) STRING('.')

COL(23) STRING('.)')

ENTRY,USE(?FIRST_FIELD)

ROW(6,19)ENTRY(@n_9),USE(MEM:NG),NUM,INS,HUE(0,3)rOW(7,19) ENTRY(@n_9),USE(MEM:VG),NUM,INS,HUE(0,3)

ENTRY,USE(?LAST_FIELD)

.

EJECT

CODE

OPEN(SCREEN) !OPEN THE SCREEN

SETCURSOR !TURN OFF ANY CURSOR

if choice()=1 then mem:god=1992 else mem:god=1993.!CALL SETUP PROCEDURE

DISPLAY !DISPLAY THE FIELDS

LOOP !LOOP THRU ALL THE FIELDS

ALERT !RESET ALERTED KEYS

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ACCEPT !READ A FIELD

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT KEY

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?MEM:VG

MEN5

OF ?LAST_FIELD !FROM THE LAST FIELD

ACTION = 0 ! SET ACTION TO COMPLETE

RETURN ! AND RETURN TO CALLER

. .