officepay1.dfm

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

      end
      object GroupBox4: TGroupBox
        Left = 404
        Top = 13
        Width = 347
        Height = 50
        Caption = #25353#24180#26376
        TabOrder = 4
        object Label12: TLabel
          Left = 162
          Top = 25
          Width = 12
          Height = 12
          AutoSize = False
          Caption = #24180
        end
        object Label13: TLabel
          Left = 287
          Top = 24
          Width = 42
          Height = 12
          AutoSize = False
          Caption = #26376
        end
        object cbmonth: TComboBox
          Left = 207
          Top = 20
          Width = 73
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
        end
        object cbyear: TComboBox
          Left = 26
          Top = 19
          Width = 113
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 1
          Items.Strings = (
            '1995'
            '1996'
            '1997'
            '1998'
            '1999'
            '2000'
            '2001'
            '2002'
            '2003'
            '2004'
            '2005'
            '2006'
            '2007'
            '2008'
            '2009'
            '2010'
            '')
        end
      end
    end
  end
  object dsmpc: TDataSource
    DataSet = qmpc
    Left = 318
    Top = 3
  end
  object qmpc_var: TQuery
    CachedUpdates = True
    AfterOpen = qmpc_varAfterOpen
    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','
      'c.'#21150#20107#22788#21517#31216',c.'#24635#22870#21169',c.'#24635#25187#32602',c.'#24180',c.'#26376',c.'#20027#31649',c.'#23457#26680',c.'#24405#20837',c.'#24405#20837#26085#26399','
      'd.'#32463#29702#20323#37329#29575',d.'#19994#21153#21592#20323#37329#29575','
      'e.'#19994#21153#21592#20154#25968',e.'#32463#29702#22995#21517','
      '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
      
        'from crttbl_mainpay a,std_machine b,pub_z_monthpaycheck c,std_pa' +
        'y_office d,pub_z_office 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
      'and a.'#25152#23646#21150#20107#22788'=c.'#21150#20107#22788#21517#31216)
    Left = 704
    Top = 4
    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
      Calculated = True
    end
    object qmpc_varField5: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #19994#21153#21592#20323#37329'_'#26412#26399
      Calculated = True
    end
    object qmpc_varField6: TFloatField
      DisplayWidth = 21
      FieldKind = fkCalculated
      FieldName = #32500#20462#20154#21592#20323#37329'_'#26412#26399
      Calculated = True
    end
    object qmpc_varField7: TFloatField
      DisplayWidth = 16
      FieldKind = fkCalculated
      FieldName = #28014#21160#22870#37329'_'#26412#26399
      Calculated = True
    end
    object qmpc_varField8: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #19994#21153#37096#25552#25104'_'#26412#26399
      Calculated = True
    end
    object qmpc_varField9: TFloatField
      DisplayWidth = 23
      FieldKind = fkCalculated
      FieldName = #23458#25143#26381#21153#37096#25552#25104'_'#26412#26399
      Calculated = True
    end
    object qmpc_varField10: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #32463#29702#20323#37329'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varField11: TFloatField
      DisplayWidth = 21
      FieldKind = fkCalculated
      FieldName = #19994#21153#21592#20323#37329'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varField12: TFloatField
      DisplayWidth = 23
      FieldKind = fkCalculated
      FieldName = #32500#20462#20154#21592#20323#37329'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varField13: TFloatField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = #28014#21160#22870#37329'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varField14: TFloatField
      DisplayWidth = 21
      FieldKind = fkCalculated
      FieldName = #19994#21153#37096#25552#25104'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varField15: TFloatField
      DisplayWidth = 25
      FieldKind = fkCalculated
      FieldName = #23458#25143#26381#21153#37096#25552#25104'_'#21069#32047#35745
      Calculated = True
    end
    object qmpc_varBDEDesigner20: TStringField
      DisplayWidth = 12
      FieldName = #32463#29702#20323#37329#29575
      Origin = 'ZXJX_JXW.std_pay_office.'#32463#29702#20323#37329#29575
      FixedChar = True
      Size = 10
    end
    object qmpc_varBDEDesigner21: TStringField
      DisplayWidth = 15
      FieldName = #19994#21153#21592#20323#37329#29575
      Origin = 'ZXJX_JXW.std_pay_office.'#19994#21153#21592#20323#37329#29575
      FixedChar = True
      Size = 10
    end
    object qmpc_varBDEDesigner22: TIntegerField
      DisplayWidth = 12
      FieldName = #19994#21153#21592#20154#25968
      Origin = 'ZXJX_JXW.pub_z_office.'#19994#21153#21592#20154#25968
    end
    object qmpc_varBDEDesigner23: TFloatField
      DisplayWidth = 17
      FieldName = #19994#21153#37096#20323#37329#27604#29575
      Origin = 'ZXJX_JXW.std_pay_float.'#19994#21153#37096#20323#37329#27604#29575
    end
    object qmpc_varBDEDesigner24: TFloatField
      DisplayWidth = 12
      FieldName = #28014#21160#29575
      Origin = 'ZXJX_JXW.std_pay_float.'#28014#21160#29575
    end
    object qmpc_varBDEDesigner25: TFloatField
      DisplayWidth = 22
      FieldName = #23458#25143#26381#21153#37096#20323#37329#27604#29575
      Origin = 'ZXJX_JXW.std_pay_float.'#23458#25143#26381#21153#37096#20323#37329#27604#29575
    end
    object qmpc_varBDEDesigner26: TFloatField
      DisplayWidth = 31
      FieldName = #32500#20462#20154#21592#19982#19994#21153#21592#30340#20323#37329#27604#29575
      Origin = 'ZXJX_JXW.std_pay_float.'#32500#20462#20154#21592#19982#19994#21153#21592#30340#20323#37329#27604#29575
    end
    object qmpc_varField16: TFloatField
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = #24635#20323#37329#29575
      Calculated = True
    end
    object qmpc_varBDEDesigner: TStringField
      FieldName = #21512#21516#21495
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#21512#21516#21495
      FixedChar = True
    end
    object qmpc_varBDEDesigner2: TStringField
      FieldName = #26426#22411
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#26426#22411
      FixedChar = True
    end
    object qmpc_varBDEDesigner3: TCurrencyField
      FieldName = #20215#27454
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#20215#27454
    end
    object qmpc_varBDEDesigner4: TCurrencyField
      FieldName = #36816#36755#21450#20445#38505#36153
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#36816#36755#21450#20445#38505#36153
    end
    object qmpc_varBDEDesigner5: TCurrencyField
      FieldName = #38468#21152#35013#32622#36153
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#38468#21152#35013#32622#36153
    end
    object qmpc_varBDEDesigner6: TCurrencyField
      FieldName = #29305#21035#24037#31243#20215#27454
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#29305#21035#24037#31243#20215#27454
    end
    object qmpc_varBDEDesigner7: TCurrencyField
      FieldName = #20171#32461#36153
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#20171#32461#36153
    end
    object qmpc_varBDEDesigner8: TCurrencyField
      FieldName = #20854#20182
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#20854#20182
    end
    object qmpc_varBDEDesigner9: TIntegerField
      FieldName = #21488#25968
      Origin = 'ZXJX_JXW.crttbl_mainpay.'#21488#25968
    end
    object qmpc_varBDEDesigner10: TCurrencyField
      FieldName = #35745#20323#24213#20215
      Origin = 'ZXJX_JXW.std_machine.'#35745#20323#24213#20215
    end
    object qmpc_varBDEDesigner11: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qmpc_varBDEDesigner12: TCurrencyField
      FieldName = #24635#22870#21169
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#24635#22870#21169
    end
    object qmpc_varBDEDesigner13: TCurrencyField
      FieldName = #24635#25187#32602
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#24635#25187#32602
    end
    object qmpc_varBDEDesigner14: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#24180
      FixedChar = True
      Size = 8
    end
    object qmpc_varBDEDesigner15: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#26376
      FixedChar = True
      Size = 4
    end
    object qmpc_varBDEDesigner16: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#20027#31649
      FixedChar = True
    end
    object qmpc_varBDEDesigner17: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#23457#26680
      FixedChar = True
    end
    object qmpc_varBDEDesigner18: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#24405#20837
      FixedChar = True
    end
    object qmpc_varBDEDesigner19: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_monthpaycheck.'#24405#20837#26085#26399
    end
    object qmpc_varBDEDesigner27: TStringField
      FieldName = #32463#29702#22995#21517
      Origin = 'ZXJX_JXW.pub_z_office.'#32463#29702#22995#21517
      FixedChar = True
    end
  end
  object dsmpc_var: TDataSource
    DataSet = qmpc_var
    Left = 649
    Top = 5
  end
  object Queryuse: TQuery
    DatabaseName = 'zxjx_jxw'
    Left = 417
    Top = 65533
  end
  object qmpc: TTable
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    TableName = 'dbo.pub_z_monthpaycheck'
    Left = 349
    Top = 2
    object qmpcBDEDesigner: TAutoIncField
      FieldName = #24207#21495
    end
    object qmpcBDEDesigner2: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Required = True
    end
    object qmpcBDEDesigner3: TCurrencyField
      FieldName = #24635#22870#21169
    end
    object qmpcBDEDesigner4: TCurrencyField
      FieldName = #24635#25187#32602
    end
    object qmpcBDEDesigner5: TStringField
      FieldName = #24180
      FixedChar = True
      Size = 8
    end
    object qmpcBDEDesigner6: TStringField
      FieldName = #26376
      FixedChar = True
      Size = 4
    end
    object qmpcBDEDesigner7: TStringField
      FieldName = #20027#31649
    end
    object qmpcBDEDesigner8: TStringField
      FieldName = #23457#26680
    end
    object qmpcBDEDesigner9: TStringField
      FieldName = #24405#20837
    end
    object qmpcBDEDesigner10: TDateTimeField
      FieldName = #24405#20837#26085#26399
    end
  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 = 532
    Top = 2
    ParamData = <
      item
        DataType = ftString
        Name = 'gatheryear'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'gathermonth'
        ParamType = ptUnknown
      end>
  end
  object Query1: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    Left = 597
    Top = 4
  end
end