Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

TDatabase   Найти похожие ветки 

← →
jessis ©   (2002-08-15 17:07) [0]

Как достать из Database, значения только что введеных логина и пароля?

---

← →
Ученик ©   (2002-08-15 17:17) [1]

Пароль вроде нельзя, необходимо использовать событие TDatabase.OnLogin

---

← →
jessis ©   (2002-08-15 17:20) [2]

прога работает с друмя БД. Надо сделать так, чтобы пользователь не вводил дважды пароль и логин

---

← →
Ученик ©   (2002-08-15 17:26) [3]

Попробуй так

uses
BDE, DBLogDlg;

procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
var
UserName, Password : string;
begin
UserName := LoginParams.Values[szUSERNAME];
Password := LoginParams.Values[szPASSWORD];
if LoginDialog(Database.DatabaseName, UserName, Password) then begin
LoginParams.Values[szUSERNAME] := UserName;
LoginParams.Values[szPASSWORD] := Password;
Database2.LoginPrompt := False;
Database2.Params.Values[szUSERNAME] := UserName;
Database2.Params.Values[szPASSWORD] := Password
end
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c