uchgpwd.pas

Delphi7+ado+Access2000模式开发的单机版档案管理系统

unit uchgpwd;

interface

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

type
  TfrmChgpwd = class(TForm)
    lblchgpwd: TLabel;
    lbloldpwd: TLabel;
    lblnewpwd: TLabel;
    bbtnCncel: TBitBtn;
    bbtnOk: TBitBtn;
    edtOldPwd: TEdit;
    edtNewPwd: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure bbtnOkClick(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.bbtnOkClick(Sender: TObject);
var
  aqChgPwd: TADOQuery;
begin
  if edtoldpwd.Text = sUserPwd then
  begin
    aqChgPwd := TADOQuery.Create(nil);
    aqChgPwd.Connection := dmper.acper;
    aqChgPwd.SQL.Text := 'update admin set pwd=' + QuotedStr(edtNewPwd.Text) + ' where uid=' + QuotedStr(sUserID);
    aqChgPwd.ExecSQL;
    self.ModalResult := mrOk;
  end
  else
  begin
    MessageBox(handle, '原密码输入错误!', '提示',  mb_IconWarning + mb_Ok);
    edtoldpwd.Clear;
    edtoldpwd.SetFocus;
    exit;
  end;
end;

end.