| Статистика |
|
Онлайн всего: 8 Гостей: 8 Пользователей: 0 |
|
Создание псевдонима базы данных с указанием пути к каталогу с базой
{ **** 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;
|
| Категория: Alias | Добавил: Skinner (04.07.2008)
| Автор: Александр E W
|
| Просмотров: 491
| Рейтинг: 0.0/0 |
|
|
