Как использовать свой диалог ввода пароля 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