module1.bas

VB开发的2008驾驶员上机理论考试答题软件

Attribute VB_Name = "Module1"


'模块代码：
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  '用于停顿秒数

Public default_data  '缺省数据库名称

'下面的都是跟后台建立物理连接的函数（必须放在模块里）
Public HTcn As ADODB.Connection
Public HTrs As New ADODB.Recordset

'使后台可以正常访问
Public Function OpenHt(HTmdbPath As String)
'Dim i
'Dim fh As Integer
'fh = FreeFile


 'pen HTmdbPath For Binary Access Write As #fh

'Put #fh, 2, &H1
'Close #fh


End Function
'使后台无法正常访问
Public Function CloseHt(HTmdbPath As String)
'Dim i
'Dim fh As Integer
'fh = FreeFile

'Open HTmdbPath For Binary Access Write As #fh

'Put #fh, 2, &H9 '原来是H0


'Close #1

End Function
'建立物理连接
Public Function OpenStandHT(HTmdbPath As String)
Set HTcn = New ADODB.Connection
HTcn.Provider = "Microsoft.Jet.OLEDB.4.0"
HTcn.Open HTmdbPath
End Function
'关闭物理连接的函数，如退出程序时，或需要压缩后台文件时就要关闭物理连接
Public Function CloseStandHT()
HTrs.Close
Set HTrs = Nothing
HTcn.Close
Set HTcn = Nothing
End Function
Public Sub GetRs(sqlStr As String)
   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
   HTrs.Open sqlStr, HTcn, 3, 3, 1
   
End Sub

'######################################################################################
'以上是数据库登陆和加密模块