changepassword.pas

delphi框架可以学习, 写的很好的

unit ChangePassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, RzButton, RzBckgnd, Mask, RzEdit, RzPanel;

type
  TfrmChangePassword = class(TForm)
    RzPanel1: TRzPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtPassword: TRzEdit;
    edtNewPassword: TRzEdit;
    edtCheck: TRzEdit;
    RzSeparator1: TRzSeparator;
    btnOK: TRzBitBtn;
    btnExit: TRzBitBtn;
    procedure btnExitClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    procedure ChangePassword(_Old, _New, _Check: String);
  public
    { Public declarations }
  end;

var
  frmChangePassword: TfrmChangePassword;

implementation

uses MyPublic, md5;

{$R *.dfm}

procedure TfrmChangePassword.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmChangePassword.btnOKClick(Sender: TObject);
begin
  ChangePassword(edtPassword.Text, edtNewPassword.Text, edtCheck.Text);
end;

procedure TfrmChangePassword.ChangePassword(_Old, _New, _Check: String);
var ls_SQL, ls_Err: String;
begin
  if _New = '' then exit;
  if _Check = '' then Exit;
  if _New <> _Check then
  begin
    ShowMess('提示','两次输入的密码必须相同！', MB_OK);
    Exit;
  end;

  if GetRC('USERINFO', 'USERCODE=''' + CurrentUser.UserCode + ''' AND PASSWORD =''' + SMD5.md5(_Old)+'''') = 0 then
  begin
    ShowMess('错误','输入的原始密码错误，请核对！注意键盘大小写状态！', MB_ICONERROR);
    Exit;
  end;

  ls_SQL := 'UPDATE USERINFO SET PASSWORD='''+ SMD5.md5(_Check) +''' WHERE USERCODE='''+ CurrentUser.UserCode +'''';
  ls_Err := doSQL(ls_SQL);
  if ls_Err <> '' then
  begin
    ShowMess('错误','修改密码失败，具体为：'+ ls_Err, MB_ICONERROR);
    Exit;
  end;

  RecordUserAction(SetSimpleEvent('修改密码', CurrentUser.EmpName + '成功修改密码！'));
  ShowMess('提示','您的密码已经成功修改！', MB_OK);
  Close;
end;

end.