sendcard.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 2,576 行 · 第 1/5 页

      FieldName = 'rq'
    end
    object ADOdaycongdept: TStringField
      DisplayLabel = '部门'
      DisplayWidth = 14
      FieldName = 'dept'
      Size = 60
    end
    object ADOdaycongprof: TStringField
      DisplayLabel = '职称'
      DisplayWidth = 9
      FieldName = 'prof'
      Size = 30
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.Database1
    Parameters = <>
    Left = 628
    Top = 200
  end
  object ADOmoncong: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From moncong order by workno,monthy'#13#10
    CommandTimeout = 0
    Parameters = <>
    Left = 68
    Top = 184
    object ADOmoncongworkno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object ADOmoncongcardno: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object ADOmoncongname: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object ADOmoncongtimesum: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'timesum'
    end
    object ADOmoncongmoney: TBCDField
      DisplayLabel = '充值金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADOmoncongmonthy: TStringField
      DisplayLabel = '月份'
      FieldName = 'monthy'
      Size = 8
    end
    object ADOmoncongdept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object ADOmoncongprof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
  end
  object DataSource5: TDataSource
    DataSet = ADOmontuikuan
    Left = 44
    Top = 184
  end
  object ADOdaytuikuan: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * from daytuikuan order by workno ,rq'
    CommandTimeout = 0
    Parameters = <>
    Left = 168
    Top = 136
    object ADOdaytuikuanworkno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object ADOdaytuikuancardno: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object ADOdaytuikuanname: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object ADOdaytuikuanmoney: TBCDField
      DisplayLabel = '退款金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADOdaytuikuanrq: TDateTimeField
      DisplayLabel = '退款日期'
      FieldName = 'rq'
    end
    object ADOdaytuikuandept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object ADOdaytuikuanprof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
  end
  object ADOmontuikuan: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 'select * From montuikuan order by workno,monthy'
    CommandTimeout = 0
    Parameters = <>
    Left = 80
    Top = 184
    object ADOmontuikuanworkno: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object ADOmontuikuancardno: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object ADOmontuikuanname: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object ADOmontuikuanmoney: TBCDField
      DisplayLabel = '退款金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object ADOmontuikuanmonthy: TStringField
      DisplayLabel = '月份'
      FieldName = 'monthy'
      Size = 8
    end
    object ADOmontuikuandept: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object ADOmontuikuanprof: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
  end
  object ADODataSet4: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 
      'select * from daytuikuan where workno=:workno and left(convert(v' +
      'archar,rq,111),7)=:monthy'
    DataSource = DataSource5
    Parameters = <
      item
        Name = 'workno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end
      item
        Name = 'monthy'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 14
        Value = Null
      end>
    Left = 112
    Top = 440
    object StringField1: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object StringField2: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object StringField5: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object BCDField1: TBCDField
      DisplayLabel = '退款金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = '退款日期'
      FieldName = 'rq'
    end
    object StringField3: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object StringField4: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
  end
  object ADODataSet6: TADODataSet
    Connection = DataMod.Database1
    CursorType = ctStatic
    CommandText = 
      'select * from daycong where workno=:workno and  left(convert(var' +
      'char,rq,111),7)=:monthy'#13#10
    CommandTimeout = 0
    DataSource = DataSource5
    Parameters = <
      item
        Name = 'workno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end
      item
        Name = 'monthy'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 14
        Value = Null
      end>
    Left = 92
    Top = 440
    object StringField6: TStringField
      DisplayLabel = '工号'
      FieldName = 'workno'
      Size = 15
    end
    object StringField7: TStringField
      DisplayLabel = '卡号'
      FieldName = 'cardno'
      Size = 10
    end
    object StringField10: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
      Size = 10
    end
    object BCDField2: TBCDField
      DisplayLabel = '充值金额'
      FieldName = 'money'
      Precision = 18
      Size = 2
    end
    object IntegerField1: TIntegerField
      DisplayLabel = '充值次数'
      FieldName = 'timesum'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = '充值日期'
      FieldName = 'rq'
    end
    object StringField8: TStringField
      DisplayLabel = '部门'
      FieldName = 'dept'
      Size = 60
    end
    object StringField9: TStringField
      DisplayLabel = '职称'
      FieldName = 'prof'
      Size = 30
    end
  end
  object DataSource6: TDataSource
    DataSet = ADODataSet6
    Left = 68
    Top = 440
  end
  object ppBDEPipeline1: TppBDEPipeline
    DataSource = DataSource3
    UserName = 'BDEPipeline1'
    Left = 196
    Top = 136
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppBDEPipeline1
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Letter Transverse'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 279401
    PrinterSetup.mmPaperWidth = 215900
    PrinterSetup.PaperSize = 54
    BeforePrint = ppReport1BeforePrint
    DeviceType = 'Screen'
    OnPreviewFormCreate = ppReport1PreviewFormCreate
    Left = 196
    Top = 160
    Version = '5.56'
    mmColumnWidth = 0
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 17992
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = 'Label1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 18
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 7408
        mmLeft = 91017
        mmTop = 1852
        mmWidth = 19050
        BandType = 0
      end
      object ppLabel10: TppLabel
        UserName = 'Label10'
        Caption = '制表人：'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 158750
        mmTop = 12171
        mmWidth = 12700
        BandType = 0
      end
      object ppLabel11: TppLabel
        UserName = 'Label11'
        Caption = 'Label11'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 9
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 172509
        mmTop = 12171
        mmWidth = 11906
        BandType = 0
      end
    end
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 5556
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'workno'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 1323
        mmTop = 529
        mmWidth = 9260
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        DataField = 'cardno'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 20638
        mmTop = 529
        mmWidth = 11113
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        AutoSize = True
        DataField = 'name'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 40746
        mmTop = 529
        mmWidth = 12700
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        AutoSize = True
        DataField = 'prof'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 59002
        mmTop = 529
        mmWidth = 8467
        BandType = 4
      end
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        AutoSize = True
        DataField = 'timesum'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 102923
        mmTop = 529
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText6'
        AutoSize = True
        DataField = 'money'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 123031
        mmTop = 529
        mmWidth = 5556
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText7'
        AutoSize = True
        DataField = 'rq'
        DataPipeline = ppBDEPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 144198
        mmTop = 529
        mmWidth = 16933
        BandType = 4
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppSummaryBand2: TppSummaryBand
      mmBottomOffset = 0
      mmHeight = 5292
      mmPrintPosition = 0
      object ppLabel