clsfeerules.vb

很完整的网吧收费管理系统,包含客户端和服务器端以及详细的使用说明.

Public Class ClsFeeRules
    Public Group As String
    Public Amount As Double

    Sub GetAmount()
        Dim SQLString As String
        SQLString = "SELECT Amount FROM tbFeeRules WHERE [Group]='" & Group & "'"
        Dim UserTable As DataTable = ClsDBOperation.DBOperate(SQLString)
        Amount = UserTable.Rows(0)(0)
    End Sub

    Sub AddRule()
        Dim SQLString As String
        SQLString = "DELETE FROM tbFeeRules WHERE [Group]='" & Group & "'"
        ClsDBOperation.DBOperate(SQLString)
        SQLString = "INSERT INTO tbFeeRules VALUES('" & Group & "','" & Amount & "')"
        ClsDBOperation.DBOperate(SQLString)
    End Sub
End Class