slip_print.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

    end
    object ADODetailAmount: TBCDField
      FieldName = 'Amount'
      Precision = 18
      Size = 0
    end
    object ADODetailLiabler: TStringField
      FieldName = 'Liabler'
      Size = 30
    end
    object ADODetailUp_date: TDateTimeField
      FieldName = 'Up_date'
    end
    object ADODetailChecker: TStringField
      FieldName = 'Checker'
      Size = 30
    end
    object ADODetailLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
    object ADODetailremark: TStringField
      FieldName = 'remark'
      Size = 800
    end
    object ADODetailimages: TBlobField
      FieldName = 'images'
    end
    object ADODetailsavedate: TDateTimeField
      FieldName = 'savedate'
    end
    object ADODetailinputer: TStringField
      FieldName = 'inputer'
      Size = 30
    end
    object ADODetailDirect_losing: TBCDField
      FieldName = 'Direct_losing'
      Precision = 18
      Size = 6
    end
    object ADODetailSum_losing: TBCDField
      FieldName = 'Sum_losing'
      Precision = 18
      Size = 6
    end
    object ADODetailworking_procedure: TStringField
      FieldName = 'working_procedure'
      Size = 30
    end
    object ADODetailmachine_No: TStringField
      FieldName = 'machine_No'
      Size = 30
    end
    object ADODetailSlip_text: TMemoField
      FieldName = 'Slip_text'
      BlobType = ftMemo
    end
    object ADODetailManage: TMemoField
      FieldName = 'Manage'
      BlobType = ftMemo
    end
    object ADODetailtechnics: TStringField
      FieldName = 'technics'
      Size = 30
    end
    object ADODetailproduct_line: TStringField
      FieldName = 'product_line'
      Size = 30
    end
  end
  object ADOLiable: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = DataDept
    Parameters = <
      item
        Name = 'a'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'b'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'c'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end
      item
        Name = 'Liable_dept'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      
        'select Liable_dept,liabler,Sum(sum_losing) sum_losing,sum(direct' +
        '_losing) direct_losing from CcSlipFile '
      
        'where dates>=:a and dates<=:b and product_line=:c and Liable_dep' +
        't=:Liable_dept and remark not like '#39'%'#36864#22238'%'#39' group by Liable_dept,l' +
        'iabler order by sum_losing')
    Left = 749
    Top = 244
    object ADOLiableliabler: TStringField
      FieldName = 'liabler'
      Size = 30
    end
    object ADOLiablesum_losing: TBCDField
      FieldName = 'sum_losing'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object ADOLiabledirect_losing: TBCDField
      FieldName = 'direct_losing'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object ADOLiableLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
  end
  object DataDetail: TDataSource
    AutoEdit = False
    DataSet = ADODetail
    Left = 475
    Top = 181
  end
  object ADOGroup: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = DataDept
    Parameters = <
      item
        Name = 'a'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'b'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'e'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end
      item
        Name = 'Liable_dept'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      
        'select  Liable_dept,(rtrim(ltrim(technics))+ltrim(working_proced' +
        'ure)) as working_procedure,Sum(sum_losing) sum_losing,sum(direct' +
        '_losing) direct_losing,count(working_procedure) counts from CcSl' +
        'ipFile  '
      
        'where dates>=:a and dates<=:b  and product_line=:e and Liable_de' +
        'pt=:Liable_dept and remark not like '#39'%'#36864#22238'%'#39'  group by Liable_dept' +
        ',working_procedure,Liable_dept,technics')
    Left = 574
    Top = 238
    object ADOGroupworking_procedure: TStringField
      FieldName = 'working_procedure'
      Size = 30
    end
    object ADOGroupsum_losing: TBCDField
      FieldName = 'sum_losing'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object ADOGroupdirect_losing: TBCDField
      FieldName = 'direct_losing'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object ADOGroupcounts: TIntegerField
      FieldName = 'counts'
      ReadOnly = True
    end
    object ADOGroupLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 167
    Top = 339
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    DataSet = ADODetail
    Left = 478
    Top = 373
  end
  object frxReport1: TfrxReport
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    ReportOptions.CreateDate = 39343.360508344900000000
    ReportOptions.LastChange = 39343.360508344900000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 473
    Top = 315
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      Orientation = poLandscape
      PaperWidth = 297.000000000000000000
      PaperHeight = 210.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object PageHeader1: TfrxPageHeader
        Height = 90.708720000000000000
        Top = 18.897650000000000000
        Width = 1046.929810000000000000
        object Memo1: TfrxMemoView
          Left = 423.307360000000000000
          Top = 7.559059999999999000
          Width = 170.078850000000000000
          Height = 34.015770000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -27
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #20107#25925#26126#32454#27719#24635)
          ParentFont = False
        end
        object Memo2: TfrxMemoView
          Top = 71.811070000000000000
          Width = 57.590600000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #20107#25925#26085#26399)
          VAlign = vaCenter
        end
        object Memo3: TfrxMemoView
          Left = 57.590600000000000000
          Top = 71.811070000000000000
          Width = 76.031540000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #21512#21516#21495)
          VAlign = vaCenter
        end
        object Memo4: TfrxMemoView
          Left = 133.622140000000000000
          Top = 71.811070000000000000
          Width = 65.472480000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #21512#21516#21333#20301)
          VAlign = vaCenter
        end
        object Memo5: TfrxMemoView
          Left = 199.094620000000000000
          Top = 71.811070000000000000
          Width = 94.488188980000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #22411#21495)
          VAlign = vaCenter
        end
        object Memo6: TfrxMemoView
          Left = 294.228510000000000000
          Top = 71.811070000000000000
          Width = 59.252010000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #30005#38208#39068#33394)
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          Left = 353.480520000000000000
          Top = 71.811070000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #36131#20219#20154)
          VAlign = vaCenter
        end
        object Memo8: TfrxMemoView
          Left = 413.953000000000000000
          Top = 71.811070000000000000
          Width = 68.031540000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #24037#24207)
          VAlign = vaCenter
        end
        object Memo9: TfrxMemoView
          Left = 481.764070000000000000
          Top = 71.811070000000000000
          Width = 156.078850000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #20107#25925#20869#23481)
          VAlign = vaCenter
        end
        object Memo10: TfrxMemoView
          Left = 637.929500000000000000
          Top = 71.811070000000000000
          Width = 45.354360000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #37325#37327)
          VAlign = vaCenter
        end
        object Memo11: TfrxMemoView
          Left = 683.283860000000000000
          Top = 71.811070000000000000
          Width = 71.370130000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #27599#20844#26020#31890#25968)
          VAlign = vaCenter
        end
        object Memo12: TfrxMemoView
          Left = 754.653990000000000000
          Top = 71.811070000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #25968#37327)
          VAlign = vaCenter
        end