variable.bas

vb与access数据库的操作实例

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'定义数据库连接字符串
Public Conn As String
'类模块对象
Public MyType As New Types               '分类对象
Public MyDevice As New Devices           '设备对象
Public MyDeviceSel As New Devices        '选择的设备对象
Public MyMaintenance As New Maintenance  '设备维护对象
Public MyDiscard As New Discard          '报废对象
Public MyDistribute As New Distribute    '分配对象
Public MyAList As New AccessoryList      '配件列表对象
Public MyUser As New Users               '用户对象
Public CurUser As New Users              '当前用户对象