unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, IniFiles, IBCustomDataSet, IBQuery, IBDatabase,
  Grids, DBGrids, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    IBTransaction1: TIBTransaction;
    IBDatabase1: TIBDatabase;
    IBQuery1: TIBQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    IBQuery2: TIBQuery;
    IBTransaction2: TIBTransaction;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  d_use, t_use: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FIniFile: TIniFile;
begin
  try
    FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
      'Config.ini');
    try
      IBDatabase1.DatabaseName := FIniFile.ReadString('Base', 'Path', '');
    finally
      FIniFile.Free;
    end;
    IBDatabase1.Connected := True;
    with IBQuery1 do
    begin
      SQL.Text := 'select * from PRISPOSOBU';
      Open;
    end;

  except
    on E: Exception do
    begin
      Application.MessageBox(PChar(e.Message), 'Ошибка!', MB_ICONERROR);
    end;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  IBQuery1.Close;
  IBDatabase1.Connected := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  d_use := Now;
  t_use := Now;

  if ibdatabase1.Connected = false then
    ibdatabase1.Connected := true;

  IBQuery2.SQL.Text := 'insert into PRISPOSOBU (PRISP_NAME,D_USE,T_USE) Values ('+QuotedStr(edit1.Text)+','+QuotedStr(DateToStr(d_use))+','+QuotedStr(TimeToStr(t_use))+')';

  ibquery2.ExecSQL;
    IBTransaction2.Commit;
    IBQuery1.SQL.Text:='select * from PRISPOSOBU';

    IBQuery1.Close;
    IBQuery1.Open;

end;
end.