xsdcx1.dfm

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

object xsdcx: Txsdcx
  Left = 334
  Top = 93
  Width = 589
  Height = 436
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 581
    Height = 409
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '概要'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 573
        Height = 65
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 48
          Height = 12
          Caption = '终端号：'
        end
        object Label2: TLabel
          Left = 152
          Top = 16
          Width = 72
          Height = 12
          Caption = '收款员编码：'
        end
        object Label3: TLabel
          Left = 328
          Top = 16
          Width = 60
          Height = 12
          Caption = '销售单号：'
        end
        object Label4: TLabel
          Left = 8
          Top = 48
          Width = 48
          Height = 12
          Caption = '时间段：'
        end
        object Label5: TLabel
          Left = 176
          Top = 48
          Width = 12
          Height = 12
          Caption = '至'
        end
        object Edit1: TEdit
          Left = 56
          Top = 8
          Width = 81
          Height = 20
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 224
          Top = 8
          Width = 89
          Height = 20
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 392
          Top = 8
          Width = 105
          Height = 20
          TabOrder = 2
        end
        object DateTimePicker1: TDateTimePicker
          Left = 56
          Top = 40
          Width = 105
          Height = 20
          CalAlignment = dtaLeft
          Date = 37259
          Time = 37259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
        object DateTimePicker2: TDateTimePicker
          Left = 200
          Top = 40
          Width = 113
          Height = 20
          CalAlignment = dtaLeft
          Date = 37259.9999884259
          Time = 37259.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
        end
        object Button1: TButton
          Left = 384
          Top = 35
          Width = 75
          Height = 25
          Caption = '查询'
          Default = True
          TabOrder = 5
          OnClick = Button1Click
        end
      end
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 65
        Width = 573
        Height = 317
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'xsid'
        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 = 1
        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 = [edgoAutoWidth, edgoIndicator, edgoRowSelect]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        object dxDBGrid1mdid: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'mdid'
        end
        object dxDBGrid1posid: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'posid'
        end
        object dxDBGrid1xsrq: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsrq'
        end
        object dxDBGrid1skyid: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'skyid'
        end
        object dxDBGrid1xsje: TdxDBGridCurrencyColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1zkje: TdxDBGridCurrencyColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1xsid: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsid'
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '明细'
      ImageIndex = 1
      object dxDBGrid2: TdxDBGrid
        Left = 0
        Top = 0
        Width = 573
        Height = 382
        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, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        RegistryPath = '\Software\server\xsdcx_s'
        object dxDBGrid2xsid: TdxDBGridMaskColumn
          Visible = False
          Width = 73
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsid'
        end
        object dxDBGrid2spcode: TdxDBGridMaskColumn
          Width = 72
          BandIndex = 0
          RowIndex = 0
          FieldName = 'spcode'
        end
        object dxDBGrid2name: TdxDBGridMaskColumn
          Width = 188
          BandIndex = 0
          RowIndex = 0
          FieldName = 'name'
        end
        object dxDBGrid2dj: TdxDBGridCurrencyColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dj'
        end
        object dxDBGrid2sl: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
        end
        object dxDBGrid2je: TdxDBGridCurrencyColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2zkje: TdxDBGridCurrencyColumn
          Width = 70
          BandIndex = 0
          RowIndex = 0
          FieldName = 'zkje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid2xsrq: TdxDBGridDateColumn
          Visible = False
          Width = 106
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsrq'
        end
        object dxDBGrid2splb: TdxDBGridMaskColumn
          Width = 65
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lb'
        end
        object dxDBGrid2unit: TdxDBGridMaskColumn
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jldw'
        end
        object dxDBGrid2barcode: TdxDBGridMaskColumn
          Width = 94
          BandIndex = 0
          RowIndex = 0
          FieldName = 'barcode'
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 148
    Top = 215
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 316
    Top = 223
  end
  object PopupMenu1: TPopupMenu
    Left = 492
    Top = 167
    object N1: TMenuItem
      Caption = '报表设置'
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from spxs_m')
    Left = 116
    Top = 215
    object Query1mdid: TStringField
      DisplayLabel = '门店ID'
      FieldName = 'mdid'
      Origin = 'SERVER.spxs_m.mdid'
      FixedChar = True
      Size = 10
    end
    object Query1posid: TStringField
      DisplayLabel = '终端号'
      FieldName = 'posid'
      Origin = 'SERVER.spxs_m.posid'
      FixedChar = True
      Size = 10
    end
    object Query1xsrq: TDateTimeField
      DisplayLabel = '销售日期'
      FieldName = 'xsrq'
      Origin = 'SERVER.spxs_m.xsrq'
    end
    object Query1skyid: TStringField
      DisplayLabel = '收款员'
      FieldName = 'skyid'
      Origin = 'SERVER.spxs_m.skyid'
      FixedChar = True
      Size = 10
    end
    object Query1xsje: TCurrencyField
      DisplayLabel = '总金额'
      FieldName = 'xsje'
      Origin = 'SERVER.spxs_m.xsje'
    end
    object Query1zkje: TCurrencyField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
      Origin = 'SERVER.spxs_m.zkje'
    end
    object Query1xsid: TStringField
      DisplayLabel = '销售单号'
      FieldName = 'xsid'
      Origin = 'SERVER.spxs_m.xsid'
      FixedChar = True
      Size = 12
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 284
    Top = 223
    object ADOQuery1xsid: TStringField
      FieldName = 'xsid'
      Origin = 'SERVER.spxs_s_v.xsid'
      FixedChar = True
      Size = 12
    end
    object ADOQuery1spcode: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'spcode'
      Origin = 'SERVER.spxs_s_v.spcode'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Origin = 'SERVER.spxs_s_v.name'
      FixedChar = True
      Size = 50
    end
    object ADOQuery1lb: TStringField
      DisplayLabel = '类别'
      FieldName = 'lb'
      Origin = 'SERVER.spxs_s_v.splb'
      FixedChar = True
      Size = 50
    end
    object ADOQuery1jldw: TStringField
      DisplayLabel = '单位'
      FieldName = 'jldw'
      Origin = 'SERVER.spxs_s_v.unit'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1barcode: TStringField
      DisplayLabel = '条形码'
      FieldName = 'barcode'
      Origin = 'SERVER.spxs_s_v.barcode'
      FixedChar = True
      Size = 15
    end
    object ADOQuery1dj: TCurrencyField
      DisplayLabel = '单价'
      FieldName = 'dj'
      Origin = 'SERVER.spxs_s_v.dj'
    end
    object ADOQuery1sl: TFloatField
      DisplayLabel = '数量'
      FieldName = 'sl'
      Origin = 'SERVER.spxs_s_v.sl'
    end
    object ADOQuery1je: TCurrencyField
      DisplayLabel = '金额'
      FieldName = 'je'
      Origin = 'SERVER.spxs_s_v.je'
    end
    object ADOQuery1zkje: TCurrencyField
      DisplayLabel = '折扣金额'
      FieldName = 'zkje'
      Origin = 'SERVER.spxs_s_v.zkje'
    end
    object ADOQuery1xsrq: TDateTimeField
      FieldName = 'xsrq'
      Origin = 'SERVER.spxs_s_v.xsrq'
    end
  end
end