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

(Short) NREGION (Short) NGOR (Short) F1 (Real) ......... F16 (Real). Следующим шагом при проектировании данных является определение ключевых признаков. Ключевые признаки предназначены для упорядочивания записей, а также для осуществления быстрого доступа к данным. В нашей программе (в файле F) в качестве ключевых выступают поля NKUST, NREGION, NGOR для поиска данных по инспекциям, регионам, городам соответственно. Ключевые признаки, соответственно: K1,K2,K3. Ключи созданы для упорядочивания определенных записей: по инспекциям, по регионам, по городам. Проектирование данных можно считать законченным, однако в процессе обработки данных могут понадобиться дополнительные информационные массивы и поля памяти в файле MEMORY. Эти решения, как правило, принимаются во время проектирования процедур обработки данных, хотя возможно и предусмотреть эти проблемы заранее. Следующий этап - этап проектирования прoцедур. В начале необходимо решить, какие операции будут выполняться с данными. В начале организуются меню, описанные выше, а затем производится обработка и выдача данных запрограммированная с помощью процедуры Editor. Структурная схема программы представлена на плакате. После завершения процесса проектирования данных и процедур их обработки необходимо в Designer заполнить окно The CLARION Designer. После этого на экране появится главное окно разработки - Application. Затем необходимо определить файлы баз данных, а также поля и ключевые признаки. Большинство позиций в окнах диалога будут принимать те значения, которые автоматически подставляет Designer. Следующий шаг - проектирование экранных форм (внешний вид меню,отчета и проч.) В этом нам помогут соответствующие диалоговые окна. Если необходимо, можно перейти к проектированию следующей процедуры и т.д. После окончания оформления экранной формы, описания поля и проч. необходимо сохранить эти описания, нажав клавиши Ctrl и Enter.

Завершив процесс разработки, оформления, сохранив описание процедур, вернемся в главное окно разработки, которое теперь будет иметь следующий вид (см. рис.). На экране не осталось ни одной процедуры без определенного типа. Поэтому проектирование программы можно считать полностью завершенным. Теперь необходимо сохранить описание разработки и нажать клавиши Shift и F7. После запроса о создании исходного текста, Designer приступит к генерации исходного текста программ, их компиляции и, в случае отсутствия ошибок, к ее выполнению под управлением программы crun. Если результат работы удовлетворяет, то можно переходить к процессу создания выполнимого кода, для чего необходимо вызвать программу ctrn, выбрав позицию Translator в главном меню пакета Clarion. Приведеные в приложении листинги представляют собой программы созданные с помощью утилиты Designer (приложение 1 ) и Editor (приложение 2 ). Результат выполнения этих программ таблица "Сведения об изменении отдельных показателей деяельности страховых организаций" приведена ниже.

Работа с программой. Работа с программой представляет собой работу с системой меню, которые появляются по мере необходимости. Систему меню обеспечивает программа написанная в Designer. Обработку данных обеспечивает программа, написанная на Clarion. Для начала работы с программой вызывается файл antbst.ехе, который начинает работу. При этом выдается на экран начальное основное меню для выбора необходимого вида работы (см.рис.1). Далее выбрав “Аналитические таблицы” или “Списки по запросу” про- изводится выбор необходимого вида таблиц или списков. Выбор таблиц производится по обобща- ющим признакам: полный список рис.1

рис.2

компаний, принадлежность к определенному региону, принадлежность к определенному городу или инспекции (см.рис.2). В зависимости от выбранного типа будет происходить обращение к соответствующим файлам данных. Выбрав необходимый параметр поиска, выбирается тип результата, который необходимо получить. Это будут следующие сведения: “Анализ показателей развития страховых обществ”, “Сведения об изменении отдельных показателей деятельности страховых обществ”, “Объем поступлений и выплат на одного работника компании”.Как только будет выбран параметр поиска, последует обращение к файлу F для получения необходимых данных для последующей обработки и заполнения таблицы. Как уже говорилось ранее, основной целью разработки являлась не только выборка данных по определенным признакам, но и их обработка. На примере таблицы “Сведения об изменении отдельных показателей деятельности страховых обществ” рассмотрим заполнение таблицы. Данные добавляются в специально созданный текстовой файл YU, которым и является таблица. Строками таблицы являются: - название выбранного региона, в этой строке суммируются все показатели по данному региону в соответствии со столбцами; - следующими строками следуют названия городов, соответствующих этому региону, по которым суммируются все показатели страховых обществ, расположенных в данных городах в соответствии со столбцами; - далее идут названия страховых компаний, по которым выдается информация, по каждой компании отдельно, в соответствии со столбцами. Столбцами (показателями) являются: - наименование страховой организации; - размер уставного капитала по годам (1994,1995) - изменение размера уставного капитала (в сумме и в %% по отношению к 1994 г. в “+” или “-”); - размер страховых резервов по годам (1994, 1995) - изменение размера страховых резервов ( в сумме и в %% по отношению к 1994 г. в “+” или “-”); - объем страховых взносов по годам (1994, 1995); - изменение объема страховых взносов (в сумме и в %% по отношению к 1994 г. в “+” или “-”); - объем страховых выплат по годам (1994, 1995); - изменение объема страховых выплат (в сумме и в %% по отношению к 1994 г. в “+” или “-”);

Таким же образом заполняются и остальные таблицы, но с другими столбцами - показателями.

(antb)

MEMBER('ANT') ! НАЧАЛЬНАЯ СОРТИРОВКА S PROCEDURE M GROUP M1 REAL,DIM(79,14) !T17 MK REAL,DIM(8,14) MG REAL,DIM(350,14). CODE CLEAR(M) BUFFER(LIC,0.9) SET(LIC) LOOP UNTIL EOF(LIC) NEXT(LIC) CLEAR(T17:RECORD) T17:PNOMBER=LIC:PNOMBER GET(T17,T17:C) IF ~ERRORCODE() M1[LIC:NREGION,1]+=T17:F001/1000 MG[LIC:NCITY,1]+=T17:F001/1000 M1[LIC:NREGION,2]+=T17:F004/1000 MG[LIC:NCITY,2]+=T17:F004/1000 M1[LIC:NREGION,3]+=T17:F010/1000 MG[LIC:NCITY,3]+=T17:F010/1000 IF T17:F018>0 THEN M1[LIC:NREGION,4]+=T17:F018/1000 MG[LIC:NCITY,4]+=T17:F018/1000 ELSE IF T17:F020>0 M1[LIC:NREGION,4]-=T17:F020/1000 MG[LIC:NCITY,4]-=T17:F020/1000... CLEAR(T67:RECORD) T67:PNOMBER=LIC:PNOMBER GET(T67,T67:C) IF ~ERRORCODE() M1[LIC:NREGION,5]+=T67:A400N/1000 MG[LIC:NCITY,5]+=T67:A400N/1000 M1[LIC:NREGION,6]+=T67:A400K/1000 MG[LIC:NCITY,6]+=T67:A400K/1000 M1[LIC:NREGION,7]+=T67:A495N/1000 MG[LIC:NCITY,7]+=T67:A495N/1000 M1[LIC:NREGION,8]+=T67:A495K/1000 MG[LIC:NCITY,8]+=T67:A495K/1000. CLEAR(F92:RECORD) F92:PNOMBER=LIC:PNOMBER GET(F92,F92:FC) IF ~ERRORCODE()