pbs.bas

vb.net开发的考试系统,界面美观

Attribute VB_Name = "Module1"
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Public ksmode As Integer '考试模式,设定0为学习模式，1为考试模式,其余待定
Public kaoshiluji As String '考试路径，使用不同的数据库来获取考试的题目
Public Int_xz As Long '选择题定义的数量
Public Int_tk As Long '填空题定义的数量
Public Int_dc As Long '答错题定义的数量
Public Int_jd As Long '简答题定义的数量
Public Int_wd As Long '问答题定义的数量
Public Feng_st(5) As Single '选择题定义的单题分数
Public Feng_xz As Single
Public Feng_tk As Single
Public Feng_dc As Single
Public Feng_jd As Single
Public Feng_wd As Single
Public Feng_count As Single '总分

Public stnumber_xz As Single
Public stnumber_tk As Single
Public stnumber_dc As Single
Public stnumber_jd As Single
Public stnumber_wd As Single
Public ST_TIME As Integer
Public ST_NAME As String
Dim newstart As Long '索引行数


Public login_yesno As Boolean '是否须要验证用户 此处否则对用户发送过来的用户名与密码不进行检验，直接通过
Public login_admin As String '当前服务器端的管理员

Public Sub load_stnumber() '读取各种试题的数量,不分科 '做为公共变量,在更换数据库或生成试题时使用
'使用默认试题库stmb
TEXTCOLOR_start
kaoshiluji = App.Path & "\xml\stmb.mdb"
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "读取数据库跟径：" & kaoshiluji & vbCrLf

Form1.txtRecive.SelText = Form1.txtRecive.SelText & "正在读取数据库中的试题数量...." & vbCrLf
Set qy1 = cnn1.Execute("select count(*) from 选择题")
stnumber_xz = qy1.Fields(0)
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "选择题：" & stnumber_xz & "题." & vbCrLf

Set qy1 = cnn1.Execute("select count(*) from 填空题")
stnumber_tk = qy1.Fields(0)
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "选择题：" & stnumber_tk & "题." & vbCrLf

Set qy1 = cnn1.Execute("select count(*) from 答错题")
stnumber_dc = qy1.Fields(0)
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "答错题：" & stnumber_dc & "题." & vbCrLf

Set qy1 = cnn1.Execute("select count(*) from 简答题")
stnumber_jd = qy1.Fields(0)
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "简答题：" & stnumber_jd & "题." & vbCrLf

Set qy1 = cnn1.Execute("select count(*) from 问答题")
stnumber_wd = qy1.Fields(0)
Form1.txtRecive.SelText = Form1.txtRecive.SelText & "问答题：" & stnumber_wd & "题." & vbCrLf
TEXTCOLOR1_end
End Sub

Public Sub cnn_clear() '清空记录集, 优化内存
Set qy1 = Nothing
Set qy2 = Nothing
Set qy3 = Nothing
Set qy4 = Nothing
End Sub
Public Sub TEXTCOLOR1_end() '第一结束方式
Form1.txtRecive.SelStart = newstart
Form1.txtRecive.SelLength = Len(Form1.txtRecive.Text) - newstart
Form1.txtRecive.SelColor = &HFFFF&
End Sub
Public Sub TEXTCOLOR2_end() '第二结束方式
Form1.txtRecive.SelStart = newstart
Form1.txtRecive.SelLength = Len(Form1.txtRecive.Text) - newstart
Form1.txtRecive.SelColor = &HFFFF80   'vbWhite
End Sub

Public Sub TEXTCOLOR_start()
newstart = Len(Form1.txtRecive.Text)
Form1.txtRecive.SelStart = newstart '定义起点,避免覆盖文本
End Sub