Распределенная реляционная база данных авторемонтного предприятия

Оглавление
1 Постановка задачи 3
2 Описание структуры и функционирования предприятия 5
3 UML-диаграммы 7
4 Инфологическая модель «сущность-связь» БД предприятия 10
4 Реляционная модель БД. Декомпозиция БД предприятия на локальные базы данных 13
5 Описание программ (принцип действия, визуальные формы, фрагменты кода) 22
Список использованной литературы 28
Приложение 1. Таблицы БД 29
Приложение 2. Текст программы 33

MessageBox('Планненайден','Администрация',MB_OK)end;end.//БДкоммерческого отделаunitUnit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBTables, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls;type TForm4 = class(TForm) Button1: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; Label1: TLabel; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Button2: TButton; Edit1: TEdit; TabSheet2: TTabSheet; Label4: TLabel; DBGrid3: TDBGrid; DBNavigator2: TDBNavigator; Button4: TButton; Edit4: TEdit; TabSheet3: TTabSheet; Label6: TLabel; Edit5: TEdit; DBGrid4: TDBGrid; DBNavigator3: TDBNavigator; Button5: TButton;DB_COM: TDatabase; DataSource1: TDataSource; Query1: TQuery; UpdateSQL1: TUpdateSQL; DataSource3: TDataSource; Query3: TQuery; UpdateSQL2: TUpdateSQL; Query4: TQuery; DataSource4: TDataSource; UpdateSQL3: TUpdateSQL; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit4Change(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Edit5Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementation{$R *.dfm}procedure TForm4.Button1Click(Sender: TObject);begin//при закрытии формы закрываем все запросы к БД и прерываем коннекциюQuery1.Close; DBGrid1.ReadOnly:=True; DBNavigator1.Enabled:=False; Query3.Close; DBGrid3.ReadOnly:=True; DBNavigator2.Enabled:=False; Query1.Close; DBGrid4.ReadOnly:=True; DBNavigator3.Enabled:=False;DB_COM.Connected:=False; close;end;procedure TForm4.FormActivate(Sender: TObject);begin//при открытии формы открывае коннекцию к БД и все запросыDB_COM.Connected:=True; Query1.Open; DBGrid1.ReadOnly:=false; DBNavigator1.Enabled:=true; Query3.Open; DBGrid3.ReadOnly:=false; DBNavigator2.Enabled:=true; Query4.Open; DBGrid4.ReadOnly:=false; DBNavigator3.Enabled:=true;end;procedure TForm4.Button2Click(Sender: TObject);beginDB_COM.StartTransaction;Try//пытаемсяобновитьданныевБДQuery1.ApplyUpdates;DB_COM.Commit;except//в случае ошибок откатываем внесенные измененияDB_COM.Rollback; raise;end;//обновляемданныезапросомQuery1.CommitUpdates;Query1.Close;Query1.Open;end;procedure TForm4.Edit1Change(Sender: TObject);begin if Edit1.Text='' then exit; if not Query1.Active then exit; if not Query1.Locate('FIO',Edit1.Text,[loPartialKey,loCaseInsensitive])thenApplication.MessageBox('Сотрудникненайден','Коммерческийотделотдел',MB_OK)end;procedure TForm4.Edit4Change(Sender: TObject);beginif Edit4.Text='' then exit; if not Query3.Active then exit;// если в запросе находим данные по условию, вводимому в текстовой поле, - выделяем строку, иначе – выдаем сообщениеif not Query3.Locate('Name',Edit4.Text,[loPartialKey,loCaseInsensitive]) then Application.MessageBox(Компанийненайдено',Коммерческийотдел',MB_OK)end;procedure TForm4.Button4Click(Sender: TObject);beginDB_COM.StartTransaction;try//пытаемсяобновитьданныевБДQuery3.ApplyUpdates;DB_COM.Commit;Except//в случае ошибок откатываем внесенные измененияDB_COM.Rollback; raise;end;//обновляемданныезапросомQuery3.CommitUpdates;Query3.Close;Query3.Open;end;procedure TForm4.Button5Click(Sender: TObject);beginDB_COM.StartTransaction;Try //пытаемсяобновитьданныевБДQuery4.ApplyUpdates;DB_COM.Commit;Except//в случае ошибок откатываем внесенные измененияDB_COM.Rollback; raise;end;//обновляемданныезапросомQuery4.CommitUpdates;Query4.Close;Query4.Open;end;procedure TForm4.Edit5Change(Sender: TObject);beginif Edit5.Text='' then exit; if not Query4.Active then exit;// если в запросе находим данные по условию, вводимому в текстовой поле, - выделяем строку, иначе – выдаем сообщениеif not Query4.Locate('OTVETCVENNIJ',Edit4.Text,[loPartialKey,loCaseInsensitive])then Application.MessageBox('Отчетовненайдено',Коммерческийотдел',MB_OK)end;end.//БДтехническо-ремонтной службыunitUnit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBTables, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls;type TForm3 = class(TForm) Button1: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; Label1: TLabel; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Button2: TButton; Edit1: TEdit; TabSheet2: TTabSheet; Label4: TLabel; DBGrid3: TDBGrid; DBNavigator2: TDBNavigator; Button4: TButton; Edit4: TEdit; TabSheet3: TTabSheet; Label6: TLabel; Edit5: TEdit; DBGrid4: TDBGrid; DBNavigator3: TDBNavigator; Button5: TButton;DB_TRS: TDatabase; DataSource1: TDataSource; Query1: TQuery; UpdateSQL1: TUpdateSQL; DataSource3: TDataSource; Query3: TQuery; UpdateSQL2: TUpdateSQL; Query4: TQuery; DataSource4: TDataSource; UpdateSQL3: TUpdateSQL; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit4Change(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Edit5Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementation{$R *.dfm}procedure TForm3.Button1Click(Sender: TObject);begin//при закрытии формы закрываем все запросы к БД и прерываем коннекциюQuery1.Close; DBGrid1.ReadOnly:=True; DBNavigator1.Enabled:=False; Query3.Close; DBGrid3.ReadOnly:=True; DBNavigator2.Enabled:=False;Query1.Close; DBGrid4.ReadOnly:=True; DBNavigator3.Enabled:=False;DB_TRS.Connected:=False; close;end;procedure TForm3.FormActivate(Sender: TObject);begin//при открытии формы открывае коннекцию к БД и все запросыDB_TRS.Connected:=True; Query1.Open; DBGrid1.ReadOnly:=false; DBNavigator1.Enabled:=true; Query3.Open; DBGrid3.ReadOnly:=false; DBNavigator2.Enabled:=true; Query4.Open; DBGrid4.ReadOnly:=false; DBNavigator3.Enabled:=true;end;procedure TForm3.Button2Click(Sender: TObject);beginDB_TRS.StartTransaction;try//пытаемсяобновитьданныевБДQuery1.ApplyUpdates;DB_TRS.Commit;except//в случае ошибок откатываем внесенные измененияDB_TRS.Rollback;raise;end;//выгружаем данные зановоQuery1.CommitUpdates;Query1.Close;Query1.Open;end;procedure TForm3.Edit1Change(Sender: TObject);begin if Edit1.Text='' then exit; if not Query1.Active then exit;// если в запросе находим данные по условию, вводимому в текстовой поле, - выделяем строку, иначе – выдаем сообщениеif not Query1.Locate('FIO',Edit1.Text,[loPartialKey,loCaseInsensitive])thenApplication.MessageBox('Сотрудникненайден', 'Техническо-ремонтная служба',MB_OK)end;procedure TForm3.Edit4Change(Sender: TObject);beginif Edit4.Text='' then exit; if not Query3.Active then exit;// есливзапросенаходимданныепоусловию, вводимомувтекстовойполе, - выделяемстроку, иначе – выдаемсообщениеif not Query3.Locate('Name',Edit4.Text,[loPartialKey,loCaseInsensitive])then Application.MessageBox('Клиентов не найдено',Техническо-ремонтная служба',MB_OK)end;procedure TForm3.Button4Click(Sender: TObject);beginDB_TRS.StartTransaction;try//пытаемсяобновитьданныевБДQuery3.ApplyUpdates;DB_TRS.Commit;except//в случае ошибок откатываем внесенные измененияDB_TRS.Rollback;raise;end;//выгружаем данные зановоQuery3.CommitUpdates;Query3.Close;Query3.Open;end;procedure TForm3.Button5Click(Sender: TObject);beginDB_TRS.StartTransaction;try//пытаемсяобновитьданныевБДQuery4.ApplyUpdates;DB_TRS.Commit;except//в случае ошибок откатываем внесенные измененияDB_TRS.Rollback;raise;end;//выгружаем данные зановоQuery4.CommitUpdates;Query4.Close;Query4.Open;end;procedure TForm3.Edit5Change(Sender: TObject);beginif Edit5.Text='' then exit; if not Query4.Active then exit;// есливзапросенаходимданныепоусловию, вводимомувтекстовойполе, - выделяемстроку, иначе – выдаемсообщениеif not Query4.Locate('OTVETCVENNIJ',Edit4.Text,[loPartialKey,loCaseInsensitive])then Application.MessageBox('Отчетовненайдено',Техническо-ремонтнаяслужба',MB_OK)end;end.