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

Советы » 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.

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com