Распределенная реляционная база данных учебной части (составления расписания)

Содержание
1. Постановка задачи
2. Описание структуры и функционирования
3. UML-диаграммы
4. Модель «сущность-связь»
5. Описание программы
6. Выводы
7. Приложение
8. Список использованной литературы

dfm}procedure TForm1.FormCreate(Sender: TObject);begin //Form1.Visible:=false; ZConnection1.LibraryLocation:='D:\Program Files\MySQL\MySQL Workbench 6.3 CE\libmysql.dll'; ZConnection1.Protocol:='mysql'; ZConnection1.User:='root'; ZConnection1.Password:='1112'; ZConnection1.HostName:='localhost'; ZConnection1.Database:='shedule'; ZQuery1.Connection:=ZConnection1; ZQuery1.SQL.Add('SELECT t.t_n,t1g.l1g,t1g.l2g,t1g.l3g,t1g.l4g,t1g.l5g,t2g.l1g,t2g.l2g,t2g.l3g,t2g.l4g,t2g.l5g,t3g.l1g,t3g.l2g,t3g.l3g,t3g.l4g,t3g.l5g,t4g.l1g,t4g.l2g,t4g.l3g,t4g.l4g,t4g.l5g,t5g.l1g,t5g.l2g,t5g.l3g,t5g.l4g,t5g.l5g'+' FROM t1g,t2g,t3g,t4g,t5g,t WHERE t.t_id=t1g.t_id OR t2g.t_id=t.t_id'); DataSource1.Dataset:=ZQuery1; //ZQuery1.State:=dsEdit; ZConnection1.Connect; zQuery1.Open; ZQuery1.Edit;ZQuery1.ClearFields; zQuery1.Close;end;procedure TForm1.Button1Click(Sender: TObject);begin Form2.Visible:=true;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DBTables, DB, Grids, DBGrids, StdCtrls, Buttons, ComCtrls;type TForm2 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; b_New1: TBitBtn; b_Refresh1: TBitBtn; DBGrid1: TDBGrid; TabSheet2: TTabSheet; b_Refresh2: TBitBtn; b_New2: TBitBtn; DBGrid2: TDBGrid; TabSheet3: TTabSheet; DBGrid3: TDBGrid; b_New3: TBitBtn; b_Refresh3: TBitBtn;b_Exit: TBitBtn; Table1: TTable; Query1: TQuery; MainMenu1: TMainMenu; PopupMenu1: TPopupMenu; Button1: TButton;procedure b_New1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form2: TForm2;implementationuses Unit5;{$R *.dfm}procedure TForm2.b_New1Click(Sender: TObject);begin Form2.Visible:=false; Form5.Visible:=true;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm3 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Edit1: TEdit; ListBox1: TListBox; TrackBar1: TTrackBar; ComboBox1: TComboBox; ComboBox2: TComboBox; Button1: TButton;private{ Private declarations }public{ Public declarations }end;var Form3: TForm3;implementation{$R *.dfm}end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;type TForm4 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit;Edit3: TEdit; Edit4: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn;private{ Private declarations }public{ Public declarations }end;var Form4: TForm4;implementation{$R *.dfm}end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ZDataset, DB, ZAbstractConnection,ZConnection, ZAbstractRODataset, ZAbstractDataset, ZAbstractTable;type TForm5 = class(TForm) Label1: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; ZTable1: TZTable; ZConnection1: TZConnection; DataSource1: TDataSource; ZQuery1: TZQuery;procedure BitBtn1Click(Sender: TObject); //procedure RefreshDataSet(DataSet: TZQuery);private{ Private declarations }public{ Public declarations }end;var Form5: TForm5;implementation{$R *.dfm}procedure TForm5.BitBtn1Click(Sender: TObject);begin ZConnection1.LibraryLocation:='D:\Program Files\MySQL\MySQL Workbench 6.3 CE\libmysql.dll'; ZConnection1.Protocol:='mysql'; ZConnection1.User:='root'; ZConnection1.Password:='1112'; ZConnection1.HostName:='localhost'; ZConnection1.Database:='shedule'; ZQuery1.Connection:=ZConnection1; //ZQuery1.SQL.Add('INSERT INTO t(t_n) VALUES("'+Edit1.Text+'");'); ZQuery1.SQL.Text:='INSERT INTO t(t_n) VALUES("'+Edit1.Text+'");'; DataSource1.Dataset:=ZQuery1; //ZQuery1.State:=dsEdit; ZConnection1.Connect; //RefreshDataSet(ZQuery1); //zQuery1.Open;if zQuery1.Active then zQuery1.Refreshelse zQuery1.Open; zQuery1.ExecSQL; ZQuery1.Edit; zQuery1.Close; ZConnection1.Disconnect; ZQuery1.ClearFields;end;{*procedure RefreshDataSet(DataSet: TZQuery);beginifDataSet.Active thenDataSet.RefreshelseDataSet.Open;end;*}end.8. Список использованной литературыГрейдиБуч, / UML. Руководство пользователя, Wesley , 1999, 257 стр.http://stackoverflow.com3. http://msdn.microsoft.com4. http://forum.sourses.ru5.http://wwwprogrammersforum.ru6.http://www.functionx.com7.Коннолли Т., Бегг К. / Базы данных: проектирование, реализация и сопровождение. Теория и практика. 3-е изд.: Пер. с англ. – М.: Издательский дом «Вильямс», 2003. – 1440 с.9. Калашян А.Н., Калянов Г.Н. / Структурные модели бизнеса: DFD-технологии. – М.: Финансы и статистика, 2005.10. Вендров А. / CASE-технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 200511. Фаулер М. / UML. Основы, 3-е издание. – Пер. с англ. – СПб: Символ-Плюс, 2006. – 192 с., ил.12. Артем Зубов / Программирование на DELPHI. Трюкииэффекты. Питер. 2004. – 403с.13.Архангельский А.Я. /Delphi 7. Справочноепособие. Бином-Пресс.708 с.