Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема в своем обрабочике OnLogin [D5, IB6.x, FB 1.5.2]


IDens ©   (2004-12-29 18:05:00) 

Использую IBX. Хочу заменить стандартное окно логина на собственное.
Написал обработчик OnLogin

procedure TForm1.IBDB1Login(Database: TIBDatabase; LoginParams: TStrings);
begin
 if Form2.ShowModal=mrOK then //свое окно запроса User/Pass
 begin
   LoginParams.Values[DPBConstantNames[isc_dpb_user_name]]:=Form2.eUser.Text;
   LoginParams.Values[DPBConstantNames[isc_dpb_password]]:=Form2.ePassword.Text;
 end;
end;

IBDB1.LoginPrompt:=True;


Выдает "User name and password are not defined. ...".
В чем проблема? Что не так делаю.
Даже если писать напрямую:

LoginParams.Values[DPBConstantNames[isc_dpb_user_name]]:='SYSDBA';
LoginParams.Values[DPBConstantNames[isc_dpb_password]]:='masterkey';

таже ошибка.

Зато если используется стандартное окно логина и указываются теже
параметры, то все ОК. Или если при IBDB1.LoginPrompt=False напрямую писать в IBDB1.Params, тоже все ОК.


Johnmen   (2004-12-29 18:14:00) [1]

Отключить онлогин, и рисовать окно самому в нужный момент...


Наверх

Титульная страница Поиск, карта сайта Написать письмо