DOCA6 (База данных страховой компании)
Описание файла
Документ из архива "База данных страховой компании", который расположен в категории "". Всё это находится в предмете "страхование" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "страхование" в общих файлах.
Онлайн просмотр документа "DOCA6"
Текст из документа "DOCA6"
(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('¦¦') .
ROW(3,1) STRING('¦âåäèòåãðàíèöû¦')
ROW(4,1) STRING('¦âòûñðóá¦')
ROW(6,1) STRING('¦ìèíèìàëüíóþ¦')
ROW(7,1) STRING('¦ìàêñèìàëüíóþ¦')
ROW(9,1) STRING('¦¦')
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
. .