Left = 8
        Top = 250
        Width = 60
        Height = 12
        Caption = '實收金額：'
        FocusControl = DBEdit22
      end
      object Label36: TLabel
        Left = 8
        Top = 274
        Width = 60
        Height = 12
        Caption = '剩余金額：'
        FocusControl = DBEdit23
      end
      object DBText15: TDBText
        Left = 90
        Top = 200
        Width = 65
        Height = 17
        DataField = '使用數'
        DataSource = DataSource6
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋體'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit15: TDBEdit
        Left = 91
        Top = 77
        Width = 64
        Height = 20
        DataField = '收費金額'
        DataSource = DataSource6
        TabOrder = 0
        OnEnter = DBEdit4Enter
        OnExit = DBEdit4Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit3: TDBEdit
        Left = 91
        Top = 150
        Width = 64
        Height = 20
        DataField = '本月讀數'
        DataSource = DataSource6
        TabOrder = 1
        OnEnter = DBEdit4Enter
        OnExit = DBEdit3Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit21: TDBEdit
        Left = 91
        Top = 222
        Width = 64
        Height = 20
        DataField = '應收金額'
        DataSource = DataSource6
        TabOrder = 2
        OnEnter = DBEdit4Enter
        OnExit = DBEdit4Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit22: TDBEdit
        Left = 91
        Top = 246
        Width = 64
        Height = 20
        DataField = '實收金額'
        DataSource = DataSource6
        ReadOnly = True
        TabOrder = 3
        OnEnter = DBEdit4Enter
        OnExit = DBEdit4Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit23: TDBEdit
        Left = 91
        Top = 270
        Width = 64
        Height = 20
        BorderStyle = bsNone
        Color = clSilver
        DataField = '剩余金額'
        DataSource = DataSource6
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋體'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object DateTimePicker5: TDateTimePicker
        Left = 178
        Top = 102
        Width = 20
        Height = 20
        CalAlignment = dtaLeft
        Date = 37186
        Time = 37186
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 5
        OnCloseUp = DateTimePicker5CloseUp
      end
      object DateTimePicker6: TDateTimePicker
        Left = 178
        Top = 126
        Width = 20
        Height = 20
        CalAlignment = dtaLeft
        Date = 37186
        Time = 37186
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 6
        OnCloseUp = DateTimePicker6CloseUp
      end
      object DBEdit9: TDBEdit
        Left = 91
        Top = 102
        Width = 87
        Height = 20
        DataField = '計費起始日期'
        DataSource = DataSource6
        MaxLength = 10
        TabOrder = 7
        OnEnter = DBEdit4Enter
        OnExit = DBEdit4Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit13: TDBEdit
        Left = 91
        Top = 126
        Width = 87
        Height = 20
        DataField = '計費終止日期'
        DataSource = DataSource6
        MaxLength = 10
        TabOrder = 8
        OnEnter = DBEdit4Enter
        OnExit = DBEdit4Exit
        OnKeyPress = DBEdit4KeyPress
      end
      object DBEdit24: TDBEdit
        Left = 91
        Top = 176
        Width = 64
        Height = 20
        DataField = '上月讀數'
        DataSource = DataSource6
        TabOrder = 9
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 60
    Top = 11
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select 小區編號,小區名 From 小區信息表')
    Left = 92
    Top = 11
    object Query1BDEDesigner: TStringField
      FieldName = '小區編號'
      Origin = 'WYGL.小區信息表.小區編號'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner2: TStringField
      FieldName = '小區名'
      Origin = 'WYGL.小區信息表.小區名'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 36
    Top = 120
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '所屬區域'
    MasterFields = '小區名'
    MasterSource = DataSource1
    TableName = 'dbo.大樓信息表'
    Left = 68
    Top = 120
    object Table1BDEDesigner: TStringField
      FieldName = '大樓編號'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = '大樓名稱'
      FixedChar = True
    end
    object Table1BDEDesigner7: TStringField
      FieldName = '所屬區域'
      FixedChar = True
    end
  end
  object Table2: TTable
    Active = True
    AfterScroll = Table2AfterScroll
    OnCalcFields = Table2CalcFields
    DatabaseName = 'WYGL'
    IndexFieldNames = '大樓名'
    MasterFields = '大樓名稱'
    MasterSource = DataSource2
    TableName = 'dbo.房屋信息表'
    Left = 76
    Top = 335
    object Table2BDEDesigner: TStringField
      FieldName = '房間編號'
      Required = True
      FixedChar = True
    end
    object Table2BDEDesigner2: TStringField
      FieldName = '區名'
      FixedChar = True
    end
    object Table2BDEDesigner3: TStringField
      FieldName = '大樓名'
      FixedChar = True
    end
    object Table2BDEDesigner4: TStringField
      FieldName = '房間號碼'
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner6: TStringField
      FieldName = '房主姓名'
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner18: TStringField
      FieldName = '是否空閑'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource3: TDataSource
    DataSet = Table2
    Left = 44
    Top = 335
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '水表編號'
    MasterFields = '房間編號'
    MasterSource = DataSource3
    TableName = 'dbo.水費'
    Left = 223
    Top = 275
    object Table3BDEDesigner: TStringField
      FieldName = '水表編號'
      Required = True
      FixedChar = True
    end
    object Table3BDEDesigner2: TStringField
      FieldName = '戶主姓名'
      FixedChar = True
      Size = 10
    end
    object Table3BDEDesigner3: TStringField
      FieldName = '收費標準'
      FixedChar = True
    end
    object Table3BDEDesigner4: TFloatField
      FieldName = '收費金額'
    end
    object Table3BDEDesigner5: TDateTimeField
      FieldName = '計費起始日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table3BDEDesigner6: TDateTimeField
      FieldName = '計費終止日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table3BDEDesigner7: TIntegerField
      FieldName = '本月讀數'
    end
    object Table3BDEDesigner8: TIntegerField
      FieldName = '上月讀數'
    end
    object Table3BDEDesigner9: TIntegerField
      FieldName = '使用數'
    end
    object Table3BDEDesigner10: TFloatField
      FieldName = '應收金額'
    end
    object Table3BDEDesigner11: TFloatField
      FieldName = '實收金額'
    end
    object Table3BDEDesigner12: TFloatField
      FieldName = '剩余金額'
    end
  end
  object DataSource4: TDataSource
    DataSet = Table3
    Left = 191
    Top = 275
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '電表編號'
    MasterFields = '房間編號'
    MasterSource = DataSource3
    TableName = 'dbo.電費'
    Left = 416
    Top = 264
    object Table4BDEDesigner: TStringField
      FieldName = '電表編號'
      Required = True
      FixedChar = True
    end
    object Table4BDEDesigner2: TStringField
      FieldName = '戶主姓名'
      FixedChar = True
      Size = 10
    end
    object Table4BDEDesigner3: TStringField
      FieldName = '收費標準'
      FixedChar = True
    end
    object Table4BDEDesigner4: TFloatField
      FieldName = '收費金額'
    end
    object Table4BDEDesigner5: TDateTimeField
      FieldName = '計費起始日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table4BDEDesigner6: TDateTimeField
      FieldName = '計費終止日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table4BDEDesigner7: TIntegerField
      FieldName = '本月讀數'
    end
    object Table4BDEDesigner8: TIntegerField
      FieldName = '上月讀數'
    end
    object Table4BDEDesigner9: TIntegerField
      FieldName = '使用數'
    end
    object Table4BDEDesigner10: TFloatField
      FieldName = '應收金額'
    end
    object Table4BDEDesigner11: TFloatField
      FieldName = '實收金額'
    end
    object Table4BDEDesigner12: TFloatField
      FieldName = '剩余金額'
    end
  end
  object DataSource5: TDataSource
    DataSet = Table4
    Left = 384
    Top = 264
  end
  object Table5: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '煤氣表編號'
    MasterFields = '房間編號'
    MasterSource = DataSource3
    TableName = 'dbo.煤氣費'
    Left = 632
    Top = 258
    object Table5BDEDesigner: TStringField
      FieldName = '煤氣表編號'
      Required = True
      FixedChar = True
    end
    object Table5BDEDesigner2: TStringField
      FieldName = '戶主姓名'
      FixedChar = True
      Size = 10
    end
    object Table5BDEDesigner3: TStringField
      FieldName = '收費標準'
      FixedChar = True
    end
    object Table5BDEDesigner4: TFloatField
      FieldName = '收費金額'
    end
    object Table5BDEDesigner5: TDateTimeField
      FieldName = '計費起始日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table5BDEDesigner6: TDateTimeField
      FieldName = '計費終止日期'
      EditMask = '!0000/00/00;1;_'
    end
    object Table5BDEDesigner7: TIntegerField
      FieldName = '本月讀數'
    end
    object Table5BDEDesigner8: TIntegerField
      FieldName = '上月讀數'
    end
    object Table5BDEDesigner9: TIntegerField
      FieldName = '使用數'
    end
    object Table5BDEDesigner10: TFloatField
      FieldName = '應收金額'
    end
    object Table5BDEDesigner11: TFloatField
      FieldName = '實收金額'
    end
    object Table5BDEDesigner12: TFloatField
      FieldName = '剩余金額'
    end
  end
  object DataSource6: TDataSource
    DataSet = Table5
    Left = 600
    Top = 258
  end
  object DataSource7: TDataSource
    DataSet = Query2
    Left = 608
    Top = 380
  end
  object Query2: TQuery
    DatabaseName = 'WYGL'
    RequestLive = True
    SQL.Strings = (
      'Select * From 常用費用')
    Left = 640
    Top = 380
    object Query2BDEDesigner: TStringField
      FieldName = '收費編號'
      Origin = 'WYGL.常用費用.收費編號'
      FixedChar = True
    end
    object Query2BDEDesigner2: TStringField
      FieldName = '戶主姓名'
      Origin = 'WYGL.常用費用.戶主姓名'
      FixedChar = True
      Size = 10
    end
    object Query2BDEDesigner3: TStringField
      FieldName = '費用科目'
      Origin = 'WYGL.常用費用.費用科目'
      FixedChar = True
    end
    object Query2BDEDesigner4: TFloatField
      FieldName = '收費金額'
      Origin = 'WYGL.常用費用.收費金額'
    end
    object Query2BDEDesigner5: TDateTimeField
      FieldName = '計費起始日期'
      Origin = 'WYGL.常用費用.計費起始日期'
      DisplayFormat = 'YYYY/MM/DD'
      EditMask = '!0000/00/00;1;_'
    end
    object Query2BDEDesigner6: TDateTimeField
      FieldName = '計費終止日期'
      Origin = 'WYGL.常用費用.計費終止日期'
      DisplayFormat = 'YYYY/MM/DD'
      EditMask = '!0000/00/00;1;_'
    end
    object Query2BDEDesigner7: TFloatField
      FieldName = '應收金額'
      Origin = 'WYGL.常用費用.應收金額'
    end
    object Query2BDEDesigner8: TFloatField
      FieldName = '實收金額'
      Origin = 'WYGL.常用費用.實收金額'
    end
    object Query2BDEDesigner9: TFloatField
      FieldName = '剩余金額'
      Origin = 'WYGL.常用費用.剩余金額'
    end
  end
end