changepasswordunit.pas

是一个Delphi的教材管理系统,内容很全面详细

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.