SET SQL DIALECT  3 ;

SET NAMES WIN1251;

CREATE GENERATOR SPRAV1_GEN;

CREATE TABLE SPRAV1 (
    IDN     INTEGER NOT NULL,
    NAIMEN  VARCHAR( 30 ) COLLATE PXW_CYRL,
    COLICH  INTEGER
);

ALTER TABLE SPRAV1 ADD CONSTRAINT PK_SPRAV1 PRIMARY KEY (IDN);

SET TERM ^ ;

CREATE PROCEDURE SPRAV1_DEL (
    IDN INTEGER)
AS
begin
 DELETE FROM SPRAV1
  WHERE IDN = :IDN;
 POST_EVENT '001 - SPRAV CHANGED';
end
^

CREATE PROCEDURE SPRAV1_INS (
    NAIMEN VARCHAR( 30 ),
    COLICH INTEGER)
RETURNS (
    NEWIDN INTEGER)
AS
DECLARE VARIABLE VIDN INTEGER;
begin
 VIDN = gen_id(SPRAV1_GEN,  1 );
 INSERT INTO SPRAV1
  VALUES
  (
   :VIDN,
   :NAIMEN,
   :COLICH
  );
 NEWIDN = :VIDN;
 POST_EVENT '001 - SPRAV CHANGED';
end
^

CREATE PROCEDURE SPRAV1_UPD (
    IDN INTEGER,
    NAIMEN VARCHAR( 30 ),
    COLICH INTEGER)
AS
begin
 UPDATE SPRAV1
  SET
   NAIMEN = :NAIMEN,
   COLICH =:COLICH
  WHERE IDN = :IDN;
 POST_EVENT '001 - SPRAV CHANGED';
end
^

SET TERM ; ^

program pSprav;
uses
  Forms,
  Sprav in 'Sprav.pas' {frmSprav},
  aisDM in 'aisDM.pas' {DM: TDataModule};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmSprav, frmSprav);
  Application.Run;
end.

unit aisDM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, IBCustomDataSet, IBQuery, IBDatabase, IBEvents, IBStoredProc;

type
  TDM = class(TDataModule)
    aisIB: TIBDatabase;
    aisTAr: TIBTransaction;  '// Читающая'
    aisTAw: TIBTransaction; '// Пишущая'
    aisEvents: TIBEvents;
    Sprav: TIBQuery;
    srcSprav: TDataSource;
    SpravIns: TIBStoredProc;
    SpravUpd: TIBStoredProc;
    SpravDel: TIBStoredProc;
    SpravIDN: TIntegerField;
    SpravNAIMEN: TIBStringField;
    SpravCOLICH: TIntegerField;
    procedure aisEventsEventAlert(Sender: TObject; EventName: String;
      EventCount: Integer; var CancelAlerts: Boolean);
    procedure aisIBAfterConnect(Sender: TObject);
    procedure aisIBBeforeDisconnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type Modes = (myBrowse, myDelete, myEdit, myInsert);

var
  DM: TDM;
  isEnableRefr: Boolean;

implementation

{$R *.DFM}

procedure TDM.aisIBAfterConnect(Sender: TObject);
begin
  with aisEvents do
  begin
    Events.Clear;
'// Задаешь интересующие тебя события'
    Events.Add('001 - SPRAV CHANGED');
    Registered := True;
  end;
end;

procedure TDM.aisIBBeforeDisconnect(Sender: TObject);
begin
  aisEvents.Registered := False;
end;

procedure TDM.aisEventsEventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
var
  actIndex, actIndexs: Integer;
  EventIndex: Integer;
begin
  EventIndex := StrToInt(copy(EventName,  0 ,  3 ));
  case EventIndex of
 1 :
    begin
'{
Вот тут как хочешь, так и крутишь :
 можешь бутоны на рефрешь энейблить,
 а можно проверить, готов ли данный экземпляр приложения к рефрешу
 и -
{}'
      if isEnableRefr then
       with Sprav do
        if Active then
      begin
        DisableControls;
        actIndex := SpravIDN.AsInteger;
        Prior;
        actIndexs := SpravIDN.AsInteger;
        Close;
        Open;
        if not Locate('IDN', actIndex, []) then
         Locate('IDN', actIndexs, []);
        EnableControls;
      end;
    end;
  end;
