main.dfm

此功能是集资对付系统,为一单位要求而做,此能实现了实时对付

    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object pnl2: TPanel
      Left = 696
      Top = 0
      Width = 98
      Height = 311
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object RzDBNavigator1: TRzDBNavigator
        Left = 0
        Top = 0
        Width = 98
        Height = 25
        DataSource = ds_Jzry
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        Align = alTop
        TabOrder = 0
      end
      object FlatGroupBox1: TFlatGroupBox
        Left = 0
        Top = 25
        Width = 98
        Height = 72
        Align = alTop
        Caption = #32534#21495#26597#35810
        TabOrder = 1
        object PDJXPSpeedButton1: TPDJXPSpeedButton
          Left = 24
          Top = 46
          Width = 57
          Height = 20
          Caption = #30830#23450
          OnClick = PDJXPSpeedButton1Click
        end
        object edtId: TPDJXPEdit
          Left = 4
          Top = 18
          Width = 89
          Height = 20
          TabOrder = 0
        end
      end
    end
    object pnl3: TPanel
      Left = 0
      Top = 0
      Width = 696
      Height = 311
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object FlatPanel5: TFlatPanel
        Left = 0
        Top = 0
        Width = 696
        Height = 243
        ParentColor = True
        Align = alClient
        TabOrder = 0
        object DBGridEh1: TDBGridEh
          Left = 1
          Top = 1
          Width = 694
          Height = 241
          Align = alClient
          Color = clWhite
          DataSource = ds_Jzry
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          FooterColor = 16446458
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          FooterRowCount = 1
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect]
          ParentFont = False
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          UseMultiTitle = True
          Columns = <
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'ID'
              Footer.Value = #21512#35745#65306
              Footer.ValueType = fvtStaticText
              Footers = <>
              MRUList.Active = True
              Title.Caption = #32534#21495
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 65
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'xm'
              Footer.Alignment = taCenter
              Footer.Font.Charset = GB2312_CHARSET
              Footer.Font.Color = clRed
              Footer.Font.Height = -12
              Footer.Font.Name = #23435#20307
              Footer.Font.Style = []
              Footer.ValueType = fvtCount
              Footers = <>
              MRUList.Active = True
              Title.Caption = #22995#21517
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 66
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'zz'
              Footer.Value = #26465#35760#24405#65281
              Footer.ValueType = fvtStaticText
              Footers = <>
              MRUList.Active = True
              Title.Caption = #30005#35805
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 131
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'sfz'
              Footers = <>
              MRUList.Active = True
              Title.Caption = #36523#20221#35777#21495#30721
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 95
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'jzhm'
              Footers = <>
              MRUList.Active = True
              Title.Caption = #38598#36164#21495#30721
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 69
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'crsj'
              Footers = <>
              MRUList.Active = True
              Title.Caption = #23384#20837#26102#38388
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 80
            end
            item
              Color = 15532030
              DisplayFormat = '#,##0.00'
              EditButtons = <>
              FieldName = 'je'
              Footer.DisplayFormat = '#,##0.00'
              Footer.ValueType = fvtSum
              Footers = <>
              MRUList.Active = True
              Title.Caption = #37329#39069
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
              Width = 121
            end
            item
              Color = 15792112
              DisplayFormat = '#,##0.00'
              EditButtons = <>
              FieldName = 'tBj'
              Footer.DisplayFormat = '#,##0.00'
              Footer.ValueType = fvtSum
              Footers = <>
              Title.Caption = #20817#20184
              Title.Color = 16777200
              Width = 109
            end
            item
              Color = 15262207
              DisplayFormat = '#,##0.00'
              EditButtons = <>
              FieldName = 'tYe'
              Footer.DisplayFormat = '#,##0.00'
              Footer.ValueType = fvtSum
              Footers = <>
              Title.Caption = #26410#20184
              Title.Color = 16777200
              Width = 106
            end
            item
              Color = 15532030
              EditButtons = <>
              FieldName = 'qx'
              Footers = <>
              MRUList.Active = True
              Title.Caption = #26399#38480
              Title.Color = 16777200
              Title.TitleButton = True
              Title.ToolTips = True
              ToolTips = True
            end
            item
              Color = 15532030
              DisplayFormat = '#,##0.00'
              EditButtons = <>
              FieldName = 'lxze'
              Footer.DisplayFormat = '#,##0.00'
              Footer.ValueType = fvtSum
              Footers = <>
              Title.Caption = #21033#24687#24635#39069
              Title.Color = 16777200
              Width = 76
            end>
        end
      end
      object FlatPanel4: TFlatPanel
        Left = 0
        Top = 243
        Width = 696
        Height = 68
        ParentColor = True
        Align = alBottom
        TabOrder = 1
        object lbl1: TLabel
          Left = 8
          Top = 8
          Width = 36
          Height = 12
          Caption = #22995#21517#65306