pas_nousehouse.~pas

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

unit pas_noUseHouse;

interface

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

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

var
  Form_noUseHouse: TForm_noUseHouse;

implementation
  uses pas_dm;
{$R *.dfm}

procedure TForm_noUseHouse.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=0 ');
     open;
   end;
end;

procedure TForm_noUseHouse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   dm.Query_noUseHouse.Close;
end;

end.