unbsup.dfm

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

      Height = 19
      DataField = 'BSAD9'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 14
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSZP1: TJDBEdit
      Left = 60
      Top = 145
      Width = 50
      Height = 19
      DataField = 'BSZP1'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 15
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSZP2: TJDBEdit
      Left = 60
      Top = 165
      Width = 50
      Height = 19
      DataField = 'BSZP2'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 16
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSZP9: TJDBEdit
      Left = 60
      Top = 185
      Width = 50
      Height = 19
      DataField = 'BSZP9'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 17
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTPN: TJDBEdit
      Left = 60
      Top = 205
      Width = 100
      Height = 19
      DataField = 'BSTPN'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 18
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTDT: TJDBEdit
      Left = 278
      Top = 285
      Width = 55
      Height = 19
      DataField = 'BSTDT'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 19
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BSDAT: TJDBEdit
      Left = 278
      Top = 305
      Width = 55
      Height = 19
      DataField = 'BSDAT'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 20
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BSID1: TJDBEdit
      Left = 60
      Top = 245
      Width = 100
      Height = 19
      DataField = 'BSID1'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 21
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSDIS: TJDBEdit
      Left = 60
      Top = 265
      Width = 55
      Height = 19
      DataField = 'BSDIS'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 22
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTP1: TJDBEdit
      Left = 60
      Top = 285
      Width = 55
      Height = 19
      DataField = 'BSTP1'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 23
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTP2: TJDBEdit
      Left = 60
      Top = 305
      Width = 55
      Height = 19
      DataField = 'BSTP2'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 24
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTP5: TJDBEdit
      Left = 175
      Top = 265
      Width = 55
      Height = 19
      DataField = 'BSTP5'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 25
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTP6: TJDBEdit
      Left = 175
      Top = 285
      Width = 55
      Height = 19
      DataField = 'BSTP6'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 26
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSALT: TJDBEdit
      Left = 175
      Top = 305
      Width = 55
      Height = 19
      DataField = 'BSALT'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 27
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BSTTD: TJDBEdit
      Left = 278
      Top = 265
      Width = 33
      Height = 19
      DataField = 'BSTTD'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 28
      _EditType = INTEGER_EDIT
      _SHOWCAL = NONE
    end
    object DBGrid: TDBGrid
      Left = 343
      Top = 1
      Width = 220
      Height = 240
      DataSource = FMBSUPD.DSBSUP
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 29
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BSENO'
          Title.Alignment = taCenter
          Title.Caption = '厂商编号'
          Title.Color = clInfoBk
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BSNAM'
          Title.Alignment = taCenter
          Title.Caption = '厂商名称'
          Title.Color = clInfoBk
          Width = 114
          Visible = True
        end>
    end
    object BSTEG: SEDBLOOKUPBOX
      Left = 60
      Top = 225
      Width = 100
      Height = 19
      DataField = 'BSTEG'
      DataSource = FMBSUPD.DSBSUP
      MaxLength = 20
      TabOrder = 30
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BSUPBSTEG'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BSMRK: TDBMemo
      Left = 60
      Top = 325
      Width = 281
      Height = 75
      DataField = 'BSMRK'
      DataSource = FMBSUPD.DSBSUP
      TabOrder = 31
    end
    object BSTTP: SEDBLOOKUPBOX
      Left = 220
      Top = 225
      Width = 120
      Height = 19
      DataField = 'BSTTP'
      DataSource = FMBSUPD.DSBSUP
      MaxLength = 20
      TabOrder = 32
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BSUPBSTTP'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BSTBK: SEDBLOOKUPBOX
      Left = 220
      Top = 245
      Width = 120
      Height = 19
      DataField = 'BSTBK'
      DataSource = FMBSUPD.DSBSUP
      MaxLength = 20
      TabOrder = 33
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BSUPBSTBK'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object BSSCN: SEDBLOOKUPBOX
      Left = 60
      Top = 65
      Width = 100
      Height = 19
      DataField = 'BSSCN'
      DataSource = FMBSUPD.DSBSUP
      MaxLength = 20
      TabOrder = 34
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'BSUPBSSCN'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
  end
  object Panel1: TPanel
    Left = 567
    Top = 0
    Width = 125
    Height = 454
    Align = alRight
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    Color = clBlack
    TabOrder = 2
    object BTNQUT: TBitBtn
      Left = 0
      Top = 395
      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 = 345
      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 = 295
      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 = 345
      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
  end
  object MainMenu: TMainMenu
    Left = 581
    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
end