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

Советы » Alias » Псевдоним на лету

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

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.

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

Другое по теме:

Категории

Статьи

Советы