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

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 . .

(ant6)

MEMBER('ANT') MEN5 PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(8,31),AT(7,24),HUE(6,7) ROW(1,1) STRING('+-{29}+') ROW(2,1) REPEAT(6);STRING('¦<0{29}>¦') . ROW(8,1) STRING('+-{29}+') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(3,6) STRING('1. <147>уставный капитал'),HUE(6,7) ROW(4,6) STRING('2. <145>страховые взносы'),HUE(6,7) ROW(5,6) STRING('3. <145>страховые резервы'),HUE(6,7) ROW(6,6) STRING('4. <145>страховые выплаты'),HUE(6,7) . . 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 ACCEPT !READ A FIELD OR MENU CHOICE 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 UK ! SVZ ! SR ! SVP ! . . .

MEMBER('ANT') MBO PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(6,32),AT(8,22),HUE(15,1) ROW(2,10) PAINT(1,17),HUE(14,1) ROW(1,1) STRING('+-{30}+') ROW(2,1) REPEAT(4);STRING('¦<0{30}>¦') . ROW(6,1) STRING('+-{30}+') ROW(2,10)STRING('<143>получение<0>данных')ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(4,5) STRING('1. <143>по <144>Российской <148>Федерации') ROW(5,5) STRING('2. <143>по региону') . . 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 ACCEPT !READ A FIELD OR MENU CHOICE 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 MEN2 ! R ! . . .

(ant8)

MEMBER('ANT') GBO PROCEDURE SCREEN SCREEN PRE(SCR),WINDOW(6,38),AT(6,19),HUE(11,5) ROW(1,1) STRING('+-{36}+') ROW(2,1) REPEAT(4);STRING('¦<0{36}>¦') . ROW(6,1) STRING('+-{36}+') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_MENU) MENU,USE(MENU_FIELD"),REQ ROW(3,8) STRING('1. <128>аналитические таблицы') ROW(4,8) STRING('2. <145>cписки по запросу') . . 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 ACCEPT !READ A FIELD OR MENU CHOICE 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 GBO1 ! MBO ! . . .

6. ОРГАНИЗАЦИЯ РАЗРАБОТКИ СИСТЕМЫ СБОРА ИНФОРМАЦИИ И АНАЛИЗА ДЕЯТЕЛЬНОСТИ И ОПРЕДЕЛЕНИЕ ЗАТРАТ НА РАЗРАБОТКУ ДАННОЙ СИСТЕМЫ.

6.1 Организационная часть.

Целью создания системы является автоматизация процесса обработки информации для деятельности страховой компании. Система позволяет: · сократить время обработки необходимой информации по страховым организациям; · оперативно получать сведения о динамике экономических параметров страховых организаций; · эффективно работать непрограммирующему профессионалу в предметной области, получая всю необходимую информацию максимально оперативно.

Порядок выполнения разработки.

Шифр событияСодержание событияШифр работыСодержание работыТрудоем-костьЧисло исполнит.Продолжитель- ность работы1Начало разработки1-2Разработка ТЗ6232ТЗ разработано2-3Разработка структуры программы (для DESIGNER)2123Структура разработана3-4

3-5

Разработка алгоритма программы вывода аналитичес-кой таблицы Написание программы на DESIGNER6

62

23

34Алгоритм разработан4-6Написание программы вывода аналитичес-кой таблицы6235Программа на DESIGNER написана5-7Сборка системы2126Программа вывода таблицы написана6-7Сборка системы2127Система собрана7-8Отладка системы4228Система отлажена8-9Тестирова-ние 2219Система оттестиро-вана9-10Исправле-ние ошибок42210Ошибки исправлены окончание работы

ФИЛИАЛЫ ПО РЕГИОНАМ

GBO (Menu) GBO2 (Menu) GBO1 (Menu) S (Other) (ANTB.CLA) AT1 (Other) (ANTB.CLA) AT2 (Other) (ANTB.CLA) AT3 (Other) (ANTB.CLA) SVREG (Menu) SVREG1 (Other) (ATB.CLA) SVREG2 (Other) (ATB.CLA) SVREG3 (Other) (ATB.CLA) SVINS (Menu) SVINS1 (Other) (ATB.CLA) SVINS2 (Other)