variable.bas

企业客户资源管理系统,相当的不错

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'读取表中列值的变量
Public ColVal As String
'地域数组
Public Arr_AreaName() As String
Public Arr_AreaType() As Integer
Public Arr_AreaId() As Long
Public Arr_AreaUpper() As Long
'客户类别数组
Public Arr_CltTypeName() As String
Public Arr_CltTypeId() As Integer '类别排序id
'客户职务数组
Public Arr_CltJob() As String
Public Arr_CltJobId() As Integer '排序id
'客户单位数组
Public Arr_CltOrg() As String
'客户联系人
Public Arr_Contact() As String
'设置焦点地域
Public FocusAreaName As String
Public FocusAreaId As Integer
'声明类模块变量
Public MyArea As New Area
Public CurArea As New Area    '当前地域信息
Public MyType As New CltType
Public MyJob As New CltJob
Public MyOrg As New CltOrg
Public CurOrg As New CltOrg
Public MyClt As New Contact
Public MyBusi As New Business
Public MyUser As New Users
Public CurUser As New Users