sdxscx1.dfm

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

object sdxscx: Tsdxscx
  Left = 476
  Top = 110
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '时段销售查询'
  ClientHeight = 348
  ClientWidth = 536
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '日明细'
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 36
        Height = 12
        Caption = '日期：'
      end
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 528
        Height = 49
      end
      object DateTimePicker1: TDateTimePicker
        Left = 64
        Top = 16
        Width = 105
        Height = 20
        CalAlignment = dtaLeft
        Date = 37260
        Time = 37260
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object Button1: TButton
        Left = 184
        Top = 11
        Width = 75
        Height = 25
        Caption = '查询'
        Default = True
        TabOrder = 1
        OnClick = Button1Click
      end
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 56
        Width = 528
        Height = 265
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'xssd'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alBottom
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = 7479077
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource1
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        object dxDBGrid1xssd: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xssd'
        end
        object dxDBGrid1COLUMN1: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN1'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1COLUMN2: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN2'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1COLUMN3: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN3'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1COLUMN4: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN4'
          SummaryFooterType = cstAvg
        end
      end
      object BitBtn1: TBitBtn
        Left = 272
        Top = 11
        Width = 75
        Height = 25
        Caption = '打印'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '日汇总'
      ImageIndex = 1
      object Label2: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 12
        Caption = '时间段：'
      end
      object Bevel2: TBevel
        Left = 0
        Top = 0
        Width = 528
        Height = 49
      end
      object Label3: TLabel
        Left = 176
        Top = 24
        Width = 12
        Height = 12
        Caption = '至'
      end
      object DateTimePicker2: TDateTimePicker
        Left = 64
        Top = 16
        Width = 105
        Height = 20
        CalAlignment = dtaLeft
        Date = 37260
        Time = 37260
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object DateTimePicker3: TDateTimePicker
        Left = 192
        Top = 16
        Width = 105
        Height = 20
        CalAlignment = dtaLeft
        Date = 37260.9999884259
        Time = 37260.9999884259
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object Button2: TButton
        Left = 312
        Top = 11
        Width = 75
        Height = 25
        Caption = '查询'
        Default = True
        TabOrder = 2
        OnClick = Button2Click
      end
      object BitBtn2: TBitBtn
        Left = 392
        Top = 11
        Width = 75
        Height = 25
        Caption = '打印'
        TabOrder = 3
        OnClick = BitBtn2Click
      end
      object dxDBGrid2: TdxDBGrid
        Left = 0
        Top = 56
        Width = 528
        Height = 265
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'xsrq'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alBottom
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = 7479077
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource2
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        object dxDBGrid2xssd: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsrq'
        end
        object dxDBGrid2COLUMN1: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN1'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2COLUMN2: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN2'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2COLUMN3: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN3'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2COLUMN4: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'COLUMN4'
          SummaryFooterType = cstAvg
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 16