Как красиво обработать отказ от логина к базе?

← →
Filat © (2003-05-02 16:18) [0]

т.е. если пользователь вместо ввода пароля нажал ESC то появляется сообщение об ошибке, а как это сделать красиво, скажем, не хошь ... ну и пшел ... :))))

← →
Filat © (2003-05-03 15:10) [1]

Неужели никто такого не делал? Быть такого не может ... :))))

← →
Zacho © (2003-05-03 15:55) [2]

> Filat © (03.05.03 15:10)

Все делали. Просто твой вопрос слишком абстрактный. Без информации о том, как именно ты делаешь подключение к базе - ответить на него невозможно.

← →
Filat © (2003-05-07 15:31) [3]

IBDatabase1.Connected:=True;
IBTransaction1.Active:=True;
IBTable1.Active:=True;
IBTable2.Active:=True;
IBTable3.Active:=True;

Так вот, при IBDatabase1.Connected:=True; появляется диалоговое окно ввода логина и пароля. Ну вот, юзер вместо ввода нажал ESC, появляется сообщение об ошибке, так вот, как вместо этого сообщения вывести своё, понятное и красивое?

← →
Danilka © (2003-05-07 15:40) [4]

Filat © (07.05.03 15:31)

1 путь, типа этого:
IBDatabase1.Connected:=True;
if IBDatabase1.Connected=True then begin
IBTransaction1.Active:=True;
IBTable1.Active:=True;
IBTable2.Active:=True;
IBTable3.Active:=True;
end;

2 путь более правильный:
сделай LoginPrompt:=false;
нарисуй свою форму запроса имени/пароля, можно сделать выбор базы, можно прикрутить выпадающий список юзеров, вообще, кучу всяких "красивостей". Если на этой форме нажата кнопка OK, то пишешь user_name и password в параметры IBDatabase1 и все остальное, как у тебя было.

← →
WarLord © (2003-05-07 15:51) [5]

try
IBDatabase1.Connected:=True;
IBTransaction1.Active:=True;
IBTable1.Active:=True;
IBTable2.Active:=True;
IBTable3.Active:=True;
except
ShowMessage("Спасибо, до свидания");
exit;
end;

WarLord <- Работает, спасибо! Супер, ... и почему сам недотумкал .... мабуть мало опыта :((
Ещё раз спасибо!

Как красиво обработать отказ от логина к базе? Найти похожие ветки