main.vb

进销荐系统,用ASP做的,适合初学者拿来理解.

Public Class Main


  Public Shared Sub Main()
    '是否启用数据库连接助手，版权：http://www.trfsoft.com
    Dim IsUseConnSupporter As Boolean = True

    If IsUseConnSupporter Then
      Dim strErrMsg As String
      Dim techSupporter As New techSupport.techSupport
      If Not techSupporter.TestConn(SCMDB.SCMDB.connStr, strErrMsg, Application.ProductName) Then
        MsgBox(strErrMsg, MsgBoxStyle.Exclamation + MsgBoxStyle.ApplicationModal + MsgBoxStyle.SystemModal + MsgBoxStyle.MsgBoxSetForeground)
        Application.Exit()
        End
      End If
    End If

    '===========================================================
    '连接成功，显示主窗体
    '=======================================
    Dim myfrm As New frmMain
    Application.Run(myfrm)

  End Sub

End Class