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 '借閱證類型對象