spxshz1.dfm

不错的代码 希望大家喜欢 别忘了看完以后联系我

      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object Query2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end
      item
        Name = 'name'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'spcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end
      item
        Name = 'barcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'SELECT spcode,name,lb,jldw,barcode,SUM(sl)'
      
        '      AS sl, SUM(xsje) AS xsje, SUM(zkje) AS zkje,mainghs,ghscod' +
        'e,suilu'
      'FROM sprxshz_v'
      'where xsrq>=:rq1 and xsrq<=:rq2 and name like :name'
      'and (spcode like :spcode or barcode like :barcode)'
      'GROUP BY spcode,name,lb,jldw,barcode,mainghs,ghscode,suilu'
      'ORDER BY spcode')
    Left = 360
    Top = 168
    object Query2spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      FixedChar = True
      Size = 10
    end
    object Query2name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      FixedChar = True
      Size = 50
    end
    object Query2splb: TStringField
      DisplayLabel = '类别'
      FieldName = 'lb'
      FixedChar = True
      Size = 50
    end
    object Query2unit: TStringField
      DisplayLabel = '单位'
      FieldName = 'jldw'
      FixedChar = True
      Size = 10
    end
    object Query2barcode: TStringField
      DisplayLabel = '条形码'
      FieldName = 'barcode'
      FixedChar = True
      Size = 15
    end
    object Query2sl: TFloatField
      DisplayLabel = '数量'
      FieldName = 'sl'
    end
    object Query2xsje: TCurrencyField
      DisplayLabel = '销售金额'
      FieldName = 'xsje'
    end
    object Query2zkje: TCurrencyField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
    end
    object Query2ghscode: TStringField
      DisplayLabel = '供货商编码'
      DisplayWidth = 10
      FieldName = 'ghscode'
      Size = 5
    end
    object Query2mainghs: TStringField
      DisplayLabel = '供货商名称'
      DisplayWidth = 50
      FieldName = 'mainghs'
      Size = 50
    end
    object Query2suilu: TBCDField
      DisplayLabel = '税率'
      FieldName = 'suilu'
      Precision = 18
      Size = 0
    end
  end
  object Query1: TQuery
    DatabaseName = 'server'
    SQL.Strings = (
      
        'select spcode,name,unit,splb,barcode,jhj,dj,sum(sl),jhj*sum(sl),' +
        'dj*sum(sl),dj*sum(sl)-jhj*sum(sl),bz from sprxshz_v'
      
        'where xsrq>=:rq1 and xsrq<=:rq2 and (lbid like :lbid and name li' +
        'ke :name)'
      'group by spcode,name,splb,unit,barcode,splb,jhj,dj,bz'
      ' ')
    Left = 324
    Top = 240
    ParamData = <
      item
        DataType = ftString
        Name = 'rq1'
        ParamType = ptInput
        Value = '2002/10/10'
      end
      item
        DataType = ftString
        Name = 'rq2'
        ParamType = ptInput
        Value = '2002/10/12'
      end
      item
        DataType = ftString
        Name = 'lbid'
        ParamType = ptInput
        Value = '%'
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end>
    object StringField1: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Origin = 'SERVER.sprxshz_v.spcode'
      FixedChar = True
      Size = 10
    end
    object StringField2: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Origin = 'SERVER.sprxshz_v.name'
      FixedChar = True
      Size = 50
    end
    object StringField3: TStringField
      DisplayLabel = '单位'
      FieldName = 'unit'
      Origin = 'SERVER.sprxshz_v.unit'
      FixedChar = True
      Size = 10
    end
    object StringField4: TStringField
      DisplayLabel = '类别'
      FieldName = 'splb'
      Origin = 'SERVER.sprxshz_v.splb'
      FixedChar = True
      Size = 50
    end
    object StringField5: TStringField
      DisplayLabel = '条码'
      FieldName = 'barcode'
      Origin = 'SERVER.sprxshz_v.barcode'
      FixedChar = True
      Size = 15
    end
    object Query2jhj: TCurrencyField
      DisplayLabel = '进货价'
      FieldName = 'jhj'
      Origin = 'SERVER.sprxshz_v.jhj'
    end
    object CurrencyField1: TCurrencyField
      DisplayLabel = '零售价'
      FieldName = 'dj'
      Origin = 'SERVER.sprxshz_v.dj'
    end
    object Query2COLUMN8: TFloatField
      DisplayLabel = '销售数量'
      FieldName = 'COLUMN8'
      Origin = 'SERVER.sprxshz_v.sl'
    end
    object Query2COLUMN9: TFloatField
      DisplayLabel = '进价金额'
      FieldName = 'COLUMN9'
      Origin = 'SERVER.sprxshz_v.jhj'
    end
    object Query2COLUMN10: TFloatField
      DisplayLabel = '销售金额'
      FieldName = 'COLUMN10'
      Origin = 'SERVER.sprxshz_v.dj'
    end
    object Query2COLUMN11: TFloatField
      DisplayLabel = '毛利'
      FieldName = 'COLUMN11'
      Origin = 'SERVER.sprxshz_v.dj'
    end
    object Query2bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 50
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 403
    Top = 224
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end
      item
        Name = 'spcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT xsrq,dj, SUM(sl) AS sl, SUM(xsje) AS xsje, SUM(zkje) AS z' +
        'kje'
      'FROM sprxshz_v'
      'where xsrq>=:rq1 and xsrq<=:rq2 and spcode=:spcode'
      'GROUP BY xsrq,dj')
    Left = 440
    Top = 224
    object CurrencyField2: TCurrencyField
      DisplayLabel = '单价'
      FieldName = 'dj'
    end
    object FloatField1: TFloatField
      DisplayLabel = '数量'
      FieldName = 'sl'
    end
    object CurrencyField3: TCurrencyField
      DisplayLabel = '销售金额'
      FieldName = 'xsje'
    end
    object ADOQuery2xsrq: TDateTimeField
      DisplayLabel = '销售日期'
      FieldName = 'xsrq'
    end
    object CurrencyField4: TCurrencyField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
    end
  end
  object dxComponentPrinter2: TdxComponentPrinter
    CurrentLink = dxDBGridReportLink1
    PreviewOptions.Caption = '商品时段销售明细表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '商品时段销售明细表'
    Left = 275
    Top = 200
    object dxDBGridReportLink1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37714.6201863426
      DesignerHelpContext = 0
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '商品时段销售明细表'
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
end