{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание псевдонима базы данных с указанием пути к каталогу с базой
Данная процедура создает нужный псевдоним (Alias), если он не существует, для
базы данных, прописывает путь к базе данных. Если такой псевдоним существует,
то проверяется его соответствие заданным параметрам.
Зависимости: DBTables
Автор: Александр, rda@im.net.ua, Мелитополь
Copyright: Help Delphi
Дата: 28 апреля 2002 г.
***************************************************** }
procedure Create_Alias;
var
AParams: TStringList;
Dir: string;
begin
Dir := ExtractFilePath(ParamStr(0)) + ′BASE′; //Путь к базе. В данном случае
//это Каталог программыBASE
AParams := TStringList.Create;
if not Session.IsAlias(′cssm′) then //Проверка существования псевдонима
//cssm
begin
Session.AddStandardAlias(′cssm′, Dir, ′PARADOX′);
end
else
try
begin
AParams.Clear;
AParams.Add(′PATH=′ + Dir);
Session.ModifyAlias(′cssm′, AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;
|