MainMenu

procedure TForm1.Button1Click(Sender: TObject);
var a:Tinttable;
begin
a.NewT;
end;
 
procedure TForm1.Open1Click(Sender: TObject);
var a:Tinttable;
begin
a.NewT;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB,
  IBCustomDataSet, IBTable, IBDatabase, IBQuery;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    Open1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
type
TIntTable=class
private
  ibDataBase:TIBDataBase;
  ibtransaction:Tibtransaction;
  ibtable:TIbtable;
  Datasource:TDatasource;
  Dbgrid:TDbgrid;
  DBNavigator:TDBNavigator;
  OpenDialog: TOpenDialog;
public
  FileName : String;
  procedure NewT;
end;
 
implementation
 
procedure TintTable.newt;
begin
  begin
  //создание компонентов
    Dbgrid:=TDbgrid.create(nil);
    Dbgrid.parent:=form1;
    DBgrid.left:=5;
    Dbgrid.Width:=600;
    Dbgrid.Height:=150;
    ibtransaction:=TIBTransaction.create(nil);
    ibtable:=TIBTable.create(nil);
    Datasource:=TDataSource.create(nil);
    ibDataBase:=TIBDatabase.create(nil);
    DBNavigator:=TDBNavigator.create(nil);
    DBNavigator.parent:=form1;
    DBNavigator.left:=5;
    DBNavigator.top:=160;
  //поключение к компонентам
    ibdatabase.Close;
    ibdatabase.DatabaseName:=InputBox('Путь', 'Пожалуйста, укажите путь до базы данных #10 Пример: :C:\bd.gdb ',':C:\');
    ibdatabase.Params.Add('user_name=sysdba');
    ibdatabase.Params.Add('password=masterkey');
    ibdatabase.Params.Add('lc_ctype=WIN1251');
    ibdatabase.LoginPrompt:=false;
    ibdatabase.DefaultTransaction:=IBTransaction;
    ibtransaction.DefaultDatabase:=ibdatabase;
    Ibtable.Database:=ibdatabase;
    ibtable.Transaction:=IBTransaction;
    Ibtable.TableName:='BILETI';
    Datasource.DataSet:=Ibtable;
    Dbnavigator.DataSource:=DataSource;
 
    dbgrid.DataSource:=Datasource;
    ibdatabase.Connected:=true;
    ibtransaction.Active:=true;
    Ibtable.Active:=true;
  end;
end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:Tinttable;
begin
a.NewT;
end;
 
procedure TForm1.Open1Click(Sender: TObject);
var a:Tinttable;
begin
a.NewT;
end;
 
end.