www.pudn.com > jiaocaiguanlixitongdaima.rar > ChangePasswordUnit.pas

unit ChangePasswordUnit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls; 
 
type 
  TfrmChangePassword = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Bevel1: TBevel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Edit3: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  frmChangePassword: TfrmChangePassword; 
 
implementation 
 
uses MainUnit, DataModuleUnit; 
 
{$R *.dfm} 
 
procedure TfrmChangePassword.BitBtn2Click(Sender: TObject); 
begin 
    close; 
end; 
 
procedure TfrmChangePassword.BitBtn1Click(Sender: TObject); 
var 
 pwd,OperatorID:string; 
 changePWD:TADOQuery; 
begin 
//判断用户名 
   pwd:=trim(Edit1.Text); 
   OperatorID:=frmMain.OperatorInfo.OperatorID; 
   changePWD:=TADOQuery.Create(nil); 
   changePWD.Connection:=frmDataModule.Connection; 
    
   if pwd='' then 
   begin 
      Application.MessageBox('你输入的原密码不能为空或空格!','出错提示',mb_ok); 
      Edit1.SetFocus; 
      abort; 
   end 
   else 
   if pwd<>frmMain.OperatorInfo.OperatorPWD then 
   begin 
      Application.MessageBox('你输入的原密码不正确!','出错提示',mb_ok); 
      Edit1.SetFocus; 
      abort; 
   end; 
//判断新密码 
   if (trim(edit2.Text)<>trim(edit3.Text)) then  //两次新密码不一致 
   begin 
      Application.MessageBox('你输入的新密码不一致!','出错提示',mb_ok); 
      Edit1.SetFocus; 
      abort; 
   end 
   else//保存新密码 
   begin 
     with changePWD do 
     begin 
       Close; 
       SQL.Clear; 
       Parameters.Clear; 
       Parameters.CreateParameter('@operatorID',ftstring,pdinput,8,OperatorID); 
       Parameters.CreateParameter('pwd',ftstring,pdinput,8,edit2.Text);        
       SQL.Add('update Operators set pwd=:pwd where OperatorID=:OperatorID'); 
       try 
         ExecSQL; 
         Application.MessageBox('密码修改成功!','提示',mb_ok); 
       except 
         Application.MessageBox('密码修改失败!','提示',mb_ok); 
       end; 
     end; 
   end; 
   close; 
end; 
 
end.