unbmem.~dfm

超市系统开发 超市系统开发 超市系统开发 超市系统开发

      DataSource = FMBMEMD.DSBMEM
      TabOrder = 7
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMAD1: TJDBEdit
      Left = 159
      Top = 115
      Width = 181
      Height = 19
      DataField = 'BMAD1'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 10
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMAD2: TJDBEdit
      Left = 159
      Top = 135
      Width = 181
      Height = 19
      DataField = 'BMAD2'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 12
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMEML: TJDBEdit
      Left = 60
      Top = 155
      Width = 280
      Height = 19
      DataField = 'BMEML'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 13
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMWWW: TJDBEdit
      Left = 60
      Top = 175
      Width = 280
      Height = 19
      DataField = 'BMWWW'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 14
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMZP1: TJDBEdit
      Left = 84
      Top = 115
      Width = 46
      Height = 19
      DataField = 'BMZP1'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 9
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMZP2: TJDBEdit
      Left = 84
      Top = 135
      Width = 46
      Height = 19
      DataField = 'BMZP2'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 11
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMLVE: TJDBEdit
      Left = 60
      Top = 205
      Width = 110
      Height = 19
      DataField = 'BMLVE'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 15
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMBYR: TJDBEdit
      Left = 60
      Top = 225
      Width = 110
      Height = 19
      DataField = 'BMBYR'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 16
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMBTO: TJDBEdit
      Left = 60
      Top = 245
      Width = 110
      Height = 19
      DataField = 'BMBTO'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 17
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMBPO: TJDBEdit
      Left = 60
      Top = 265
      Width = 110
      Height = 19
      DataField = 'BMBPO'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 18
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMBTM: TJDBEdit
      Left = 60
      Top = 285
      Width = 110
      Height = 19
      DataField = 'BMBTM'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 19
      _EditType = EDIT
      _SHOWCAL = NONE
    end
    object BMJND: TJDBEdit
      Left = 230
      Top = 245
      Width = 110
      Height = 19
      DataField = 'BMJND'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 23
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BMCRD: TJDBEdit
      Left = 230
      Top = 265
      Width = 110
      Height = 19
      DataField = 'BMCRD'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 24
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BMBDT: TJDBEdit
      Left = 230
      Top = 205
      Width = 110
      Height = 19
      DataField = 'BMBDT'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 21
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BMBYD: TJDBEdit
      Left = 230
      Top = 225
      Width = 110
      Height = 19
      DataField = 'BMBYD'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 22
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object BMDAT: TJDBEdit
      Left = 230
      Top = 285
      Width = 110
      Height = 19
      DataField = 'BMDAT'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 25
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
    end
    object RBPST: TJDBEdit
      Left = 60
      Top = 305
      Width = 110
      Height = 19
      DataField = 'RBPST'
      DataSource = FMBMEMD.DSBMEM
      ReadOnly = True
      TabOrder = 20
      _EditType = CDATE_EDIT
      _SHOWCAL = NONE
    end
    object BMMRK: TDBMemo
      Left = 60
      Top = 325
      Width = 280
      Height = 75
      DataField = 'BMMRK'
      DataSource = FMBMEMD.DSBMEM
      TabOrder = 26
    end
    object BNSEX: SEDBLOOKUPBOX
      Left = 230
      Top = 55
      Width = 110
      Height = 19
      DataField = 'BMSEX'
      DataSource = FMBMEMD.DSBMEM
      MaxLength = 20
      TabOrder = 4
      _EditType = SEVARCHAR
      _DatabaseName = 'MAIN'
      _TableName = 'SYSLST'
      _Field_IDNO = 'B_SEX'
      _EDIT_WIDTH = 50
      _CHANGE_QUERY = True
      _INSERT_RECORD = True
      _SHOW_MESSAGE = True
    end
    object DBGrid: TDBGrid
      Left = 343
      Top = 1
      Width = 220
      Height = 225
      DataSource = FMBMEMD.DSBMEM
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 28
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BMENO'
          Title.Alignment = taCenter
          Title.Caption = '会员编号'
          Title.Color = clInfoBk
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BMNAM'
          Title.Alignment = taCenter
          Title.Caption = '中文姓名'
          Title.Color = clInfoBk
          Width = 88
          Visible = True
        end>
    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 = 'F7 设置'
      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