variable.bas

vb与access数据库的操作实例

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 MyCheckStore As New CheckStore  '库存盘点对象
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 '借阅证类型对象
Public MyStoreIn As New StoreIn  '库存对象