chdevpwd.pas

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

unit ChDevPwd;

interface

uses
  SysUtils, Windows, Forms, Classes, StdCtrls, Buttons,
  Controls, Mask, PrjConst;

type
  TfrmChDevPwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RpNewPw: TMaskEdit;
    NewPw: TMaskEdit;
    OldPw: TMaskEdit;
    BtOK: TButton;
    BtCancel: TButton;
    procedure InputChange(Sender: TObject);
    procedure BtOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OldPwExit(Sender: TObject);
  end;

var
  frmChDevPwd: TfrmChDevPwd;

implementation

{$R *.DFM}

procedure TfrmChDevPwd.InputChange(Sender: TObject);
begin
  if (Length(RpNewPw.Text)=12) and (Length(OldPw.Text) = 12) and (Length(NewPw.Text) = 12) and (Length(RpNewPw.Text) > 0) then
    BtOK.Enabled := True
  else
    BtOk.Enabled := False;
  if (Length(Newpw.Text)=12) and (Newpw.Text = RpNewPw.Text) then
    btOk.ModalResult := mrOK
  else
    btOk.ModalResult := mrNone
end;

procedure TfrmChDevPwd.BtOKClick(Sender: TObject);
var
  DlgMes: string;
begin
  if Newpw.Text <> RpNewPw.Text then
  begin
    DlgMes := SAaAIEaEeAAUAeOOACeOGAEaEe;
    Messagebox(Handle, PChar(DlgMes), PChar(SIaE), MB_OK + MB_ICONINFORMATION);
    btOk.ModalResult := mrNone;
  end
  else
    btOk.ModalResult := mrOK
end;

procedure TfrmChDevPwd.FormShow(Sender: TObject);
begin
  NewPw.Text := '';
  RpNewPw.Text := '';
  OldPw.SetFocus;
end;

procedure TfrmChDevPwd.OldPwExit(Sender: TObject);
var
  i: Integer;
begin
  if Sender is TMaskEdit then
  with Sender as TMaskEdit do
    for i:=1 to Length(Text) do
    begin
      if not (Text[i] in ['A'..'F', 'a'..'f', '0'..'9']) then
      begin
        MessageBox(Handle, PChar(SAUAeOOEUEAuOAEEyOAFAF), PChar(SIIo), MB_ICONERROR);
        if Canfocus then SetFocus;
        SelectAll;
        Break;
      end;
    end;
end;

end.