mc_fwxxscq.~dfm

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

object FWXXSCQ: TFWXXSCQ
  Left = 228
  Top = 81
  Hint = '房屋信息生成器：'
  BorderStyle = bsToolWindow
  Caption = '房屋信息生成器：'
  ClientHeight = 335
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 5
    Top = 4
    Width = 212
    Height = 53
    Caption = '小区列表：'
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 25
      Width = 48
      Height = 12
      Caption = '小区名：'
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 62
      Top = 21
      Width = 138
      Height = 20
      KeyField = '小区名'
      ListField = '小区名'
      ListSource = DataSource1
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 61
    Width = 213
    Height = 267
    Caption = '大楼列表：'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 18
      Width = 196
      Height = 241
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = '大楼名称'
          Width = 160
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 224
    Top = 4
    Width = 209
    Height = 323
    Caption = '房屋信息模版：'
    TabOrder = 2
    object Bevel1: TBevel
      Left = 1
      Top = 98
      Width = 207
      Height = 7
      Shape = bsTopLine
    end
    object Label11: TLabel
      Left = 8
      Top = 233
      Width = 60
      Height = 12
      Caption = '房间类别：'
    end
    object Label12: TLabel
      Left = 8
      Top = 204
      Width = 60
      Height = 12
      Caption = '配备设施：'
    end
    object Label9: TLabel
      Left = 8
      Top = 174
      Width = 60
      Height = 12
      Caption = '房间结构：'
    end
    object Label7: TLabel
      Left = 8
      Top = 145
      Width = 60
      Height = 12
      Caption = '权属类型：'
    end
    object Label8: TLabel
      Left = 8
      Top = 116
      Width = 36
      Height = 12
      Caption = '朝向：'
    end
    object Bevel2: TBevel
      Left = 1
      Top = 282
      Width = 207
      Height = 7
      Shape = bsTopLine
    end
    object Bevel3: TBevel
      Left = 1
      Top = 256
      Width = 207
      Height = 7
      Shape = bsTopLine
    end
    object Label4: TLabel
      Left = 40
      Top = 264
      Width = 132
      Height = 12
      Caption = '万通花园房屋信息生成器'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 12
      Caption = '单元：'
    end
    object Label6: TLabel
      Left = 127
      Top = 24
      Width = 12
      Height = 12
      Caption = '到'
    end
    object Label10: TLabel
      Left = 8
      Top = 50
      Width = 48
      Height = 12
      Caption = '楼层数：'
    end
    object Label13: TLabel
      Left = 9
      Top = 74
      Width = 60
      Height = 12
      Caption = '每层户数：'
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 67
      Top = 112
      Width = 129
      Height = 20
      KeyField = '房屋朝向'
      ListField = '房屋朝向'
      ListSource = DataSource3
      TabOrder = 0
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 67
      Top = 141
      Width = 129
      Height = 20
      KeyField = '权属类型'
      ListField = '权属类型'
      ListSource = DataSource4
      TabOrder = 1
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 67
      Top = 170
      Width = 129
      Height = 20
      KeyField = '房间结构'
      ListField = '房间结构'
      ListSource = DataSource5
      TabOrder = 2
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 67
      Top = 200
      Width = 129
      Height = 20
      KeyField = '配备信息'
      ListField = '配备信息'
      ListSource = DataSource6
      TabOrder = 3
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 67
      Top = 229
      Width = 129
      Height = 20
      KeyField = '房间类别'
      ListField = '房间类别'
      ListSource = DataSource7
      TabOrder = 4
    end
    object BitBtn1: TBitBtn
      Left = 6
      Top = 291
      Width = 97
      Height = 25
      Hint = '开始生成'
      Caption = '确定[&O]'
      TabOrder = 5
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 105
      Top = 291
      Width = 97
      Height = 25
      Hint = '退出'
      Caption = '退出[&Q]'
      TabOrder = 6
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333FFFFF333333000033333388888833333333333F888888FFF333
        000033338811111188333333338833FFF388FF33000033381119999111833333
        38F338888F338FF30000339119933331111833338F388333383338F300003391
        13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
        33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
        33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
        000039183811193333918338F8F833F83333838F000039118111933339118338
        F3833F83333833830000339111193333391833338F33F8333FF838F300003391
        11833338111833338F338FFFF883F83300003339111888811183333338FF3888
        83FF83330000333399111111993333333388FFFFFF8833330000333333999999
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object Edit3: TEdit
      Left = 72
      Top = 20
      Width = 35
      Height = 20
      TabOrder = 7
      Text = '1'
    end
    object UpDown3: TUpDown
      Left = 107
      Top = 20
      Width = 17
      Height = 20
      Associate = Edit3
      Min = 1
      Max = 999
      Position = 1
      TabOrder = 8
      Wrap = False
    end
    object Edit4: TEdit
      Left = 144
      Top = 20
      Width = 42
      Height = 20
      TabOrder = 9
      Text = '7'
    end
    object UpDown4: TUpDown
      Left = 186
      Top = 20
      Width = 17
      Height = 20
      Associate = Edit4
      Min = 1
      Max = 999
      Position = 7
      TabOrder = 10
      Wrap = False
    end
    object Edit5: TEdit
      Left = 72
      Top = 46
      Width = 113
      Height = 20
      TabOrder = 11
      Text = '7'
    end
    object UpDown5: TUpDown
      Left = 185
      Top = 46
      Width = 17
      Height = 20
      Associate = Edit5
      Min = 1
      Max = 999
      Position = 7
      TabOrder = 12
      Wrap = False
    end
    object Edit6: TEdit
      Left = 72
      Top = 70
      Width = 113
      Height = 20
      TabOrder = 13
      Text = '3'
    end
    object UpDown6: TUpDown
      Left = 185
      Top = 70
      Width = 17
      Height = 20
      Associate = Edit6
      Min = 1
      Max = 999
      Position = 3
      TabOrder = 14
      Wrap = False
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 77
    Top = 20
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select 小区编号,小区名 From 小区信息表')
    Left = 117
    Top = 20
    object Query1BDEDesigner: TStringField
      FieldName = '小区编号'
      Origin = 'WYGL.小区信息表.小区编号'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner2: TStringField
      FieldName = '小区名'
      Origin = 'WYGL.小区信息表.小区名'
      FixedChar = True
      Size = 10
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '所属区域'
    MasterFields = '小区名'
    MasterSource = DataSource1
    TableName = 'dbo.大楼信息表'
    Left = 125
    Top = 93
    object Table1BDEDesigner: TStringField
      FieldName = '大楼编号'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = '大楼名称'
      FixedChar = True
    end
    object Table1BDEDesigner3: TStringField
      FieldName = '所属区域'
      FixedChar = True
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 85
    Top = 93
  end
  object DataSource3: TDataSource
    DataSet = Query2
    Left = 296
    Top = 162
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 朝向')
    Left = 328
    Top = 162
    object Query2BDEDesigner: TStringField
      FieldName = '房屋朝向'
      Origin = 'WYGL.朝向.房屋朝向'
      FixedChar = True
    end
  end
  object DataSource4: TDataSource
    DataSet = Query3
    Left = 296
    Top = 195
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 权属类型')
    Left = 328
    Top = 195
    object Query3BDEDesigner: TStringField
      FieldName = '权属类型'
      Origin = 'WYGL.权属类型.权属类型'
      FixedChar = True
    end
  end
  object DataSource5: TDataSource
    DataSet = Query4
    Left = 296
    Top = 223
  end
  object Query4: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 房间结构')
    Left = 328
    Top = 223
    object Query4BDEDesigner: TStringField
      FieldName = '房间结构'
      Origin = 'WYGL.房间结构.房间结构'
      FixedChar = True
    end
  end
  object DataSource6: TDataSource
    DataSet = Query5
    Left = 296
    Top = 253
  end
  object Query5: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 配备信息')
    Left = 328
    Top = 253
    object Query5BDEDesigner: TStringField
      FieldName = '配备信息'
      Origin = 'WYGL.配备信息.配备信息'
      FixedChar = True
      Size = 30
    end
  end
  object DataSource7: TDataSource
    DataSet = Query6
    Left = 296
    Top = 283
  end
  object Query6: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 房间类别')
    Left = 328
    Top = 283
    object Query6BDEDesigner: TStringField
      FieldName = '房间类别'
      Origin = 'WYGL.房间类别.房间类别'
      FixedChar = True
    end
  end
  object Query7: TQuery
    DatabaseName = 'WYGL'
    Left = 224
    Top = 212
  end
end