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

ProgramАСУ «Деканат» ;

begin

{

руководство        разработчика

}

end.

procedure TForm1Main.N3Click(Sender: TObject);

Процедура завершения приложения

procedure TForm1Main.FormCreate(Sender: TObject);

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

procedure TForm1Main.N6Click(Sender: TObject);

Перейти к учебному плану

procedure TForm1Main.N10Click(Sender: TObject);

Показать преподавателей

procedure TForm1Main.N11Click(Sender: TObject);

Показать сводную ведомость

procedure TForm1Main.N12Click(Sender: TObject);

Отчет по гражданству

procedure TForm1Main.N14Click(Sender: TObject);

Отчет по полу возрасту

procedure TForm1Main.N15Click(Sender: TObject);

Отчет по национальности

procedure TForm1Main.RzBitBtn2Click(Sender: TObject); 

Кнопка «сформировать отчет по успеваемости». Сейчас ее нет но процедура осталась в в вечной памяти для возможного использовании в последствии.

procedure TForm1Main.RzBitBtn1Click(Sender: TObject);

Открываем личную карточку по нажатию на кнопку. Эта процедура не связана с UI.

--

Запрос на выборку специальности:

/* Ищет название специальности по ID группы */

SELECT specialnost.name as SPECIA

from specialnost, student, gruppa

where student.id= IntToStr(DataModule2.IBStud.FieldByName('ID').AsInteger)

and gruppa.id = student.gruppa_id

and specialnost.id = gruppa.specialnost_id

procedure TForm1Main.N17Click(Sender: TObject);

Открывает форму добавления студента

procedure TForm1Main.N18Click(Sender: TObject);

Открывает форму добавления групп

procedure TForm1Main.N36Click(Sender: TObject);

Контекстное меню для таблицы. Пункт «Копировать». Тут есть немножко примитивного мета-кода. Идея в том чтобы привязать один объект «контекстное меню» к таблицам с разными именами и вызвать метод «копироватьВбуфер». Логический аргумент в скобках означает: 1 – копируется вся таблица, 0 – только выделенная часть

procedure TForm1Main.N37Click(Sender: TObject);

Та же самая процедура что и в N36Click, но здесь копируется ВСЯ таблица.

procedure TForm1Main.N39Click(Sender: TObject);

Показывает учебный план.

procedure TForm1Main.N40Click(Sender: TObject);

Показывает текущий план.

procedure TForm1Main.N41Click(Sender: TObject);

Показывает сводную ведомость.

procedure TForm1Main.N19Click(Sender: TObject);

Открывает форму добавления преподавателя.

procedure TForm1Main.N20Click(Sender: TObject);

Открывает форму добавления дисциплины.

procedure TForm1Main.N9Click(Sender: TObject);

Открывает форму редактирования дисциплин.

procedure TForm1Main.N31Click(Sender: TObject);

Открывает форму добавления кафедры.

procedure TForm1Main.N5Click(Sender: TObject);

Открывает форму редактирования кафедр.

procedure TForm1Main.N32Click(Sender: TObject);

Открывает форму добавления специальности.

procedure TForm1Main.N4Click(Sender: TObject);

Открывает форму редактирования специальности.

procedure TForm1Main.N26Click(Sender: TObject);

Открывает форму редактирования групп.

procedure TForm1Main.TabSheet2Show(Sender: TObject);

При открытии вкладки успеваемости студента (которой нет) формируется и выполняется небольшой запрос, который получает все оценки по всем дисциплинам по всему периоду обучения студента.

procedure TForm1Main.TabSheet2Hide(Sender: TObject);

При закрытии вкладки успеваемости студента отключаем компонент с запросом на выборку оценок из процедуры  TabSheet2Show.

procedure TForm1Main.N27Click(Sender: TObject);

Открывает окно с бюджетными местами

procedure TForm1Main.N28Click(Sender: TObject);

Отчет по бюджетным местам. Процедура не привязана к UI

procedure TForm1Main.cxDBTextEdit3PropertiesChange(Sender: TObject);

Если студент не на бюджете, то высветить в поле слово Контракт

procedure TForm1Main.cxGrid1DBTableView1CustomDrawCell(…);

Здесь мы перекрашиваем отчисленных в красный а бюджетников в синий. Операция отрабатывает на прорисовке вьюшки.

procedure TForm1Main.N30Click(Sender: TObject);

«Выделить бюджетников». Ставит птичку в этом пункте меню. Потом пересовываем форму сворачиванием-разворачиванием для выполнения процедуры cxGrid1DBTableView1CustomDrawCell.

procedure TForm1Main.N35Click(Sender: TObject);

«Показать отчисленных». Вставляет в DataSet либо запрос, выбирающий всех кроме отчисленных, либо отчисленных + неотчисленных. Прерисовка сворачиваним-разворачиванием.

-Основной запрос, который фигурирует здесь:

select

s.*,

kb.nazv as BUD_PLACE,

b.last_flag as LF

from student s

left join budjet b on (b.student_id = s.id)

left join kod_budj kb on (kb.id = b.kod_id)

WHERE S.otchis_n IS NULL       --это условие находит НЕ отчисленных