variable.bas

来自「简单的学生管理系统」· BAS 代码 · 共 24 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'读取表中列值的变量
Public ColVal As String
'院系班级数组
Public Arr_ClassName() As String
Public Arr_ClassDescribe() As String
Public Arr_ClassId() As Integer
'学生数组
Public Arr_StuId() As Integer
Public Arr_StuName() As String
'声明类模块变量
Public MyStu As New Students
Public CurStu As New Students   '当前学生信息的对象
Public SelStu As New Students   '选择学生信息的对象
Public MyClass As New Classes
Public CurClass As New Classes
Public MyChange As New Change
Public MyEva As New Evaluation
Public MyExp As New Experience
Public MyUser As New Users
Public CurUser As New Users