dfm_xscx.dfm

仓库管理系统 仓库管理系统

object dfmxsfx: Tdfmxsfx
  Left = 64
  Top = 140
  Width = 693
  Height = 461
  Caption = '销售查询'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 685
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 685
    Height = 41
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 24
      Height = 12
      Caption = '店号'
    end
    object Label2: TLabel
      Left = 119
      Top = 16
      Width = 24
      Height = 12
      Caption = '条码'
    end
    object Label3: TLabel
      Left = 262
      Top = 16
      Width = 36
      Height = 12
      Caption = '起始日'
    end
    object Label4: TLabel
      Left = 407
      Top = 16
      Width = 36
      Height = 12
      Caption = '终止日'
    end
    object BitBtn1: TBitBtn
      Left = 555
      Top = 10
      Width = 75
      Height = 25
      Caption = '查询'
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object DateTimePicker1: TDateTimePicker
      Left = 299
      Top = 12
      Width = 97
      Height = 20
      CalAlignment = dtaLeft
      Date = 36878.4244708796
      Time = 36878.4244708796
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DateTimePicker2: TDateTimePicker
      Left = 445
      Top = 12
      Width = 89
      Height = 20
      CalAlignment = dtaLeft
      Date = 36878.4248858333
      Time = 36878.4248858333
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      Left = 42
      Top = 12
      Width = 65
      Height = 20
      ItemHeight = 12
      TabOrder = 3
    end
    object ComboBox2: TComboBox
      Left = 145
      Top = 12
      Width = 105
      Height = 20
      ItemHeight = 12
      TabOrder = 4
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 376
    Width = 685
    Height = 39
    Align = alBottom
    TabOrder = 2
    object Label5: TLabel
      Left = 240
      Top = 3
      Width = 36
      Height = 12
      Caption = '总数量'
    end
    object Label6: TLabel
      Left = 320
      Top = 3
      Width = 36
      Height = 12
      Caption = '总金额'
    end
    object RadioGroup1: TRadioGroup
      Left = 1
      Top = 1
      Width = 232
      Height = 37
      Align = alLeft
      Caption = '排序方法'
      Columns = 4
      Items.Strings = (
        '日期'
        '条码'
        '数量'
        '金额')
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object BitBtn2: TBitBtn
      Left = 412
      Top = 9
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = '打印'
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object DBEdit1: TDBEdit
      Left = 241
      Top = 16
      Width = 64
      Height = 20
      DataField = 'tsaqty'
      DataSource = dssumsale
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 319
      Top = 16
      Width = 73
      Height = 20
      DataField = 'tsasal'
      DataSource = dssumsale
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 41
    Width = 685
    Height = 335
    Align = alClient
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 683
      Height = 333
      Align = alClient
      DataSource = dsqrysale
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'SASTOR'
          Title.Caption = '店号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SADATE'
          Title.Caption = '日期'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SASTYL'
          Title.Caption = '款号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SACOLR'
          Title.Caption = '色号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SASIZE'
          Title.Caption = '尺码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SAQTY'
          Title.Caption = '数量'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SALPRC'
          Title.Caption = '单价'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SASAL'
          Title.Caption = '金额'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SASKU'
          Title.Caption = '条码'
          Visible = True
        end>
    end
  end
  object dstposloca: TDataSource
    DataSet = tbltposloca
    Left = 24
    Top = 97
  end
  object tbltposloca: TTable
    Active = True
    DatabaseName = 'atoa'
    FieldDefs = <
      item
        Name = 'lcstor'
        Attributes = [faRequired]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'lcname'
        Attributes = [faRequired]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'lcad1'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'lcad2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'lcad3'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'lctel'
        Attributes = [faRequired]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'lcfax'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'lctype'
        Attributes = [faRequired]
        DataType = ftString
        Size = 2
      end>
    IndexDefs = <
      item
        Name = 'ilcstor'
        Fields = 'lcstor'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'lcstor'
    StoreDefs = True
    TableName = 'dbo.posloca'
    Left = 56
    Top = 97
  end
  object dstposplu: TDataSource
    DataSet = tbltposplu
    Left = 120
    Top = 97
  end
  object qrytpossale: TQuery
    DatabaseName = 'atoa'
    SQL.Strings = (
      
        'SELECT SASTOR, SADATE, SASKU, SASAL, SASTYL, SACOLR, SASIZE, SAQ' +
        'TY, SALPRC, SUM( SAQTY ) tsaqty'
      'FROM dbo.t_possale Dbo_t_possale'
      
        'GROUP BY SASTOR, SADATE, SASKU, SASAL, SASTYL, SACOLR, SASIZE, S' +
        'AQTY, SALPRC')
    Left = 248
    Top = 97
  end
  object dsqrysale: TDataSource
    DataSet = qrytpossale
    Left = 216
    Top = 97
  end
  object ppBDEPipeline1: TppBDEPipeline
    DataSource = dsqrysale
    UserName = 'BDEPipeline1'
    Left = 328
    Top = 97
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppBDEPipeline1
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'Letter'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 279401
    PrinterSetup.mmPaperWidth = 215900
    UserName = 'Report'
    DeviceType = 'Screen'
    Left = 368
    Top = 97
    Version = '5.0'
    mmColumnWidth = 0
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 12700
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = '销售报表'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 14
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 5027
        mmLeft = 97367
        mmTop = 1323
        mmWidth = 21167
        BandType = 0
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Weight = 0.75
        mmHeight = 529
        mmLeft = 3175
        mmTop = 11906
        mmWidth = 194205
        BandType = 0
      end
      object ppLabel22: TppLabel
        UserName = 'Label22'
        Caption = '店号：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 11
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 3969
        mmLeft = 10319
        mmTop = 6615
        mmWidth = 12700
        BandType = 0
      end
      object ppVariable1: TppVariable
        UserName = 'Variable1'
        CalcOrder = 0
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 11
        Font.Style = [fsBold]
        OnCalc = ppVariable1Calc
        Transparent = True
        mmHeight = 3969
        mmLeft = 25400
        mmTop = 6615
        mmWidth = 13494
        BandType = 0
      end
      object ppVariable2: TppVariable
        UserName = 'Variable2'
        CalcOrder = 1
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 11
        Font.Style = [fsBold]
        OnCalc = ppVariable2Calc
        Transparent = True
        mmHeight = 3969
        mmLeft = 42333
        mmTop = 6615
        mmWidth = 21431
        BandType = 0
      end
      object ppLabel23: TppLabel
        UserName = 'Label23'
        Caption = '至'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 11
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 3969
        mmLeft = 65881
        mmTop = 6350
        mmWidth = 4233
        BandType = 0
      end
      object ppVariable3: TppVariable
        UserName = 'Variable3'
        CalcOrder = 2
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 11
        Font.Style = [fsBold]
        OnCalc = ppVariable3Calc
        Transparent = True
        mmHeight = 3969
        mmLeft = 71967
        mmTop = 6350
        mmWidth = 21431
        BandType = 0
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        VarType = vtPageNo
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsItalic]
        Transparent = True
        mmHeight = 4233
        mmLeft = 153194
        mmTop = 5556
        mmWidth = 1852
        BandType = 0
      end
      object ppSystemVariable3: TppSystemVariable
        UserName = 'SystemVariable3'
        VarType = vtPageCount
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsItalic]
        Transparent = True
        mmHeight = 4233
        mmLeft = 179123
        mmTop = 5821
        mmWidth = 2646
        BandType = 0
      end
      object ppLabel18: TppLabel
        UserName = 'Label18'
        Caption = '第'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsItalic]
        Transparent = True
        mmHeight = 4233
        mmLeft = 147109
        mmTop = 5556
        mmWidth = 4233
        BandType = 0
      end
      object ppLabel19: TppLabel
        UserName = 'Label19'
        Caption = '页'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsItalic]