mdlmain.bas

一个教师信息管理的Visual Basic源码

Attribute VB_Name = "mdlMain"
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public objDbConnector As New ADODB.Connection
Public gbLoginSucceeded As Boolean

Public objSQLServer As New SQLDMO.SQLServer
Public objSQLApp As New SQLDMO.Application
Public objNameList As SQLDMO.NameList
Public gbIsAdmin As Boolean


Public Function ConnectToDb(strConnect As String) As Boolean
    On Error GoTo errhandle
    
    objDbConnector.ConnectionString = strConnect
    objDbConnector.Open
    objDbConnector.CursorLocation = adUseClient
    gbLoginSucceeded = True
    Exit Function
errhandle:
    gbLoginSucceeded = False
End Function

Sub main()
    gbLoginSucceeded = False
    frmLogin.Show
End Sub