stify"> Встановимо властивість Connected в компоненті IBConnection1в True (як показано малюнку 3).
Малюнок 3 - У властивості Connected міняємо замість True на False
У разі успіху властивість безперешкодно встановиться в True. У Випадку помилки необхідно перевірити ім'я користувача, пароль, шлях до бази.
Задаємо у властивості SQLQuery1
Database IBConnection1 Transaction SQLTransaction1 SQL select * from vrah InsertSQL insert into vrah (FIOvrah, spec) values ??(: FIOvrah,: spec) DeleteSQL delete from vrah where IDvrah =: IDvrah UpdateSQL update vrah set IDvrah =: IDvrah, FIOvrah =: FIOvrah, spec =: spec where IDvrah =: OLD_IDvrah
Задаємо у властивості DataSource1
DataSet SQLQuery1
Задаємо у властивості SQLQuery2
Database IBConnection1 Transaction SQLTransaction1 DataSource DataSource1 SQL select * from pacient InsertSQL insert into pacient (FIOpacient, pegnom, adres, dt, nompol) values ??(: FIOpacient,: pegnom,: adres,:dt,: nompol) DeleteSQL delete from pacient where IDpacient =: IDpacient UpdateSQL update pacient set IDpacient =: IDpacient, FIOpacient= : FIOpacient, pegnom =: pegnom, adres =: adres, dt =: dt, nompol =: nompol where IDpacient =: OLD_IDpacient
Задаємо у властивості DataSource1
DataSet SQLQuery2
Решта SQLQuery і DataSource робляться аналогічним чином.
.2 Створення подій
Задаємо подія OnCreate в модулі даних DataModule1
procedure TDataModule1. DataModuleCreate (Sender: TObject) ;. Open ;;
Задаємо подія AfterConnect в компоненті IBConnection1TDataModule1.IBConnection1AfterConnect (Sender: TObject) ;. Open ;. Open ;. Open ;. Open ;. Open ;. Open ;;
Задаємо подія AfterOpen в компоненті SQLQuery1
Procedure TDataModule1.SQLQuery1AfterOpen (Sender: TDataSet) ;. Open ;;
Задаємо подія BeforeDisconnect в компоненті IBConnection1
procedure TDataModule1.IBConnection1BeforeDisconnect (Sender: TObject) ;. Close ;. Close ;. Close ;. Close ;. Close ;. Close ;;
Задаємо подія BeforeClose, загальне для компонентів SQLQuery1і SQLQuery2
procedure TDataModule1.SQLQuery1BeforeClose (DataSet: TDataSet); TSQLQuery (Dataset) .State in [dsInsert, dsEdit] TSQLQuery (Dataset) .Post ;;
Задаємо подія OnClose форми в Form1
procedure TForm1. FormClose (Sender: TObject; var CloseAction: TCloseAction) ;. SQLTransaction1. Commit; .IBConnection1. Close ;;
Задаємо подія OnNewRecord в компонента SQLQuery1
procedure TDataModule1.SQLQuery1NewRecord (DataSet: TDataSet) ;. FieldByName ( IDvrah ). AsInteger:=0 ;;
Задаємо подія OnNewRecord в компонента SQLQuery2
procedure TDataModule1.SQLQuery2NewRecord (DataSet: TDataSet) ;. FieldByName ( IDpacient ). AsInteger:=0 ;;
Задаємо подія After Post в компоненті SQLQuery1
procedure TDataModule1.SQLQuery1AfterPost (DataSet: TDataSet); (Dataset) .ApplyUpdates ;;
Решта SQLQuery робляться аналогічним чином.
.3 Додавання компонентів на Form1
Додамо у вкладки Standard на форму два компоненти TPanel. Додамо у вкладки Data Controls на TPanel чотирьох TDBGrid. Додамо зі вкладці Data Controls чотири компоненти TDBNavigator (як показано малюнку 4).
Задаємо властивість для Panel1 і Panel2
Align alTop Height 224
Задаємо властивість для DBNavigator1 і DBNavigator2
DataSource DataModule1. DataSource1 (DataModule1. DataSource2)
Задаємо властивість для DBGrid1 і DBGrid2
DataSource DataModule1. DataSource1 (DataModule1. DataSource2)
Решта DBNavigator і DBGrid задаються аналогічний чином.
Малюнок 4 -
