variable.bas

这是我们公司的题库管理系统,用VB实现,可以进行试题制作,编辑、试卷制作、试卷生成和试卷打印(A3/和A4)

Attribute VB_Name = "Variable"
'服务业管理工程中的全局变量

Public i As Integer '用来返回一个MsgBox对话框的一个值
Public My As Integer

'保存执行SQL语句的字符串
Public SqlStmt As String

'服务器名称
Public ServerName As String

'读取表中列值的变量
Public ColVal As String

'课程数组
Public Arr_ClassName() As String
Public Arr_ClassDescribe() As String
Public Arr_ClassId() As Integer
'题型名数组
Public Arr_TitleName() As String
'试题号数组,用来保存一份试卷的所有试题号
Public Arr_ExamId() As Integer

Public MyClass As New Classes '用来执行语句
Public CurClass As New Classes '用来保存当前用户所管理的课程信息
Public SelClass As New Classes '用来保存当前选择的课程的信息

Public MyTitle As New Titles
Public CurTitle As New Titles

Public MyExam As New Exams '用来保存当前选择的题目的信息
Public CurExam As New Exams '用来保存当前选择的题目的信息
Public MyUser As New Users
Public CurUser As New Users
Public CurPaper As New Papers '用来保存正在修改的试卷
Public MyPaper As New Papers

Public MyQuestionP As New QuestionP