Советы по Delphi

         

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


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

    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. [001209]



Содержание раздела