mc_ssfydj.~dfm

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

          ReadOnly = True
          Width = 87
          Visible = True
        end
        item
          Color = clAqua
          Expanded = False
          FieldName = '应收金额'
          ReadOnly = True
          Width = 59
          Visible = True
        end
        item
          Color = clWhite
          Expanded = False
          FieldName = '实收金额'
          Width = 62
          Visible = True
        end
        item
          Color = clAqua
          Expanded = False
          FieldName = '剩余金额'
          ReadOnly = True
          Width = 59
          Visible = True
        end>
    end
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 519
    Width = 177
    Height = 25
    Caption = '登记收费信息[&E]'
    TabOrder = 5
    OnClick = BitBtn1Click
    Glyph.Data = {
      36020000424D3602000000000000360000002800000010000000100000000100
      10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
      000000000000000000000000000000000000000000001F7C1F7CFF7FFF7FFF7F
      FF7FFF7FB556B556FF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
      FF7FFF7F4A29FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7F4A29FF7F
      4A29B55600008418D16DFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
      FF7FFF7FFF7FD16D0629C6302E66FF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
      4A294A294A298C5D3176063184204210FF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FF57E33768C4D84208210FF7FFF7F1F7C1F7CFF7F00004A29
      000000004A294A298C5D287E464D444D84204210FF7F1F7C1F7CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F464D687E464D444D842082101F7C1F7CFF7F4A294A29
      4A294A294A294A294A294A29464D287E464D444D842042101F7CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7F464D687E464D444D84201F7CFF7F4A294A29
      4A294A294A294A290000FF7FFF7FFF7F464D287E464D444D1F7CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F464D687E464D1F7CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F464D287E1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C464D1F7C}
  end
  object BitBtn4: TBitBtn
    Left = 612
    Top = 519
    Width = 177
    Height = 25
    Caption = '退出收费登记[&Q]'
    TabOrder = 6
    OnClick = BitBtn4Click
    Glyph.Data = {
      36020000424D3602000000000000360000002800000010000000100000000100
      10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C000000000000EF3DEF3DEF3D00001F7C1F7C00001F7CFF7F
      000000000000FF7F000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7CFF7F
      FF7FFF7F00000000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      00000000000000001F7C00000000EF3DF75EEF3D00001F7C1F7C000000001F7C
      000000001F7C000000001F7C1F7CEF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C000000000000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C000000001F7C0000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7CFF7F0000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7CFF7F0000000000000000EF3DEF3D00001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7CFF7F0000000000000000000000001F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7CFF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C0F000F000F000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C0F001F7C1F7C0F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C0F000F000F000F000F000F001F7C1F7C}
  end
  object BitBtn2: TBitBtn
    Left = 330
    Top = 519
    Width = 129
    Height = 25
    Caption = '保存收费信息[&S]'
    Enabled = False
    TabOrder = 7
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 460
    Top = 519
    Width = 133
    Height = 25
    Caption = '取消收费信息[&U]'
    Enabled = False
    TabOrder = 8
    OnClick = BitBtn3Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333FFFFF333333000033333388888833333333333F888888FFF333
      000033338811111188333333338833FFF388FF33000033381119999111833333
      38F338888F338FF30000339119933331111833338F388333383338F300003391
      13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
      33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
      33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
      000039183811193333918338F8F833F83333838F000039118111933339118338
      F3833F83333833830000339111193333391833338F33F8333FF838F300003391
      11833338111833338F338FFFF883F83300003339111888811183333338FF3888
      83FF83330000333399111111993333333388FFFFFF8833330000333333999999
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  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
    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 DataSource5: TDataSource
    DataSet = Table4
    Left = 384
    Top = 264
  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 DataSource6: TDataSource
    DataSet = Table5
    Left = 600
    Top = 258
  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 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
  object DataSource7: TDataSource
    DataSet = Query2
    Left = 608
    Top = 380
  end
end