end;

end.

unit Sprav;

interface

uses
  aisDM,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DBCtrls, Buttons, Grids, DBGrids;

type
  TfrmSprav = class(TForm)
    Panel1: TPanel;
    sbtClose: TSpeedButton;
    panEdCtrl: TPanel;
    sbtCancel: TSpeedButton;
    sbtOK: TSpeedButton;
    Panel4: TPanel;
    Label999: TLabel;
    sbtNew: TSpeedButton;
    sbtEdit: TSpeedButton;
    sbtDelete: TSpeedButton;
    dbnFirms: TDBNavigator;
    dbgSprav: TDBGrid;
    sbtDisableRefresh: TSpeedButton;
    Panel2: TPanel;
    Label21: TLabel;
    panEditi: TPanel;
    edtNaimi: TEdit;
    edtColichi: TEdit;
    procedure sbtCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sbtNewClick(Sender: TObject);
    procedure sbtCancelClick(Sender: TObject);
    procedure sbtEditClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbgSpravDblClick(Sender: TObject);
    procedure sbtOKClick(Sender: TObject);
    procedure sbtDeleteClick(Sender: TObject);
    procedure edtNaimiEnter(Sender: TObject);
    procedure edtNaimiExit(Sender: TObject);
    procedure edtColichiKeyPress(Sender: TObject; var Key: Char);
    procedure sbtDisableRefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSprav: TfrmSprav;
  spMode: Modes;
  spIndex: Integer;

implementation

{$R *.DFM}

procedure TfrmSprav.sbtCloseClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TfrmSprav.FormCreate(Sender: TObject);
var
  b: String;
begin
  Panel4.Align := alClient;
  spMode := myBrowse;
  isEnableRefr := True;
end;

procedure TfrmSprav.FormShow(Sender: TObject);
begin
  with dbgSprav do
  begin
    Align := alClient;
    SetFocus;
  end;
  with DM.Sprav do
  begin
    if Active then Close;
    Open;
  end;
end;

procedure TfrmSprav.sbtNewClick(Sender: TObject);
var
  i: Integer;
begin
'{
Из helpa по TIBEvents:
 Call CancelEvents to cancel interest in any pending InterBase events.
{}'
  DM.aisEvents.CancelEvents;
  spMode := myInsert;
  Panel1.Enabled := False;
  Panel4.Enabled := False;
  panEdCtrl.Show;
  spIndex := DM.SpravIDN.AsInteger;
  with panEditi do
  begin
    for i :=  0  to (ControlCount -  1 ) do
     if Controls[i] is TEdit then
      (Controls[i] as TEdit).Text := '';
    Show;
  end;
  edtNaimi.SetFocus;
end;

procedure TfrmSprav.sbtEditClick(Sender: TObject);
begin
  if DM.Sprav.IsEmpty then Exit;
'{
Из helpa по TIBEvents:
 Call CancelEvents to cancel interest in any pending InterBase events.
{}'
  DM.aisEvents.CancelEvents;
  spMode := myEdit;
  Panel1.Enabled := False;
  Panel4.Enabled := False;
  panEdCtrl.Show;
  spIndex := DM.SpravIDN.AsInteger;
  panEditi.Show;
  with DM do
  begin
    edtNaimi.Text := SpravNAIMEN.AsString;
    edtNaimi.SetFocus;
    edtColichi.Text := IntToStr(SpravCOLICH.AsInteger);
  end;
end;

procedure TfrmSprav.sbtDeleteClick(Sender: TObject);
begin
  if DM.Sprav.IsEmpty then
  begin
    MessageDlg('Таблица пуста.', mtInformation, [mbOK],  0 );
    Exit;
  end;
  if MessageDlg('Удалить текущую запись?', mtConfirmation, [mbYes, mbNo],  0 )
   = mrYes then
  begin
