comm.vb

来自「这是一个关于图书仓库管理系统的程序源代码。是我的毕业设计的作品」· VB 代码 · 共 33 行

Imports System.Data
Imports System.Data.SqlClient

Module comm
    Public cnSqlServer As SqlConnection
    Public myDataObj As New SqlDatabase()
    Public myConnectFlag As Boolean = False
    Public cmdSqlServer As New SqlClient.SqlCommand()
    Public drSqlServer As SqlClient.SqlDataReader

    Public strCommand As String     '记录数据操作类型
    Public strSQLError As String
    Public strUserType As String    '记录用户类型
    Public STRUSERID As String
    Public Temporary As String


    Public MDIMain As frmMain
    Public MDIGoodsTrans As frmGoodsTrans

    Public Sub ConnectDB()
        Dim strConnection As String = "Server=OEM-MICRO;" & "Database=store; TRUSTED_CONNECTION=TRUE;"
        myConnectFlag = myDataObj.connect(strConnection)

        If (myConnectFlag) Then
            cnSqlServer = myDataObj.getConnectSqlServer()
        Else
            MsgBox("打开数据库失败")
        End If
    End Sub

End Module