lockdbconnection.cls

来自「这是一个银行IC卡门禁系统软件」· CLS 代码 · 共 85 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "LockDBConnection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'##ModelId=3D338984004C
Private WithEvents m_cnn As ADODB.Connection
Attribute m_cnn.VB_VarHelpID = -1

'##ModelId=3D338984009B
Public Property Get cnn() As ADODB.Connection

    Set cnn = m_cnn

End Property

'##ModelId=3D33898400CE
Private Sub Class_Initialize()

    Set m_cnn = New ADODB.Connection
    m_cnn.Open

End Sub

'##ModelId=3D3389840100
Private Sub Class_Terminate()

    Set m_cnn = Nothing

End Sub

'##ModelId=3D3389840128
Private Sub m_cnn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

    If adStatus = adStatusErrorsOccurred Then

        MsgBox "数据服务器连接出错，程序终止。请重新输入连接信息。", vbOKOnly, "提示"
        DeleteSetting "LockDB", "CnnServer", "cnnstring"
        End

    End If

End Sub

'##ModelId=3D33898401AA
Private Sub m_cnn_WillConnect(ConnectionString As String, UserID As String, Password As String, Options As Long, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

    ConnectionString = GetSetting("LockDB", "CnnServer", "cnnstring", "")

End Sub

'##ModelId=3D3389840272
Public Sub GetServerTime()

    If Not IsNetVersion Then Exit Sub
    
    Dim rstime As New ADODB.Recordset
    Dim strsql As String
    
    strsql = "select GetDate() as T"
    
    With rstime

        .CursorLocation = adUseClient
        .Open strsql, m_cnn, adOpenKeyset, adLockReadOnly, adCmdText
        Date = CDate(!T)

    End With
    
    Set rstime = Nothing
    
End Sub