variable.bas

来自「成绩管理系统,使用VB6.0编写,相当不错,可以用于课程设计」· BAS 代码 · 共 25 行

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     '当前用户对象