Необходима помощь умных людей которые в этом соображают, написала код для создания алиаса моей БД в Delphi, а он выдает ошибки типа
Код:
[Error] Unit2.pas(42): Undeclared identifier: 'DataBase'
код следующий
Код:
unit Unit2;
interface
uses
SysUtils, Classes, DBTables, DB;
type
TDataModule2 = class(TDataModule)
Table1: TTable;
Session1: TSession;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const my_alias = 'instruments';
datapth = 'C:\Documents and Settings\1\Рабочий стол\моя работа в delphi\БД';
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
with session do
begin
Active:=false;
PrivateDir:=ExstractFilePath(PARAMSTR(0));
Active:=true;
if not (IsAlias(my_alias)) then
begin
ConfigMode:=cmPersistent;
AddStandartAlias(my_alias,ExstractFilePath(PARAMSTR(0))+datapth,'PARADOX');
SaveConfigFile
end;
DataBase.AliasName:=my_alias;
DataBase.Connected:=true;
with instruments do
begin
Prepare;
Open
end;
end;
end;
procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
with datebase do
if connected then
begin
CloseDataSets;
Connected:=false;
end;
with session do
if active then
close
end;
end.