mdlmain.bas

来自「visual basic课程设计案例精编」· BAS 代码 · 共 21 行

Attribute VB_Name = "mdlMain"
'定义用户类型,分为管理员和用户两种
Public Const Manager = 2
Public Const Student = 1

'定义书的状态
Public Const Here = 1
Public Const BorrowBook = 2
Public Const ReturnBook = 4
Public Const RenewBook = 8
Public Const Booking = 16
Public Const Lost = 32
Public Const Overdue = 64
Public Const NewBook = 128

'定义用户的状态