variable.bas

来自「VB和Oracle结合的程序」· BAS 代码 · 共 22 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal As String
'图书分类数组
Public Arr_BookType() As String
Public Arr_TypeId() As Long
'类模块对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象
Public MyBook As New Book  '库存图书对象
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 MyCards As New Cards  '借阅卡对象
Public MyStoreIn As New StoreIn  '库存对象