Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

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


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 окошка).



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

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



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

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




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.022 c
3-66419           harismatik            2002-01-23 12:21  2002.02.21  
General SQL Error


1-66569           Олег Лаукарт          2002-02-05 16:11  2002.02.21  
Как правильно удалить поток


14-66655          EAlexander            2001-12-29 10:43  2002.02.21  
Блиц опрос - кто работает 3 и 4 ? :(


1-66540           maks_f                2002-02-04 11:24  2002.02.21  
Пароль на изменение в листе Excel


3-66457           Dark                  2002-01-28 17:09  2002.02.21  
Помогите с SQL!!!