?'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：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 FrmAddFee

    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
        Me.Close()
    End Sub

    Private Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.Click
        If Trim(TxtUserName.Text) = "" Then
            MsgBox("請輸入用戶名！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        Dim TempUser As New ClsUser
        TempUser.UserName = Trim(TxtUserName.Text)
        TempUser.GetInfo()
        TxtRealName.Text = TempUser.RealName
        TxtFee.Text = TempUser.Fee
    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If Trim(TxtUserName.Text) = "" Then
            MsgBox("請輸入用戶名！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        Dim TempUser As New ClsUser
        TempUser.UserName = Trim(TxtUserName.Text)
        If TempUser.UserExist = False Then
            MsgBox("該用戶不存在！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        TempUser.SetFee(Val(Me.TxtCurrentFee.Text))
        BtnRead_Click(sender, e)
        Me.TxtCurrentFee.Text = ""
    End Sub


End Class