Как вызвать окно ввода логина и пароля в БД

← →
Dima Kopachev (2002-01-29 01:06) [0]

Как вызывать это окно так, чтобы после неправильного вводапароля я опять попадал на него или в состояние, предшествующее вызову этого окошка

← →
Olfi © (2002-01-29 01:51) [1]

Странный вопрос... Если ты ввёл ниправильный пароль или логин, то это окно и так появляется снова.

← →
panov © (2002-01-29 07:15) [2]

>Dima Kopachev (29.01.02 01:06)
while not Database.Connected do Database.Open;

← →
TSV © (2002-01-29 10:34) [3]

ИМХО, лучше просто закрыть приложение при неправильном вводе пароля. Я делаю вот так:
procedure TDataModule1.DataModuleCreate(Sender: TObject); begin try // открытие БД Database1.Open; // появляется диалоговое окно except on E: Exception do begin MessageBeep(MB_ICONEXCLAMATION); MessageDlg("Ошибка открытия БД. Приложение будет закрыто." + #13#13 + E.Message, mtError, [mbOk], 0); Application.Terminate; Exit; end; end; // try end;
Удачи.

← →
Dima Kopachev (2002-01-29 10:41) [4]

У меня в БД есть несколько таблиц. При открытиии БД я ввожу пароль и логин и после я делаю активной таблицу:
DM->Query1->Active=true;
Опять вылезает окошко с просьбой ввести логин и пароль. Ведь я уже ввел все что нужно первый раз при соединении с БД.

← →
TSV © (2002-01-29 10:48) [5]

Могу ошибаться, но по-моему, ты не используешь компонент TDatabase. Отсюда эти грабли.

← →
Dima Kopachev (2002-01-29 11:30) [6]

Использую. У меня есть datamodule. На него положил TDataSource,
TDatabase, TQuery. В TDatabase прописал:
SERVER NAME=C:\MastApp\DB\dbmast.gdb
USER NAME=SYSDBA
PASSWORD=masterkey
Отключил галку Login Promt. До запуска программы TQuery->Active=false. Когда запускаю программу подключаюся к БД, а потом DM->Query1->Active=true. 2 раза приходится вводить пароль и логин (в 2 окошка).

в каждой query.databasename пропиши имя своего TDatabase, а то сейчас они у тебя сами по себе к БД подключаются

Вот и я то же самое имел в виду.

Как вызвать окно ввода логина и пароля в БД Найти похожие ветки