variable.bas

vb与access数据库的操作实例

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'连接字符串
Public Conn As String
'选择保险的项目和关键字
Public sInsuItems As String
Public sInsuKeys As String
'读取表中列值的变量
Public ColVal As String
'分类数组
Public Arr_Type() As String
Public Arr_Id() As Long
'类模块对象
Public MyType As New Types             '分类对象
Public CurType As New Types            '当前分类对象
Public MyCompany As New Company        '公司对象
Public CurCompany As New Company       '公司对象
Public MyCar As New Cars               '车辆对象
Public MyCustomer As New Customer      '客户会员对象
Public MyMemberType As New MemberType  '会员类型对象
Public MyLease As New LeaseCar         '租赁对象
Public MyUser As New Users             '用户对象
Public CurUser As New Users            '当前用户对象