pfm_zengpindsel.dfm

POS收银系统

object fm_zengpindsel: Tfm_zengpindsel
  Left = 205
  Top = 168
  BorderStyle = bsDialog
  Caption = '赠品单'
  ClientHeight = 335
  ClientWidth = 576
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 80
    Width = 78
    Height = 13
    Caption = '选择进货仓库'
  end
  object Label2: TLabel
    Left = 208
    Top = 32
    Width = 26
    Height = 13
    Caption = '日期'
  end
  object Label3: TLabel
    Left = 12
    Top = 32
    Width = 39
    Height = 13
    Caption = '流水号'
  end
  object Label4: TLabel
    Left = 208
    Top = 80
    Width = 72
    Height = 13
    Caption = '供应商名称 '
  end
  object Label21: TLabel
    Left = 424
    Top = 32
    Width = 39
    Height = 13
    Caption = '经办人'
  end
  object Label20: TLabel
    Left = 424
    Top = 128
    Width = 39
    Height = 13
    Caption = '操作员'
  end
  object Label22: TLabel
    Left = 420
    Top = 80
    Width = 39
    Height = 13
    Caption = '审核人'
  end
  object Label5: TLabel
    Left = 12
    Top = 8
    Width = 45
    Height = 13
    Caption = '赠品单'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = '幼圆'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BBtnOK: TBitBtn
    Left = 436
    Top = 240
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 1
    OnClick = BBtnOKClick
  end
  object DTPicker1: TDateTimePicker
    Left = 208
    Top = 52
    Width = 149
    Height = 21
    CalAlignment = dtaLeft
    Date = 36684.3729845486
    Time = 36684.3729845486
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object BBtnCancel: TBitBtn
    Left = 436
    Top = 284
    Width = 75
    Height = 25
    Caption = '取消'
    ModalResult = 2
    TabOrder = 3
    OnClick = BBtnCancelClick
  end
  object Edit1: TEdit
    Left = 12
    Top = 48
    Width = 81
    Height = 21
    Color = clMenu
    ReadOnly = True
    TabOrder = 4
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 420
    Top = 52
    Width = 73
    Height = 21
    Color = clInfoBk
    MaxLength = 10
    ReadOnly = True
    TabOrder = 5
  end
  object Edit4: TEdit
    Left = 420
    Top = 148
    Width = 81
    Height = 21
    TabStop = False
    Color = clSilver
    MaxLength = 10
    ReadOnly = True
    TabOrder = 0
  end
  object ListBox1: TListBox
    Left = 8
    Top = 96
    Width = 181
    Height = 229
    ItemHeight = 13
    TabOrder = 6
  end
  object ListBox2: TListBox
    Left = 204
    Top = 96
    Width = 193
    Height = 229
    ItemHeight = 13
    TabOrder = 7
  end
  object Edit3: TEdit
    Left = 420
    Top = 100
    Width = 77
    Height = 21
    Color = clInfoBk
    MaxLength = 10
    ReadOnly = True
    TabOrder = 8
  end
  object BBtnjbr: TBitBtn
    Left = 496
    Top = 52
    Width = 25
    Height = 25
    TabOrder = 9
    OnClick = BBtnjbrClick
    Glyph.Data = {
      7E010000424D7E01000000000000760000002800000018000000160000000100
      0400000000000801000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      0000000000080777777777777777777777700F77777777777777777777700F88
      888888888888888887700F88888888888888888887700F888888800000000888
      87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
      FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
      80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
      87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
      F0F0888887700F8888888800F008888887700F88888888800888888887700F88
      888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
      0008}
    Layout = blGlyphBottom
  end
  object BBtnshr: TBitBtn
    Left = 496
    Top = 96
    Width = 25
    Height = 25
    TabOrder = 10
    OnClick = BBtnshrClick
    Glyph.Data = {
      7E010000424D7E01000000000000760000002800000018000000160000000100
      0400000000000801000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      0000000000080777777777777777777777700F77777777777777777777700F88
      888888888888888887700F88888888888888888887700F888888800000000888
      87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
      FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
      80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
      87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
      F0F0888887700F8888888800F008888887700F88888888800888888887700F88
      888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
      0008}
    Layout = blGlyphBottom
  end
  object SProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'myproc_getlsh;1'
    Left = 468
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@chTable'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = '@intLsh'
        ParamType = ptInputOutput
      end>
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    SQL.Strings = (
      '')
    Left = 472
    Top = 104
  end
end