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

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

«Защита от дурака». В фамилии могут быть только буквы и Backspace. Эта штука висит на всех текстовых полях.

procedure TForm10AddStud.RzEdit10KeyPress();

«Защита от дурака». Год окончания может содержать только цифры.

procedure TForm10AddStud.FormCreate(Sender: TObject);

Вставляет название факультета из config.ini, ставит гражданство по умолчанию – РФ.

procedure TForm10AddStud.RzEdit7Change(Sender: TObject);

Удаляет лишние пробелы из серии паспорта.

procedure TForm10AddStud.RzComboBox1Change(Sender: TObject);

Меняет подсветку контура RzComboBox1 (Основа) с красного на черный после выбора элемента из списка.

procedure TForm10AddStud.RzEdit3Change(Sender: TObject);

Если отчество кончается на «вна» или «кызы» - поставить пол «женский», если кончается на «оглы» или «вич» - поставить «мужской».

unit Unit11 (TfrmConfirm) – Форма подтверждения;

procedure TfrmConfirm.RzEdit1Change(Sender: TObject);

Кнопка будет активна только если введено слово «ПОДТВЕРИТЬ»

procedure TfrmConfirm.FormCreate(Sender: TObject);

При запуске окна – кнопка НЕ активна.

procedure TfrmConfirm.RzOKClick(Sender: TObject);

По нажатию кнопки форма закрывается с модальным результатом mrYes.

procedure TfrmConfirm.FormShow(Sender: TObject);

При каждом новом открытии окна поле очищается.

unit Unit12 – Редактирование групп;

procedure TForm12Gru.xls1Click(Sender: TObject);

«Сохранить как..» → «Новый Файл». Экспортирует таблицу MS Excel.

procedure TForm12Gru.xls2Click(Sender: TObject);

«Сохранить как..» → «Шаблон». Экспортирует таблицу в шаблон MS Excel shab\ ReesGrup.xls.

procedure TForm12Gru.FormClose(…);

Перезагружает главное окно для обновления названий групп.

unit Unit13 – Редактирование дисциплин;

Нет процедур.

unit Unit14 – Добавление преподавателя;

procedure TForm14AddPrep.RzButton1Click(Sender: TObject);

Добавление преподавателя в БД.

procedure TForm14AddPrep.RzEdit2KeyPress(…);

«Защита от дурака». Разрешены только буквы.

unit Unit15 – Добавление дисциплины;

procedure TForm15AddDis.RzBitBtn1Click(Sender: TObject);

Добавление дисциплины в БД.

procedure TForm15AddDis.RzEdit1KeyPress(Sender: TObject; var Key: Char);

«Защита от дурака». Разрешены только буквы.

unit Unit16 – Добавление кафедры

procedure TForm16AddKaf.RzBitBtn1Click(Sender: TObject);

Добавление кафедры в БД.

procedure TForm16AddKaf.RzEdit1KeyPress(Sender: TObject; var Key: Char);

«Защита от дурака». Разрешены только буквы.

unit Unit17 – Изменение кафедр;

Нет процедур.

unit Unit18 – Добавление специальности;

procedure TForm18AddSpec.RzButton1Click(Sender: TObject);

Добавление специальности в БД.

procedure TForm18AddSpec.RzEdit1KeyPress(…);

«Защита от дурака». Разрешены только буквы.

unit Unit19 – Изменение специальностей;

Нет процедур.

unit Unit20 – Отчет по гендерному признаку;

procedure TForm20Gender.RzBitBtn1Click(Sender: TObject);

Подставляем параметр «год» в IBPolVoz_Qu1 для получения среза контингента по гендерным признакам (пол и возраст). И создаем отчет через frxReport1. Скорее всего, будет удаляться, ибо есть гибкий редактор отчета.

unit Unit21 – Формирование экзаменационной ведомости;

procedure cxLookupComboBox1PropertiesCloseUp(Sender: TObject);

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

procedure cxLookupComboBox3PropertiesCloseUp(Sender: TObject);

Выбирает преподавателя, который принимал указанную форму контроля по указанным параметрам (группа, семестр, год) и передает в cxLookupComboBox3.

procedure RzBitBtn1Click(Sender: TObject);,

В зависимости от того, какая форма контроля выбрана, формируется запрос в DataSet и генерируется ведомость по соответствующему шаблону.

unit Unit22 – Отчет по гражданству;

procedure TForm22.RzBitBtn1Click(Sender: TObject);

Подставляем параметр «год» в IBGrajd_Qu для получения среза контингента по гражданству. И создаем отчет через frxReport1. Скорее всего, будет удаляться, ибо есть гибкий редактор отчета.

unit Unit23 – Отчет по району;

procedure TForm23.RzBitBtn1Click(Sender: TObject);

Подставляем параметр «год» в IBRai_Qu для получения среза контингента по гражданству. И создаем отчет через frxReport1. Скорее всего, будет удаляться, ибо есть гибкий редактор отчета.

Скачать файл