www.pudn.com > 2007717233531.rar > 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.