salsum.dfm

pasa人力资源考勤管理系统

object salsumreport: Tsalsumreport
  Left = 292
  Top = 156
  Width = 339
  Height = 324
  Caption = '薪资统计表'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 68
    Top = 42
    Width = 72
    Height = 13
    Caption = '请输入月份:'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = '新细明体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 87
    Top = 8
    Width = 140
    Height = 19
    Caption = '员工薪资统计表'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '新细明体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 100
    Width = 313
    Height = 105
    Caption = '打印条件'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '新细明体'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      '打印全部员工'
      '按部门打印')
    ParentFont = False
    TabOrder = 6
    OnClick = RadioGroup1Click
  end
  object ComboBox1: TComboBox
    Left = 130
    Top = 165
    Width = 177
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Visible = False
  end
  object Button1: TButton
    Left = 74
    Top = 260
    Width = 75
    Height = 25
    Caption = '打印'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 186
    Top = 260
    Width = 75
    Height = 25
    Caption = '关闭'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Edit1: TMaskEdit
    Left = 142
    Top = 38
    Width = 52
    Height = 21
    EditMask = '9999/99;1;_'
    MaxLength = 7
    TabOrder = 3
    Text = '    /  '
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 208
    Width = 313
    Height = 41
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      '在职员工'
      '离职未付'
      '离职已付')
    TabOrder = 4
  end
  object RadioGroup3: TRadioGroup
    Left = 8
    Top = 60
    Width = 313
    Height = 37
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      '日\月薪员工'
      '计件员工')
    TabOrder = 5
  end
  object ADODataSet4: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 
      'select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(is' +
      'null(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnu' +
      'll(a.yangrao,0)) yangrao,'#13#10' sum(isnull(a.tax,0)) tax,sum(isnull(' +
      'a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(' +
      'a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatm' +
      'oneybu,sum(isnull(a.txmoney,0))'#13#10' txmoney,sum(isnull(a.rat,0)) r' +
      'at ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) ' +
      'eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.late' +
      'dec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,'#13#10' su' +
      'm(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insur' +
      'ance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubta' +
      'x,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.fac' +
      'ttech,0)) '#13#10'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull' +
      '(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(is' +
      'null(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustde' +
      'c,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'#13#10'isnull(a.res' +
      'ultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.' +
      'latedec,0)-isnull(a.kuanggongdec,0)<0 then 0 else isnull(a.mustd' +
      'ec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'#13#10'isnull(a.re' +
      'sultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a' +
      '.latedec,0)-isnull(a.kuanggongdec,0) end) otherdec, sum(case whe' +
      'n isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'#13#10'isnull(a.otmone' +
      'y,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present' +
      ',0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnu' +
      'll(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgiv' +
      'e,0)-isnull(a.factbasepay,0)-'#13#10'isnull(a.otmoney,0)-isnull(a.pubt' +
      'ax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmon' +
      'ey,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isn' +
      'ull(a.yiliao,0) end) otheradd , '#13#10' sum(isnull(a.pie2,0)) pie2,su' +
      'm(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) ' +
      'mustdec,sum(isnull(a.factmoney,0)) factmoney from sal21010 a  le' +
      'ft join per24010 b  on a.workno=b.workno '#13#10' where  a.monthy='#39'200' +
      '4/06'#39'  and b.leave<>1  and b.mankind<>'#39'计件'#39' group by a.deptname' +
      #13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 272
    Top = 8
    object ADODataSet4deptname: TStringField
      DisplayLabel = '部门'
      FieldName = 'deptname'
      Size = 30
    end
    object ADODataSet4present: TBCDField
      DisplayLabel = '全勤奖'
      FieldName = 'present'
      Precision = 18
      Size = 2
    end
    object ADODataSet4insurance: TBCDField
      DisplayLabel = '夜宵'
      FieldName = 'insurance'
      Precision = 18
      Size = 2
    end
    object ADODataSet4rewardmoney: TBCDField
      DisplayLabel = '记功嘉奖'
      FieldName = 'rewardmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4pubtax: TBCDField
      DisplayLabel = '外宿舍长'
      FieldName = 'pubtax'
      Precision = 18
      Size = 2
    end
    object ADODataSet4factprof: TBCDField
      DisplayLabel = '职务津贴'
      FieldName = 'factprof'
      Precision = 18
      Size = 2
    end
    object ADODataSet4facttech: TBCDField
      DisplayLabel = '主管津贴'
      FieldName = 'facttech'
      Precision = 18
      Size = 2
    end
    object ADODataSet4mustgive: TBCDField
      DisplayLabel = '应发工资'
      FieldName = 'mustgive'
      Precision = 18
      Size = 2
    end
    object ADODataSet4factdept: TBCDField
      DisplayLabel = '伙食费'
      FieldName = 'factdept'
      Precision = 18
      Size = 2
    end
    object ADODataSet4clearpay: TBCDField
      DisplayLabel = '清洁费'
      FieldName = 'clearpay'
      Precision = 18
      Size = 2
    end
    object ADODataSet4resultmoney: TBCDField
      DisplayLabel = '住宿费'
      FieldName = 'resultmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4pie2: TBCDField
      DisplayLabel = '劳务'
      FieldName = 'pie2'
      Precision = 18
      Size = 2
    end
    object ADODataSet4panishmoney: TBCDField
      DisplayLabel = '记过扣款'
      FieldName = 'panishmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4mustdec: TBCDField
      DisplayLabel = '扣款合计'
      FieldName = 'mustdec'
      Precision = 18
      Size = 2
    end
    object ADODataSet4factmoney: TBCDField
      DisplayLabel = '实发薪资'
      FieldName = 'factmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4factbasepay: TBCDField
      DisplayLabel = '本薪'
      FieldName = 'factbasepay'
      Precision = 18
      Size = 2
    end
    object ADODataSet4yearmoney: TBCDField
      DisplayLabel = '节加'
      FieldName = 'yearmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4smoney: TBCDField
      DisplayLabel = '假加'
      FieldName = 'smoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4otmoney: TBCDField
      DisplayLabel = '平加'
      FieldName = 'otmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4tax: TBCDField
      DisplayLabel = '扣税'
      FieldName = 'tax'
      Precision = 18
      Size = 2
    end
    object ADODataSet4yangrao: TBCDField
      DisplayLabel = '养老保险'
      FieldName = 'yangrao'
      Precision = 18
      Size = 2
    end
    object ADODataSet4yiliao: TBCDField
      DisplayLabel = '有薪假'
      FieldName = 'yiliao'
      Precision = 18
      Size = 2
    end
    object ADODataSet4gongsa: TBCDField
      DisplayLabel = '请假扣款'
      FieldName = 'gongsa'
      Precision = 18
      Size = 2
    end
    object ADODataSet4meatmoneybu: TBCDField
      DisplayLabel = '伙食补贴'
      FieldName = 'meatmoneybu'
      Precision = 18
      Size = 2
    end
    object ADODataSet4txmoney: TBCDField
      DisplayLabel = '夜班补贴'
      FieldName = 'txmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4rat: TBCDField
      DisplayLabel = '提成'
      FieldName = 'rat'
      Precision = 18
      Size = 2
    end
    object ADODataSet4money1: TBCDField
      DisplayLabel = '退卡费'
      FieldName = 'money1'
      Precision = 18
      Size = 2
    end
    object ADODataSet4eightornine: TIntegerField
      DisplayLabel = '税金'
      FieldName = 'eightornine'
    end
    object ADODataSet4medmoney: TBCDField
      DisplayLabel = '暂住证'
      FieldName = 'medmoney'
      Precision = 18
      Size = 2
    end
    object ADODataSet4latedec: TBCDField
      DisplayLabel = '迟到扣款'
      FieldName = 'latedec'
      Precision = 18
      Size = 2
    end
    object ADODataSet4kuanggongdec: TBCDField
      DisplayLabel = '旷工扣款'
      FieldName = 'kuanggongdec'
      Precision = 18
      Size = 2
    end
    object ADODataSet4otherdec: TBCDField
      DisplayLabel = '其它扣款'
      FieldName = 'otherdec'
      ReadOnly = True
      Precision = 24
      Size = 2
    end
    object ADODataSet4otheradd: TBCDField
      DisplayLabel = '其它津贴'
      FieldName = 'otheradd'
      ReadOnly = True
      Precision = 27
      Size = 2
    end
  end
  object DataSource4: TDataSource
    DataSet = ADODataSet4
    Left = 248
    Top = 32
  end
  object ppReport8: TppReport
    AutoStop = False
    DataPipeline = ppBDEPipeline4
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.Orientation = poLandscape
    PrinterSetup.PaperName = 'Letter Transverse'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 215900
    PrinterSetup.mmPaperWidth = 279401
    PrinterSetup.PaperSize = 54
    BeforePrint = ppReport8BeforePrint
    DeviceType = 'Screen'
    OnPreviewFormCreate = ppReport8PreviewFormCreate
    Left = 296
    Top = 32
    Version = '5.56'
    mmColumnWidth = 0
    object ppHeaderBand6: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 32279
      mmPrintPosition = 0
      object ppLabel315: TppLabel
        UserName = 'Label315'
        Caption = '公司名'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 18
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 7144
        mmLeft = 123561
        mmTop = 0
        mmWidth = 19579
        BandType = 0
      end
      object ppLabel350: TppLabel
        UserName = 'Label350'
        Caption = '制表人'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 234950
        mmTop = 0
        mmWidth = 9525
        BandType = 0
      end
      object ppLabel351: TppLabel
        UserName = 'Label351'
        Caption = '制表日期'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 234950
        mmTop = 4498
        mmWidth = 12965
        BandType = 0
      end
      object ppLabel352: TppLabel
        UserName = 'Label352'
        Caption = '页次'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 234950
        mmTop = 9525
        mmWidth = 6350
        BandType = 0
      end
      object ppLabel353: TppLabel
        UserName = 'Label353'
        Caption = 'Label353'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 248973
        mmTop = 0
        mmWidth = 13229
        BandType = 0
      end
      object ppSystemVariable7: TppSystemVariable
        UserName = 'SystemVariable7'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 248973