procedure TForm4.Button1Click (Sender: TObject) ;. Table1.Post ;;; TForm4.Button2Click (Sender: TObject) ;. Table1.Cancel ;;;
Форма дисципліна - Викладачі
Дана форма має две табліці та возможности редагування, а сама додаваті, змінюваті або відаляті дані.
Рис. 17
Форми редагування даних:
Рис. 18
Форма Іспит
Дана форма є проміжною таблицею. Дану таблицю ми заповнюємо помощью таблиць Група и дисципліна та вносяться дані про дату, годину та місце проведення іспіту, а такоже маємо змогу редагування табліці.
Рис. 19
procedure TForm3.Button2Click (Sender: TObject) ;. Table5.Delete ;; TForm3.Button1Click (Sender: TObject);_1,code_2:integer;_text,text:string;_1:=DataModule2.Table2.FieldByName(laquo;GCoderaquo;).Value;_2:=DataModule2.Table3.FieldByName(laquo;DCoderaquo;).Value;:=Edit1.Text;_text:=laquo;InsertintoExamination 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 ;;;
Форма для редагування даних:
Рис. 20
procedure TForm9.Button1Click (Sender: TObject) ;. Table5.Post ;;; TForm9.Button2Click (Sender: TObject) ;. Table5.Cancel ;;;
Форма для визначення Розкладая для певної спеціальності.
Форма помощью якої ми Можемо візначаті розклад для певної спеціальності звертаючись ее з віпадаючого списком.
Рис. 21
procedure TForm3.Button9Click (Sender: TObject); _ text: string;
begin_text:= SELECT GName, GNum, DName, EData, ETime, EPlace FROM Examination E INNER JOIN Discipline D ON E.DCode=D.DCode INNER JOIN Group G ON E.GCode=G.GCode WHERE GName= + Form3.Edit6.Text+laquo;raquo;laquo;raquo;;.Query2.SQL.Clear;.Query2.SQL.Add(sql_text);.Query2.Open;.Show;;TForm3.FormCreate(Sender: TObject); Datamodule2.Table1.Eof dobegin.Items.Add(Datamodule2.Table1.FieldByName(laquo;SNameraquo;).AsString);.Table1.Next;;;TForm3.ComboBox1Change(Sender: TObject) ;. Edit6.Text:=Combobox1.Text ;;
Результат формирование Розкладая:
Рис. 22
Форма DataModule.
Дана форма містіть усі! застосування компонентів програм, а самє Такі компоненти, як Table, DataSource та Query.
Рис. 23
Форма Звіт.
Для создания Розкладая Екзаменаційної через звіт вікорістовуємо компоненти вкладки QReport.
Рис. 24
Для формирование Розкладая задаємо SQLзапіт.TForm10.FormActivate (Sender: TObject); _ text: string;
begin_text:= SELECT GName, GNum, DName, EData, ETime, EPlace FROM Examination E INNER JOIN Discipline D ON E.DCode=D.DCode INNER JOIN Group G ON E.GCode=G.GCodeORDER BY GName, GNum, DName, EData, ETime, EPlace raquo ;;. Query1.SQL.Clear; .Query1.SQL.Add (sql_text) ;. Query1.Open ;;
Расписание Екзаменаційної Сесії:
Рис. 25
Список використаної літератури
1. Архангельський А.Я. Програмування в Delphi для Windows.-М .: ТОВ «Біном-Пресс», 2003. - +1152 с.
. Дарахвелидзе П.Г., Марков Є.П. Програмування в Delphi. 7- СПб .: БХВ-Петербург, 2003. - 784 с.
. Дейт К.Дж. Введення в системи баз даних, 7-е видання.- М .: Видавничий дім «Вільямс», 2001. - тисяча сімдесят два с.
. Гайна Г.А. Основіпроектування баз даних: Навчальнійпосібнік.- К .: Кондор, 2008. - 200 с.
. Гарсіа-Моліна Г., Ульман Дж., Уідом Дж. Системи баз даних. Повний курс - М .: «Вільямс», 2003. - тисяча вісімдесят-вісім с.
. Кандзюба С.П., Громов В.Н. Delphi 6/7. Бази даних і додатки. Лекції і вправи.- СПб .: ТОВ «ДиаСофтЮП», 2005. - 576 с.
. Конноллі Т., Бегг К. Бази даних. Проектування, реалізація і супровід. Теорія і практика. Третій.- М .: Видавничий дім «Вільямс», 2003. - 1440 с.
8. Понамарьов В. Бази даних в Delphi 7. Самовчитель.- СПб .: «ПІТЕР», 2003. - 224 с.
. Шумаков П.В., Фаронов В.В. Delphi 5. Керівництво розробника баз даних.-...
