hm_cpass.pas

本课题是为企业人事管理提供现代化技术支持的管理信息系统

unit hm_cpass;

interface

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

type
  Thm_cpassForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hm_cpassForm: Thm_cpassForm;

implementation

uses hm_main;

{$R *.dfm}

//窗口显示时，清除信息
procedure Thm_cpassForm.FormShow(Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
end;

//--------更改密码窗口关闭时，显示主窗口--------------
procedure Thm_cpassForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    hm_mainForm.Visible:=true;
end;

//-----------添加信息后，确定按钮可用
procedure Thm_cpassForm.Edit1Change(Sender: TObject);
begin
  if Trim(Edit1.Text) <> '' then
    BitBtn1.Enabled:=true;
end;
//---------------确定更改密码-----------
procedure Thm_cpassForm.SpeedButton1Click(Sender: TObject);
begin

end;

//------------------取消更改密码
procedure Thm_cpassForm.BitBtn1Click(Sender: TObject);
begin
  //检查两遍密码是否一致
    if Trim(Edit1.Text) = Trim(Edit2.Text) then
    begin//一致，则更改
        ADOQuery1.close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Text := 'update 用户清单 set 密码 = '''+Trim(Edit1.Text)+'''';
        ADOQuery1.ExecSQL;
        ShowMessage('更改密码成功！');
        hm_cpassForm.Close;
    end
    else
    begin //否则提示
        ShowMessage('两遍密码不一致！请重新输入');
        //Edit1.Clear;
        //Edit2.Clear;
    end;
end;

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

end.