salaryjia.dfm

pasa人力资源考勤管理系统

object salaryjiareport: Tsalaryjiareport
  Left = 242
  Top = 246
  Width = 340
  Height = 327
  Caption = '员工薪资总表打印'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  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 = 144
    Width = 177
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Visible = False
  end
  object Button1: TButton
    Left = 66
    Top = 262
    Width = 75
    Height = 23
    Caption = '打印'
    TabOrder = 7
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 186
    Top = 260
    Width = 75
    Height = 25
    Caption = '关闭'
    TabOrder = 8
    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 Edit2: TEdit
    Left = 128
    Top = 173
    Width = 63
    Height = 21
    TabOrder = 4
    Visible = False
    OnExit = Edit2Exit
  end
  object Edit3: TEdit
    Left = 231
    Top = 173
    Width = 74
    Height = 21
    TabOrder = 5
    Visible = False
  end
  object StaticText1: TStaticText
    Left = 200
    Top = 177
    Width = 13
    Height = 17
    Caption = '---'
    TabOrder = 9
    Visible = False
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 208
    Width = 313
    Height = 41
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      '在职员工'
      '离职未付'
      '离职已付')
    TabOrder = 6
  end
  object RadioGroup3: TRadioGroup
    Left = 8
    Top = 60
    Width = 313
    Height = 37
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      '日\月薪员工'
      '计件员工')
    TabOrder = 1
  end
  object ADODataSet4: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 
      'select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.otho' +
      'urs,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a' +
      '.factdays,a.facthours,'#13#10'a.noname55,a.insurance,a.facttech,mustgi' +
      've,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ' +
      ',isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-' +
      'isnull(a.latedec,0)-isnull(a.kuanggongdec,0) otherdec, isnull(a.' +
      'mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a' +
      '.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd '#13 +
      #10'from sal21010 a  left join per24010 b  on a.workno=b.workno  or' +
      'der by a.deptname,a.workno'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 272
    Top = 16
    object ADODataSet4workno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object ADODataSet4name: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object ADODataSet4prof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
    object ADODataSet4indate: TDateTimeField
      DisplayLabel = '进厂日期'
      FieldName = 'indate'
    end
    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 = 32
    Version = '5.56'
    mmColumnWidth = 0
    object ppHeaderBand6: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 16140
      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
    end
    object ppDetailBand8: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 6879
      mmPrintPosition = 0
      object ppLine145: TppLine
        UserName = 'Line145'
        Position = lpLeft