loginform1.vb

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

Public Class LoginForm1

    ' TODO: 插入代码，以使用提供的用户名和密码执行自定义的身份验证
    ' (请参见 http://go.microsoft.com/fwlink/?LinkId=35339)。 
    ' 随后自定义主体可附加到当前线程的主体，如下所示: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。 
    ' 随后，My.User 将返回 CustomPrincipal 对象中封装的标识信息
    ' 如用户名、显示名等

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLogin.Click
        Dim Loginmessage As String
        Dim Receivemessage As String
        Loginmessage = "D" & SystemInformation.ComputerName & TxtUserName.Text.PadRight(6) & TxtPassword.Text.PadRight(10)
        Receivemessage = NewClient.SendReceiveMessage(Loginmessage)
        ProcessMessage(Receivemessage)
        'Me.Close()
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLogoff.Click
        Me.Close()
    End Sub
    Sub ProcessMessage(ByVal Message As String)
        Dim flag As String
        Dim Info As String
        flag = Message.Substring(0, 1)
        Info = Message.Substring(1)
        Select Case flag
            Case "D"
                If Info = "用户名或密码错误!" Then
                    MsgBox("用户名或密码错误!", MsgBoxStyle.Exclamation, "信息框")
                End If
                If Info = "余额不足!" Then
                    MsgBox("余额不足!", MsgBoxStyle.Exclamation, "信息框")
                End If
                Dim temp As String
                temp = Info.Substring(1, 4)
                If Info = "OK!" Then
                    MsgBox("OK!")
                    Me.Hide()
                End If
            Case "Z"
                If Info = "禁用" Then
                    TxtUserName.Enabled = False
                    TxtPassword.Enabled = False
                    BtLogin.Enabled = False
                    BtLogoff.Enabled = False
                End If
                If Info = "启用" Or "占用" Then
                    TxtUserName.Enabled = True
                    TxtPassword.Enabled = True
                    BtLogin.Enabled = True
                    BtLogoff.Enabled = True
                End If
            Case "G"
                MsgBox(Info, MsgBoxStyle.Exclamation, Me.Text)
            Case "S"
                Client.ShutDown()
            Case "E2"
        End Select
    End Sub
End Class