const.bas

来电显示客户管理系统 TAPI 应用MSComm控件

Attribute VB_Name = "Const"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String

'部门数组
Public Arr_DepName() As String
Public Arr_DepDescribe() As String
Public Arr_DepId() As Integer
'员工数组
Public Arr_EmpId() As Integer
'声明类模块变量
Public MyClient As New ClsClient
Public CurClient As New ClsClient

Public MyDep As New ClsDepartment
Public CurDep As New ClsDepartment

Public MyCaller As New ClsCaller

Public MyDB As New ClsDB

Public Server As String
Public User As String
Public Password As String





Public Arr_Item() As String