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

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

procedure TDataModule2.IBStudAfterEdit(DataSet: TDataSet);

Логирование редактирования студента. Файл: Logs\stud.log

procedure TDataModule2.IBStudAfterDelete(DataSet: TDataSet);

Логирование удаления студента. Файл: Logs\stud.log

procedure TDataModule2.IBPrepAfterDelete(DataSet: TDataSet);

Логирование удаления преподавателя. Файл: Logs\prep.log

procedure TDataModule2.IBPrepAfterEdit(DataSet: TDataSet);

Логирование редактирования  преподавателя. Файл: Logs\prep.log

procedure TDataModule2.IBPrepAfterInsert(DataSet: TDataSet);

Логирование добавления преподавателя. Файл: Logs\prep.log

procedure TDataModule2.IBGrupAfterDelete(DataSet: TDataSet);

Логирование удаления академической группы. Файл: Logs\ grup.log

procedure TDataModule2.IBGrupAfterEdit(DataSet: TDataSet);

Логирование редактирования академической группы. Файл: Logs\ grup.log

procedure TDataModule2.IBGrupAfterInsert(DataSet: TDataSet);

Логирование добавления  академической группы. Файл: Logs\ grup.log

procedure TDataModule2.IBDisAfterDelete(DataSet: TDataSet);

Логирование удаления дисциплины. Файл: Logs\dis.log

procedure TDataModule2.IBDisAfterEdit(DataSet: TDataSet);

Логирование редактирования дисциплины. Файл: Logs\dis.log

procedure TDataModule2.IBDisAfterInsert(DataSet: TDataSet);

Логирование добавления дисциплины. Файл: Logs\dis.log

//тут был баг – писалось в специальность. Уже поправил

procedure TDataModule2.IBSpecAfterDelete(DataSet: TDataSet);

Логирование удаления  специальности. Файл: Logs\spec.log

procedure TDataModule2.IBSpecAfterEdit(DataSet: TDataSet);

Логирование редактирования специальности. Файл: Logs\spec.log

procedure TDataModule2.IBSpecAfterInsert(DataSet: TDataSet);

Логирование добавления специальности. Файл: Logs\spec.log

procedure TDataModule2.IBKafAfterDelete(DataSet: TDataSet);

Логирование удаления кафедры. Файл: Logs\kaf.log

procedure TDataModule2.IBKafAfterEdit(DataSet: TDataSet);

Логирование редактирования кафедры. Файл: Logs\kaf.log

procedure TDataModule2.IBKafAfterInsert(DataSet: TDataSet);

Логирование добавления кафедры. Файл: Logs\kaf.log

procedure TDataModule2.IBFakPlanAfterInsert(DataSet: TDataSet);

Логирование добавления записи в текущий план. Файл: Logs\tp.log

procedure TDataModule2.IBFakPlanAfterEdit(DataSet: TDataSet);

Логирование редактирования записи в текущем план. Файл: Logs\tp.log

procedure TDataModule2.IBFakPlanAfterDelete(DataSet: TDataSet);

Логирование удаления записи из текущего плана. Файл: Logs\tp.log

procedure TDataModule2.IBupAfterDelete(DataSet: TDataSet);

Логирование удаления записи из учебного плана. Файл: Logs\up.log

procedure TDataModule2.IBupAfterEdit(DataSet: TDataSet);

Логирование редактирование записи учебного плана. Файл: Logs\up.log

procedure TDataModule2.IBupAfterInsert(DataSet: TDataSet);

Логирование добавления записи в учебные плана. Файл: Logs\up.log

procedure TDataModule2.IBsv_AfterDelete(DataSet: TDataSet);

Логирование удаления записи в сводную ведомость. Файл: Logs\sv.log

procedure TDataModule2.IBsv_AfterEdit(DataSet: TDataSet);

Логирование редактирования записи в сводной ведомости. Файл: Logs\sv.log

procedure TDataModule2.IBsv_AfterInsert(DataSet: TDataSet);

Логирование добавления записи в сводную ведомость. Файл: Logs\sv.log

procedure TDataModule2.IBBudjAfterDelete(DataSet: TDataSet);

Логирование удаления записи из таблице бюджетных мест. Файл: Logs\budj.log

procedure TDataModule2.IBBudjAfterEdit(DataSet: TDataSet);

Логирование редактирования записи в таблице бюджетных мест. Файл: Logs\budj.log

procedure TDataModule2.IBBudjAfterInsert(DataSet: TDataSet);

Логирование вставки записи в таблицу бюджетных мест. Файл: Logs\budj.log

procedure TDataModule2.DataModuleCreate(Sender: TObject);

Пробегает все компоненты в модуле. Если это TIBDataSet и SQL-запрос в нем не пустой, то включает его. Это чтобы не делать для каждого компонента что-то вроде IBDataSet1.Active:=True

unit Unit3 – Модуль добавления групп;

procedure TForm3AddGrup.FormCreate(Sender: TObject); 

Подписываем названия столбцов в RzStringGrid1.

procedure TForm3AddGrup.RzNumericEdit1Change(Sender: TObject);

Меняя год набора, формируем для них шифр из года набора и кода специальности. Небольшая проверка на год, чтобы из 2001 получалось 01, а не 1. Номер группы получаем через вычитание 2000 из года набора. Вываливаем получившееся в RzStringGrid1.

Скачать файл