Форум: "Базы";
Поиск по всему сайту: 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.72 MB
Время: 0.018 c
1-66587           Brand                 2002-02-06 00:34  2002.02.21  
Автозагрузка через реестр, SysTray


6-66639           Lamok                 2001-11-29 23:40  2002.02.21  
Socket


1-66558           DimaIv                2002-02-05 13:38  2002.02.21  
как узнать какой нужен UNIT


3-66465           viller                2002-01-28 12:17  2002.02.21  
storedproc.params.asmemo


3-66451           ed                    2002-01-21 08:39  2002.02.21  
Несколько запросов и временные таблицы в ADO