mc_fwll.~dfm

来自「这是有关delphi数据库开发的电子书」· ~DFM 代码 · 共 151 行

object FWLL: TFWLL
  Left = 223
  Top = 75
  Hint = '房屋信息浏览'
  BorderStyle = bsToolWindow
  Caption = '房屋信息浏览：'
  ClientHeight = 621
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 5
    Top = 3
    Width = 783
    Height = 611
    Caption = '房屋列表：'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 767
      Height = 587
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = '房间编号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '区名'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '大楼名'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房间号码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房主代号'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房主姓名'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '权属类型'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '朝向'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房间结构'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '用途'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房间类别'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '配备设施'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '房屋状态'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = '建筑面积'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '使用面积'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '公产面积'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '私产面积'
          Visible = True
        end
        item
          Expanded = False
          FieldName = '是否空闲'
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = FWXXDJ.Query1
    Left = 349
    Top = 163
  end
end