unbgdsn.dfm

DELPHI编写的商场收银POS机源代码

object FMBGDSN: TFMBGDSN
  Left = 123
  Top = 134
  AutoScroll = False
  Caption = '产品资料查询        按ESC可以退出'
  ClientHeight = 453
  ClientWidth = 772
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '新宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Panel: TPanel
    Left = 386
    Top = 0
    Width = 385
    Height = 453
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    Color = 10998526
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object LBBGENO: TLabel
      Left = 2
      Top = 5
      Width = 60
      Height = 15
      Caption = '产品条形码'
    end
    object LBBGNAM: TLabel
      Left = 2
      Top = 27
      Width = 60
      Height = 15
      Caption = '产品名称'
    end
    object LBBGKIN: TLabel
      Left = 2
      Top = 71
      Width = 60
      Height = 15
      Caption = '产品分类'
    end
    object LBBGPST: TLabel
      Left = 2
      Top = 95
      Width = 60
      Height = 15
      Caption = '标准价格'
    end
    object LBBGPVP: TLabel
      Left = 265
      Top = 90
      Width = 52
      Height = 13
      Caption = '贵宾价格'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object LBBGPMM: TLabel
      Left = 135
      Top = 90
      Width = 52
      Height = 13
      Caption = '会员价格'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object LBBGQTS: TLabel
      Left = 260
      Top = 71
      Width = 60
      Height = 15
      Caption = '安全存量'
    end
    object LBBGCOS: TLabel
      Left = 260
      Top = 49
      Width = 60
      Height = 15
      Caption = '预设成本'
    end
    object LBBSENO: TLabel
      Left = 2
      Top = 49
      Width = 60
      Height = 15
      Caption = '供应厂商'
    end
    object LBBGPR1: TLabel
      Left = 445
      Top = 10
      Width = 67
      Height = 15
      Caption = '特惠价格1'
      Visible = False
    end
    object LBBGPR2: TLabel
      Left = 445
      Top = 33
      Width = 67
      Height = 15
      Caption = '特惠价格2'
      Visible = False
    end
    object LBBGPR3: TLabel
      Left = 445
      Top = 56
      Width = 67
      Height = 15
      Caption = '特惠价格3'
      Visible = False
    end
    object LBBGCNA: TLabel
      Left = 2
      Top = 124
      Width = 60
      Height = 15
      Caption = '英文名称'
    end
    object LBBGSUM: TLabel
      Left = 2
      Top = 147
      Width = 60
      Height = 15
      Caption = '图文件路径'
    end
    object LBBGMRK: TLabel
      Left = 2
      Top = 432
      Width = 60
      Height = 15
      Caption = '叙　　述'
    end
    object Image: TImage
      Left = 10
      Top = 175
      Width = 356
      Height = 246
      Center = True
      Stretch = True
    end
    object Label4: TLabel
      Left = 368
      Top = 290
      Width = 13
      Height = 52
      AutoSize = False
      Caption = '产品图形'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Bevel1: TBevel
      Left = 5
      Top = 116
      Width = 371
      Height = 3
      Shape = bsBottomLine
    end
    object Label3: TLabel
      Left = 135
      Top = 103
      Width = 52
      Height = 13
      Caption = '批发价格'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 265
      Top = 103
      Width = 52
      Height = 13
      Caption = '特别价格'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 255
      Top = 150
      Width = 64
      Height = 20
      Caption = '库存量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -20
      Font.Name = '新宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BGENO: TJDBEdit
      Left = 65
      Top = 1
      Width = 150
      Height = 21
      DataField = 'BGENO'
      DataSource = DSBGDS
      MaxLength = 13
      ReadOnly = True
      TabOrder = 0
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGNAM: TJDBEdit
      Left = 65
      Top = 23
      Width = 316
      Height = 21
      DataField = 'BGNAM'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 1
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPST: TJDBEdit
      Left = 65
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPST'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 6
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPVP: TJDBEdit
      Left = 321
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPVP'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 8
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPMM: TJDBEdit
      Left = 190
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPMM'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 7
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGQTS: TJDBEdit
      Left = 321
      Top = 67
      Width = 60
      Height = 21
      DataField = 'BGQTS'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 5
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGCOS: TJDBEdit
      Left = 321
      Top = 45
      Width = 60
      Height = 21
      DataField = 'BGCOS'
      DataSource = DSBGDS
      ReadOnly = True
      TabOrder = 3
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSENO: JDBLOOKUPBOX
      Left = 65
      Top = 45
      Width = 185
      Height = 21
      DataField = 'BSENO'
      DataSource = DSBGDS
      MaxLength = 20
      ReadOnly = True
      TabOrder = 2
      _DatabaseName = 'MAIN'
      _TableName = 'BSUP'
      _Field_IDNO = 'BSENO'
      _Field_NAME = 'BSNAM'
      _EDIT_WIDTH = 80
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object BGKIN: JDBLOOKUPBOX
      Left = 65
      Top = 67
      Width = 185
      Height = 21
      DataField = 'BGKIN'
      DataSource = DSBGDS
      MaxLength = 20
      ReadOnly = True
      TabOrder = 4
      _DatabaseName = 'MAIN'