updatepw.pas

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

unit UpdatePW;

interface

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

type
  TUpdatePWForm = class(TForm)
    Lbl_old_password: TLabel;
    lbl_new_password: TLabel;
    lbl_check_new_password: TLabel;
    Image1: TImage;
    EditOld: TEdit;
    EditNew: TEdit;
    EditConfirm: TEdit;
    Btn_ok: TButton;
    Btn_cancel: TButton;
    ADOQry_update: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_cancelClick(Sender: TObject);
    procedure Btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UpdatePWForm: TUpdatePWForm;

implementation

uses DataModule, Login, Unit_common_files;

{$R *.dfm} 
procedure TUpdatePWForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action      :=cafree;
  UpdatePWForm:=nil;
end;

procedure TUpdatePWForm.Btn_cancelClick(Sender: TObject);
begin
  close;
end;

procedure TUpdatePWForm.Btn_okClick(Sender: TObject);
var
   new_pass :string;
begin
  if Trim(EditNew.Text)<>Trim(EditConfirm.Text) then
   begin
     warning('你输入的两次新密码不一致，请重新输入！');
     exit;
   end
else if trim(EditOld.Text)<>trim(CurrentPassword) then
    begin
     warning('你输入旧密码和当前系统登陆'+#13+'密码不一致，请重新输入！');
     exit;
    end
else
   begin  
//showmessage(EditNew.Text);
//showmessage(EditOld.Text);
     if ADOQry_update.Active then
        ADOQry_update.Close;
        ADOQry_update.Parameters.ParamByName('password').Value :=EditNew.Text;
        ADOQry_update.Parameters.ParamByName('OLD_password').Value :=EditOld.Text;
        ADOQry_update.Parameters.ParamByName('username').Value :=CurrentUserName;
        ADOQry_update.ExecSQL;
        Application.MessageBox('密码修改成功！','余科华提示！',MB_OK or MB_ICONEXCLAMATION);
        close;
   end
end;

end.