ghsxscx1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object ghsxscx: Tghsxscx
  Left = 304
  Top = 109
  Width = 657
  Height = 468
  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 = 649
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label3: TLabel
      Left = 6
      Top = 16
      Width = 60
      Height = 12
      Caption = '主供货商：'
    end
    object Label4: TLabel
      Left = 19
      Top = 41
      Width = 48
      Height = 12
      Caption = '时间段：'
    end
    object Label5: TLabel
      Left = 163
      Top = 40
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Edit3: TEdit
      Left = 66
      Top = 8
      Width = 111
      Height = 20
      TabOrder = 0
    end
    object Button1: TButton
      Left = 286
      Top = 28
      Width = 62
      Height = 25
      Caption = '查询'
      Default = True
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 354
      Top = 28
      Width = 58
      Height = 25
      Caption = '打印'
      TabOrder = 2
      OnClick = Button2Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 67
      Top = 32
      Width = 93
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260
      Time = 37260
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 3
    end
    object DateTimePicker2: TDateTimePicker
      Left = 179
      Top = 32
      Width = 93
      Height = 20
      CalAlignment = dtaLeft
      Date = 37260.9583333333
      Time = 37260.9583333333
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
    end
    object Button3: TButton
      Left = 418
      Top = 28
      Width = 58
      Height = 25
      Caption = 'Excel'
      TabOrder = 5
      OnClick = Button3Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 57
    Width = 649
    Height = 384
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '汇总'
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 641
        Height = 357
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'ghscode'
        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\ghsxscx_M'
        object dxDBGrid1ghscode: TdxDBGridMaskColumn
          Width = 86
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ghscode'
        end
        object dxDBGrid1ghsname: TdxDBGridMaskColumn
          Width = 106
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ghsname'
        end
        object dxDBGrid1je: TdxDBGridMaskColumn
          Width = 89
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1zkje: TdxDBGridMaskColumn
          Width = 82
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1jhje: TdxDBGridMaskColumn
          Width = 98
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1mlje: TdxDBGridMaskColumn
          Width = 92
          BandIndex = 0
          RowIndex = 0
          FieldName = 'mlje'
          SummaryFooterType = cstSum
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '明细'
      ImageIndex = 1
      object dxDBGrid2: TdxDBGrid
        Left = 0
        Top = 0
        Width = 641
        Height = 357
        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 = DataSource2
        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\ghsxscx_s'
        object dxDBGrid2spcode: TdxDBGridMaskColumn
          Width = 67
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spcode'
        end
        object dxDBGrid2spname: TdxDBGridMaskColumn
          Width = 128
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spname'
        end
        object dxDBGrid2sl: TdxDBGridMaskColumn
          Width = 86
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
        end
        object dxDBGrid2dj: TdxDBGridMaskColumn
          Width = 74
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dj'
        end
        object dxDBGrid2je: TdxDBGridMaskColumn
          Width = 84
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2jhj: TdxDBGridMaskColumn
          Width = 83
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhj'
        end
        object dxDBGrid2jhje: TdxDBGridMaskColumn
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2zkje: TdxDBGridMaskColumn
          Width = 83
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2mlje: TdxDBGridMaskColumn
          Width = 74
          BandIndex = 0
          RowIndex = 0
          FieldName = 'mlje'
          SummaryFooterType = cstSum
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
    Top = 136
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16