clscomputer.vb

网吧系统管理

'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/07/23
'描    述：网吧计费管理系统客户端/服务器端
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'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)
        '还要删除该用户其它相关上机记录
    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 计算机名（网卡）,RoomNo AS 机房编号,"
        Column += "Connected AS 是否连接,  PositionNo AS 机位编号,"
        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