changeuser.~pas

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

unit ChangeUser;

interface

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

type
  TFrm_ChangeUser = class(Tfrm_base)
    Panel1: TPanel;
    Label2: TLabel;
    edtPassword: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    EdtUserId: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_ChangeUser: TFrm_ChangeUser;

implementation

{$R *.DFM}

procedure TFrm_ChangeUser.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
Tcomponent(Frm_ChangeUser):=nil;
end;

end.