changepawd.pas

用delphi开发的 人事管理系统

unit changepawd;

interface

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

type
  TFrm_changepawd = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit4: TEdit;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_changepawd: TFrm_changepawd;

implementation
uses yhgl;
{$R *.DFM}

procedure TFrm_changepawd.BitBtn1Click(Sender: TObject);

var sql:string;
begin
if edit3.text<>edit4.text then
   begin
   Showmessage('新密码和校验密码不同,请修改！');
   edit3.setfocus;
   end
   else
   begin

   
     if trim(edit2.text)=oldpswd then
       begin
         sql:='update yhklb set pswd='''+trim(edit3.text)+''' where dlyh='''+s+'''';
         query1.close;
         query1.SQL.clear;
         query1.SQL.add(sql);
         query1.execsql;
         showmessage('密码修改成功');
         close;
         frm_yhgl.query1.close;
         frm_yhgl.query1.open;
       end
     else
      begin
      showmessage('输入原密码不正确');
      edit2.setfocus;
      end;
   end;

end;

procedure TFrm_changepawd.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.