slip_money.dfm

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

      FieldName = 'buyer'
      Size = 30
    end
    object ADODetailxh: TStringField
      FieldName = 'xh'
      Size = 30
    end
    object ADODetailsizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object ADODetailPlate: TStringField
      FieldName = 'Plate'
      Size = 30
    end
    object ADODetailCuteder: TStringField
      FieldName = 'Cuteder'
      Size = 30
    end
    object ADODetailCut_Money: TBCDField
      FieldName = 'Cut_Money'
      Precision = 18
      Size = 0
    end
    object ADODetailCut_date: TDateTimeField
      FieldName = 'Cut_date'
    end
    object ADODetailremark: TStringField
      FieldName = 'remark'
      Size = 800
    end
    object ADODetailproduct_line: TStringField
      FieldName = 'product_line'
      Size = 30
    end
    object ADODetailLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
  end
  object ADOProduct_line: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT cuteder from CcSlipFile_Detail ')
    Left = 406
    Top = 6
  end
  object SaveDialog1: TSaveDialog
    Left = 312
    Top = 70
  end
  object frxDBDataDetail: TfrxDBDataset
    UserName = 'frxDBDataDetail'
    FieldAliases.Strings = (
      'ids=ids'
      'fid=fid'
      'hth=hth'
      'buyer=buyer'
      'xh=xh'
      'sizes=sizes'
      'Plate=Plate'
      'Cuteder=Cuteder'
      'Cut_Money=Cut_Money'
      'Cut_date=Cut_date'
      'remark=remark'
      'product_line=product_line')
    DataSet = ADODetail
    Left = 296
    Top = 230
  end
  object ADOLiabler: TADOQuery
    Active = True
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = DataSource2
    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 = ''
      end>
    SQL.Strings = (
      
        'select Liable_dept,Cuteder,sum(Cut_money) Cut_money from CcSlipF' +
        'ile_Detail where Cut_date>=:a and Cut_date<=:b and product_line=' +
        ':c and Liable_dept=:Liable_dept group by Liable_dept,Cuteder '
      ''
      '')
    Left = 380
    Top = 283
    object ADOLiablerLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
    object ADOLiablerCuteder: TStringField
      FieldName = 'Cuteder'
      Size = 30
    end
    object ADOLiablerCut_money: TBCDField
      FieldName = 'Cut_money'
      ReadOnly = True
      Precision = 32
    end
  end
  object frxDBDataLiabler: TfrxDBDataset
    UserName = 'frxDBDataLiabler'
    FieldAliases.Strings = (
      'Cuteder=Cuteder'
      'Cut_money=Cut_money')
    DataSet = ADOLiabler
    Left = 377
    Top = 231
  end
  object frxReportLiabler: 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 = 39378.649282407400000000
    ReportOptions.LastChange = 39378.677822442100000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 418
    Top = 172
    Datasets = <
      item
        DataSet = frxDBDataLiable_dept
        DataSetName = 'frxDBDataLiable_dept'
      end
      item
        DataSet = frxDBDataLiabler
        DataSetName = 'frxDBDataLiabler'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Columns = 3
      ColumnWidth = 63.333333333333300000
      ColumnPositions.Strings = (
        '0'
        '63.3333333333333'
        '126.666666666667')
      object MasterData1: TfrxMasterData
        Height = 64.251997800000000000
        Top = 98.267780000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataLiable_dept
        DataSetName = 'frxDBDataLiable_dept'
        RowCount = 0
        object Memo4: TfrxMemoView
          Left = 113.385900000000000000
          Width = 107.708720000000000000
          Height = 29.677180000000000000
          DataField = 'Liable_dept'
          DataSet = frxDBDataLiable_dept
          DataSetName = 'frxDBDataLiable_dept'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            '[frxDBDataLiable_dept."Liable_dept"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo5: TfrxMemoView
          Left = 15.118120000000000000
          Top = 45.015769999999990000
          Width = 105.826771650000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #25187#27454#20154#22995#21517)
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo6: TfrxMemoView
          Left = 120.944960000000000000
          Top = 45.015769999999990000
          Width = 98.267716540000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #25187#27454#37329#39069)
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          Left = 17.897650000000000000
          Width = 94.488250000000000000
          Height = 28.677180000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            #37096#38376#65306)
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object DetailData1: TfrxDetailData
        Height = 18.897650000000000000
        Top = 185.196970000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataLiabler
        DataSetName = 'frxDBDataLiabler'
        RowCount = 0
        object Memo2: TfrxMemoView
          Left = 15.118120000000000000
          Width = 105.826771650000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            '[frxDBDataLiabler."Cuteder"]')
          VAlign = vaCenter
        end
        object Memo3: TfrxMemoView
          Left = 120.944960000000000000
          Width = 98.267780000000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            '[frxDBDataLiabler."Cut_money"]')
          VAlign = vaCenter
        end
      end
      object GroupHeader1: TfrxGroupHeader
        Height = 56.692950000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        Condition = 'frxDBDataLiable_dept."Liable_dept"'
        KeepTogether = True
        StartNewPage = True
        object Memo1: TfrxMemoView
          Left = 242.677180000000000000
          Top = 7.559059999999999000
          Width = 205.756030000000000000
          Height = 37.795300000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -27
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Memo.Strings = (
            #36131#20219#20154#25187#27454#27719#24635)
          ParentFont = False
        end
      end
      object Footer1: TfrxFooter
        Height = 18.897650000000000000
        Top = 226.771800000000000000
        Width = 718.110700000000000000
        object Memo8: TfrxMemoView
          Left = 15.118120000000000000
          Width = 105.826771650000000000
          Height = 18.897650000000000000
          Frame.Typ = [ftLeft, ftRight, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            #21512#35745#65306)
          VAlign = vaCenter
        end
        object Memo9: TfrxMemoView
          Left = 120.944960000000000000
          Width = 98.267716540000000000
          Height = 18.897650000000000000
          DataSet = frxDBDataLiabler
          DataSetName = 'frxDBDataLiabler'
          Frame.Typ = [ftLeft, ftRight, ftBottom]
          HAlign = haCenter
          Memo.Strings = (
            '[SUM(<frxDBDataLiabler."Cut_money">)]')
          VAlign = vaCenter
        end
      end
    end
  end
  object frxReportDetail: 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 = 39378.655893726800000000