main.vb

本系统利用vb.net前台开发工具sql.server做为后台数据库进行开超市进销存管理系统系统

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