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;

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