variable.bas

vb做的数据库 客户管理系统

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