uchgpwd.pas

人事档案管理

unit uChgpwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMenu, ADODB, udlgbase;

type
  TfrmChgpwd = class(TfrmDlgBase)
    lblchgpwd: TLabel;
    lbloldpwd: TLabel;
    lblnewpwd: TLabel;
    bbtnCncel: TBitBtn;
    btnOk: TBitBtn;
    edtOldPwd: TEdit;
    edtNewPwd: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChgpwd: TfrmChgpwd;

implementation

uses uGlobal, uData;

{$R *.dfm}

procedure TfrmChgpwd.FormActivate(Sender: TObject);
begin
  edtOldPwd.SetFocus;
end;

procedure TfrmChgpwd.btnOkClick(Sender: TObject);
begin
  if edtOldPwd.Text = App.UserPwd then
  begin
    dmPer.ExecSQL('update admin set pwd=' + QuotedStr(edtNewPwd.Text) + ' where uid=' + QuotedStr(App.UserID));
    Log.Write('更新密码成功');
    ModalResult := mrOk;
  end
  else
  begin
    MessageBox(handle, '原密码输入错误!', '提示',  mb_IconWarning + mb_Ok);
    edtOldPwd.SetFocus;
  end;
end;

end.