BDE->Paradox: Как убрать запрос пароля ?

[Dr.Pauliss]

Здравствуйте....

Я создаю приложение для работы с уже существующей БД Paradox через BDE. Некоторые таблицы данной БД находятся под стандартным паролем (jIGGAe). При запуске приложения - выскакивает окно, с предложением ввести пароль (jIGGAe). Можно ли сделать так, чтобы окно не выскакивало, как нибудь прописать пароль в коде... или... ?

[Serge_Bliznykov]

можно. прежде всего в свойствах соединения поставить LoginPrompt = False
а сам пароль задать в соответствующем поле (Password, если не ошибаюсь...)

[Dr.Pauliss]

BDE-> DateModule.TDateBase.LoginPromt:=fa lse; //Не помогает
BDE-> DateModule.tblEvents; //Данная таблица под паролем - 'jIGGAe'
BDE-> DateModule.tblEvents.Active:=False; //Помогает, но не отображается таблица

procedure TfrmMain.FormCreate(Sender: TObject); // По идее - должно помочь, но
begin
DM.DBFS.Session.AddPassword('jIGGAe '); //выскакивает ошибка -Access violation at adress
DM.tblEvents.Active:=True;
end;

procedure TfrmMain.btnShow(Sender: TObject); //На отдельной кнопке
begin
DM.DBFS.Session.AddPassword('jIGGAe '); //Работает - гуд,
DM.tblEvents.Active:=True; //но не удобно
end;

Я думаю, типа, сессия не успевает открыться - поэтому ошибка.... или, что то в этом роде... Если не найду ответ, придёться AddPassword - повесить на таймер... ...

[Dr.Pauliss]

Всё, размотался.....

procedure TDM.DataModuleCreate(Sender: TObject);
begin
Dm.DBFS.Session.AddPassword('jIGGAe ');
Dm.tblWorker.Active:=true;
Dm.tblENames.Active:=true;
Dm.tblEvents.Active:=True;
...........
end;

Больше диалоговое окно запроса пароля - не выскакивает....