Реализации информационной подсистемы "Advancement"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?певаемости обучаемых в МОУ СОШ №4 г. Ставрополь.
Модификация данных таблиц, размещенных на форме fmAccountingU, с помощью компонента DBGrid1 запрещена, для этого её свойство ReadOnly установлено в значение True.
Для модификации набора данных наборе данных DM.GROUP используются три кнопки TButton с названиями BitBtnGroupAdd (Добавить группу), BitBtnGroupEdit (Изменить группу) и BitBtnGroupDel (Удалить группу).
Код обработчика события нажатия на кнопку BitBtnGroupAdd (Добавить группу) приведен в листинге 2.1.
Рисунок 2.36 - Внешний вид вкладки Специализация и классы формы fmAccountingU
Рисунок 2.37 - Внешний вид вкладки Список учеников класса формы fmAccountingU
Рисунок 2.38 - Внешний вид вкладки Оценки и пропуски занятий формы fmAccountingU
Рисунок 2.39 - Внешний вид вкладки Сводная ведомость формы fmAccountingU
Листинг 2.1 - Код обработчика события нажатия на кнопку BitBtnGroupAdd
procedure TfmAccounting.BitBtnGroupAddClick(Sender: TObject);
if DM.FORMINSTRUCTION.RecordCount = 0 then begin
MessageDlg('Нет записи в главной таблице "Форма обучения"!' + #13#10 + 'Операция отменятся!',mtError,[mbOK],0);
Exit;
end
else begin
fmGroup:= TfmGroup.Create(nil);//программное создание формы
DM.GROUP.Append;
if fmGroup.ShowModal = mrOK then
DM.GROUP.Post
else
DM.GROUP.Cancel;
fmGroup.Free;//освобождаем ресурс
end;;
Таким образом, сначала в набор данных DM. GROUP добавляется новая запись DM.GROUP.Append, а потом в модальном режиме открывается форма fmGroup.ShowModal, позволяющая осуществлять ввод и корректировку записи о классе (рисунок 2.40).
Рисунок 2.40 - Внешний вид формы fmGroup
Как видно из рисунка 2.36, форма fmAccountingU содержит главное меню (рисунок 2.41). Код обработчиков события нажатия на кнопку с надписью Список групп по формам обучения приведен в листинге 2.2.
Рисунок 2.41 - Внешний вид главного меню формы fmAccounting
Листинг 2.2 - Код обработчика события нажатия на кнопку Список групп по формам обучения
procedure TfmAccounting.ListGroupClick(Sender: TObject);
fmQReportGroup:= TfmQReportGroup.Create(nil);//программное создание формы
fmQReportGroup.QuickRep1.Preview;
fmQReportGroup.Free;//освобождаем ресурс;;
Таким образом, для печати списка группы в режиме предварительного просмотра открывается отчет fmQReportGroup.QuickRep1.Preview, реализованный при стандартного генератора отчетов Delphi под названием QuickReport. В связи с этим рассмотрим создание отчетов, формируемых информационной подсистемой.
2.4.6 Создание отчетов
В соответствии с техническим заданием на проектирование, информационная подсистема Advancement должна поддерживать автоматизированное формирование, просмотр и печать следующих отчетов:
результаты успеваемости с группировкой по предметам;
-список групп по формам обучения;
список студентов группы;
сводная ведомость (за полугодие, годовая).
Для формирования данных, отображаемых в этих отчетах, модуль данных программы был дополнен следующими четырьмя запросами на выборку:
-QueryListingOfDiscipline (запрос для формирования списка диiиплин);
-QueryListingOfDisciplineID (запрос для формирования списка диiиплин для указанной специальности);
QueryStudentsGroupThis (запрос для формирования списка студентов указанной группы);
QueryCalculationStudentsThis (запрос для формирования данных о пропусках занятий студентами указанной группы).
Внешний вид некоторых из перечисленных запросов представлен на рисунках 2.45 и 2.46.
Рисунок 2.45 - Текст запроса QueryFires
Рисунок 2.46 - Текст запроса QueryGas
Перечисленные ранее отчеты разрабатывалась в Delphi с использованием конструктора отчетов QuickReport. Внешний вид отчета Список студентов группы в окне предварительного просмотра и на этапе разработки в конструкторе QuickReport показан на рисунках 2.47 и 2.48. Внешний вид остальных отчетов, формируемых информационной подсистемой Advancement, представлен на рисунках 2.49 - 2.52.
2.4.7 Отладка и компиляция проекта
Из-за ограниченных объемов пояснительной записки, к сожалению, не удается достаточно полно описать весь процесс создания информационной подсистемы Advancement. Отметим, что в процессе реализации проекта было создано 23 модуль и 22 формы (модуль данных не имеет формы), что подтверждается данными окна Project Manager проекта (рисунок 2.53). Внешний вид некоторых из этих форм был представлен ранее на рисунках 2.28, 2.36 - 2.40.
Свойства исполнимого файла проекта представлены на рисунке 2.54. Как следует из рисунка 2.54, размер исполнимого файла Advancement.exe разработанной информационной подсистемы Advancement составляет 1,86 Мбайт.
Теперь создадим программы установки информационной подсистемы Advancement на компьютер пользователя.
2.4.8 Создание программы установки информационной подсистемы Advancement на компьютер пользователя
Для создания программы установки информационной подсистемы Advancement на компьютер пользователя воспользуемся пакетом для создания инсталляторов InstallShieldExpress.
После запуска инсталлятора и выбора нового проекта открывается страница New Project, в котором зададим название новому проекту инсталляции (рисунок 2.55).
После нажатия на кнопку OK откроется первое окно мастера создания программы установки (рисунок 2.56). В этом окне зададим общие данные о проекте инсталляции и определим директорию установки информационной подсистемы Advancement на компьютер пользователя.
После выполнения ряда стандартных операций программа InstallShield Express успешно создает инсталлятор. В результате получим файл setup.exe, свойства которого показаны на рисунке 2.57.
Как видно из этого рисунка размер файла setup.exe составляет 220 кбайт. Свойства папк