Псевдоним на лету

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Попробуйте это:

type

TDataMod = class(TDataModule)

Database: TDatabase;

public

procedure TempAlias(NewAlias, NewDir: string);

end;

procedure TDataMod.TempAlias(NewAlias, NewDir: string);

begin

with Session do

if not IsAlias(NewAlias) then

begin

ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)

try

AddStandardAlias(NewAlias, NewDir, ‘PARADOX’);

Database.Close;

Database.AliasName := NewAlias;

Database.Open;

finally

ConfigMode := cmAll;

end;

end;

end;

Комментарии:

a) Поместите компонент Database на форму DataModule;

b) Задайте свойству DatabaseName имя базы данных, например, ‘TempDB’;

c) Задайте свойству DatabaseName компонента TTable значение = ‘TempDB’

d) Для получения дополнительной информации ознакомьтесь с примером MastApp, поставляемым вместе с D2.

{/codecitation}

Добавить комментарий