unrepassword.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit UnRePassWord;

interface

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

type
  TRepass_frm = class(TForm)
    Label3: TLabel;
    Edt_pass: TEdit;
    Label1: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    function JuedgEdit():Boolean;
  public
    { Public declarations }
  end;

var
  Repass_frm: TRepass_frm;

implementation

uses Undm, UnFuntion, Math, ADODB, DB;

{$R *.dfm}

function TRepass_frm.JuedgEdit: Boolean;
begin
  Result:=True;
  If edit2.Text='' then
  begin
    Application.MessageBox('请输入你的旧密码！','',MB_OK+MB_ICONWARNING);
    Result:=False;
    Exit;
  end else begin
    if Edit2.Text<>Password then begin
    Application.MessageBox('你的旧密码不正确！','',MB_OK+MB_ICONWARNING);
    Result:=False;
    Exit;
    end;
  end;
  if Edt_pass.Text='' then begin
    Application.MessageBox('请输入你的新密码！','',MB_OK+MB_ICONWARNING);
    Edt_pass.SetFocus;  Result:=False;
    Exit;
  end;


  if Edt_pass.Text<>Edit1.Text then begin
    Application.MessageBox('你两次的密码输入不一样，请重试！','',MB_OK+MB_ICONWARNING);
    Edt_pass.SetFocus;  Result:=False;
    Exit;
  end;

end;
procedure TRepass_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin Action:=caFree;Repass_frm:=nil;  end;


procedure TRepass_frm.BitBtn1Click(Sender: TObject);
begin
  if not JuedgEdit then exit;
  Password:=Edt_pass.Text;
  with dm.AQ6 do begin
    SQL.Text:='select * from t_employee';
    Prepared:=True;
    Open;
    SQL.Text:='update t_employee set password='+quotedstr(password)+' where no='+quotedstr(copy(username,1,4));
    ExecSQL;
    Application.MessageBox('密码修改成功！','提示',MB_OK+MB_ICONWARNING);
    BitBtn2Click(nil);
  end;
end;

procedure TRepass_frm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

end.