salsumjia.dfm

pasa人力资源考勤管理系统

object Formsalsumjia: TFormsalsumjia
  Left = 424
  Top = 368
  Width = 337
  Height = 324
  Caption = '薪资统计表'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  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 = 2
    OnClick = RadioGroup1Click
  end
  object ComboBox1: TComboBox
    Left = 129
    Top = 164
    Width = 177
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Visible = False
  end
  object Button1: TButton
    Left = 66
    Top = 260
    Width = 75
    Height = 25
    Caption = '打印'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 186
    Top = 260
    Width = 75
    Height = 25
    Caption = '关闭'
    TabOrder = 6
    OnClick = Button2Click
  end
  object Edit1: TMaskEdit
    Left = 142
    Top = 38
    Width = 51
    Height = 21
    EditMask = '9999/99;1;_'
    MaxLength = 7
    TabOrder = 0
    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 = 1
  end
  object ADODataSet4: TADODataSet
    Active = True
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 
      'select  deptname,sum(isnull(otjieri,0)) otjieri,sum(isnull(yearm' +
      'oney,0)) yearmoney,sum(isnull(othours,0)) othours,sum(isnull(otm' +
      'oney,0)) otmoney,sum(isnull(otjiari,0)) otjiari,sum(isnull(smone' +
      'y,0)) smoney,sum(isnull(factbasepay,0)) factbasepay,sum(isnull(f' +
      'actdays,0)) factdays,sum(isnull(facthours,0)) facthours,'#13#10'sum(is' +
      'null(noname55,0)) noname55,sum(isnull(insurance,0)) insurance,su' +
      'm(isnull(facttech,0)) facttech,sum(isnull(mustgive,0)) mustgive,' +
      'sum(isnull(mustdec,0)) mustdec,sum(isnull(factmoney,0)) factmone' +
      'y,sum(isnull(eightornine,0)) eightornine,sum(isnull(latedec,0)) ' +
      'latedec,sum(isnull(kuanggongdec,0)) kuanggongdec ,sum(isnull(mus' +
      'tdec,0)-isnull(insurance,0)-isnull(medmoney,0)-isnull(latedec,0)' +
      '-isnull(kuanggongdec,0)) otherdec, sum(isnull(mustgive,0)-isnull' +
      '(factbasepay,0)-isnull(otmoney,0)-isnull(yearmoney,0)-isnull(smo' +
      'ney,0)-isnull(noname55,0)) otheradd '#13#10'from sal21010 group by dep' +
      'tname'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 272
    Top = 16
    object ADODataSet4insurance: TBCDField
      DisplayLabel = '夜宵'
      FieldName = 'insurance'
      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 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 ADODataSet4factdays: TBCDField
      DisplayLabel = '实出勤天'
      FieldName = 'factdays'
      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 ADODataSet4eightornine: TIntegerField
      DisplayLabel = '税金'
      FieldName = 'eightornine'
    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
    object ADODataSet4deptname: TStringField
      DisplayLabel = '部门'
      FieldName = 'deptname'
      Size = 30
    end
    object ADODataSet4otjieri: TBCDField
      DisplayLabel = '节日加班工时'
      FieldName = 'otjieri'
      Precision = 18
      Size = 2
    end
    object ADODataSet4othours: TBCDField
      DisplayLabel = '平时加班工时'
      FieldName = 'othours'
      Precision = 18
      Size = 2
    end
    object ADODataSet4otjiari: TBCDField
      DisplayLabel = '假日加班工时'
      FieldName = 'otjiari'
      Precision = 18
      Size = 2
    end
    object ADODataSet4facthours: TBCDField
      DisplayLabel = '出勤工时'
      FieldName = 'facthours'
      Precision = 18
      Size = 2
    end
    object ADODataSet4noname55: TBCDField
      DisplayLabel = '综合奖'
      FieldName = 'noname55'
      Precision = 18
      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 = 304
    Top = 24
    Version = '5.56'
    mmColumnWidth = 0
    object ppHeaderBand6: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 31485
      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
        mmTop = 4498
        mmWidth = 15875
        BandType = 0
      end
      object ppSystemVariable8: TppSystemVariable
        UserName = 'SystemVariable8'
        VarType = vtPageSetDesc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3704
        mmLeft = 248973
        mmTop = 9260
        mmWidth = 16404
        BandType = 0
      end
      object ppLabel316: TppLabel
        UserName = 'Label1'
        Caption = '月份'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 5027
        mmLeft = 131498
        mmTop = 10054
        mmWidth = 8467
        BandType = 0
      end
      object ppLine134: TppLine
        UserName = 'Line2'
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 126207
        mmTop = 23283
        mmWidth = 1058
        BandType = 0
      end
      object ppLabel243: TppLabel
        UserName = 'Label2'
        Caption = '税金'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3440
        mmLeft = 162454
        mmTop = 25929
        mmWidth = 5556
        BandType = 0
      end
      object ppLine135: TppLine
        UserName = 'Line3'
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 170392
        mmTop = 23283
        mmWidth = 1058
        BandType = 0
      end
      object ppLabel244: TppLabel
        UserName = 'Label3'
        Caption = '住宿'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3440
        mmLeft = 173038
        mmTop = 25929
        mmWidth = 5556
        BandType = 0
      end
      object ppLine136: TppLine
        UserName = 'Line4'
        Position = lpLeft