Исходя из перечисленных выше требований к программному комплексу «Призывник» разрабатываемая программа должна проектироваться для использования на локальном ПК без использования клиент - серверной технологии. Следовательно, нет необходимости использовать соответствующую СУБД и можно ограничиться локальной системой. Несмотря на поддержку широкого спектра СУБД, родной для Delphi можно считать Paradox - указанная система требует для работы только BDE Administrator, и предъявляет наименьшие требования к аппаратному и программному обеспечению используемого ПК.

Для работы проектируемой системы можно определить необходимость следующих таблиц: основная таблица, содержащая список призывников и дополнительные данные по ним; таблицы справочники - хранящие часто используемые «справочные» данные для заполнения некоторых полей усредненными стандартизируемыми данными.

Для создания основной таблицы используем Database Desktop, назовем ее Total.db и создадим в ней следующие поля:

Таблица 1. Total.db

Исследуя созданную основную таблицу можно выделить большое количество информационных полей значения, которых являются справочными. Это объясняется необходимостью использовать при построении выходных документов (отчетов) упорядоченных, непротиворечивых и целостных данных.

Классификация указанных информационных полей вызывает необходимость создания следующих таблиц-справочников:

1. Первая таблица справочник - spr_0.db. Предназначение - хранение данных по нарядам призыва в вооруженные силы Республики Казахстан. Содержит следующие поля:

Таблица 2. spr_0.db

2. Вторая таблица справочник - spr_1.db. Предназначение - хранение данных по гражданским специальностям призывников. Содержит следующие поля:

Таблица 3.spr_1.db

3. Третья таблица справочник - spr_2.db. Предназначение - хранение данных по степени ограничения призывников. Содержит следующие поля:

Таблица 4. spr_2.db

4. Четвертая таблица справочник - spr_3.db. Предназначение - хранение данных об образовании призывников. Содержит следующие поля:

Таблица 5. spr_3.db

5. Пятая таблица справочник - spr_4.db. Предназначение - хранение наименования районных военных комиссариатов (военкоматов). Содержит следующие поля:

Таблица 6. spr_4.db

6. Шестая таблица справочник - spr_5.db. Предназначение - хранение данных по статусу ограничения призывников. Содержит следующие поля:

Таблица 7. spr_5.db

7. Седьмая таблица справочник - spr_6.db. Предназначение - хранение данных по национальностям призывников. Содержит следующие поля:

Таблица 8. spr_6.db

8. Восьмая таблица справочник - spr_7.db. Предназначение - хранение данных по роду занятий призывника. Содержит следующие поля:

Таблица 9. spr_7.db

9. Девятая таблица справочник - spr_8.db. Предназначение - хранение данных по социальному положению призывника. Содержит следующие поля:

Таблица 10.

spr_8.db

Десятая таблица справочник - spr_9.db. Предназначение - хранение данных по наименованиям специальностей ВТШ. Содержит следующие поля: информационный технология военкомат программный

Таблица 11. spr_9.db

Спроектировав и реализовав структуру базы данных можно приступать непосредственно к разработке приложения (рисунок 2).

Рисунок 2. Схема проекта

Одним из наиважнейших требований разрабатываемого программного комплекса является возможность ведения неограниченного количества призывных периодов. Для практической реализации данного требования предусмотрим возможность создания копий «болванки» частично заполненной справочными данными базы данных с привязкой их к различным периодам.

Работая с СУБД Paradox, в которой каждая отдельная база данных должна находиться в отдельном каталоге (директории), указанное требование можно реализовать путем создания в каталоге баз данных отдельных директорий, называемых в соответствии с призывными периодами и копируя во вновь создаваемую директорию файлов базы данных из директории-«болванки».

Директория-«болванка» при этом должна содержать файлы базы данных с частичным заполнением таблиц-справочников справочными данными. Предлагаемая реализация программного кода на Delphi выглядит следующим образом:

Листинг 1. Создание базы данных для нового призывного периода.

if sComboBox1.Text<>'' then

begin

result:= ExtractFilePath(ParamStr(0));

