pas_usehouse.pas

来自「比较详细的功能」· PAS 代码 · 共 49 行

unit pas_useHouse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids;

type
  TForm_useHouse = class(TForm)
    DBGrid1: TDBGrid;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_useHouse: TForm_useHouse;

implementation

uses Pas_DM;

{$R *.dfm}

procedure TForm_useHouse.FormActivate(Sender: TObject);
begin
with dm.query_noUseHouse do
   begin
     close;
     sql.Clear;
     sql.Add(' select h_no as 房屋编号,h_landlord as 房东,'+
             ' h_tel as 房间电话,h_rent as 参考房租,h_rent_unit as 房租单位,'+
             ' h_addr as 房屋地址 ,h_remarks as 房屋说明'+
             ' from house where h_sign=1 ');
     open;
   end;
end;
procedure TForm_useHouse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    dm.Query_noUseHouse.Close;
end;

end.