unbgds.dfm

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

      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BTNPTH: TBitBtn
      Left = 276
      Top = 195
      Width = 66
      Height = 21
      Caption = '图文件路径'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnClick = BTNPTHClick
    end
    object BGCLH: TJDBEdit
      Left = 130
      Top = 215
      Width = 60
      Height = 19
      DataField = 'BGCLH'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 17
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGCLW: TJDBEdit
      Left = 130
      Top = 235
      Width = 60
      Height = 19
      DataField = 'BGCLW'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 19
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BGDTC: TJDBEdit
      Left = 260
      Top = 355
      Width = 80
      Height = 19
      DataField = 'BGDTC'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 28
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BGDAT: TJDBEdit
      Left = 260
      Top = 375
      Width = 80
      Height = 19
      DataField = 'BGDAT'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 29
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BGQTN: TJDBEdit
      Left = 195
      Top = 105
      Width = 80
      Height = 19
      DataField = 'BGQTN'
      DataSource = FMBGDSD.DSBGDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object DBGrid: TDBGrid
      Left = 343
      Top = 1
      Width = 220
      Height = 235
      DataSource = FMBGDSD.DSBGDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 31
      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 = 94
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BGNAM'
          Title.Alignment = taCenter
          Title.Caption = '产品名称'
          Title.Color = clInfoBk
          Width = 90
          Visible = True
        end>
    end
    object BGMRK: TDBMemo
      Left = 55
      Top = 395
      Width = 286
      Height = 52
      DataField = 'BGMRK'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 27
    end
    object BGKIN: SEDBLOOKUPBOX
      Left = 221
      Top = 45
      Width = 120
      Height = 19
      DataField = 'BGKIN'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 3
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGKIN'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGRUL: SEDBLOOKUPBOX
      Left = 55
      Top = 255
      Width = 150
      Height = 19
      DataField = 'BGRUL'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 20
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGRUL'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGGAU: SEDBLOOKUPBOX
      Left = 55
      Top = 275
      Width = 150
      Height = 19
      DataField = 'BGGAU'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 21
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGGAU'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGUNS: SEDBLOOKUPBOX
      Left = 55
      Top = 295
      Width = 150
      Height = 19
      DataField = 'BGUNS'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 22
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGUNS'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGUNP: SEDBLOOKUPBOX
      Left = 55
      Top = 315
      Width = 150
      Height = 19
      DataField = 'BGUNP'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 23
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGUNP'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGUNW: SEDBLOOKUPBOX
      Left = 55
      Top = 335
      Width = 150
      Height = 19
      DataField = 'BGUNW'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 24
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGUNW'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGUSE: SEDBLOOKUPBOX
      Left = 55
      Top = 355
      Width = 150
      Height = 19
      DataField = 'BGUSE'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 25
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGUSE'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGCLR: SEDBLOOKUPBOX
      Left = 55
      Top = 375
      Width = 150
      Height = 19
      DataField = 'BGCLR'
      DataSource = FMBGDSD.DSBGDS
      MaxLength = 20
      TabOrder = 26
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BGDSBGCLR'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BGSIN: TJDBEdit
      Left = 280
      Top = 175
      Width = 60
      Height = 19
      DataField = 'BGSIN'
      DataSource = FMBGDSD.DSBGDS
      TabOrder = 13
      _EditType = EDIT
      _SHOWCAL = NONE
    end
  end
  object Panel1: TPanel
    Left = 567
    Top = 0
    Width = 125
    Height = 481
    Align = alRight
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    Color = clBlack
    TabOrder = 2
    object BTNQUT: TBitBtn
      Left = 0
      Top = 420
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = 'Ctrl+Q 结束'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BTNQUTClick
    end
    object BTNCAL: TBitBtn
      Left = 0
      Top = 150
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = 'F4 取消'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BTNCALClick
      Spacing = 1
    end
    object BTNYES: TBitBtn
      Left = 0
      Top = 100
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = 'F3 确定'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BTNYESClick
      Spacing = 1
    end
    object BTNDEL: TBitBtn
      Left = 0
      Top = 50
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = 'F2 删除'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BTNDELClick
      Spacing = 1
    end
    object BTNINS: TBitBtn
      Left = 0
      Top = 0
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = 'F1 新增'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BTNINSClick
      Spacing = 1
    end
    object BTNPRN: TBitBtn
      Left = 60
      Top = 370
      Width = 60
      Height = 50
      Cursor = crHandPoint
      Caption = 'F8 打印'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = BTNPRNClick
      Layout = blGlyphTop
      Spacing = 1
    end
    object BTNSET: TBitBtn
      Left = 0
      Top = 320
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = '设置'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BTNSETClick
      Spacing = 1
    end
    object BTNPRE: TBitBtn
      Left = 0
      Top = 370
      Width = 60
      Height = 50
      Cursor = crHandPoint
      Caption = 'F7 预览'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = BTNPRNClick
      Layout = blGlyphTop
      Spacing = 1
    end
    object BTNLABEL: TBitBtn
      Left = 0
      Top = 200
      Width = 120
      Height = 50
      Cursor = crHandPoint
      Caption = '标签'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = BTNLABELClick
      Spacing = 1
    end
  end
  object MainMenu: TMainMenu
    Left = 556
    Top = 6
    object N1: TMenuItem
      Caption = '新增'
      ShortCut = 112
      Visible = False
      OnClick = BTNINSClick
    end
    object N2: TMenuItem
      Caption = '删除'
      ShortCut = 113
      Visible = False
      OnClick = BTNDELClick
    end
    object N3: TMenuItem
      Caption = '确定'
      ShortCut = 114
      Visible = False
      OnClick = BTNYESClick
    end
    object N4: TMenuItem
      Caption = '取消'
      ShortCut = 115
      Visible = False
      OnClick = BTNCALClick
    end
    object N6: TMenuItem
      Caption = '查询'
      ShortCut = 116
      Visible = False
      OnClick = BTNSERClick
    end
    object MENPRE: TMenuItem
      Caption = '预览'
      ShortCut = 118
      Visible = False
      OnClick = BTNPRNClick
    end
    object MENPRN: TMenuItem
      Caption = '打印'
      ShortCut = 119
      Visible = False
      OnClick = BTNPRNClick
    end
    object N5: TMenuItem
      Caption = '结束'
      ShortCut = 16465
      Visible = False
      OnClick = BTNQUTClick
    end
  end
  object OpenDialog1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
      'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
      '.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced' +
      ' Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
    Title = '打开图文件路径'
    Left = 414
    Top = 46
  end
end