if createdir(result+'Database\'+sEdit1.Text+'_'+sComboBox1.Text)

then

begin

ini:=TiniFile.Create(result+'config.ini');

ini.WriteString('Database','Prizyv',sEdit1.Text+'_'+sComboBox1.Text);

Form1.sStatusBar1.Panels[1].Text:=ini.ReadString('Database','Prizyv','');

ini.Free;

Path:=(sEdit1.Text+'_'+sComboBox1.Text);

sCheckBox1.Checked:=false;

sLabel1.Enabled:=false;

sLabel2.Enabled:=false;

sEdit1.Enabled:=false; sEdit1.Clear;

sComboBox1.Enabled:=false; sComboBox1.Text:='';

sBitBtn2.Enabled:=false;

sComboBox2.Clear;

ListCopyDir(Path);

DataModule2.Table1.Active:=false;

DataModule2.Table1.DatabaseName:=result+'Database\'+Path+'\';

DataModule2.Table1.IndexName:='sort';

DataModule2.Table1.Active:=true;

Form1.sStatusBar1.Panels[0].Text:=IntToStr(DataModule2.Table1.RecordCount);

MessageDlg('Каталог успешно создан.', mtInformation, [mbOK], 0);

end

else MessageDlg('Ошибка создание каталога! Вероятная причина - каталог уже существует.', mtWarning, [mbOK], 0);

end

В приведенном листинге проверяется выбор периода призыва (весна/осень) и при выполнении условия заполнения данного поля, производиться попытка создания новой директории в каталоге баз данных (Database) с соответствующим названием и копирования файлов эталонной базы данных из «образа». Копирование содержимого эталонной базы данных производиться при помощи отдельной процедуры ListCopyDir, которая выполняет копирование всех файлов (исключая вложенные директории/каталоги) во вновь создаваемую базу нового призывного периода.

В случае удачного завершения указанных операций процедура создания базы данных нового призывного периода считается завершенной и производится переключение на вновь созданную базу данных.

Для дальнейшей работы с базой данных в конфигурационном файле создается запись, информирующая о текущей базе данных. Если же попытка создания новой базы данных завершается неудачей выводиться информационное сообщение об ошибке.

Помимо создания новой базы данных призывного периода также необходимо предусмотреть возможность переключения между уже созданными и заполненными базами данных призывных периодов. Для этого необходимо программно перечитать наименование вложенных директорий в каталоге баз данных (Database), соответствующих призывным периодам, и предоставить пользователю выбор между ними.

После чего необходимо разорвать связь компонентов, отвечающих за соединение с файлами базы данных, изменить ссылку на базу данных выбранного призывного периода и вновь активировать связь с файлами базы данных. Получить список вложенных директорий можно при помощи алгоритма примененного для копирования файлов эталонной базы, незначительно изменив некоторые параметры.

Для этого применяемый в первом случае фильтр SR.Attr <> faDirectory (атрибут объекта не директория) необходимо заменить фильтром SR.Attr = faDirectory (атрибут объекта директория) и работать только с объектами, удовлетворяющими данному условию.

Листинг 2. Программное переключение источников базы данных.

DataModule2.Table1.Active:=false;

DataModule2.Table1.DatabaseName:=result+'Database\'+Path+'\';

DataModule2.Table1.Active:=true;

Рисунок 2. Проектирование окна работы с базами данных различных призывных периодов.

Обеспечив возможность работы с неограниченным количеством баз данных различных призывных периодов необходимо разработать систему создания инкрементных или полных архивов указанных баз данных. Система архивирования должна предусматривать возможность автоматического запуска с указанными параметрами. Например, при включении или выключение программы. Также необходимо предусмотреть возможность ручного «экстренного» создания архива базы данных.

Исходя из условий технического задания систему архивирования необходимо спроектировать и разработать независимой от стороннего программного обеспечения.

Для решения поставленной задачи существует множество компонентов для Delphi, но многие из них является либо коммерческими, либо не полностью документированными. Вместе с тем имеется возможность использования консольной версии архиватора WinRar без нарушения лицензии встроенными средствами Delphi. Для подобных целей можно использовать несколько функций: ShellExecute или WinExec, параметрами которых являются путь к исполняемому файлу и, по необходимости, дополнительные ключи.

Консольная версия архиватора WinRar - rar.exe, присутствует во всех дистрибутивах указанного архиватора. Использование rar.exe, используя различные ключи запуска, позволяет задать следующие команды при создании архива:

1. a (команда) - добавить файлы в архив;

2. -ep (ключ) - исключить пути из имен;

3. -dh (ключ) - открывать совместно используемые файлы;

4. e (команда) - извлечь файлы в текущий каталог;

5. -y (ключ) - автоматически отвечать «да» на все запросы.

6. Процесс создания архива с использованием консольной версии архиватора rar.exe с применением перечисленных команд и ключей выглядит следующим образом:

7. Получается (задается) путь архивируемого каталога, содержащего текущую базу данных;

8. Получается (задается) путь, по которому будем размещать полученный архив;

9. Генерируется уникальное имя создаваемого архива;

10. Задается последовательность команд и ключей «a -ep -dh», указывающая, что необходимо выполнить архивирование, исключая пути из имен файлов, открывая (архивируя) совместно используемые файлы (так как файлы текущей базы данных в момент архивирования могут быть используемые самой программой);

11. При помощи функции ShellExecute или WinExec запускаем консольный архиватор с использованием путей, имен и команд, полученных на предыдущих этапах.

Листинг 3. Создание архивного файла базы данных с использованием консольного архиватора rar.exe.

result:= ExtractFilePath(ParamStr(0));

ini:=TiniFile.Create(result+'config.ini');

arxiv:=ini.ReadString('Database','Arxiv','');

prizyv:=ini.ReadString('Database','Prizyv','');

ini.Free;

data:=Copy(DateToStr(Date),1,2)+'.'+Copy(DateToStr(Date),4,2)+'.'+Copy(DateToStr(Date),7,4);

path:=result+'Database\'+prizyv+'\';

com:='a -ep -dh '+result+'BackUP\'+prizyv+'_base_'+data+'.rar '+path;

rar:=ExtractFilePath(ParamStr(0))+'rar.exe';

ShellExecute(Handle,nil,Pchar(rar),Pchar(com),nil,SW_MINIMIZE);

Процесс извлечения файлов базы данных из архива отличается только последовательностью команд и ключей и порядком их использования:

1. Последовательность команд и ключей выглядит следующим образом «e -y». Данная последовательность указывает, что необходимо извлечь файлы из архива, всегда положительно отвечая на все запросы. Это необходимо в том случае если в каталоге извлечения уже существует подобный файл и его необходимо заменить.

2. Во избежание возможных ошибок в процессе извлечения для восстановления базы данных из архива будем использовать отдельную программу.

Рисунок 3. Проектирование программы для восстановления базы данных из архивного файла.

Алгоритм работы «программы-разархиватора» выглядит следующим образом:

1. Используя компонент OpenDialog (получаем) задаем директорию с архивными файлами, которая будет открываться по умолчанию при выборе архива. При помощи того же компонента устанавливаем фильтр на «видимые» файлы - архивы с расширением *.rar.

2. После выбора архивного файла базы данных по уникальному имени, получаем (задаем) пути для извлечения и последовательность команд и ключей для консольной версии архиватора rar.exe.

Операции добавления, редактирования и удаления записей в таблицы базы данных многократно описаны практически во всех учебных и справочных изданиях, посвященных разработке баз данных с использованием Delphi.

Поэтому мы не будем подробно останавливаться на описании данных операций. Остановимся лишь на процедурах обработки данных таблиц-справочников.

При добавлении или редактировании призывника в качестве многих параметров берутся справочные данные. Заполнение соответствующих выпадающих списков данными из таблиц-справочников будем выполнять на событие OnEnter:

Рисунок 4. Проектирование формы добавления призывника соответствующего призывного периода.

Листинг 4. Заполнение списков справочными данными из таблиц-справочников.

DataModule2.Table2.Active:=false;

DataModule2.Table2.DatabaseName:=DataModule2.Table1.DatabaseName

DataModule2.Table2.TableName:='spr_4.db';

DataModule2.Table2.Active:=true;

sComboBox1.Clear;

DataModule2.Table2.First;

while not DataModule2.Table2.Eof do

begin

sComboBox1.Items.Add(DataModule2.Table2.FieldValues['RVK']);

DataModule2.Table2.Next;

end;

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

Следующим шагом проектирования и разработки комплекса «Призывник» является создание подсистемы выборочного импортирования (экспортирования) данных между автоматизированными рабочими местами различных военных комиссариатов (военкоматов) через промежуточные файлы (например, текстовые).

Данная операция необходима при возникновении ситуации организации сбора допризывной информации в районных военных комиссариатах и передаче их в головную структуру в формате, уменьшающем (исключающем) повторную ручную обработку данных.

Операция экспортирования данных (экспорт) заключается в считывании всех данных призывников в промежуточный контейнер с возможностью отметки всех (или необходимых) и копировании выбранных записей базы данных. Наиболее простую обработку и высокую скорость работы обеспечивают текстовые файлы.

Дополнительным плюсом к их использованию в качестве промежуточных файлов является нетребовательность системы к дополнительному программному обеспечению и небольшой планируемый объем основной базы данных (1000 - 2500 записей), что также является фактором повышающем скорость обработки данных.

Код, считывающий содержимое основной таблицы базы данных в промежуточный контейнер:

Листинг 5. Код, последовательно считывающий содержимое таблицы базы данных в промежуточный контейнер.

sCheckListBox1.Clear;

sCheckBox1.Checked:=false;

DataModule2.Table1.First;

while not DataModule2.Table1.Eof do

begin

text:='';

for i:=1 to DataModule2.Table1.FieldCount-2 do

begin

text:=text + ';' + DataModule2.Table1.Fields.Fields[i].Text;

end;

text:=text + ';' + DeleteLineBreaks(DataModule2.Table1.FieldValues['H_MEMO']);

sCheckListBox1.Items.Add(text);

DataModule2.Table1.Next;

end;

В качестве промежуточного контейнера используется CheckListBox, который позволяет выбирать каждую запись отдельно. После заполнения промежуточного контейнера данными из основной таблицы базы данных и отметки необходимых записей, информация отмеченных призывников может быть сохранена в произвольный текстовый файл.

Для этого, используя компонент SaveDialog, задается имя и путь файла, и применяются файловые операции создания, открытия и записи, широко освещенные в справочной и учебной литературе по Delphi. Для создания дополнительного фактора защиты данных используемому файлу можно программно задавать нестандартное расширение, а также упаковывать полученный файл архив с парольной защитой.

Операция импортирования данных (импорт) заключается в считывании данных из подготовленного специальным образом промежуточного файла данных призывников и занесении их в основную таблицу базы данных. Алгоритм данной операции аналогичен операции экспортирования, но с обратной последовательностью этапов.

Первым шагом идет выбор промежуточного файла с данными, считывание информации в промежуточный контейнер (CheckListBox), затем отметка всех (или необходимых) записей и перенос их в основную таблицу базы данных текущего призывного периода.

Наиболее важным этапом проектирования и разработки комплекса «Призывник» является разработка выходных документов или отчетов, так как получение в минимальные сроки максимально точных отчетов по необходимым формам можно назвать основной целью функционирования данного комплекса.

Все выходные документы (отчеты) предоставляются в табличной форме различной степени сложности. Многие отчеты можно реализовать при помощи встроенных компонентов Delphi со страницы QReport - достаточно мощный инструмент создания отчетных форм.

В основном указанные отчеты представляют собой списки отобранных по определенному критерию призывников с различной степенью раскрываемости дополнительной информации, содержащие некоторую шапку и реквизиты. Лишь некоторые помимо табличной формы представления, требуют значительные вычисления и более сложную нелинейную структуру. Для таких отчетов более рационально использовать специализированные табличные процессоры (например, MS Excel), переложив некоторые вычисления на их встроенные функции.

Для примера возьмем форму отчета представленную на рисунке 5. На рисунке видно, что помимо количественных характеристик в отчете присутствует некоторое число качественных характеристик, как отбор по национальностям, специальностям, образованию и т.д. Причем количество качественных характеристик является непостоянным, так как нет необходимости выводить строку по наличию призывников имеющих определенную специальность с нулевыми количественными показателями.

Рисунок 5. Развернутый отчет по призыву.

При формировании данного отчета использована система вложенных запросов к набору данных. В указанном примере степень вложенности циклических запросов равен четырем. Первым действием необходимо выбрать данные, касающиеся наряда по всем имеющимся командам, затем относительно каждой полученной команды выбираются позиции по имеющимся показателям специальностей, национальностей и образования.

Несмотря на то, что некоторые показатели рассчитываются встроенными средствами MS Excel, формирование развернутого отчета по призыву требует значительных вычислительных мощностей. Это связано с необходимостью расчета каждого приводимого показателя отдельным математическим действием с применением переменного количества параметров. Как показали тестовые проверки комплекса «Призывник» применяемый алгоритм расчета показателей данного отчета не является оптимальным, но вполне работоспособен и не вызывает «зависания» компьютера лишь слегка увеличивая время формирования в зависимости от производительности.

Все остальные процедуры и функции по работе с наборами данных, применяемые при проектировании и разработке программного комплекса «Призывник», достаточно широко описаны во множестве учебной и справочной литературы посвященной проектированию приложений при помощи Delphi. Поэтому мы не будем подробно останавливаться на них и перейдем к описанию программных модулей.

2.5 Описание программных модулей