u_repass.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit U_Repass;

interface

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

type
  Tfrmrepass = class(TForm)
    Label1: TLabel;
    edtoldpass: TEdit;
    edtnewpass: TEdit;
    edtnewpass1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    btncancel: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btncancelClick(Sender: TObject);
    procedure edtoldpassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtnewpassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtnewpass1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmrepass: Tfrmrepass;

implementation

uses u_DataCtrl, u_ShareFun, md5;


{$R *.dfm}

procedure Tfrmrepass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

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

procedure Tfrmrepass.edtoldpassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key =13 then
     edtnewpass.SetFocus;
end;

procedure Tfrmrepass.edtnewpassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     edtnewpass1.SetFocus;
end;

procedure Tfrmrepass.edtnewpass1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     bitbtn1.SetFocus ;
end;

procedure Tfrmrepass.BitBtn1Click(Sender: TObject);
var
  check : Tadoquery;
begin
  if edtnewpass.Text <> edtnewpass1.Text then
     begin
       showmessage('两次输入的密码不一致，请重新输入！！');
       exit;
     end;
  check := Tadoquery.Create(self);
  check.Connection :=frmdatactrl.ADOConn;
  check.Close;
  check.SQL.Clear;
  Check.SQL.Add('select * from tb_users where InUse=1 and userbh='''+JXC_UserBH+'''');
  Check.SQL.Add(' and userpass='''+Copy(MD5Print(MD5String(edtoldPass.Text)),1,20)+'''');
  try
    check.Active:=true;
    if check.RecordCount < 1 then
       begin
         showmessage('用户密码输入不正确，请重新输入！！');
         exit;
       end;
    check.Close;
    check.SQL.Clear;
    check.SQL.Add('update tb_users set userpass='''+Copy(MD5Print(MD5String(edtnewpass.Text)),1,20)+'''');
    check.SQL.Add(' where userbh='''+JXC_UserBH +'''');
    try
      check.ExecSQL;
      showmessage('修改密码成功！！');
      Close;
    except
      showmessage('数据库操作失败，请重新连接！！');
    end;
  except
    showmessage('数据库操作失败，请重新连接！！');
  end;
  check.Close;
  check := nil;
  check.Free;
end;

end.