spxsml1.dfm

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

object spxsml: Tspxsml
  Left = 355
  Top = 121
  Width = 633
  Height = 416
  Caption = '商品销售毛利'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 65
    Width = 625
    Height = 324
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'spcode'
    ShowSummaryFooter = True
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    BandFont.Charset = GB2312_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.Active = True
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    LookAndFeel = lfFlat
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    RegistryPath = '\Software\server\spxsml'
    object dxDBGrid1spcode: TdxDBGridMaskColumn
      Width = 75
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spcode'
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      Sorted = csUp
      Width = 203
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1sl: TdxDBGridMaskColumn
      Width = 73
      BandIndex = 0
      RowIndex = 0
      FieldName = 'sl'
      SummaryFooterType = cstSum
    end
    object dxDBGrid1dj: TdxDBGridCurrencyColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dj'
    end
    object dxDBGrid1xsje: TdxDBGridMaskColumn
      Width = 81
      BandIndex = 0
      RowIndex = 0
      FieldName = 'xsje'
      SummaryFooterType = cstSum
    end
    object dxDBGrid1zkje: TdxDBGridMaskColumn
      Width = 89
      BandIndex = 0
      RowIndex = 0
      FieldName = 'zkje'
      SummaryFooterType = cstSum
    end
    object dxDBGrid1jhj: TdxDBGridCurrencyColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jhj'
    end
    object dxDBGrid1jjje: TdxDBGridMaskColumn
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jjje'
      SummaryFooterType = cstSum
    end
    object dxDBGrid1ml: TdxDBGridMaskColumn
      Width = 71
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ml'
      SummaryFooterType = cstSum
    end
    object dxDBGrid1mll: TdxDBGridMaskColumn
      Width = 88
      BandIndex = 0
      RowIndex = 0
      FieldName = 'mll'
    end
    object dxDBGrid1barcode: TdxDBGridMaskColumn
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
    object dxDBGrid1jldw: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jldw'
    end
    object dxDBGrid1lb: TdxDBGridMaskColumn
      Width = 68
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lb'
    end
    object dxDBGrid1ghscode: TdxDBGridMaskColumn
      Width = 72
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ghscode'
    end
    object dxDBGrid1mainghs: TdxDBGridMaskColumn
      Width = 190
      BandIndex = 0
      RowIndex = 0
      FieldName = 'mainghs'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 625
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label2: TLabel
      Left = 19
      Top = 49
      Width = 48
      Height = 12
      Caption = '时间段：'
    end
    object Label3: TLabel
      Left = 163
      Top = 48
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 60
      Height = 12
      Caption = '商品编码：'
    end
    object Label4: TLabel
      Left = 200
      Top = 16
      Width = 60
      Height = 12
      Caption = '商品名称：'
    end
    object DateTimePicker1: TDateTimePicker
      Left = 67
      Top = 40
      Width = 93
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260
      Time = 37260
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 179
      Top = 40
      Width = 93
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260.9583333333
      Time = 37260.9583333333
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object Button1: TButton
      Left = 376
      Top = 35
      Width = 62
      Height = 25
      Caption = '查询'
      Default = True
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 444
      Top = 35
      Width = 58
      Height = 25
      Caption = '打印'
      TabOrder = 3
      OnClick = Button2Click
    end
    object Edit2: TEdit
      Left = 67
      Top = 8
      Width = 121
      Height = 20
      TabOrder = 4
    end
    object Edit1: TEdit
      Left = 260
      Top = 8
      Width = 197
      Height = 20
      TabOrder = 5
    end
    object Button3: TButton
      Left = 510
      Top = 35
      Width = 58
      Height = 25
      Caption = 'Excel'
      TabOrder = 6
      OnClick = Button3Click
    end
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '商品销售毛利'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '商品销售毛利'
    Left = 275
    Top = 168
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37775.652018287
      DesignerHelpContext = 0
      PrinterPage.CenterOnPageH = True
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 10000
      PrinterPage.Margins.Right = 10000
      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.PageHeader.RightTitle.Strings = (
        '第[Page #]页共[Total Pages]页')
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage.ScaleMode = smFit
      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 = '商品销售毛利'
      ShrinkToPageWidth = True
      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 = [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 DataSource1: TDataSource
    DataSet = Query2
    Left = 323
    Top = 168
  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,jldw,lb,barcode,jhj,dj,sum(sl) as sl,jhj*sum(' +
        'sl) as jjje,sum(xsje) as xsje,sum(xsje)-jhj*sum(sl) as ml,(sum(x' +
        'sje)-jhj*sum(sl))/sum(xsje) as mll,sum(zkje) as zkje,ghscode,mai' +
        'nghs 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,jhj,dj,mainghs,ghscode'
      'having sum(sl)<>0 and dj<>0')
    Left = 360
    Top = 168
    object Query2spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Origin = 'SERVER.sprxshz_v.spcode'
      FixedChar = True
      Size = 10
    end
    object Query2name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Origin = 'SERVER.sprxshz_v.name'
      FixedChar = True
      Size = 50
    end
    object Query2jldw: TStringField
      DisplayLabel = '单位'
      FieldName = 'jldw'
      Origin = 'SERVER.sprxshz_v.unit'
      FixedChar = True
      Size = 10
    end
    object Query2lb: TStringField
      DisplayLabel = '类别'
      FieldName = 'lb'
      Origin = 'SERVER.sprxshz_v.splb'
      FixedChar = True
      Size = 50
    end
    object Query2barcode: TStringField
      DisplayLabel = '条码'
      FieldName = 'barcode'
      Origin = 'SERVER.sprxshz_v.barcode'
      FixedChar = True
      Size = 15
    end
    object Query2jhj2: TCurrencyField
      DisplayLabel = '进货价'
      FieldName = 'jhj'
      Origin = 'SERVER.sprxshz_v.jhj'
    end
    object Query2dj: TCurrencyField
      DisplayLabel = '零售价'
      FieldName = 'dj'
      Origin = 'SERVER.sprxshz_v.dj'
    end
    object Query2ghscode: TStringField
      DisplayLabel = '主供货商'
      FieldName = 'ghscode'
      Size = 5
    end
    object Query2mainghs: TStringField
      DisplayLabel = '主供货商'
      FieldName = 'mainghs'
      Size = 200
    end
    object Query2mll: TBCDField
      DisplayLabel = '毛利率'
      FieldName = 'mll'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object Query2sl: TBCDField
      DisplayLabel = '数量'
      FieldName = 'sl'
      ReadOnly = True
      Precision = 38
    end
    object Query2jjje: TBCDField
      DisplayLabel = '进价金额'
      FieldName = 'jjje'
      ReadOnly = True
      Precision = 38
      Size = 6
    end
    object Query2xsje: TBCDField
      DisplayLabel = '销售金额'
      FieldName = 'xsje'
      ReadOnly = True
      Precision = 19
    end
    object Query2ml: TBCDField
      DisplayLabel = '毛利'
      FieldName = 'ml'
      ReadOnly = True
      Precision = 38
      Size = 6
    end
    object Query2zkje: TBCDField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
      ReadOnly = True
      Precision = 19
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 136
    Top = 176
  end
end