unit4.dfm

本课题的开发是为物业部门提供一套高效、快捷的应用软件。适用于房产业主、大中小型物业公司、物业服务商、房地产开发商、物业中介公司等物业管理；用于管理公寓、住宅群体、智能小区、商品房、多层住宅、商业大厦、

          Enabled = False
          TabOrder = 0
        end
        object DBEdit12: TDBEdit
          Left = 104
          Top = 108
          Width = 100
          Height = 21
          DataField = #32564#36153#26041#24335
          DataSource = DataSource3
          TabOrder = 1
        end
        object DBEdit11: TDBEdit
          Left = 288
          Top = 52
          Width = 100
          Height = 21
          DataField = #32564#36153#24635#39069
          DataSource = DataSource3
          TabOrder = 2
        end
        object DBEdit13: TDBEdit
          Left = 464
          Top = 52
          Width = 100
          Height = 21
          DataField = #32564#36153#26085#26399
          DataSource = DataSource3
          TabOrder = 3
        end
        object DBEdit15: TDBEdit
          Left = 384
          Top = 108
          Width = 100
          Height = 21
          DataField = #25910#36153#20154#21592
          DataSource = DataSource3
          TabOrder = 4
        end
        object DBMemo3: TDBMemo
          Left = 112
          Top = 152
          Width = 329
          Height = 57
          DataField = #22791#27880
          DataSource = DataSource3
          TabOrder = 5
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 104
          Top = 48
          Width = 100
          Height = 21
          DataField = #25910#36153'ID'
          DataSource = DataSource3
          KeyField = #25910#36153#32534#21495
          ListField = #25910#36153#21517#31216
          ListSource = DataSource3_1
          TabOrder = 6
        end
        object DBEdit20: TDBEdit
          Left = 288
          Top = 16
          Width = 100
          Height = 21
          DataField = #20303#25143#32534#21495
          DataSource = DataSource3
          Enabled = False
          TabOrder = 7
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 216
        Width = 584
        Height = 164
        Align = alBottom
        TabOrder = 1
        object DBGrid3: TDBGrid
          Left = 1
          Top = 1
          Width = 582
          Height = 162
          Align = alClient
          DataSource = DataSource3
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20303#25143#23478#24237#25104#21592#36164#26009'(&D)'
      ImageIndex = 3
      OnShow = TabSheet4Show
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 584
        Height = 211
        Align = alClient
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label30: TLabel
          Left = 232
          Top = 16
          Width = 52
          Height = 13
          Caption = #25104#21592#21517#31216
          FocusControl = DBEdit27
        end
        object Label31: TLabel
          Left = 400
          Top = 56
          Width = 52
          Height = 13
          Caption = #20986#29983#26085#26399
          FocusControl = DBEdit28
        end
        object Label32: TLabel
          Left = 232
          Top = 56
          Width = 26
          Height = 13
          Caption = #24615#21035
        end
        object Label33: TLabel
          Left = 64
          Top = 56
          Width = 26
          Height = 13
          Caption = #31216#35859
        end
        object Label34: TLabel
          Left = 64
          Top = 104
          Width = 26
          Height = 13
          Caption = #22791#27880
        end
        object Label26: TLabel
          Left = 64
          Top = 16
          Width = 52
          Height = 13
          Caption = #20303#25143#32534#21495
          FocusControl = DBEdit21
        end
        object DBEdit27: TDBEdit
          Left = 304
          Top = 12
          Width = 80
          Height = 21
          DataField = #25104#21592#21517#31216
          DataSource = DataSource4
          TabOrder = 0
        end
        object DBEdit28: TDBEdit
          Left = 464
          Top = 52
          Width = 80
          Height = 21
          DataField = #29983#26085#26085#26399
          DataSource = DataSource4
          TabOrder = 1
        end
        object DBMemo4: TDBMemo
          Left = 136
          Top = 96
          Width = 305
          Height = 89
          DataField = #22791#27880
          DataSource = DataSource4
          TabOrder = 2
        end
        object DBEdit21: TDBEdit
          Left = 120
          Top = 16
          Width = 80
          Height = 21
          DataField = #20303#25143#32534#21495
          DataSource = DataSource4
          Enabled = False
          TabOrder = 3
        end
        object DBComboBox1: TDBComboBox
          Left = 120
          Top = 56
          Width = 80
          Height = 21
          DataField = #31216#35859
          DataSource = DataSource4
          ItemHeight = 13
          Items.Strings = (
            #29238#20146
            #27597#20146
            #21733#21733
            #24351#24351
            #22992#22992)
          TabOrder = 4
        end
        object DBComboBox2: TDBComboBox
          Left = 304
          Top = 56
          Width = 80
          Height = 21
          DataField = #24615#21035
          DataSource = DataSource4
          ItemHeight = 13
          Items.Strings = (
            #30007
            #22899)
          TabOrder = 5
        end
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 211
        Width = 584
        Height = 169
        Align = alBottom
        DataSource = DataSource4
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 408
    Width = 592
    Height = 63
    Align = alBottom
    TabOrder = 1
    object Button2: TButton
      Left = 216
      Top = 15
      Width = 79
      Height = 32
      Caption = #20445#23384'(&P)'
      Enabled = False
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 304
      Top = 15
      Width = 79
      Height = 32
      Caption = #21024#38500'(&D)'
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 392
      Top = 15
      Width = 79
      Height = 32
      Caption = #21462#28040
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 488
      Top = 16
      Width = 78
      Height = 31
      Caption = #36864#20986
      TabOrder = 3
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 128
      Top = 15
      Width = 77
      Height = 32
      Caption = #20462#25913'(&E)'
      TabOrder = 4
      OnClick = Button6Click
    end
    object Button1: TButton
      Left = 32
      Top = 15
      Width = 79
      Height = 32
      Caption = #28155#21152'(&A)'
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #20303#25143#20449#24687#34920
    Left = 9
    Top = 352
    object ADOTable1DSDesigner: TAutoIncField
      FieldName = #20303#25143#32534#21495
      ReadOnly = True
    end
    object ADOTable1DSDesigner2: TIntegerField
      FieldName = #25151#38388#32534#21495
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = #20303#25143#21517#31216
      Size = 255
    end
    object ADOTable1DSDesigner4: TWideStringField
      FieldName = #32852#31995#30005#35805
      Size = 255
    end
    object ADOTable1DSDesigner5: TWideStringField
      FieldName = #32852#31995#22320#22336
      Size = 255
    end
    object ADOTable1DSDesigner6: TFloatField
      FieldName = #39044#20184#37329#39069
    end
    object ADOTable1DSDesigner7: TFloatField
      FieldName = #27424#36153#37329#39069
    end
    object ADOTable1DSDesigner8: TWideStringField
      FieldName = #29366#24577
      Size = 255
    end
    object ADOTable1DSDesigner9: TWideStringField
      FieldName = #22791#27880
      Size = 255
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 432
    Top = 8
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 400
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 464
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery2
    Left = 496
    Top = 8
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery3
    Left = 528
    Top = 8
  end
  object ADOTable2_1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #25151#22411#36164#26009#34920
    Left = 389
    Top = 145
    object ADOTable2_1DSDesigner: TAutoIncField
      FieldName = #25151#22411#32534#21495
      ReadOnly = True
    end
    object ADOTable2_1DSDesigner2: TWideStringField
      FieldName = #25151#22411
    end
    object ADOTable2_1DSDesigner3: TIntegerField
      FieldName = #24314#31569#38754#31215
    end
    object ADOTable2_1DSDesigner4: TIntegerField
      FieldName = #20351#29992#38754#31215
    end
    object ADOTable2_1DSDesigner5: TWideStringField
      FieldName = #22791#27880
      Size = 40
    end
  end
  object ADOTable3_1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #29289#19994#25910#36153#39033#30446#34920
    Left = 437
    Top = 145
    object ADOTable3_1DSDesigner: TAutoIncField
      FieldName = #25910#36153#32534#21495
      ReadOnly = True
    end
    object ADOTable3_1DSDesigner2: TWideStringField
      FieldName = #25910#36153#21517#31216
      Size = 255
    end
    object ADOTable3_1DSDesigner3: TBCDField
      FieldName = #25910#36153#37329#39069
      Precision = 19
    end
    object ADOTable3_1DSDesigner4: TWideStringField
      FieldName = #25910#36153#21333#20301
      Size = 255
    end
    object ADOTable3_1DSDesigner5: TWideStringField
      FieldName = #25910#36153#21608#26399
      Size = 255
    end
    object ADOTable3_1DSDesigner6: TWideStringField
      FieldName = #22791#27880
      Size = 255
    end
  end
  object ADOTable4_1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #20303#25143#20449#24687#34920
    Left = 476
    Top = 144
    object ADOTable4_1DSDesigner: TAutoIncField
      FieldName = #20303#25143#32534#21495
      ReadOnly = True
    end
    object ADOTable4_1DSDesigner2: TIntegerField
      FieldName = #25151#38388#32534#21495
    end
    object ADOTable4_1DSDesigner3: TWideStringField
      FieldName = #20303#25143#21517#31216
      Size = 255
    end
    object ADOTable4_1DSDesigner4: TWideStringField
      FieldName = #32852#31995#30005#35805
      Size = 255
    end
    object ADOTable4_1DSDesigner5: TWideStringField
      FieldName = #32852#31995#22320#22336
      Size = 255
    end
    object ADOTable4_1DSDesigner6: TFloatField
      FieldName = #39044#20184#37329#39069
    end
    object ADOTable4_1DSDesigner7: TFloatField
      FieldName = #27424#36153#37329#39069
    end
    object ADOTable4_1DSDesigner8: TWideStringField
      FieldName = #29366#24577
      Size = 255
    end
    object ADOTable4_1DSDesigner9: TWideStringField
      FieldName = #22791#27880
      Size = 255
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#20303#25143#25151#23627#36164#26009#34920)
    Left = 44
    Top = 352
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  '#29289#19994#32564#36153#31649#29702#34920)
    Left = 76
    Top = 352
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#20303#25143#23478#24237#25104#21592#36164#26009#34920)
    Left = 108
    Top = 352
  end
  object DataSource2_1: TDataSource
    DataSet = ADOTable2_1
    Left = 388
    Top = 184
  end
  object DataSource3_1: TDataSource
    DataSet = ADOTable3_1
    Left = 436
    Top = 184
  end
  object DataSource4_1: TDataSource
    DataSet = ADOTable4_1
    Left = 472
    Top = 184
  end
end