modmain.bas

VB开发的考试系统,找了好久,希望有帮助,大家看看啊

Attribute VB_Name = "modMain"
Option Explicit

Public Const chooseNUM = 10 '用于定义选择题数
Public Const fillNUM = 5 '用于定义填空题数

Public cnn As New ADODB.Connection

Public rstChoose As New ADODB.Recordset
Public rstFillBlank As New ADODB.Recordset
Public rstAnswer As New ADODB.Recordset
Public rstExamination As New ADODB.Recordset
Public rstStudent As New ADODB.Recordset
Public rstPwd As New ADODB.Recordset

Public chooseFlag As Boolean
Public fillFlag As Boolean
Public answerFlag As Boolean
Public examFlag As Boolean
Public studentFlag As Boolean

Public numJH As Integer     '用来存放卷号
Public numEJH As Integer    '用来考试存放卷号

Public strChoose(1 To chooseNUM) As String  '用于存放选择题考生答案
Public strFillBlank(1 To fillNUM) As String  '用于存放填空题考生答案
Public strChAn(1 To chooseNUM) As String '用于存放选择题正确答案
Public strFiAn(1 To fillNUM) As String '用于存放填空题正确答案
Public numChVa(1 To chooseNUM) As Integer
Public numFiVa(1 To fillNUM) As Integer

Public Sub main()

cnn.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn.ConnectionString = App.Path & "\Data\subject.mdb"
cnn.Open


frmInit.Show

End Sub