variable.bas

来自「图书管理系统,采用VB+SQL,含最好的代码和数据库备份.」· BAS 代码 · 共 19 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'图书分类数组
Public Arr_BookType() As String
Public Arr_TypeId() As Long
'类模块对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象
Public MyBookInfo As New BookInfo  '图书信息对象
Public SelBookInfo As New BookInfo  '当前选择的图书对象
Public MyBookType As New BookType  '图书分类对象
Public CurBookType As New BookType  '当前图书分类对象
Public MyBorrow As New Borrow  '图书借阅对象
Public MyBorrowList As New BorrowList '借阅明细对象
Public MyCards As New Cards  '借阅证对象
Public MyCardType As New CardType '借阅证类型对象