u_change_password.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_change_password;

interface

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

type
  TF_change_password = class(TF_Form_base)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_change_password: TF_change_password;

implementation

uses U_data;

{$R *.dfm}

procedure TF_change_password.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = 13 then
    Edit2.SetFocus;
end;

procedure TF_change_password.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key = 13 then
    edit3.SetFocus;
end;

procedure TF_change_password.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  BitBtn1Click(sender);
end;

procedure TF_change_password.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if (Trim(edit2.Text) <> Trim(edit3.Text)) then
  begin
    MessageDlg('新密码与确定新密码不相同，请确认新密码！', mtWarning, [mbOK], 0);
    Edit3.Clear;
    Edit3.SetFocus;
    Exit;
  end;

  Sql_s := 'select password from TB_acount where Ucode=''' + Login_code + ''' and Password=''' + Trim(edit1.Text) + ''''; ;
  SQL_open(sql_s);
  if DM.Q_TempA.RecordCount = 1 then
  begin
    SQL_S := 'Update TB_Acount set Password=''' + Edit2.text + ''' where Ucode=''' + Login_code + '''';
    SQL_Exec(sql_s);
    MessageDlg('密码已更改成功,请记住新密码！', mtInformation, [mbOK], 0);
    Close;
  end
  else
  begin
    MessageDlg('你输入的旧密码有误，请重新再输！', mtWarning, [mbOK], 0);
    Edit1.Clear;
    Edit1.SetFocus;
  end;
end;

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

initialization
  RegisterClass(TF_change_password);

end.