Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторная работа 1. Открытие БД / ход работы / Unit2
.pas unit Unit2;
interface
uses
SysUtils, Classes, DB, IBDatabase, IBCustomDataSet, IBQuery;
type
TDataModule2 = class(TDataModule)
IBDatabase1: TIBDatabase;
IBQuery1: TIBQuery;
IBTransaction1: TIBTransaction;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
interface
uses
SysUtils, Classes, DB, IBDatabase, IBCustomDataSet, IBQuery;
type
TDataModule2 = class(TDataModule)
IBDatabase1: TIBDatabase;
IBQuery1: TIBQuery;
IBTransaction1: TIBTransaction;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.