abspassworddialog.pas

Absolute Database 是来替代BDE[Borland数据库引擎]的用于Delphi 和 C++ Builder 开发用的数据库引擎. 它小巧, 高速, 健壮, 易于使用. 它能直接编译进

{$I ABSVer.inc}

unit ABSPasswordDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TABSPassDialog = class(TForm)
    Label1: TLabel;
    Pass: TEdit;
    cbOk: TButton;
    cbCancel: TButton;
    lbName: TLabel;
    procedure cbOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FDataBase: TObject;
  end;

var
  PassDialog: TABSPassDialog;

function PasswordDialog(DataBase: TObject; DataBaseName: string = ''): Boolean;

implementation

uses ABSMain;
{$R *.DFM}

function PasswordDialog(DataBase: TObject; DataBaseName: string = ''): Boolean;
begin
 with TABSPassDialog.Create(Application) do
  begin
   try
    Pass.Text := '';
    FDataBase := DataBase;
    lbName.Caption := DataBaseName;
    Result := (ShowModal = mrOk);
   finally
    Free;
   end;
  end;
end;


procedure TABSPassDialog.cbOkClick(Sender: TObject);
begin
 (FDataBase as TABSDatabase).Password := Pass.Text;
end;

end.