udatabase.pas

来自「AbsDataBase5.16 最新版」· PAS 代码 · 共 59 行

unit uDatabase;

interface
{$I CompVer.inc}

uses
{$IFDEF D6H}
  Variants,
{$ENDIF}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmDatabase = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cbCryptoAgorithm: TComboBox;
    ePassword2: TEdit;
    ePassword1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDatabase: TfrmDatabase;

implementation

{$R *.dfm}

uses main, ABSMain, ABSSecurity;


procedure TfrmDatabase.FormShow(Sender: TObject);
begin
  ePassword1.Text := frmMain.db.Password;
  ePassword2.Text := frmMain.db.Password;
  cbCryptoAgorithm.ItemIndex := Integer(frmMain.db.CryptoAlgorithm);
end;

procedure TfrmDatabase.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if (ModalResult = mrOk) and
    (ePassword1.Text <> ePassword2.Text) then
  begin
   CanClose := False;
   MessageDlg('Password and Confirm password are not equal', mtError,[mbOk], 0);
  end;
end;

end.