password.pas

管理车队用车记录

unit password;

interface

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

type
  TForm_password = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BitBtn_OK: TBitBtn;
    BitBtn_cancle: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn_OKClick(Sender: TObject);
    procedure BitBtn_cancleClick(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_password: TForm_password;

implementation
uses dm,login,md5;
{$R *.dfm}

procedure TForm_password.BitBtn_OKClick(Sender: TObject);
var
passwd:string;
begin
  form_dm.ADOConnection.Open;
  form_dm.ADOTable_users.Open;
  form_dm.ADOTable_users.Locate('name',user_name,[]);
  begin if MD5Print(MD5String(trimright(edit1.Text)))=trimright(form_dm.ADOTable_users.Fieldbyname('psw').AsString) then
  begin if edit2.Text=edit3.Text then
  begin
  passwd:=edit2.Text;
  form_dm.ADOTable_users.Edit;
  form_dm.ADOTable_users['psw']:=MD5Print(MD5String(passwd));
  form_dm.ADOTable_users.Post;
  application.MessageBox('密码修改成功！','系统提示',mb_ok);
  close;
  end
  else
  begin
  application.MessageBox('两次输入的新密码不一致！','系统提示',mb_ok);
  edit2.Text:='';
  edit3.Text:='';
  end;
  end
  else
  begin
  application.MessageBox('旧密码不正确！','系统提示',mb_ok);
  end;
end;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
end;

procedure TForm_password.BitBtn_cancleClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
form_password.Close;
end;

procedure TForm_password.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
BitBtn_OKClick(nil);
end;

procedure TForm_password.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure TForm_password.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

end.