'{
Из helpa по TIBEvents:
 Call CancelEvents to cancel interest in any pending InterBase events.
{}'
    DM.aisEvents.CancelEvents;
    spMode := myDelete;
    with DM.SpravDel do
    try
      ParamByName('IDN').Value := DM.SpravIDN.AsInteger;
      DM.aisTAw.StartTransaction;
      ExecProc;
      DM.aisTAw.Commit;
    except
      DM.aisTAw.Rollback;
    end;
    with DM.Sprav do
    begin
      DisableControls;
      if RecNo >  1  then Prior;
      spIndex := DM.SpravIDN.AsInteger;
      DM.aisTAr.CommitRetaining;
      Close;
      Open;
      Locate('IDN', spIndex, []);
      EnableControls;
    end;
    spMode := myBrowse;
'{
Из helpa по TIBEvents:
Call QueueEvents to allow your application to
 start receiving event notifications.
{}'
    DM.aisEvents.QueueEvents;
  end;
end;

procedure TfrmSprav.sbtOKClick(Sender: TObject);
var
  i: Integer;
begin
  with DM do
   if spMode = myInsert then
    with SpravIns do
  begin
    ParamByName('NAIMEN').Value := Trim(edtNaimi.Text);
    ParamByName('COLICH').Value := StrToInt(Trim(edtColichi.Text));
    try
      aisTAw.StartTransaction;
      ExecProc;
      aisTAw.Commit;
      spIndex := ParamByName('NEWIDN').AsInteger;
    except
      aisTAw.Rollback;
    end;
  end
  else
   if spMode = myEdit then
    with DM.SpravUpd do
  begin
    ParamByName('IDN').Value := DM.SpravIDN.AsInteger;
    ParamByName('NAIMEN').Value := Trim(edtNaimi.Text);
    ParamByName('COLICH').Value := StrToInt(Trim(edtColichi.Text));
    try
      aisTAw.StartTransaction;
      ExecProc;
      aisTAw.Commit;
    except
      aisTAw.Rollback;
    end;
  end;
  sbtCancelClick(Sender);
end;

procedure TfrmSprav.sbtCancelClick(Sender: TObject);
begin
  Panel1.Enabled := True;
  Panel4.Enabled := True;
  if panEditi.Visible then panEditi.Hide;
  with dbgSprav do
  begin
    Options := Options + [dgAlwaysShowSelection];
    Align := alClient;
  end;
  panEdCtrl.Hide;
  with DM.Sprav do
  begin
    if not ControlsDisabled then DisableControls;
    DM.aisTAr.CommitRetaining;
    if Active then Close;
    Open;
    Locate('IDN', spIndex, []);
    EnableControls;
  end;
  spMode := myBrowse;
'{
Из helpa по TIBEvents:
Call QueueEvents to allow your application to
 start receiving event notifications.
{}'
  DM.aisEvents.QueueEvents;
  dbgSprav.SetFocus;
end;

procedure TfrmSprav.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
VK_INSERT:
    if spMode = myBrowse then sbtNewClick(Sender);
VK_RETURN:
    if spMode = myBrowse then sbtEditClick(Sender)
      else sbtOKClick(Sender);
VK_DELETE:
    if spMode = myBrowse then sbtDeleteClick(Sender);
VK_ESCAPE:
    if spMode <> myBrowse then sbtCancelClick(Sender);
  end;
end;

procedure TfrmSprav.dbgSpravDblClick(Sender: TObject);
begin
  sbtEditClick(Sender);
end;

procedure TfrmSprav.edtNaimiEnter(Sender: TObject);
begin
  if Sender.ClassNameIs('Tedit') then
   with (Sender as TEdit) do Color := $009FCDD0;
end;

procedure TfrmSprav.edtNaimiExit(Sender: TObject);
begin
  if Sender.ClassNameIs('Tedit') then
   with (Sender as TEdit) do Color := clWhite;
end;

procedure TfrmSprav.edtColichiKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [# 8 ,'0'..'9', '-']) then Key := # 0 ;
end;

procedure TfrmSprav.sbtDisableRefreshClick(Sender: TObject);
begin
  isEnableRefr := not sbtDisableRefresh.Down;
  if isEnableRefr then
   with DM.Sprav do
  begin
    if not ControlsDisabled then DisableControls;
    DM.aisTAr.CommitRetaining;
    if Active then Close;
    Open;
    Locate('IDN', spIndex, []);
    EnableControls;
  end;
end;

end.