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

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)

скачать реферат
первая   ... 2 3 4 5 6 7 8 ...    последняя
Рефераты / Страхование /