myldbpassworddialog.pas

一个本地database引擎,支持中文T_Sql查询,兼容DELPHI标准数据库控件

unit MYLDBPasswordDialog;

interface

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

type
  TMYLDBPassDialog = 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: TMYLDBPassDialog;

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

implementation

uses MYLDBMain;
{$R *.DFM}

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


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

end.