userchgpwd.~pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit UserChgPwd;

interface

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

type
  TFrm_UserChgPwd = class(Tfrm_base)
    bbtnOk: TBitBtn;
    bbtnCancel: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    lblUserName: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtOldPassword: TEdit;
    edtNewPassword: TEdit;
    edtNewPassword2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_UserChgPwd: TFrm_UserChgPwd;

implementation

uses Common, DataBase;

{$R *.DFM}

procedure TFrm_UserChgPwd.FormCreate(Sender: TObject);
begin
  inherited;
  lblUserName.Caption:=gs_login_username;

end;

procedure TFrm_UserChgPwd.bbtnOkClick(Sender: TObject);
var sqlstr:string;
begin
  inherited;
  if edtoldpassword.text<>gs_login_password then
  begin
    messagedlg('旧密码输入错误！',mterror,[mbok],0);
    exit;
  end;
  if edtnewpassword.Text<>edtnewpassword2.Text then
  begin
    messagedlg('新密码两次输入不一致！',mterror,[mbok],0);
    exit;
  end else
  begin
    sqlstr:='UPDATE 用户信息表 SET 密码='''+edtnewpassword.Text+''' where 用户名='''+gs_login_userid+'''';
    DataModule1.ADOConnection1.Execute(sqlstr);
    messagedlg('修改完成，密码已经改变！',mtinformation,[mbok],0);
    close;
  end;
end;

procedure TFrm_UserChgPwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Tcomponent(Frm_UserChgPwd):=nil;

end;

procedure TFrm_UserChgPwd.bbtnCancelClick(Sender: TObject);
begin
  inherited;
  close;

end;

end.