Как использовать свой диалог ввода пароля BDE?
Материал из DRKB
Как использовать свой диалог ввода пароля BDE?[править | править код]
type
TFormMain = class(TForm)
public
{ Public declarations }
procedure Password(Sender: TObject; var Continue: Boolean);
end;
var
FormMain: TFormMain;
implementation
{$R *.dfm}
procedure TFormMain.Password(Sender: TObject; var Continue: Boolean);
var
Passwd: string[15];
begin
Passwd := '';
// Creating dialog
FormPasswd := TFormPasswd.Create(Application);
try
if (FormPasswd.ShowModal = ID_OK) then
begin
// If OK is pressed then get password from edit "edPassword"
Passwd := FormPasswd.edPasswd.Text
end
else
begin
// If Cancel is pressed then terminate application
Application.ShowMainForm := False;
Application.Terminate;
Exit;
end;
finally
// finally free password form
FormPasswd.Free;
end;
Continue := (Passwd > '');
// Add password typed to session
Session.AddPassword(Passwd);
end;
procedure TFormMain.FormCreate(Sender: TObject);
begin
// Remove all typed passwords from session, so user need type password again in app start
ClientDatabase.Session.RemoveAllPasswords;
// Undocument next row in debug mode. This is for debugging and testing only, so we don't need typing password again and again ...
// ClientDatabase.Session.AddPassword('YOUR-PASSWORD');
ClientDatabase.Session.OnPassword := Password; // Set OnPassword Event
end;
Source: Взято с http://delphiworld.narod.ru
ID: 02528