main.dfm

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

object frmMain: TfrmMain
  Left = 189
  Top = 118
  Width = 802
  Height = 550
  Caption = #20817#20184#38598#36164
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000044000000000000000001300000000064EE46000000
    0000000138733000000044EE440000000000013887F873300004EEEEEE400000
    00013887700FF873304EE4EE4EE40000013887700FB00FF8736644EE4EE40001
    3887700FBFFFB00FF8734EEEEE46011387700FBF88BFFFB00F64EEEEE4000177
    700FBF88FF88BFFFB04EE4EE4446017007F7FFBF88FF88BFFF4EE4EE4EE40186
    0877F7FFBF08FF88BFF4EEEEEE400018660877F7FF800FFF78B644EE44000001
    11660877F7F0E00FFF88B4EE460000011311660877F702C07FFF8844FF000000
    1838116608770E2C0F7FFFFF0000000013838311660870E2C0FF7F0000000000
    173838318166080E2C070000000000001373738318186600E2C0000000000000
    17373738313181660E2C000000000000137373738383181860E2C00000000001
    3737373738383131000E2C080000000173737373738383831800E2C070000017
    373737373738383830000E2C0700000FF373737373738383800000E2C0000000
    0FF73737373738383800000E2C000000000FF3737373738380000000E2000000
    00000FF73737373838000000000000000000000FF37373738000000000000000
    000000000FF73737000000000000000000000000000FF3738000000000000000
    0000000000000FF000000000000000000000000000000008000000000000FFF9
    FFCFFFE07F03FF801F03FE000601F8000000E000000080000000000000030000
    0000000000000000000080000001C0000001C0000001E0000003E000000FE000
    003FE00000FFE000007FE000002FC0000407C00002038000030180000381E000
    03C1F80003E1FE0003F3FF8007FFFFE007FFFFF807FFFFFE0FFFFFFF8FFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object SB: TStatusBar
    Left = 0
    Top = 504
    Width = 794
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 250
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 794
    Height = 49
    Cursor = crHandPoint
    ButtonHeight = 43
    ButtonWidth = 55
    Caption = 'tlb1'
    Flat = True
    Images = il5
    ShowCaptions = True
    TabOrder = 1
    object btnEdit: TToolButton
      Left = 0
      Top = 0
      Caption = #21015#34920
      DragCursor = crHandPoint
      ImageIndex = 20
      OnClick = btnEditClick
    end
    object btnInsert: TToolButton
      Left = 55
      Top = 0
      Caption = 'Excel'
      DragCursor = crHandPoint
      ImageIndex = 26
      OnClick = btnInsertClick
    end
    object btnDelete: TToolButton
      Left = 110
      Top = 0
      Caption = #26597#35810
      DragCursor = crHandPoint
      ImageIndex = 31
      OnClick = btnDeleteClick
    end
    object btnPrint: TToolButton
      Left = 165
      Top = 0
      Caption = #25171#21360
      DragCursor = crHandPoint
      ImageIndex = 0
      PopupMenu = pm1
      OnClick = btnPrintClick
    end
    object btn1: TToolButton
      Left = 220
      Top = 0
      Caption = #25253#34920#20462#25913
      ImageIndex = 24
      OnClick = btn1Click
    end
    object btn2: TToolButton
      Left = 275
      Top = 0
      Caption = #21047#26032
      ImageIndex = 29
      OnClick = btn2Click
    end
    object btnClose: TToolButton
      Left = 330
      Top = 0
      Caption = #36864#20986
      DragCursor = crHandPoint
      ImageIndex = 33
      OnClick = btnCloseClick
    end
  end
  object FlatPanel3: TFlatPanel
    Left = 0
    Top = 360
    Width = 794
    Height = 144
    ParentColor = True
    Align = alBottom
    TabOrder = 2
    object DBGridEh2: TDBGridEh
      Left = 1
      Top = 1
      Width = 792
      Height = 142
      Align = alClient
      Color = clWhite
      DataSource = dm.ds_tmp
      Flat = True
      FooterColor = clWindow
      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]
      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 = 'df_sj'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Caption = #20817#20184#26085#26399
          Title.Color = 16777200
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 121
        end
        item
          Color = 15532030
          EditButtons = <>
          FieldName = 'df_bj'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Footer.DisplayFormat = '#,##0.00'
          Footers = <>
          Title.Caption = #20817#20184#26412#37329
          Title.Color = 16777200
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 54
        end
        item
          Color = 15532030
          EditButtons = <>
          FieldName = 'df_ye'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Footer.DisplayFormat = '#,##0.00'
          Footers = <>
          Title.Caption = #20313#39069
          Title.Color = 16777200
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 58
        end
        item
          Color = 15532030
          EditButtons = <>
          FieldName = 'df_lx'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Footer.DisplayFormat = '#,##0.00'
          Footers = <>
          Title.Caption = #21033#24687
          Title.Color = 16777200
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 68
        end
        item
          Color = 15532030
          EditButtons = <>
          FieldName = 'df_jbr'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Caption = #32463#21150#20154
          Title.Color = 16777200
          Title.TitleButton = True
          Title.ToolTips = True
          ToolTips = True
          Width = 83
        end>
    end
  end
  object pnl1: TPanel
    Left = 0
    Top = 49
    Width = 794
    Height = 311