lchgpassword.pas

传奇的登陆器!也是在网上搜索的!不知道好不好用

unit LChgPassword;

interface

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

type
  TfrmChangePassword = class(TForm)
    GroupBox1: TGroupBox;
    Label9: TLabel;
    EditAccount: TEdit;
    Label10: TLabel;
    EditPassword: TEdit;
    Label1: TLabel;
    EditConfirm: TEdit;
    Label2: TLabel;
    EditNewPassword: TEdit;
    Label14: TLabel;
    LabelStatus: TLabel;
    ButtonOK: TRzButton;
    procedure ButtonOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmChangePassword: TfrmChangePassword;

implementation

uses Main;
var
  dwOKTick:LongWord;
{$R *.dfm}

{ TfrmChangePassword }

procedure TfrmChangePassword.Open;
begin
  ButtonOK.Enabled:=True;
  EditAccount.Text:='';
  EditPassword.Text:='';
  EditNewPassword.Text:='';
  EditConfirm.Text:='';
  ShowModal;
end;

procedure TfrmChangePassword.ButtonOKClick(Sender: TObject);
var
   uid, passwd, newpasswd: string;
begin
  if GetTickCount - dwOKTick < 5000 then begin
    Application.MessageBox('请稍候再点确定！！！','提示信息',MB_OK + MB_ICONINFORMATION);
    exit;
  end;
  uid:=Trim(EditAccount.Text);
  passwd:=Trim(EditPassword.Text);
  newpasswd:=Trim(EditNewPassword.Text);
  if uid = '' then begin
    Application.MessageBox('登录帐号输入不正确！！！','提示信息',MB_OK + MB_ICONINFORMATION);
    EditAccount.SetFocus;
    exit;
  end;
  if passwd = '' then begin
    Application.MessageBox('旧密码输入不正确！！！','提示信息',MB_OK + MB_ICONINFORMATION);
    EditPassword.SetFocus;
    exit;
  end;
  if length(newpasswd) < 4 then begin
    Application.MessageBox('新密码位数小于四位！！！','提示信息',MB_OK + MB_ICONINFORMATION);
    EditAccount.SetFocus;
    exit;
  end;  
  if newpasswd = '' then begin
    Application.MessageBox('新密码输入不正确！！！','提示信息',MB_OK + MB_ICONINFORMATION);
    EditNewPassword.SetFocus;
    exit;
  end;
  if EditNewPassword.Text = EditConfirm.Text then begin
    MainForm.SendChgPw (uid, passwd, newpasswd);
    dwOKTick:=GetTickCount();
    ButtonOK.Enabled:=False;
  end else begin
    Application.MessageBox('二次输入的密码不匹配！！！。','提示信息', MB_Ok);
    EditNewPassword.SetFocus;
   end;
end;

end.