Разработка модулей для БД «Автоматизированная система обработки пенсионной документации на базе компьютерных технологий (АСОПД / КОМТЕХ)

Приложение  А 

Листинг программы 

     Ниже приведен примеры описания внешнего файла и фрагменты программы для

экспорта и  импорта внешних файлов. 

     Пример 1.

Внешний файл "База счетов" формата SDF. Имя файла LS.SDF.

Логическое имя  файла описания DEMO:LS.EXT

     Текст файла описания:

EXTERNAL FILE LS.SDF FORMAT SDF QUERY ERROR DISPL REM "База счетов"

FIELD Code LEN 6        -- Номер счета

PLACE VAL " "

FIELD Name              -- Наименование

PLACE VAL " "

FIELD SumRec LEN 10     -- Сумма

    Экспорт файла из базы данных Base:

if (ExCreate ("DEMO:LS.EXT"))

{for (SetBegin (Base); GetNext (Base);) ExWrite (0);

ExClose ();

}

     Импорт файла в базу данных Base:

if (ExOpen ("DEMO:LS.EXT"))

{for (; ExRead ();) Put (Base);

ExClose ();

} 

     Пример 2.

     Внешний файл "База начислений" модифицированного формата SDF с двумя

типами записей. Имя файла NC.SDF. Логическое имя файла описания

DEMO:NC.EXT.

     Текст файла описания:

EXTERNAL FILE NC.SDF FORMAT SDF QUERY ERROR DISPL REM "База начислений"

GROUP 1

PLACE "1 "  ID          -- Идентификатор типа записи

FIELD Code LEN 6        -- Номер лицевого счета

PLACE VAL " "           -- Разделитель

FIELD Name              -- Наименование

GROUP 2

PLACE VAL "2 "          -- Идентификатор типа записи

FIELD Vid  LEN 3        -- Код начисления

PLACE " "               -- Разделитель

FIELD Sum  LEN 10       -- Сумма

Базы данных иерархическая. Корневой набор Base, подчиненный - Nc:

     Экспорт файла из базы данных:

if (ExCreate ("DEMO:LS.EXT"))

{for (SetBegin (Base); GetNext (Base);)

{ExWrite ('1');

for (SetBegin (Nc); GetNext (Nc);) ExWrite ('2');

}

ExClose ();}

    Импорт файла в базу данных:

if (ExOpen ("DEMO:LS.EXT"))

{for (; ExRead ();)

{if (ExType () == 1) Put (Base);

if (ExType () == 2) Put (Nc);

}

ExClose ();

} 

     Пример 3.

     Файл описания генерируется автоматически функцией ExMake. Имя файла

LS.SDF. Имя файла описания LS.EXT.

     Экспорт базы данных Base  в файл:

if (ExMake (Base, "LS.EXT", "LS.SDF")) ExSave (Base, "LS.EXT");

     Загрузка базы данных Base из файла:

if (ExMake (Base, "LS.EXT", "LS.SDF")) ExLoad (Base, "LS.EXT"); 

     Пример 4.

     Внешний файл "База счетов" формата DBF. Имя файла LS.DBF.

Логическое имя файла описания DEMO:LS.EXT

     Текст файла описания:

EXTERNAL FILE LS.DBF FORMAT DBF QUERY ERROR DISPL REM "База счетов"

FIELD Code   LEN 2         NAME CODE TYPE N

FIELD Name   LEN 50        NAME NAME TYPE C

FIELD SumRec LEN 7 POINT 2 NAME SUM  TYPE N

     Экспорт файла из базы данных Base:

if (ExCreate ("DEMO:LS.EXT"))

{for (SetBegin (Base); GetNext (Base);) ExWrite (0);

ExClose ();

}

     Импорт файла в базу данных Base:

if (ExOpen ("DEMO:LS.EXT"))

{for (; ExRead ();) Put (Base);

ExClose ();

} 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  Б 

