mc_fylist.~dfm

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

object FYList: TFYList
  Left = 0
  Top = 74
  BorderStyle = bsToolWindow
  Caption = '费用一览：'
  ClientHeight = 471
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox2: TGroupBox
    Left = 142
    Top = 4
    Width = 647
    Height = 437
    Caption = '收费信息：'
    TabOrder = 1
    object Label1: TLabel
      Left = 9
      Top = 417
      Width = 60
      Height = 12
      Caption = '应收水费：'
    end
    object Label2: TLabel
      Left = 68
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object Label3: TLabel
      Left = 113
      Top = 417
      Width = 60
      Height = 12
      Caption = '实收水费：'
    end
    object Label4: TLabel
      Left = 172
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object Label5: TLabel
      Left = 225
      Top = 417
      Width = 60
      Height = 12
      Caption = '应收电费：'
    end
    object Label6: TLabel
      Left = 284
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object Label7: TLabel
      Left = 331
      Top = 417
      Width = 60
      Height = 12
      Caption = '实收电费：'
    end
    object Label8: TLabel
      Left = 390
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object Label9: TLabel
      Left = 433
      Top = 417
      Width = 72
      Height = 12
      Caption = '应收煤气费：'
    end
    object Label10: TLabel
      Left = 502
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object Label11: TLabel
      Left = 539
      Top = 417
      Width = 72
      Height = 12
      Caption = '实收煤气费：'
    end
    object Label12: TLabel
      Left = 609
      Top = 417
      Width = 6
      Height = 12
      Caption = '0'
    end
    object DBGrid2: TDBGrid
      Left = 8
      Top = 16
      Width = 631
      Height = 393
      DataSource = DataSource3
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          Title.Caption = '费用编号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '户主姓名'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '应收水费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '实收水费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '水费余额'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '应收电费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '实收电费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '电费余额'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '应收煤气费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '实收煤气费'
          Visible = True
        end
        item
          Expanded = False
          Title.Caption = '煤气费余额'
          Visible = True
        end>
    end
  end
  object GroupBox4: TGroupBox
    Left = 142
    Top = 4
    Width = 647
    Height = 437
    Caption = '费用信息：'
    TabOrder = 5
    Visible = False
    object DBGrid4: TDBGrid
      Left = 8
      Top = 16
      Width = 630
      Height = 411
      DataSource = DataSource5
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 131
    Height = 462
    Caption = '区域设定：'
    TabOrder = 0
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 9
      Top = 19
      Width = 112
      Height = 20
      KeyField = '小区名'
      ListField = '小区名'
      ListSource = DataSource1
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 48
      Width = 113
      Height = 402
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = '大楼名称'
          Width = 76
          Visible = True
        end>
    end
  end
  object BitBtn1: TBitBtn
    Left = 142
    Top = 445
    Width = 163
    Height = 25
    Caption = '水电煤气费用一览'
    TabOrder = 2
    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 = 306
    Top = 445
    Width = 167
    Height = 25
    Caption = '定义浏览费项'
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
      33333333333F8888883F33330000324334222222443333388F3833333388F333
      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
      3338888300003AAAAAAA33333333333888888833333333330000333333333333
      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object GroupBox3: TGroupBox
    Left = 208
    Top = 136
    Width = 321
    Height = 235
    Caption = '科目定义：'
    TabOrder = 4
    Visible = False
    object DBGrid3: TDBGrid
      Left = 8
      Top = 16
      Width = 129
      Height = 212
      DataSource = DataSource4
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = BitBtn3Click
    end
    object ListBox1: TListBox
      Left = 191
      Top = 16
      Width = 121
      Height = 212
      ItemHeight = 12
      TabOrder = 1
      OnDblClick = BitBtn4Click
    end
    object BitBtn3: TBitBtn
      Left = 139
      Top = 16
      Width = 50
      Height = 25
      Caption = '->'
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 139
      Top = 42
      Width = 50
      Height = 25
      Caption = '<-'
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 139
      Top = 203
      Width = 51
      Height = 25
      Caption = '确定'
      TabOrder = 4
      OnClick = BitBtn5Click
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'WYGL'
    TableName = 'dbo.小区信息表'
    Left = 124
    Top = 20
    object Table1BDEDesigner: TStringField
      FieldName = '小区编号'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = '小区名'
      FixedChar = True
      Size = 10
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '所属区域'
    MasterFields = '小区名'
    MasterSource = DataSource1
    TableName = 'dbo.大楼信息表'
    Left = 124
    Top = 76
    object Table2BDEDesigner: TStringField
      FieldName = '大楼编号'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner2: TStringField
      FieldName = '大楼名称'
      FixedChar = True
    end
    object Table2BDEDesigner3: TStringField
      FieldName = '所属区域'
      FixedChar = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 84
    Top = 20
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 84
    Top = 76
  end
  object Query1: TQuery
    DatabaseName = 'WYGL'
    Left = 437
    Top = 60
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 405
    Top = 60
  end
  object Query2: TQuery
    DatabaseName = 'WYGL'
    Left = 424
    Top = 264
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'WYGL'
    TableName = 'dbo.费用科目'
    Left = 272
    Top = 184
    object Table3BDEDesigner: TStringField
      DisplayWidth = 15
      FieldName = '科目名'
      Required = True
      FixedChar = True
    end
  end
  object DataSource4: TDataSource
    DataSet = Table3
    Left = 272
    Top = 216
  end
  object DataSource5: TDataSource
    DataSet = Query2
    Left = 464
    Top = 264
  end
end