Delphi World - Псевдоним на лету
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Псевдоним на лету

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


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.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования