Информатика и выч. техника \ Проектирование информационных систем

Автоматизированная система управления «Деканат»: Руководство разработчика, страница 7

unit Unit24 – Бюджетные места;

procedure FormCreate(Sender: TObject);

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

procedure cxGrid1DBTableView1CustomDrawCell(…);

Выделяет красным пустующие бюджетные места.

procedure RzBitBtn1Click(Sender: TObject);

«Занять бюджетное место». Смотрим группу и последнюю дату изменения и вставляем новую запись о том же бюджетном месте, но с новой датой. Столбец ФИО становится редактируемым.

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Отрубаем DataSet с бюджетными местами, чтобы снизить нагрузку на БД. Обновляем таблицу со студентами местами после выхода – это нужно, чтобы бюджетники корректно выделялись синим цветом. На всякий случай линий раз закрываем о редактирования ФИО.

procedure FormShow(Sender: TObject);

Включаем DataSet с бюджетными местами.

procedure RzBitBtn2Click(Sender: TObject);

«Подтвердить изменение бюджетного места». После того как человек выбрал ФИО он подтверждает выбор этой кнопкой. Нажатие этой кнопки и заканчивает операцию внесения записи о бюджетном месте в БД, начатой в процедуре RzBitBtn1Click().

procedure RzBitBtn3Click(Sender: TObject);

Операция отчисления студента с бюджета. Здесь будет то же самое что и при закреплении бюджетного места за конкретным студентом, только в этом случае студенту записывается ВВЕДИТЕ № в номер договора – это видно в личной карточке. Отрабатывает запрос SQL\otchis.sql.

unit uReports(frmReports) – Модуль отчетов;

procedure TfrmReports.isfSexClick(Sender: TObject);

Птичка «Пол» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfBirthClick(Sender: TObject);

Птичка «Дата Рождения» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfAgeClick(Sender: TObject);

Птичка «Возраст» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfPhoneClick(Sender: TObject);

Птичка «Телефон» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfGrajdClick(Sender: TObject);

Птичка «Гражданство» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfPaspClick(Sender: TObject);

Птичка «Паспортные данные» в области «Выберите данные для отчета». Показывает/скрывает столбцы с серией, номером, датой и местом выдачи паспорта.

procedure TfrmReports.isPlBirthClick(Sender: TObject);

Птичка «Место рождения» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfAdressClick(Sender: TObject);

Птичка «Адрес (по паспорту)» в области «Выберите данные для отчета». Показывает/скрывает столбцы с городом, улицей, домом и квартирой проживания.

procedure TfrmReports.isfNomerDelaClick(Sender: TObject);

Птичка «Номер дела» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfPrikazZachClick(Sender: TObject);

Птичка «Приказ зачисления» в области «Выберите данные для отчета». Показывает/скрывает столбцы с датой и номером приказа о зачислении.

procedure TfrmReports.isfPrikaOtchClick(Sender: TObject);

Птичка «Приказ отчисления» в области «Выберите данные для отчета». Показывает/скрывает столбцы с датой и номером приказа об отчислении.

procedure TfrmReports.isfPrikazVostClick(Sender: TObject);

Птичка «Приказ восстановления» в области «Выберите данные для отчета». Показывает/скрывает столбцы с датой и номером приказа о восстановлении.

procedure TfrmReports.isPrikazAkadClick(Sender: TObject);

Птичка «Приказ на академ. отпуск» в области «Выберите данные для отчета». Показывает/скрывает столбцы с датой и номером приказа об академическом отпуске, а также столбцы с датой начала и окончания академа.

procedure TfrmReports.isfSocStatClick(Sender: TObject);

Птичка «Социальный статус» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfLanguageClick(Sender: TObject);

Птичка «Иностранный язык» в области «Выберите данные для отчета». Показывает/скрывает столбец.

procedure TfrmReports.isfGruClick(Sender: TObject);

Птичка «Группа» в области «Выберите данные для отчета». Показывает/скрывает столбец.

Скачать файл