spxshz1.dfm

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

object spxshz: Tspxshz
  Left = 284
  Top = 138
  Width = 632
  Height = 418
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    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 PageControl1: TPageControl
    Left = 0
    Top = 65
    Width = 624
    Height = 326
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '汇总'
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 616
        Height = 299
        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, edgoMultiSelect, edgoMultiSort, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoIndicator, edgoRowSelect]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        RegistryPath = '\Software\server\spxscx_M'
        object dxDBGrid1spcode: TdxDBGridMaskColumn
          Width = 79
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spcode'
        end
        object dxDBGrid1name: TdxDBGridMaskColumn
          Width = 151
          BandIndex = 0
          RowIndex = 0
          FieldName = 'name'
        end
        object dxDBGrid1lb: TdxDBGridMaskColumn
          Width = 105
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lb'
        end
        object dxDBGrid1jldw: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jldw'
        end
        object dxDBGrid1barcode: TdxDBGridMaskColumn
          Width = 94
          BandIndex = 0
          RowIndex = 0
          FieldName = 'barcode'
        end
        object dxDBGrid1sl: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
        end
        object dxDBGrid1xsje: TdxDBGridCurrencyColumn
          Width = 76
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1zkje: TdxDBGridCurrencyColumn
          Width = 78
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1ghscode: TdxDBGridMaskColumn
          Width = 92
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ghscode'
        end
        object dxDBGrid1mainghs: TdxDBGridMaskColumn
          Width = 105
          BandIndex = 0
          RowIndex = 0
          FieldName = 'mainghs'
        end
        object dxDBGrid1suilu: TdxDBGridMaskColumn
          Width = 74
          BandIndex = 0
          RowIndex = 0
          FieldName = 'suilu'
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '明细'
      ImageIndex = 1
      object dxDBGrid2: TdxDBGrid
        Left = 0
        Top = 0
        Width = 616
        Height = 299
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'xsrq'
        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 = DataSource2
        Filter.Active = True
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        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\spxscx_s'
        object dxDBGrid2xsrq: TdxDBGridDateColumn
          Width = 112
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsrq'
        end
        object dxDBGrid2dj: TdxDBGridCurrencyColumn
          Width = 92
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dj'
        end
        object dxDBGrid2sl: TdxDBGridMaskColumn
          Width = 103
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2xsje: TdxDBGridCurrencyColumn
          Width = 107
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2zkje: TdxDBGridCurrencyColumn
          Width = 102
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 323
    Top = 168
  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 = 37714.6200744213
      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