officepay.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

      object Panel2: TPanel
        Left = 0
        Top = 66
        Width = 781
        Height = 41
        TabOrder = 3
        object btn_qry: TButton
          Left = 149
          Top = 6
          Width = 92
          Height = 29
          Caption = #20135#29983#32467#26524
          TabOrder = 0
          OnClick = btn_qryClick
        end
        object btn_clr: TButton
          Left = 240
          Top = 6
          Width = 92
          Height = 29
          Caption = #28165#31354#26597#35810#26639
          TabOrder = 1
          OnClick = btn_clrClick
        end
        object btn_prt: TButton
          Left = 331
          Top = 6
          Width = 92
          Height = 29
          Caption = #25171#21360#32467#26524
          TabOrder = 2
          OnClick = btn_prtClick
        end
        object Button1: TButton
          Left = 422
          Top = 6
          Width = 140
          Height = 29
          Caption = #25171#21360#26426#21488#23454#25910#20215#26684
          TabOrder = 3
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 561
          Top = 6
          Width = 145
          Height = 29
          Caption = #35813#24180#26376#20323#37329#27719#24635#34920#25171#21360
          TabOrder = 4
          Visible = False
          OnClick = Button2Click
        end
      end
      object GroupBox4: TGroupBox
        Left = 24
        Top = 4
        Width = 187
        Height = 50
        Caption = #25353#24180#26376
        TabOrder = 4
        object Label12: TLabel
          Left = 104
          Top = 25
          Width = 12
          Height = 12
          AutoSize = False
          Caption = #24180
        end
        object Label13: TLabel
          Left = 161
          Top = 23
          Width = 19
          Height = 12
          AutoSize = False
          Caption = #26376
        end
        object cbmonth: TComboBox
          Left = 121
          Top = 19
          Width = 38
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
          OnExit = cbmonthExit
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
        end
        object cbyear: TComboBox
          Left = 26
          Top = 19
          Width = 72
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 1
          OnExit = cbyearExit
          Items.Strings = (
            '1995'
            '1996'
            '1997'
            '1998'
            '1999'
            '2000'
            '2001'
            '2002'
            '2003'
            '2004'
            '2005'
            '2006'
            '2007'
            '2008'
            '2009'
            '2010'
            '')
        end
      end
    end
  end
  object dsmpc_var: TDataSource
    DataSet = qmpc_var
    Left = 702
    Top = 1
  end
  object Queryuse: TQuery
    DatabaseName = 'zxjx_jxw'
    Left = 223
    Top = 65535
  end
  object qgatherpay: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    SQL.Strings = (
      
        'select '#21150#20107#22788#21517#31216','#24180','#26376',sum('#32463#29702#20323#37329'_'#26412#26399') as '#32463#29702#25552#25104',sum('#19994#21153#21592#20323#37329'_'#26412#26399') as '#19994#21153#21592#25552#25104',sum' +
        '('#19994#21153#37096#25552#25104'_'#26412#26399') as '#19994#21153#37096#25552#25104',sum('#32500#20462#20154#21592#20323#37329'_'#26412#26399') as '#32500#20462#20154#21592#25552#25104',sum('#23458#25143#26381#21153#37096#25552#25104'_'#26412#26399') as ' +
        #23458#25143#37096#25552#25104',sum('#28014#21160#22870#37329'_'#26412#26399') as '#28014#21160#22870#37329',sum('#32463#29702#20323#37329'_'#26412#26399')+sum('#19994#21153#21592#20323#37329'_'#26412#26399')+sum('#19994#21153#37096#25552#25104'_' +
        #26412#26399')+sum('#32500#20462#20154#21592#20323#37329'_'#26412#26399')+sum('#23458#25143#26381#21153#37096#25552#25104'_'#26412#26399') as '#24635#20323#37329
      'from crttbl_officepay'
      'where'
      #24180'=:gatheryear and '#26376'=:gathermonth'
      'group by  '#21150#20107#22788#21517#31216','#24180','#26376
      'with rollup')
    Left = 264
    Top = 65535
    ParamData = <
      item
        DataType = ftString
        Name = 'gatheryear'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'gathermonth'
        ParamType = ptUnknown
      end>
    object qgatherpayBDEDesigner: TStringField
      FieldName = #21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qgatherpayBDEDesigner2: TStringField
      FieldName = #24180
      FixedChar = True
      Size = 8
    end
    object qgatherpayBDEDesigner3: TStringField
      FieldName = #26376
      FixedChar = True
      Size = 4
    end
    object qgatherpayBDEDesigner4: TCurrencyField
      FieldName = #32463#29702#25552#25104
    end
    object qgatherpayBDEDesigner5: TCurrencyField
      FieldName = #19994#21153#21592#25552#25104
    end
    object qgatherpayBDEDesigner6: TCurrencyField
      FieldName = #19994#21153#37096#25552#25104
    end
    object qgatherpayBDEDesigner7: TCurrencyField
      FieldName = #32500#20462#20154#21592#25552#25104
    end
    object qgatherpayBDEDesigner8: TCurrencyField
      FieldName = #23458#25143#37096#25552#25104
    end
    object qgatherpayBDEDesigner9: TCurrencyField
      FieldName = #28014#21160#22870#37329
    end
    object qgatherpayBDEDesigner10: TCurrencyField
      FieldName = #24635#20323#37329
    end
  end
  object Query1: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    Left = 294
    Top = 65535
  end
  object qmpc_var: TQuery
    CachedUpdates = True
    OnCalcFields = qmpc_varCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select distinct'
      'a.'#21512#21516#21495',a.'#26426#22411',a.'#20215#27454',a.'#36816#36755#21450#20445#38505#36153',a.'#38468#21152#35013#32622#36153',a.'#29305#21035#24037#31243#20215#27454',a.'#20171#32461#36153',a.'#20854#20182',a.'#21488#25968','
      'b.'#35745#20323#24213#20215','
      'd.'#32463#29702#20323#37329#29575',d.'#19994#21153#21592#20323#37329#29575','
      'e.'#19994#21153#21592#20154#25968',e.'#32463#29702#22995#21517',e.'#21150#20107#22788#21517#31216','
      'f.'#19994#21153#37096#20323#37329#27604#29575',f.'#28014#21160#29575',f.'#23458#25143#26381#21153#37096#20323#37329#27604#29575',f.'#32500#20462#20154#21592#19982#19994#21153#21592#30340#20323#37329#27604#29575','
      #24180'=:year,'#26376'=:month'
      
        'from crttbl_mainpay a,std_machine b,std_pay_office d,pub_z_offic' +
        'e e,std_pay_float f'
      'where'
      'd.'#21150#20107#22788#21517#31216'=a.'#25152#23646#21150#20107#22788
      'and b.'#26426#22411'=a.'#26426#22411
      'and e.'#21150#20107#22788#21517#31216'=a.'#25152#23646#21150#20107#22788)
    Left = 736
    Top = 1
    ParamData = <
      item
        DataType = ftString
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'month'
        ParamType = ptUnknown
      end>
    object qmpc_jtssjg: TFloatField
      DisplayWidth = 15
      FieldKind = fkCalculated
      FieldName = #26426#21488#23454#25910#20215#26684
      Calculated = True
    end
    object qmpc_jc: TFloatField
      DisplayWidth = 11
      FieldKind = fkCalculated
      FieldName = #20215#24046
      Calculated = True
    end
    object qmpc_varField: TFloatField
      DisplayWidth = 17
      FieldKind = fkCalculated
      FieldName = #36135#27454#35843#25972#31995#25968
      Calculated = True
    end
    object qmpc_varField2: TFloatField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = #20215#24046#22870#21169
      Calculated = True
    end
    object qmpc_varField3: TFloatField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = #20215#24046#32602#27454
      Calculated = True
    end
    object qmpc_varField4: TFloatField
      DisplayWidth = 17
      FieldKind = fkCalculated
      FieldName = #32463#29702#20323#37329'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmpc_varField5: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #19994#21153#21592#20323#37329'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmpc_varField6: TFloatField
      DisplayWidth = 21
      FieldKind = fkCalculated
      FieldName = #32500#20462#20154#21592#20323#37329'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmpc_varField7: TFloatField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = #28014#21160#22870#37329'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmpc_varField8: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #19994#21153#37096#25552#25104'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmpc_varField9: TFloatField
      DisplayWidth = 23
      FieldKind = fkCalculated
      FieldName = #23458#25143#26381#21153#37096#25552#25104'_'#26412#26399
      DisplayFormat = '#.##'
      Calculated = True
    end