frame_chgpwd.~pas

企业信息管理系统程序框架

unit frame_chgpwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  frame_UtilFunc, frame_uTradeBase, StdCtrls, Buttons, dcfdes, ImgList, ComCtrls;

type
  Tframe_frmchgpwd = class(Tframe_frmTradeBase)
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btnApply: TBitBtn;
    btncancel: TBitBtn;
    lblorigin: TLabel;
    lblnew: TLabel;
    lblaudit: TLabel;
    procedure btnApplyClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frame_frmchgpwd: Tframe_frmchgpwd;

implementation

{$R *.dfm}

procedure Tframe_frmchgpwd.btnApplyClick(Sender: TObject);
begin
  inherited;
  opensql(GV_Qry,'select USRPWD from t_employee where employeeseqn=:p1',[SysParam.userseqn]);
  if GV_Qry.Fields[0].AsString=edt1.Text then
  begin
    if edt2.Text=edt3.Text then
    begin
      ExecuteSQL('update t_employee set USRPWD=:p1 where employeeseqn=:p2',[edt2.Text,SysParam.userseqn]);
      InfoOk('修改成功');
      close;
    end
    else
    begin
      InfoOk('新密码和密码确认不一致!');
      edt3.SetFocus;
    end;
  end
  else
  begin
    infook('原密码错误!');
    edt1.SetFocus;
  end;

end;

procedure Tframe_frmchgpwd.btncancelClick(Sender: TObject);
begin
  inherited;
  close;
end;

end.