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

      Обмен с внешними файлами осуществляется

        ExOpen   ExOpen   Открытие импортного файла

        ExCreate ExCreate   Открытие экспортного файла

        ExClose  ExClose   Закрытие внешнего файла

        ExWrite  ExWrite   Запись в экспортный файл

        ExRead   ExRead   Чтение записи импортного файла

        ExType   ExType   Тип очередной записи

        ExMake   ExMake   Создать описание внешнего файла

        ExSave   ExSave   Экспортировать содержимое БД

        ExLoad   ExLoad   Импортированть содержимое БД

       

      ExCreate,fn,Функция  ExCreate

      int far ExCreate (nf)

      fchar nf;     адрес имени файла описания

      Функция открывает экспортный файл согласно его описания, адрес имени

      которого  задается как параметр nf функции. При успешном открытии функция

      возвращает 1. Если файл описания не найден или  обнаружены ошибки в нем функция возвращает 0. 

        ExOpen,fn,Функция ExOpen

      int far ExOpen (nf)

      fchar nf;     адрес имени файла описания

      Функция открывает импортный файл согласно его описания, имя которого задается как параметр nf функции. При успешном открытии функция возвращает 1. Если файл описания не найден или обнаружены ошибки в нем функция возвращает 0. 

        ExClose,fn,Функция ExClose

      int far ExClose ()

      Функция закрывает ранее открытый внешний  файл. 

        ExWrite,fn,Функция ExWrite

      int far ExWrite (char s)

      Функция выводит очередную запись в экспортный файл. Параметр s задает тип записи. Для записей одного типа в качестве параметра задается 0. 

        ExRead,fn,Функция ExRead

      int far ExRead ()

      Функция считывает очередную запись из импортного файла. Если достигнут конец файла, то функция возвращает 0. Если запись считана, то функция возвращает 1. 

        ExType,fn,Функция ExType

      char far ExType () 

      Функция возвращает тип записи введенной  функцией ExRead при импортировании файлов модифицированных форматов. 

        ExMake,fn,Функция ExMake

      int far ExMake (b, f, s)

      BASE  b;  адрес описания БД

      fchar f;  адрес имени файла описания

      fchar s; адрес имени внешнего файла 

      Функция создает EXT-файл описания внешнего файла для указанной БД. Этот файл может быть использован для автоматического экспортирования содержимого БД в файл SDF формата. Функция возвращает 1 в случае успешного завершения и 0 при невозможности создать EXT-файл. 

        ExSave,fn,Функция ExSave

      int far ExSave (b, f)

      BASE  b;  адрес описания БД

      fchar f;  адрес имени файла описания

      Функция использует EXT-файл, созданный функцией ExMake, и экспортирует содержимое БД в файл SDF формата, включая содержимое всех подчиненных наборов. Функция возвращает 1 в случае успешного завершения и 0, если при при создании выходного файла произошла ошибка. 

        ExLoad,fn,Функция ExLoad

      int far ExLoad (b, f)

      BASE  b;  адрес описания БД

      fchar f;  адрес имени файла описания

      Функция использует EXT-файл, созданный функцией ExMake, и загружает БД из файла SDF формата, включая содержимое всех подчиненных наборов. Функция возвращает 1 в случае успешного завершения и 0, если при при создании БД произошла ошибка. 

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

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

      Пример 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 ();

      }

 

РЕЗУЛЬТАТЫ  ПРАКТИКИ 

В результате прохождения производственной практики я ознакомился с основами работы в СУБД STAY, которая использует язык програмирования ,для написания дополнительных модулей и описания файлов-шаблонов, похожий за синтаксисом на язык С .

     В данном проекте был написан модуль для конвертации баз из одной структуры в другую по заданному PIC-файлу.

     Тестирование  проводилось на операционной системе  Windows XP с установленной системой STAY и БД «АСОПД / КОМТЕХ».

     Результатом работы над данным проектом является реализованный модуль «CONV_BAS». 
 
 
 
 
 
 

 

Приложение  А 

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

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

                                                     

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

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

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

     ││                                                           ││

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

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

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

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

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

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

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