quo;).Value;_2:=DataModule2.Table3.FieldByName(laquo;DCoderaquo;).Value;_text:=laquo;Insert into Examination values(raquo;+inttostr(code_2)+laquo;,raquo;+inttostr(code_1)+laquo;,raquo;+quotedstr(Edit1.text)+laquo;,raquo;+quotedstr(Edit2.text)+laquo;,raquo;+quotedstr(Edit3.text)+laquo;)raquo;;.Query1.SQL.Clear;.Query1.SQL.Add(SQL_text);.Query1.ExecSQL;.Table5.Refresh;.Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;; end;
При формуванні Звіту (report) такоже вікорістовуємо SQL запит та компонент Query1.GName, GNum, DName, EData, ETime, EPlaceExamination E INNER JOIN Discipline D ON E.DCode=D.DCode INNER JOIN Group G ON E.GCode=G.GCodeBYGName, GNum, DName, EData, ETime, EPlace
Опис даного запиту в термінах реляційної алгебри:
6. Описание функціональніх залежних
Татбліця Speciality: gt; SName
Таблиця Group: gt; GName, GNum
Таблиця Examination:, GCode- gt; EData, ETime, EPalce
Таблиця Discipline: gt; DName
Таблиця Teacher: gt; TName, TPost
7. Описание Структури програми
Файл проекту Project1.dprмістіть 12 програмних модулів: -модуль містіть форму перегляду таблиць Speciality та Group.-модуль даніхDataModule2.
Unit3-модуль містіть форму перегляду табліці Examination.-форма для Додавання або редагування даних табліці спеціальностей.-модуль головної формі.- модуль містіть форму перегляду таблиць Discipline та Teacher.-форма для Додавання або редагування даних табліці дісціпліна.-форма для Додавання або редагування даних табліці іспіт.-форма для Додавання або редагування даних табліці група.- форма для звіту.-форма для SQLзапітів.-форма для Додавання або редагування даних табліці викладачі.
Рис. 10 - Взаємодія програмних модулів
8. Описание реализации проекту бази даних
8.1 Заповнення таблиць бази даних
Для Заповнення таблиць спочатку Відкриваємо Tools/DatabaseDesktop. Далі Обираємо «File» та команду «Open/Table» и Відкриваємо таблицю. Переходимо у режим редагування «Table/Restructure» та вносяться дані в таблицю.
Рис. 11
8.2 Визначення цілісності ПОСИЛАННЯ между таблицю бази даних
Для визначення цілісності ПОСИЛАННЯ Відкриваємо підпорядковану таблицю та Заходимо в режим реструктуризації «Table/Restructure». У списку Tableproperties Обираємо елемент ReferentialIntegrity та натіскаємо кнопку Define. У вікні, что відкрілося показані дві списки: Fields та Table. УспіскуFields вказані поля табліці, якові мі відкрілі; у списку Table вказані всі табліці Нашої бази даних. Зі списку Fields Обираємо поле, что є зовнішнім ключем табліці, якові мі відкрілі та ставімие Йому у відповідність поле, что є таблицею, для якої избран ключ є первинний:
Рис. 12
8.3 Розробка програми
Рис. 13 - Ієрархія форм! Застосування
Головна форма програми
На головній форме програми розташовані кнопки, Завдяк Яким можна здійсніті Переход на Інші форми для перегляду основної таблиці бази даних, а такоже для перегляду Звіту.
Рис. 14
procedure TForm5.Button6Click (Sender: TObject) ;;
end; TForm5.Button1Click (Sender: TObject) ;. Show ;; TForm5.Button2Click (Sender: TObject) ;. Show ;; TForm5.Button3Click (Sender: TObject) ;. Show; .GroupBox2.Visible:=False; .GroupBox1.Visible:=False ;; TForm5.Button7Click (Sender: TObject) ;. show ;; TForm5.Button4Click (Sender: TObject) ;. Show; .GroupBox2.Visible:=False; .GroupBox1.Visible:=True ;; TForm5.Button5Click (Sender: TObject) ;. Show; .QuickRep1.Preview; end;
Форма Спеціальність - Група.
Дана форма має две табліці та возможности редагування, а сама додаваті, змінюваті або відаляті дані.
Рис. 15
procedure TForm1.Button1Click (Sender: TObject) ;. Show; .Table1.Insert ;; TForm1.Button3Click (Sender: TObject) ;. Show; .Table1.Edit ;; TForm1.Button2Click (Sender:TObject) ;. Table1.Delete ;; TForm1.Button7Click (Sender: TObject) ;;; TForm1.Button4Click (Sender: TObject) ;. Show; .Table2.Insert ;; TForm1.Button5Click (Sender: TObject) ;. Show ; .Table2.Edit ;; TForm1.Button6Click (Sender: TObject) ;. Table2.Delete ;;
Форми для редагування даних:
Рис. 16 ...
