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

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.