module1.bas

现阶段很多图书租赁店仍然使用手工方式管理

Attribute VB_Name = "Module1"
Option Explicit
Public CurrentStatus As Integer '当前登录状态,1为已登录，0为未登录
Public cnn As ADODB.Connection
Public Str As String          '用于生成连接字符串
Public CurrentUser As String  '当前用户
Public UserRank As String '当前用户的权限
Public Vari As String '用于记录程序运行中临时存储的信息，本程序中在调用ViewInfo窗体时做为表名的临时信息

Public Sub OpenDb(constr As String)

Set cnn = New ADODB.Connection
cnn.Open constr

End Sub
 Public Sub CloseDb()
 cnn.Close
 Set cnn = Nothing
 End Sub

Public Function testDb(constr As String) '测试连接是否成功
On Error Resume Next
Err.Clear
Dim tempconn As ADODB.Connection
Set tempconn = New ADODB.Connection
tempconn.Open constr
If Err.Number = 0 Then
tempconn.Close
Set tempconn = Nothing
testDb = 1
Else
MsgBox "数据库或DSN错误，请检查配置", vbOKOnly
tempconn.Close
Set tempconn = Nothing
testDb = 0
End If

End Function