DOCA2 (База данных страховой компании)
Описание файла
Документ из архива "База данных страховой компании", который расположен в категории "". Всё это находится в предмете "страхование" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "страхование" в общих файлах.
Онлайн просмотр документа "DOCA2"
Текст из документа "DOCA2"
(ant1)
MEMBER('ANT')
GBO1 PROCEDURE
SCREEN SCREEN PRE(SCR),WINDOW(12,73),AT(6,6),HUE(15,5)
ROW(2,24) PAINT(1,21),HUE(11,5)
ROW(11,22) PAINT(1,31),HUE(30,1)
ROW(1,1) STRING('+-{71}+')
ROW(2,1) REPEAT(10);STRING('¦¦') .
ROW(12,1) STRING('+-{71}+')
ROW(2,24) STRING('àíàëèòè÷åñêèåòàáëèöû') ROW(11,30)
STRING('íà÷àëüíàÿñîðòèðîâêà')
COL(25) STRING('F2 -')
ENTRY,USE(?FIRST_FIELD)
ENTRY,USE(?PRE_MENU)
MENU,USE(MENU_FIELD"),REQ
ROW(4,5) STRING('1. âåäåíèÿ îá èçìåíåíèè îòäåëüíûõ ' |
& 'ïîêàçàòåëåé äåÿòåëüíîñòè ')
ROW(5,5) STRING('2. àíàëèç ïîêàçàòåëåé ðàçâèòèÿ ' |
& 'ñòðàõîâûõ îðãàíèçàöèé')
ROW(6,5) STRING('3. îáúåì ïîñòóïëåíèé è âûïëàò íà 1 ' |
& 'ðàáîòíèêà ñòðàõîâîé îðãàíèçàöèè')
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENU_FIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ALERT(F2_KEY) !ALERT HOT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = F2_KEY !ON HOT KEY
UPDATE(?) ! RETRIEVE FIELD
SAVACTN# = ACTION ! SAVE ACTION
S ! CALL HOT KEY PROCEDURE
ACTION = SAVACTN# ! RESTORE ACTION
SELECT(?) ! DO SAME FIELD AGAIN
CYCLE ! AND LOOP AGAIN
.
IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT
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 ?PRE_MENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESC_KEY ! BACKING UP?
SELECT(?-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(?+1) ! SELECT MENU FIELD
.
OF ?MENU_FIELD" !FROM THE MENU FIELD
EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE
AT1 !
AT2 !
AT3 !
. . .