variable.bas

毕业前的一点小程序

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'读取表中列值的变量
Public conn 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 MyTerm As New Terms      '学期对象
Public MyLesson As New Lesson   '课程对象
Public MyScores As New Scores   '成绩对象
Public MyArrange As New Arrangement  '课程安排对象
Public MyUser As New Users      '用户对象
Public CurUser As New Users     '当前用户对象
Public MyTeacher As New Teachers '老师对象
Public CurTeacher As New Teachers