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 MyEmp As New ClsEmployees
Public CurEmp As New ClsEmployees
Public UpperEmp As New ClsEmployees
Public MyDep As New ClsDepartment
Public CurDep As New ClsDepartment
Public MyCheck As New ClsCheckIn
Public MyEva As New ClsEvaluation
Public MyExp As New ClsExperience
Public MyFam As New ClsFamilyMember
Public MySal As New ClsSalary
Public MyRule As New ClsSalaryRules
Public MyDB As New ClsDB
Public Server As String
Public User As String
Public Password As String
