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

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

procedure TfrmReports.isfOsnClick(Sender: TObject);

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

procedure TfrmReports.isfLastEduClick(Sender: TObject);

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

procedure TfrmReports.isfLabelsClick(Sender: TObject);

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

procedure TfrmReports.isfNoZachClick(Sender: TObject);

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

procedure TfrmReports.isFullGroupsClick(Sender: TObject);

Если стоит галочка «..по всем группам» в области «ИСКАТЬ», сделать активным выпадающее меню групп.

procedure TfrmReports.isFullLevelClick(Sender: TObject);

Если стоит галочка «..по всем уровням» в области «ИСКАТЬ», сделать активным выпадающее меню уровней обучения.

procedure TfrmReports.isFullOsnClick(Sender: TObject);

Если стоит галочка «..по всем основам» в области «ИСКАТЬ», сделать активным выпадающее меню основ обучения.

procedure TfrmReports.isFullAgeClick(Sender: TObject);

Если стоит галочка «..по всем возрастам» в области «ИСКАТЬ», сделать активным поля ввода возрастов «от» и «до».

procedure TfrmReports.btnLETSDOTHISClick(Sender: TObject);

По нажатию на кнопку «Сформировать» в компоненте IBGankPlank формируется запрос в зависимости от параметров, выбранных в областях «метки» и «искать». Затем проверяется, отображать ли столбцы с метками (по аналогии с isfLabelsClick()) и открывается вкладка с результатами.

procedure TfrmReports.RzBitBtn1Click(Sender: TObject);

Простой экспорт в MS Excel через буфер. Если не работает (ошибка PasteSpecial), то проблема  MS Excel.

procedure TfrmReports.RzBitBtn2Click(Sender: TObject);

Здесь пытался работать с буфером MS Excel по-другому, но в итогах забил. Простой экспорт. Не привязана ни к одному UI.

procedure TfrmReports.isRealClick(Sender: TObject);

Птичка «Реально обучается» в области «Метки». Процедура нужна, чтобы исключить противоречия. Если стоит галочка стоит - снимает галочки «В академ. отпуске» и «Отчислен», делаем их неактивными.

procedure TfrmReports.FormCreate(Sender: TObject);

При запуске формы делает активной первую вкладку – «Настройки». А то мало ли что я поправлю, и придется перекомпилировать проект из-за всяких пустяков.

procedure TfrmReports.isfStrahPolisClick(Sender: TObject);

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

unit Unit25 – Модуль для документов;

Сразу скажу, что этот модуль был экспериментальным. Идея была в том чтобы сканировать документы и держать сканы в БД (вернее в связке БД+ФС). Однако идея никакого подтверждения и поддержки со стороны деканов и деканатов не нашла. Этот модуль писалася одним из студентов на диплом. Дипломом и закончился. Но, дабы не вносить элемент мистики в программу, модуль решил задокументировать.

procedure TForm25.Button1Click(Sender: TObject);

При нажатии на кнопку запуск считывает группу из DBLookupComboBox1. Располагает в столбцах семестры, в строках бюджетные места а на пересечении ФИО студентов.

procedure TForm25.StringGrid1SelectCell(…);

При щелчке на ячейку определяет что это за студент по координатам мыши (!!)  и вываливает контекстное меню с пунктами «приказ о поступлении» и «приказ о отчислении».

procedure TForm25.a1Click(Sender: TObject);

«Приказ о поступлении» - открыть приказ о зачислении на бюджетное места.

procedure TForm25.N11Click(Sender: TObject);

«Приказ об отчислении» - открыть приказ об отчислении.

unit OneHinst – Модуль, запрещающий

повторный  запуск приложения;

Этот модуль тинициализируется первым. Его задача – создать объект ядра (Mutex) с уникальным именем и уничтожить его по завершению (даже аварийному) приложения.

Отрабатывает на этапе ИНИЦИАЛИЗАЦИИ модуля в проекте.

function StopLoading : boolean;

Создает Mutex с использованием в качестве уникального имени полный путь exe-файла. Если создать не получилось возвращает ЛОЖЬ.

procedure ShowErrMsg;

Процедура выводит сообщение об ошибке. Дескать «Окстись! Программа запущена уже!».

Скачать файл