object qAdress: TIBQuery
  Database = DB
  Transaction = trAdress
  Active = True
  BufferChunks =  1000 
  CachedUpdates = False
  SQL.Strings = (
    'select * from "Adress"'
    'order by "aFullName"')
  UpdateObject = upAdress
end
object trAdress: TIBTransaction
  Active = True
  DefaultDatabase = DB
  AutoStopAction = saNone
end

procedure TForm1.Button2Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.Open

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
qAdress.Close;
qAdress.Open
end;

object qAdress: TIBQuery
  Database = DB
  Transaction = trAdress
  AfterPost = qAdressAfterPost
  Active = True
  BufferChunks =  1000 
  CachedUpdates = False
  SQL.Strings = (
    'select * from "Adress"'
    'order by "aFullName"')
  UpdateObject = upAdress
  Left =  200 
  Top =  85 
end
object trAdress: TIBTransaction
  Active = True
  DefaultDatabase = DB
  DefaultAction = TACommitRetaining  
  AutoStopAction = saNone
  Left =  174 
  Top =  35 
end
object IBQuery1: TIBQuery
  Database = DB
  Transaction = IBTransaction1
  Active = True
  BufferChunks =  1000 
  CachedUpdates = False
  SQL.Strings = (
    'select * from "Adress"'
    'order by "aFullName"')
  UpdateObject = IBUpdateSQL1
  Left =  245 
  Top =  85 
end
object IBTransaction1: TIBTransaction
  Active = True
  DefaultDatabase = DB
  DefaultAction = TACommitRetaining
  AutoStopAction = saNone
  Left =  214 
  Top =  35 
end

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, IBDatabase, IBCustomDataSet, IBUpdateSQL, DB,
  IBQuery, StdCtrls;

type
  TForm1 = class(TForm)
    DB: TIBDatabase;
    dsAdress: TDataSource;
    qAdress: TIBQuery;
    trAdress: TIBTransaction;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    IBQuery1: TIBQuery;
    IBTransaction1: TIBTransaction;
    DBGridEh2: TDBGridEh;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    upAdress: TIBUpdateSQL;
    IBUpdateSQL1: TIBUpdateSQL;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure qAdressAfterPost(DataSet: TDataSet);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.Open

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
qAdress.Close;
qAdress.Open

end;


procedure TForm1.qAdressAfterPost(DataSet: TDataSet);
begin
///trAdress.commit
//  trAdress.CommitRetaining
end;

object DB: TIBDatabase
  Connected = True
  DatabaseName = 'D:\DataBase\Oblik\REINSUR.GDB'
  Params.Strings = (
    'lc_ctype=WIN1251'
    '')
  LoginPrompt = true
  IdleTimer =  0 
  SQLDialect =  3 
  TraceFlags = []
  Left =  30 
  Top =  15 
end
object dsAdress: TDataSource
  DataSet = qAdress
  Left =  620 
  Top =  110 
end
object qAdress: TIBQuery
  Database = DB
  Transaction = trAdress
  AfterPost = qAdressAfterPost
  BufferChunks =  1000 
  CachedUpdates = False
  SQL.Strings = (
    'select * from "Adress"'
    'order by "aFullName"')
  UpdateObject = upAdress
  Left =  200 
  Top =  85 
end
object trAdress: TIBTransaction
  Active = False
  DefaultDatabase = DB
  AutoStopAction = saNone
  Left =  199 
  Top =  50 
end
object DBGridEh1: TDBGridEh
  Left =  10 
  Top =  140 
  Width =  341 
  Height =  256 
  DataSource = dsAdress
  FooterColor = clWindow
  FooterFont.Charset = DEFAULT_CHARSET
  FooterFont.Color = clWindowText
  FooterFont.Height = - 11 
  FooterFont.Name = 'MS Sans Serif'
  FooterFont.Style = []
  TabOrder =  0 
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = - 11 
  TitleFont.Name = 'MS Sans Serif'
  TitleFont.Style = []
end
object DataSource1: TDataSource
  DataSet = IBQuery1
  Left =  500 
  Top =  80 
end
object IBQuery1: TIBQuery
  Database = DB
  Transaction = IBTransaction1
  BufferChunks =  1000 
  CachedUpdates = False
  SQL.Strings = (
    'select * from "Adress"'
    'order by "aFullName"')
  UpdateObject = IBUpdateSQL1
  Left =  300 
  Top =  85 
end
object IBTransaction1: TIBTransaction
  Active = False
  DefaultDatabase = DB
  AutoStopAction = saNone
  Left =  299 
  Top =  50 
end
object DBGridEh2: TDBGridEh
  Left =  355 
  Top =  145 
  Width =  316 
  Height =  231 
  DataSource = DataSource1
  FooterColor = clWindow
  FooterFont.Charset = DEFAULT_CHARSET
  FooterFont.Color = clWindowText
  FooterFont.Height = - 11 
  FooterFont.Name = 'MS Sans Serif'
  FooterFont.Style = []
  TabOrder =  1 
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = - 11 
  TitleFont.Name = 'MS Sans Serif'
  TitleFont.Style = []
end
object Button1: TButton
  Left =  50 
  Top =  95 
  Width =  75 
  Height =  25 
  Caption = 'Button1'
  TabOrder =  2 
  OnClick = Button1Click
end
object Button2: TButton
  Left =  355 
  Top =  100 
  Width =  101 
  Height =  26 
  Caption = 'Button2'
  TabOrder =  3 
  OnClick = Button2Click
end
object upAdress: TIBUpdateSQL
  RefreshSQL.Strings = (
    'Select     '
    'GEN_ID("GEN_Adress_ID",0),'
    '"aFullName",'
    '  "aAdress" '
    'from "Adress" '
    'where '
    '"ID_Adr" = :ID_Adr ')
  ModifySQL.Strings = (
    'update "Adress"'
    'set'
    '   "aFullName" = :aFullName ,'
    '  "aAdress" = :aAdress'
    'where'
    '  "ID_Adr" = :OLD_ID_Adr')
  InsertSQL.Strings = (
    'insert into "Adress"'
    '  ( "aFullName", "aAdress")'
    'values'
    '  (  :aFullName,  :aAdress )'
    ''
    '')
  DeleteSQL.Strings = (
    'delete from "Adress"'
    'where'
    '  "ID_Adr" = :OLD_ID_Adr '
    
      'and not "ID_Adr" in (SELECT DISTINCT "ID_Adr"  FROM  "Negotiatio' +
      'n")')
  Left =  495 
  Top =  35 
end
object IBUpdateSQL1: TIBUpdateSQL
  RefreshSQL.Strings = (
    'Select     '
    'GEN_ID("GEN_Adress_ID",0),'
    '"aFullName",'
    '  "aAdress" '
    'from "Adress" '
    'where '
    '"ID_Adr" = :ID_Adr ')
  ModifySQL.Strings = (
    'update "Adress"'
    'set'
    '   "aFullName" = :aFullName ,'
    '  "aAdress" = :aAdress'
    'where'
    '  "ID_Adr" = :OLD_ID_Adr')
  InsertSQL.Strings = (
    'insert into "Adress"'
    '  ( "aFullName", "aAdress")'
    'values'
    '  (  :aFullName,  :aAdress )'''
    '')
  DeleteSQL.Strings = (
    'delete from "Adress"'
    'where'
    '  "ID_Adr" = :OLD_ID_Adr '
    
      'and not "ID_Adr" in (SELECT DISTINCT "ID_Adr"  FROM  "Negotiatio' +
      'n")')
  Left =  425 
  Top =  30 
end