Материалы сайта
Это интересно
База данных страховой компании
(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('¦<0{71}>¦') . ROW(12,1) STRING('+-{71}+') ROW(2,24) STRING('<128>аналитические<0>таблицы') ROW(11,30) STRING('начальная<0>сортировка') COL(25) STRING('F2 -') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(4,5) STRING('1. <145>ведения об изменении отдельных ' | & 'показателей деятельности <145,142>') ROW(5,5) STRING('2. <128>анализ показателей развития ' | & 'страховых организаций') ROW(6,5) STRING('3. <142>объем поступлений и выплат на 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 ! . . .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17