frmaddfee.vb

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

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