pfm_queryspxs.dfm

POS收银系统

object fm_queryspxs: Tfm_queryspxs
  Left = 220
  Top = 325
  Width = 639
  Height = 500
  Caption = '商品销售走势图'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 631
    Height = 473
    Align = alClient
    TabOrder = 0
    object DBChart1: TDBChart
      Left = 2
      Top = 15
      Width = 627
      Height = 345
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.EndColor = 4259584
      LeftWall.Brush.Color = clWhite
      Title.Font.Charset = DEFAULT_CHARSET
      Title.Font.Color = clBlue
      Title.Font.Height = -12
      Title.Font.Name = 'Arial'
      Title.Font.Style = []
      Title.Text.Strings = (
        '商品销售走势图')
      Chart3DPercent = 1
      LeftAxis.Title.Caption = '销售数量'
      Legend.TopPos = 11
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
      object Series2: TLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        DataSource = ADOQuery2
        SeriesColor = clGreen
        XLabelsSource = 'statrq'
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = 'statspnum'
      end
    end
    object Panel1: TPanel
      Left = 2
      Top = 360
      Width = 627
      Height = 111
      Align = alBottom
      TabOrder = 1
      object Label4: TLabel
        Left = 240
        Top = 6
        Width = 52
        Height = 13
        Caption = '商品编码'
        FocusControl = DBEdit1
      end
      object Label5: TLabel
        Left = 312
        Top = 6
        Width = 65
        Height = 13
        Caption = '商品条形码'
        FocusControl = DBEdit2
      end
      object Label6: TLabel
        Left = 424
        Top = 6
        Width = 52
        Height = 13
        Caption = '商品名称'
        FocusControl = DBEdit3
      end
      object Label7: TLabel
        Left = 560
        Top = 6
        Width = 52
        Height = 13
        Caption = '包装单位'
        FocusControl = DBEdit4
      end
      object Label8: TLabel
        Left = 640
        Top = 6
        Width = 52
        Height = 13
        Caption = '规格型号'
        FocusControl = DBEdit5
      end
      object Label9: TLabel
        Left = 240
        Top = 46
        Width = 52
        Height = 13
        Caption = '销售价格'
        FocusControl = DBEdit6
      end
      object Label10: TLabel
        Left = 312
        Top = 46
        Width = 39
        Height = 13
        Caption = '优惠率'
        FocusControl = DBEdit7
      end
      object Label11: TLabel
        Left = 424
        Top = 46
        Width = 52
        Height = 13
        Caption = '优惠编号'
        FocusControl = DBEdit8
      end
      object DBEdit1: TDBEdit
        Left = 240
        Top = 22
        Width = 49
        Height = 21
        Color = clSilver
        DataField = 'spbm'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 312
        Top = 22
        Width = 105
        Height = 21
        Color = clSilver
        DataField = 'sptxm'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 424
        Top = 22
        Width = 124
        Height = 21
        Color = clSilver
        DataField = 'spmc'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 560
        Top = 22
        Width = 64
        Height = 21
        Color = clSilver
        DataField = 'baozhuangdw'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 640
        Top = 22
        Width = 124
        Height = 21
        Color = clSilver
        DataField = 'ggxh'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 240
        Top = 62
        Width = 64
        Height = 21
        Color = clSilver
        DataField = 'wsdj'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 312
        Top = 62
        Width = 64
        Height = 21
        Color = clSilver
        DataField = 'yhl'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 424
        Top = 62
        Width = 64
        Height = 21
        Color = clSilver
        DataField = 'yhid'
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 7
      end
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 216
        Height = 109
        Align = alLeft
        Caption = '统计条件'
        TabOrder = 8
        object Label1: TLabel
          Left = 8
          Top = 48
          Width = 104
          Height = 13
          Caption = '商品编码或条形码'
        end
        object Label2: TLabel
          Left = 8
          Top = 88
          Width = 39
          Height = 13
          Caption = 'Label2'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edit1: TEdit
          Left = 8
          Top = 64
          Width = 145
          Height = 21
          MaxLength = 13
          TabOrder = 0
          OnKeyPress = edit1KeyPress
        end
        object Button1: TButton
          Left = 160
          Top = 64
          Width = 25
          Height = 25
          Caption = '...'
          TabOrder = 1
        end
        object CBox1: TComboBox
          Left = 8
          Top = 16
          Width = 161
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 385
    Top = 336
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    Parameters = <>
    Left = 352
    Top = 336
  end
  object ADOQuery2: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'spbm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = '000001'
      end
      item
        Name = 'statmonth'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 6
      end>
    SQL.Strings = (
      
        'select convert(char(5),rq,1) as statrq,sum(spnum) as statspnum f' +
        'rom tab_xsrz '
      'where spbm=:spbm and datepart(month,rq)=:statmonth'
      'group by convert(char(5),rq,1)')
    Left = 42
    Top = 71
    object ADOQuery2statrq: TStringField
      FieldName = 'statrq'
      FixedChar = True
      Size = 5
    end
    object ADOQuery2statspnum: TBCDField
      FieldName = 'statspnum'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
  end
end