emindengine.cls

運動會或各式活動秩序冊製作及檢錄表製作管理系統

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

'properties
Private mLoginTimeout As Integer
Private mVersion As String

Private mTables As Collection
Private mFields As Collection
Private mNodes  As Collection
Private mSheetColumns As Collection
Private mPickLists As Collection
Private mNodeValue As String

Private mGroups As New Collection
Private mUsers As New Collection

Private mSearchConditions As New Collection
Private mSearchConditionsReStart As Boolean

Private mAccount As String

Private mWorkingNodeID As String

Private Sub Class_Initialize()
    mLoginTimeout = 7200
    mVersion = "2002.7"
End Sub


Public Property Get LoginTimeout() As Integer
    LoginTimeout = mLoginTimeout
End Property

Public Property Let LoginTimeout(ByVal newvalue As Integer)
    mLoginTimeout = newvalue
    On Error Resume Next
    Cmd.CommandTimeout = IIf(mLoginTimeout <= 600, 600, mLoginTimeout)
End Property

Public Property Get Version() As String
    Version = mVersion
End Property

Public Property Get LastError() As String
    LastError = gLastError
End Property

Public Property Get GetWorkingNodeID() As String
    GetWorkingNodeID = mWorkingNodeID
End Property


Public Property Get CountTables() As Integer
    CountTables = mTables.Count
End Property

Public Property Get TableName(ByVal AssignIndex As Integer) As String
If AssignIndex < 0 Then AssignIndex = 0
If AssignIndex > mTables.Count - 1 Then AssignIndex = mTables.Count - 1
TableName = mTables(AssignIndex + 1)
End Property

Public Function Login(ByVal databaseType As Integer, ByVal serverOrFilename As String, Optional ByVal databaseName As String, Optional ByVal UserName As String, Optional ByVal Password As String) As Boolean

    On Error GoTo ErrOccur
    Login = False
    dbConnectionString = BuildConnectString(databaseType, serverOrFilename, databaseName, UserName, Password)
    
    Set Con = CreateObject("ADODB.Connection")
    Con.ConnectionTimeout = 600

    Con.Open dbConnectionString
    If Con.State <> adStateOpen Then
       gLastError = MessageAgent(errNoConnection)
       Exit Function
    End If
    Set Cmd = CreateObject("ADODB.command")
    Cmd.CommandTimeout = 30000
    
    gAccount = UserName
    gPassword = Password
    Login = True
    
    Exit Function

ErrOccur:
    Set AErr = Con.Errors
    gAccount = ""
    gPassword = ""
    If AErr.Count > 0 Then
        gLastError = AErr(0).Description & "