pubicvar.vb

来自「采用VB编写的机房管理系统」· VB 代码 · 共 52 行

Imports System.IO
Module PubicVar
    Dim path As String = Directory.GetCurrentDirectory()


    Public CONN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & "/ComputerLab.mdb"
    Public ManagerName As String
    Public Password As String

    Public Sub AddLog(ByVal Operation As String)

        Dim oleconn As New OleDb.OleDbConnection(CONN)
        Dim SQLString As String
        SQLString = "INSERT INTO tbLogManager(Name,OpTime,Operation)" & _
        "VALUES('" & ManagerName & "','" & DateTime.Now & "','" & Operation & "')"
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
        cmd.CommandType = CommandType.Text
        If oleconn.State <> ConnectionState.Open Then
            oleconn.Open()
        End If
        cmd.ExecuteNonQuery()
        If oleconn.State <> ConnectionState.Closed Then
            oleconn.Close()

        End If

    End Sub

    Public Function CommandRecord(ByVal SQLString As String)
        Try
            Dim oleconn As New OleDb.OleDbConnection(CONN)
            Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
            cmd.CommandType = CommandType.Text
            If oleconn.State <> ConnectionState.Open Then
                oleconn.Open()

            End If
            cmd.ExecuteNonQuery()
            If oleconn.State <> ConnectionState.Closed Then
                oleconn.Close()

            End If

        Catch
            MsgBox(Err.Description)


        End Try
    End Function

End Module