object sydxzsp: Tsydxzsp
  Left = 381
  Top = 209
  Width = 537
  Height = 347
  BorderIcons = [biSystemMenu]
  Caption = '選擇貨品--損溢單'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋體'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 60
      Height = 12
      Caption = '商品編碼：'
    end
    object Label2: TLabel
      Left = 16
      Top = 45
      Width = 60
      Height = 12
      Caption = '商品名稱：'
    end
    object Label3: TLabel
      Left = 176
      Top = 12
      Width = 48
      Height = 12
      Caption = '條形碼：'
    end
    object BitBtn1: TBitBtn
      Left = 288
      Top = 34
      Width = 75
      Height = 25
      Caption = '確定'
      ModalResult = 1
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 368
      Top = 34
      Width = 75
      Height = 25
      Caption = '添加到單據'
      TabOrder = 1
      OnClick = BitBtn2Click
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 448
      Top = 34
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 2
      Kind = bkCancel
    end
    object Edit1: TEdit
      Left = 80
      Top = 4
      Width = 73
      Height = 20
      TabOrder = 3
      OnKeyDown = Edit1KeyDown
    end
    object Edit3: TEdit
      Left = 224
      Top = 4
      Width = 161
      Height = 20
      TabOrder = 4
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 80
      Top = 37
      Width = 193
      Height = 20
      TabOrder = 5
      OnKeyDown = Edit1KeyDown
    end
  end
  object dxDBGrid2: TdxDBGrid
    Left = 0
    Top = 65
    Width = 529
    Height = 255
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'spcode'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋體'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnDblClick = dxDBGrid2DblClick
    AutoSearchTextColor = clNavy
    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 = []
    HideSelectionColor = clNavy
    HideSelectionTextColor = clWhite
    HighlightColor = clNavy
    HighlightTextColor = clWhite
    LookAndFeel = lfFlat
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoMultiSort, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
    OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoFullSizing]
    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\sydxzsp'
    object dxDBGrid2spcode: TdxDBGridMaskColumn
      Width = 82
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spcode'
    end
    object dxDBGrid2spname: TdxDBGridMaskColumn
      Width = 138
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spname'
    end
    object dxDBGrid2kcsl: TdxDBGridMaskColumn
      Width = 72
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kcsl'
    end
    object dxDBGrid2lb: TdxDBGridMaskColumn
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lb'
    end
    object dxDBGrid2jldw: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jldw'
    end
    object dxDBGrid2bzgg: TdxDBGridMaskColumn
      Width = 62
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bzgg'
    end
    object dxDBGrid2barcode: TdxDBGridMaskColumn
      Width = 72
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
    object dxDBGrid2jhj: TdxDBGridMaskColumn
      Width = 67
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jhj'
    end
    object dxDBGrid2jqj: TdxDBGridMaskColumn
      Width = 73
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jqj'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'ckcode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = '001'
      end
      item
        Name = 'spcode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end
      item
        Name = 'spname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'barcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '%'
      end>
    SQL.Strings = (
      'select * from spkcda_V'
      'where ckcode=:ckcode'
      'and spcode like :spcode'
      'and spname like :spname'
      'and barcode like :barcode')
    Left = 88
    Top = 160
    object ADOQuery1ckcode: TStringField
      FieldName = 'ckcode'
      Size = 5
    end
    object ADOQuery1ckname: TStringField
      FieldName = 'ckname'
      Size = 200
    end
    object ADOQuery1spcode: TStringField
      DisplayLabel = '商品編碼'
      FieldName = 'spcode'
      Size = 15
    end
    object ADOQuery1spname: TStringField
      DisplayLabel = '商品名稱'
      FieldName = 'spname'
      Size = 50
    end
    object ADOQuery1lb: TStringField
      DisplayLabel = '類別'
      FieldName = 'lb'
    end
    object ADOQuery1jldw: TStringField
      DisplayLabel = '單位'
      FieldName = 'jldw'
      Size = 10
    end
    object ADOQuery1bzgg: TBCDField
      DisplayLabel = '包裝'
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object ADOQuery1barcode: TStringField
      DisplayLabel = '條形碼'
      FieldName = 'barcode'
    end
    object ADOQuery1kcsl: TBCDField
      DisplayLabel = '庫存數量'
      FieldName = 'kcsl'
      Precision = 18
      Size = 2
    end
    object ADOQuery1jhj: TBCDField
      DisplayLabel = '進貨價'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1jqj: TBCDField
      DisplayLabel = '加權價'
      FieldName = 'jqj'
      Precision = 18
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 128
    Top = 160
  end
end