?'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發(fā)布日期：2007/07/23
'描    述：網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)客戶端/服務(wù)器端
'網(wǎng)    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網(wǎng)    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Public Class ClsComputer
    Public ComputerName As String
    Public UserName As String
    Public Connected As String
    Public IPAddress As String
    Public RoomNo As String
    Public PositionNo As String
    Public Config As String
    Public Memo As String

    Function ComputerExist() As Boolean
        Dim SQLString As String
        SQLString = "SELECT * FROM tbComputer WHERE ComputerName='" & Trim(ComputerName) & "'"
        Dim UserTable As DataTable = ClsDBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count <> 0 Then
            Return True
        Else
            Return False
        End If
    End Function

    Sub UpdateConnect()
        Dim SQLSTRing As String
        SQLSTRing = "UPDATE tbComputer SET Connected='" & Connected & "', IPAddress='" & IPAddress & "' WHERE ComputerName='" & ComputerName & "'"
        ClsDBOperation.DBOperate(SQLSTRing)
    End Sub

    Sub UpdateUserLogin()
        Dim SQLSTRing As String
        SQLSTRing = "UPDATE tbComputer SET UserName='" & UserName & "' WHERE ComputerName='" & ComputerName & "'"
        ClsDBOperation.DBOperate(SQLSTRing)
    End Sub

    Sub UpdateUserLogoff()
        Dim SQLSTRing As String
        SQLSTRing = "UPDATE tbComputer SET UserName='' WHERE ComputerName='" & ComputerName & "'"
        ClsDBOperation.DBOperate(SQLSTRing)
    End Sub

    Sub FinalizeAllComputer()
        Dim SQLSTRing As String
        SQLSTRing = "UPDATE tbComputer SET Connected='否', UserName=''"
        ClsDBOperation.DBOperate(SQLSTRing)
    End Sub


    Sub AddComputer()
        Dim SQLString As String
        SQLString = "INSERT INTO tbComputer VALUES('" & ComputerName & "','" & UserName & "','" & Connected & "','" & IPAddress & "','" & RoomNo & "','" & PositionNo & "','" & Config & "','" & Memo & "')"
        ClsDBOperation.DBOperate(SQLString)
    End Sub

    Public Sub Delete()
        Dim SQLString As String
        SQLString = "DELETE FROM tbComputer WHERE ComputerName='" & Trim(ComputerName) & "'"
        ClsDBOperation.DBOperate(SQLString)
        '還要刪除該用戶其它相關(guān)上機(jī)記錄
    End Sub

    Public Sub GetInfo()
        Dim SQLString As String
        SQLString = "SELECT * FROM tbComputer WHERE ComputerName='" & Trim(ComputerName) & "'"
        Dim DTable As DataTable = ClsDBOperation.DBOperate(SQLString)
        ComputerName = DTable.Rows(0)("ComputerName").ToString
        UserName = DTable.Rows(0)("UserName").ToString
        Connected = DTable.Rows(0)("Connected").ToString
        IPAddress = DTable.Rows(0)("IPAddress").ToString
        RoomNo = DTable.Rows(0)("RoomNo").ToString
        PositionNo = DTable.Rows(0)("PositionNo").ToString
        Config = DTable.Rows(0)("Config").ToString
        Memo = DTable.Rows(0)("Memo").ToString
    End Sub
    Shared Function LoadComputer(ByVal Field As String, ByVal Value As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "ComputerName As 計(jì)算機(jī)名（網(wǎng)卡）,RoomNo AS 機(jī)房編號,"
        Column += "Connected AS 是否連接,  PositionNo AS 機(jī)位編號,"
        Column += "Config AS 配置"
        If Field = "" Then
            SQLString = "SELECT * FROM tbComputer "
        Else
            SQLString = "SELECT " & Column & " FROM tbComputer WHERE " & Field & "='" & Value & "'"
        End If

        Return ClsDBOperation.DBOperate(SQLString)
    End Function


End Class