justify"> 5.7 Форма Предмет
Створюється нова форма. На малюнку 5.7 приведена форма програми - Викладачі (несе інформацію про викладачів). На ній розташовані наступні компоненти: поле - DBEdit1 (таблиця Предмет ), компоненти DBNavigator1, що дозволяють користувачеві переміщатися по записах в таблиці і змінювати їх. label1 відображає на формі напис Назва .
Малюнок 5.7 - Форма Предмет
. 8 Форма Кафедра
Створюється нова форма. На малюнку 5.8 приведена форма програми - Кафедра (несе інформацію про кафедрах). На ній розташовані наступні компоненти: таблиця - DBGrid1 (таблиця Кафедра ), компоненти DBNavigator1, що дозволяють користувачеві переміщатися по записах в таблиці і змінювати їх.
Малюнок 5.8 - Форма Кафедра
5.9 Форма Посади
Створюється нова форма. На малюнку 5.9 приведена форма програми - Посади (несе інформацію про посади). На ній розташовані наступні компоненти: таблиця - DBGrid1 (таблиця Посади ), компоненти DBNavigator1, що дозволяють користувачеві переміщатися по записах в таблиці і змінювати їх.
Малюнок 5.9 - Форма Посади
. 10 Форма Переклад студента в групу
Створюється нова форма. На малюнку 5.10 наведена форма програми - Переклад студента в групу raquo ;. На ній розташовані наступні компоненти: таблиця - DBLookupComboBox1 (список груп); компонент label1, що відображає напис Вкажіть назву групи raquo ;; кнопка здійснює зміну даних.
Малюнок 5.10 - Форма Переклад студента в групу
Для компонента ADOQuery1 задається наступне SQL-запит:
Update Student Set Id_gruppi= + IntToStr (DBLookupComboBox1.KeyValue) + Where Student.id_student= + Form2.DBGrid1.DataSource.DataSet.FieldByName ( id_student ). AsString);
Перед виконанням запиту передаються параметри про поточний студенті на формі Студенти і нову обрану групу.
. 11 Форма Оцінка
Створюється нова форма. На малюнку 5.11 наведена форма програми - Екзаменаційні оцінки (несе інформацію про оцінки). На ній розташовані наступні компоненти: DBLookupComboBox1 відображає дані про групу, DBLookupComboBox2 відображає дані про предмет, DateTimePicker дозволяє вибрати часовий діапазон для звітів; компоненти DBNavigator1, що дозволяють користувачеві видаляти дані. MainMenu - дозволяє перейти на головну форму. Button и відкривають запити ADOQuery (для звітів) та відображають дані у вигляді звіту (frxReport). Для передачі даних в звіт використовується frxDBDataSet.
Малюнок 5.11.1 - Форма Екзаменаційні оцінки
Звіти Статистика по дисципліні raquo ;, Статистика по групі raquo ;, Статистика деканату формуються на підставі однотипних запитів (малюнок 5.11.2). Обробники подій на натискання відповідних кнопок має наступний вигляд:
ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add ( Select AVG (Ocenka) AS Sred, Student.Famailiya, ); ADOQuery1.SQL.Add ( (case when AVG (Ocenka) gt;=4 and AVG (Ocenka) lt; 5 THEN Стипендія ); ADOQuery1.SQL.Add ( when AVG (Ocenka)=5 THEN Підвищена стипендія ); ADOQuery1.SQL.Add ( when AVG (Ocenka) lt; 4 THEN Без стипендії ); ADOQuery1.SQL.Add ( end) AS Стипендія ); ADOQuery1.SQL.Add ( From Ocenka INNER JOIN Student ON Ocenka.id_student=Student.id_student ); ADOQuery1.SQL.Add ( WHERE Data BETWEEN: ff AND: ll ); ADOQuery1.SQL.Add ( GROUP BY Student.id_student, Student.Famailiya ); ADOQuery1.Parameters.ParamByName ( ff ). Value:=DateToStr (DateTimePicker5.Date); ADOQuery1.Parameters.ParamByName ( ll ). Value:=DateToStr (DateTimePicker6.Date); ADOQuery1.Open; frxReport2.Variables [ pred ]:=QuotedStr ( Успішність у деканаті ); frxReport2.PrepareReport; frxReport2.ShowPreparedReport; Закриття запиту Очищення Формування sql-запиту для вибірки Задаємо параметри для звіту Підготовка звіту Відкриття звіту
Малюнок 5.11.2 - Звіт Успішність з деканату
Звіт про успішність групи має наступний вигляд:
Малюнок 5.11.3 - Звіт Успішність по групі
. 12 Форма Група
Створюється нова форма. На малюнку 5.12.1 наведена форма програми - Група (несе інформацію про групах). На ній розташовані наступні компоненти: DBLookupComboBox1 відображає дані про спеціальності, до якої ставитися група, поле - DBEdit (таблиця Група ), компоненти DBNavigator1, що дозволяють користувачеві видаляти д...
