variable.bas

来自「汽车租赁系统VB源码」· BAS 代码 · 共 24 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'选择保险的项目和关键字
Public sInsuItems As String
Public sInsuKeys 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            '当前用户对象