mc_sfdtx.dfm

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

        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