ані. MainMenu - дозволяє перейти на головну форму. Button1 і Button2 відкривають запити ADOQuery1 (для списку студентів групи) і ADOQuery2, ADOQuery3 (Для відображення успішності групи) і відображає дані у вигляді звіту (frxReport1 і frxReport2). Для передачі даних в звіт використовується frxDBDataSet.
Малюнок 5.12.1 - Форма Група
Для компонента ADOQuery1 задається наступне SQL-запит:
Select Famailiya, Imya, Otchestvo, Data_rStudentBY Famailiya, Imya, Otchestvo
Перед відкриттям запиту передається параметр про поточну групі. Після формування звіту користувачеві відображається звіт про список студентів групи (малюнок 5.12.2).
Малюнок 5.12.2 - Звіт Список групи
Для компонента ADOQuery2 задається наступне SQL-запит:
Select Gruppa.Nazvanie, (Select Count (*) FROM Student WHERE Pol= Чоловік and Student.Id_gruppi=Gruppa.Id_gruppi) AS Unoshi,
(Select Count (*) FROM Student WHERE Pol= Дружин and Student.Id_gruppi=Gruppa.Id_gruppi) AS Devus,
(Select Count (*) FROM Student WHERE Student.Id_gruppi=Gruppa.Id_gruppi) AS VsegoStudent INNER JOIN Gruppa ON Student.Id_gruppi=Gruppa.Id_gruppiby Gruppa.Nazvanie, Gruppa.Id_gruppi
Для компонента ADOQuery3 задається наступне SQL-запит:
Select (Select Count (*) FROM Student WHERE Pol= Чоловік ) AS U_all,
(Select Count (*) FROM Student WHERE Pol= Дружин ) AS D_all,
(Select Count (*) FROM Student) AS All_ Student
ADOQuery2 формує дані про статистику по кожній групі, а ADOQuery3 формує підсумовуючу інформацію. Перед відкриттям запитів передається параметр про поточну групі. Після формування звіту користувачеві відображається звіт про статистику груп (малюнок 5.12.3).
Малюнок 5.12.3 - Звіт Статистика груп
Висновок
Ця курсова робота є актуальною і відповідає пред'явленим до неї вимогам. У ході роботи була розроблена база даних, що автоматизує роботу співробітника деканату.
Програма призначена для ведення в бази даних. У ній користувачеві пропонуються наступні можливості: вести облік успішності студентів, а також отримувати звіти про поточний стан справ у розрізі предметів, груп; облік викладачів на кафедрі, а так само идентифицирующая інформація про посаду викладачів.
Список використаної літератури
1. Бази даних: моделі, розробки, реалізація/Т.С. Карпова.- СПб .: Питер, 2002.
2. Робота з базами даних в Delphi./Гофман В.Е., Хомоненко А.Д.- СПб .: БХВ - Петербург, 2000. - 656с .: ил.
3. Бази даних: Підручник для вузів/Під ред. проф. А.Д. Хомоненко.- СПб. КОРОНА принт, 2004
Додаток А
Загальна блок-схема програми
Процедура Робота з даними
Процедура Пошук
Додаток Б
Лістинг програми
Форма Головна
Main ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, StdCtrls;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem;:TMenuItem ;: TButton ;: TButton ;: TButton ;: TButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; N2Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click ( Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender:TObject); N9Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Stud, Gruppa, Predmet, Spec, Ocenka, Prepod, Kafedra, Dolzh;
{$ R * .dfm} TForm1.N2Click (Sender: TObject) ;. Hide; .Show ;; TForm1.N3Click (Sender: TObject) ;. Hide; .Show ;; TForm1.N4Click (Sender: TObject) ;. Hide; .Show ;; TForm1.N5Click (Sender: TObject) ;. Terminate ;; TForm1.N6Click (Sender: TObject) ;. Hide; .Show ;; TForm1.N7Click (Sender: TObject) ; .Hide; .Show ;; TForm1.N8Click (Sender: TObject) ;. Hide; .Show ;; TForm1.N9Click (Sender: TObject) ;. Hide; .Show ;; TForm1.Button1Click (Sender: TObject) ;. Hide; .Show ;; TForm1.Button2Click (Sender: TObject) ;. Hide; .Show ;; TForm1.Button3Click (Sender: TObject) ;. Hide; .Show ;; TForm1.Button4Click (Sender: TObject) ;. Hide;.Show ;;.
<...
