unbgdsq.dfm

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

object FMBGDSQ: TFMBGDSQ
  Left = 179
  Top = 168
  AutoScroll = False
  Caption = '产品资料文件快速新增'
  ClientHeight = 273
  ClientWidth = 772
  Color = 15648684
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '新宋体'
  Font.Style = []
  Menu = MENU_BGDS
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object DBGrid1: TDBGrid
    Left = 490
    Top = 1
    Width = 280
    Height = 270
    DataSource = DSBGDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '新宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = '新宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BGENO'
        Title.Alignment = taCenter
        Title.Caption = '产品条形码'
        Title.Color = clInfoBk
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGNAM'
        Title.Alignment = taCenter
        Title.Caption = '产品名称'
        Title.Color = clInfoBk
        Width = 283
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGID1'
        Title.Alignment = taCenter
        Title.Caption = '产品编号'
        Title.Color = clInfoBk
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGPST'
        Title.Alignment = taCenter
        Title.Caption = '标准价格'
        Title.Color = clInfoBk
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGPVP'
        Title.Alignment = taCenter
        Title.Caption = '贵宾价格'
        Title.Color = clInfoBk
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BGPMM'
        Title.Alignment = taCenter
        Title.Caption = '会员价格'
        Title.Color = clInfoBk
        Width = 68
        Visible = True
      end>
  end
  object AREA_TOOL: TPanel
    Left = 0
    Top = 0
    Width = 100
    Height = 273
    Align = alLeft
    Caption = ' '
    Color = clNavy
    TabOrder = 1
    object BTNQUT: TBitBtn
      Left = 0
      Top = 225
      Width = 100
      Height = 40
      Caption = '&Q 结束'
      TabOrder = 0
      OnClick = BTNQUTClick
    end
    object BTNINS: TBitBtn
      Left = 0
      Top = 0
      Width = 100
      Height = 40
      Caption = '&A 新增'
      TabOrder = 1
      OnClick = BTNINSClick
    end
    object BTNUPD: TBitBtn
      Left = 0
      Top = 40
      Width = 100
      Height = 40
      Caption = '&U 修改'
      TabOrder = 2
      OnClick = BTNUPDClick
    end
    object BTNDEL: TBitBtn
      Left = 0
      Top = 80
      Width = 100
      Height = 40
      Caption = '&D 删除'
      TabOrder = 3
      OnClick = BTNDELClick
    end
    object BTNYES: TBitBtn
      Left = 0
      Top = 120
      Width = 100
      Height = 40
      Caption = '&Y 确定'
      Enabled = False
      TabOrder = 4
      OnClick = BTNYESClick
    end
    object BTNCAL: TBitBtn
      Left = 0
      Top = 160
      Width = 100
      Height = 40
      Caption = '&C 取消'
      Enabled = False
      TabOrder = 5
      OnClick = BTNCALClick
    end
  end
  object Panel2: TPanel
    Left = 102
    Top = 1
    Width = 385
    Height = 270
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    Color = 10998526
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    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 = 2
      Top = 146
      Width = 60
      Height = 15
      Caption = '安全存量'
    end
    object LBBGCOS: TLabel
      Left = 2
      Top = 124
      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 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 LBRBCNT: TLabel
      Left = 132
      Top = 146
      Width = 53
      Height = 15
      Caption = '库 存 量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object BGENO: TJDBEdit
      Left = 65
      Top = 1
      Width = 150
      Height = 21
      DataField = 'BGENO'
      DataSource = DSBGDS
      MaxLength = 13
      TabOrder = 0
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGNAM: TJDBEdit
      Left = 65
      Top = 23
      Width = 316
      Height = 21
      DataField = 'BGNAM'
      DataSource = DSBGDS
      TabOrder = 1
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPST: TJDBEdit
      Left = 65
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPST'
      DataSource = DSBGDS
      TabOrder = 5
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPVP: TJDBEdit
      Left = 321
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPVP'
      DataSource = DSBGDS
      TabOrder = 7
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGPMM: TJDBEdit
      Left = 190
      Top = 92
      Width = 60
      Height = 21
      DataField = 'BGPMM'
      DataSource = DSBGDS
      TabOrder = 6
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGQTS: TJDBEdit
      Left = 65
      Top = 142
      Width = 60
      Height = 21
      DataField = 'BGQTS'
      DataSource = DSBGDS
      TabOrder = 4
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGCOS: TJDBEdit
      Left = 65
      Top = 120
      Width = 60
      Height = 21