variable.bas

这是个学生信息管理系统

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal 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 class_Info
Public CurEmp As New class_Info   '当前员工信息
Public UpperEmp As New class_Info '选择的上级员工信息
Public MyDep As New class_Info
Public CurDep As New class_Info
'Public MyCheck As New CheckIn
'Public MyEva As New Evaluation
Public MyCour As New course_Info
Public CurCour As New course_Info

Public MyFam As New result_Info
Public CurFam As New result_Info
'Public MySal As New Salary
'Public MyRule As New SalaryRules
Public MyUser As New user_Info
Public CurUser As New user_Info

Public MyStu As New student_Info
Public CurStu As New student_Info