mdcnn.bas

来自「学生选课管理系统 实用」· BAS 代码 · 共 30 行

Attribute VB_Name = "mdCnn"
Option Explicit

Public cnn As New ADODB.Connection '数据库连接
Public connStr As String
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Public Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Sub showMsg(msg As String, msgType As Integer)
    '错误提示
    If (msgType = 0) Then
    
        MsgBox msg & vbCrLf & vbCrLf & "详细信息如下：" & vbCrLf & vbCrLf & "错误号码:" & Err.Number & vbCrLf & "错误代码:" & Err.Source & vbCrLf & "错误描述:" & Err.Description, vbOKOnly + vbCritical, "错误 "
    End If
     '信息提示
    If (msgType = 1) Then

        MsgBox msg, vbOKOnly + vbInformation, "提示 "
        
    End If
End Sub

Sub Main()

    frmODBCLogon.Show
    
End Sub