module1.bas

考试系统源码,vb开发,一个网友的作品编得非常不错.

Attribute VB_Name = "Module1"
Option Explicit
Public bf As Long
Public tf As Long
Public xf As Long
Public df As Long
Public ksh As String
Public times As Long
Public ksname As String
Public mydb As Database
Public myrs As Recordset




Public Sub opendb(mysql As String)
Set mydb = OpenDatabase(App.Path & "\extest.mdb")
Set myrs = mydb.OpenRecordset(mysql)
End Sub