changepwd.pas

车辆管理系统

unit Changepwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Base_C;

type
  Tfrmchangepwd = class(TfrmBase_C)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    btnExit: TButton;
    btnOK: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnExitClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangepwd: Tfrmchangepwd;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmchangepwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmchangepwd:=nil;
end;

procedure Tfrmchangepwd.btnExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmchangepwd.btnOKClick(Sender: TObject);
var
  strsql:string;
begin
  inherited;
  if edit1.Text='' then
    begin
      messagedlg('原密码不能为空 ! ',mtError,[mbok],0);
      edit1.SetFocus;
      exit;
    end;
  if edit2.Text='' then
    begin
      messagedlg('新密码不能为空 ! ',mtError,[mbok],0);
      edit2.SetFocus;
      exit;
    end;
  if edit3.Text='' then
    begin
      messagedlg('确认密码不能为空 ! ',mtError,[mbok],0);
      edit3.SetFocus;
      exit;
    end;
  if edit1.Text<>gs_password then
    begin
      messagedlg('原密码不正确 ! ',mtError,[mbok],0);
      exit;
    end;
  if edit2.Text<>edit3.Text then
    begin
      messagedlg('确认密码与新密码不一致 ! ',mtError,[mbok],0);
      exit;
    end;

  if gs_Usercode='ADMIN' then
    strsql:='update Master..adminlogin set password='+vartosql(edit2.Text)
    else
    strsql:='update tuser set fpwd='+vartosql(edit2.Text)+' where fid='+vartosql(gs_userid);

  if cexecsql(strsql) then
    begin
      messagedlg('密码修改成功 ， 请记住新密码 ! ',mtWarning,[mbok],0);
      gs_Password:=edit2.text;
      csyslog(self.Name,'修改密码 ');
      frmchangepwd.Close;
    end
    else
    begin
      messagedlg('密码修改不成功 ！',mtWarning,[mbok],0);
      csyslog(self.Name,'密码修改失败');
      exit;
    end;
end;

end.