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