chgpwd.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit ChgPwd;

interface

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

type
  TChgPwdForm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblUsrName: TLabel;
    edtOldPass: TEdit;
    edtNewPass: TEdit;
    edtNewPass1: TEdit;
    cmdOk: TSpeedButton;
    cmdExit: TSpeedButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChgPwdForm: TChgPwdForm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TChgPwdForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
  begin
  key:= #0;
  perform(WM_nextdlgctl,0,0);
  end;
end;

procedure TChgPwdForm.FormShow(Sender: TObject);
begin
  lblUsrName.caption:=dataE2.myUsrName;
  edtOldPass.Text:='';
  edtNewPass.Text:='';
  edtNewPass1.Text:='';
  edtOldPass.SetFocus ;
end;

procedure TChgPwdForm.cmdExitClick(Sender: TObject);
begin
  close;
end;

procedure TChgPwdForm.cmdOkClick(Sender: TObject);
begin
  with dataE2 do
  if OpenTable('select Password from operator where name = :name',myUsrName) then
  begin
      if trim(adoQuery1.FieldByName('password').asstring)=edtOldPass.text then
        if  edtNewPass.text=edtNewPass1.Text then
        begin
          adoCmd.CommandText :='update operator set password= :password where name= :name';
          adoCmd.parameters[0].Value:=edtNewPass.text;
          adoCmd.parameters[1].Value:=myUsrName;          
          adoCmd.Execute ;
          application.MessageBox('修改密码成功  !            ','完成',mb_OK+MB_ICONINFORMATION);
          close;
        end else   showmessage('请确认新密码：!再重新录入！')
      else    showmessage('旧密码不正确：!请重新录入！')
  end;
end;

end.