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

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

Как вызвать окно ввода логина и пароля в БД [D5, IB5.x]

Dima Kopachev ©   (2002-01-29 01:06:00) 

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

---

TSV   (2002-01-29 11:47:00) [1]

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

---

Desdechado   (2002-01-29 11:39:00) [2]

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

---

Dima Kopachev   (2002-01-29 11:30:00) [3]

Использую. У меня есть 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 окошка).

---

TSV   (2002-01-29 10:48:00) [4]

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

---

Dima Kopachev   (2002-01-29 10:41:00) [5]

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

---

TSV   (2002-01-29 10:34:00) [6]

ИМХО, лучше просто закрыть приложение при неправильном вводе пароля. Я делаю вот так:

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;

Удачи.

---

panov   (2002-01-29 07:15:00) [7]

>Dima Kopachev (29.01.02 01:06)
while notDatabase.Connected doDatabase.Open;

---

Olfi   (2002-01-29 01:51:00) [8]

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

---

Наверх