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