const.bas

来自「以vb为开发工具,使用支持来电显示的modem,实现一个来电显示的客户管理系统」· BAS 代码 · 共 33 行

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