vb.net 简单上机登陆（面向过程思维）

谁借莪１个温暖的怀抱￠ 2022-06-16 08:46 162阅读 0赞

**首先说说简单的上机登陆**

**1.窗体界面设计**

简单的上机登录很简单，它首先需要在vb.net中新建项目，添加一个windows窗体应用程序。对于窗口界面的设计，主要根据用户的需求来做，用户至上嘛，在这里我就做了个简单的界面，主要以实现它的功能为主，窗体界面设计如图：

![0_1325125973ttc3.gif][]

**2.主要实现的功能**

单击确定按钮时，上机成功，弹出“登陆成功！”，否则弹出“登陆失败！”。单机取消按钮时，退出系统。

3.数据库操作

利用SQL Server数据库，建了一个“Login”数据库，其中建了一张UserInfo表，数据表内容具体如图：

![0_1325133111Z25C.gif][]

**4.代码设计**

'引用命名空间
    Imports System
    Imports System.Data
    Imports System.Data.SqlClient
    
    Public Class Form1
    
        Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
            '连接数据库
            Dim sqlConnection1 As SqlClient.SqlConnection
            Dim sqlConnect As String = "Server=waly-pc;database=Login;uid=sa;pwd=123456;"  '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码”
            sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnect)
            sqlConnection1.Open()         '打开数据库
    
    
            '验证代码
            Dim sql As String = "select count(*) from UserInfo where UserID='" & txtUserName.Text.Trim() & "' and UserPassword='" & txtPassword.Text() & "'"
            Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
    
            Dim count As Integer
            count = sqlCmd.ExecuteScalar
    
            If count > 0 Then
                MsgBox("登陆成功!")
            Else
                MsgBox("登陆失败!")
            End If
    
            sqlConnection1.Close()     '关闭数据库
        End Sub
    
        '退出系统
        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
            End
        End Sub
    End Class

**注：此Demo源码以上传至****[vb.net登录界面(面向过程思维)][vb.net]**

[0_1325125973ttc3.gif]: /images/20220616/0f01b3e2fa0a429f8cb6e73423a27742.png
[0_1325133111Z25C.gif]: /images/20220616/9e8f850a30f74c0d992e08fb2455f696.png
[vb.net]: http://download.csdn.net/detail/mazhaojuan/3980334