| Статистика |
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Псевдоним на лету
Попробуйте это:
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.
|
| Категория: Alias | Добавил: Skinner (04.07.2008)
|
| Просмотров: 384
| Рейтинг: 0.0/0 |
|
|
