frmaddfee.vb

一个用vb实现的网吧管理系统,是一个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 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