Attribute VB_Name = "Variable"
Option Explicit

'保存執行SQL語句的字符串
Public SqlStmt As String
'地域數組
Public Arr_AreaName() As String
Public Arr_AreaType() As Integer
Public Arr_AreaId() As Long
Public Arr_AreaUpper() As Long
'設置焦點地域
Public FocusAreaName As String
Public FocusAreaId As Integer
'聲明類模塊變量
Public MyArea As New Area
Public CurArea As New Area    '當前地域信息
Public MyType As New Types    '類型對象
Public MyCust As New Customer   '客戶對象
Public MyContact As New Contact  '客戶聯系人對象
Public MyChance As New SaleChance  '商業機會對象
Public MyEmp As New Employees       '員工對象
Public MyUser As New Users
Public CurUser As New Users