Руководство пользователя 

     После запуска программы на экране на некоторое  время  появится транспорант с  указанием организации разработчика  программного обеспечения. Через короткий период  времени  он  исчезнет. После этого на экране появится видеограмма 1, представленная на рисунке А.1                         

     ┌─────────────────────────────────────────────────────────────┐

     │ Укажите полный путь и наименование PIC-файла                │

     │┌───────────────────────────────────────────────────────────┐│

     ││                                                           ││

     │└───────────────────────────────────────────────────────────┘│

     │┌───────────────┐    ┌────────────────┐    ┌────────────────┐│

     ││ F10  Выбрать  │    │  Esc  Выход    │    │  Enter  Обзор  ││

     │└───────────────┘    └────────────────┘    └────────────────┘│

     └─────────────────────────────────────────────────────────────┘

     Рисунок А.1 - видеограмма 1

          Она состоит из заглавия окна, строки для ввода полного имени  PIC-файла и трех функциональных кнопок. В поле для ввода имени файла необходимо указать полный путь к файлу и имя файла с расширением. Например c:\work\pic\kl.pic . Если не указать полный путь, файл может быть  не  найден.  После того, как необходимый  файл  указан,  необходимо  нажать  кнопку <F10> или выбрать соответствующую кнопку манипулятором "мышь". В случае, когда оператор решил  отказаться  от  конвертации или конвертация уже  выполнена,  необходимо  нажать  на  клавишу <Esc>. После этого произойдет выход из программы.

          Вполне реален случай, когда оператор  хочет сделать  конвертацию,  но не помнит, где находится  необходимый  PIC-файл.  Тогда необходимо  нажать клавишу <Enter> для поиска  нужного  файла  при помощи  менеджера файлов, который показан  на видеограмме 2. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     ╔═════════════════ C:\STAY20\        ════════════════════╗

     ║  Имя   │   Размер   │     Дата         │    Время   │  ║

     ║ ..     │  SUB-DIR   │  13\12\1992      │    15:01   │  ║

     ║ ADD    │  SUB-DIR   │  13\12\1995      │    15:02   │ ║

     ║ BAK    │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ DIST   │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ DOC    │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ HELP   │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ INI    │  SUB-DIR   │ 13\12\1995      │    15:02   │ ║

     ║ NET    │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ OVR    │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ REPCTLG│  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ TECH   │  SUB-DIR   │  13\12\1995      │    15:02   │ ║

     ║ TEMP   │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ TEMP2  │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ TOOLS  │  SUB-DIR   │  13\12\1995      │    15:02   │  ║

     ║ AA     │  SUB-DIR   │  05\08\1996      │    16:30   │ ║

     ║        │            │                  │            │  ║

     ║        │            │                  │            │  ║

     ║        │            │                  │            │  ║

     ║────────┴────────────┴──────────────────┴────────────┴──║

     ║ F2 Выбор  F3 Тип сорт-и F7 Создать каталог F10 Выбрать ║

     ╚════════════════════════════════════════════════════════╝ 

Рисунок А.2 - видеограмма 2

     Это окно и называется менеджером файлов.  Менеджер  файлов позволяет просматривать  все дисковые устройства  с  возможностью выбора определенного каталога. Cуществует  возможность  создания новых каталогов. И файлы и каталоги можно отсортировать по определенному критерию. В Менеджере файлов отображается  имена  файлов, размеры файлов, дату создания файлов и каталогов,  а  также время их создания. Для каталогов и метки выхода из директория  в графе размер вместо размера стоит текст "SUB-DIR". В правой части таблицы находится полоса скроллинга. По ней можно определить место расположения курсора. При  помощи  клавиш управления курсором можно передвигаться по  списку  каталогов  и файлов. В верхней части экрана показан путь к данному файлу  или каталогу. Каталоги отображаются большими буквами а файлы  -  маленькими. Если при нахождении курсора на каталоге нажать <Enter> можно зайти в данный каталог. При выборе пункта ".." можно  выйти из подкаталога. ( Вся эта часть аналогична  Norton  Commander). При нажатии на <Enter>, когда курсор стоит на файле  произойдет выбор данного файла. Эта операция имеет смысл только  тогда, когда вы зашли в Менеджер файлов по пункту "Прием". В нижней части экрана показан  список  доступных  функциональных клавиш. Они обозначают:

     Выбор устройства - при нажатии на кнопку F2  или  выборе этого пункта произойдет вызов окна выбора  диска  (  видеограмма 3).   Вы можете выбрать новое устройство ( диск ).  В  случае  , если выбран гибкий магнитный диск,  программа  проверит  возможность прочитать дискету, и если дискеты в дисководе нет или  она не форматирована, выдаст  сообщение  о  неготовности  дисковода. Если вы желаете выбрать диск, подведите курсор  к соответствующей диску букве и нажать <Enter>. Для отказа от смены дисковода нажмите <Esc>. 

             Тип сортировки -  при нажатии  на F3 предоставится окно с указанием  текущего типа сортировки и  будет предоставлена возможность выбора нового типа сортировки. Данное окно  позволяет  узнать о типе нынешней сортировке файлов и изменению  этой  сортировки.Нынешняя установка показана в нижней части окна.В  верхней части окна при помощи клавиши управления курсором можно  выбрать новый тип сортировки и затем нажать <Enter>  или  отказаться  от нового выбора при помощи клавиши <Esc>. При сортировке по дате в верху будут находиться самые старые файлы или каталоги, а  внизу - самые свежие. Если установка по размеру, сначала будут показаны каталоги, а затем файлы в порядке роста размера. ( видеограмма 4 ).

             Создать каталог  - нажатие на  кнопку F7  позволяет  создать  новый каталог. При этом появится  видеограмма 5.  Данное окно  позволяет ввести имя нового  каталога.Для  создания  каталога необходимо ввести  название  каталога  и затем нажать  клавишу <Enter>. После этого создастся в текущем директории новый каталог. Если же вы хотите отказаться от ввода нового каталога, нажмите клавишу <Esc>. Возможно, что вы захотите создать каталог с именем, которое уже имеет другой каталог или на  диске уже нет места.В этом случае система сообщит вам об ошибке. Когда необходимый PIC-файл уже выбран, нажатием на  клавишу <Enter> можно ввести выбранный файл вместе с путем в строку ввода файла видеограммы 1. 

     ╔═  Выберите устройство ═══╗

     ║ Имя устройства для ввода ║

     ║                          ║

     ║           A              ║

     ║           B              ║

     ║           C              ║

     ║           L              ║

     ║           M              ║