?'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：2007/07/23
'描    述：網吧計費管理系統客戶端/服務器端
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
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