首先说说简单的上机登陆

1.窗体界面设计

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

2.主要实现的功能

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

3.数据库操作

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

4.代码设计

1.  
   '引用命名空间
2.  
   Imports System
3.  
   Imports System.Data
4.  
   Imports System.Data.SqlClient
5.  
    
6.  
   Public Class Form1
7.  
    
8.  
   Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
9.  
   '连接数据库
10.  
    Dim sqlConnection1 As SqlClient.SqlConnection
11.  
    Dim sqlConnect As String = "Server=waly-pc;database=Login;uid=sa;pwd=123456;" '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码”
12.  
    sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnect)
13.  
    sqlConnection1.Open() '打开数据库
14.  
     
15.  
     
16.  
    '验证代码
17.  
    Dim sql As String = "select count(*) from UserInfo where UserID='" & txtUserName.Text.Trim() & "' and UserPassword='" & txtPassword.Text() & "'"
18.  
    Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
19.  
     
20.  
    Dim count As Integer
21.  
    count = sqlCmd.ExecuteScalar
22.  
     
23.  
    If count > 0 Then
24.  
    MsgBox("登陆成功!")
25.  
    Else
26.  
    MsgBox("登陆失败!")
27.  
    End If
28.  
     
29.  
    sqlConnection1.Close() '关闭数据库
30.  
    End Sub
31.  
     
32.  
    '退出系统
33.  
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
34.  
    End
35.  
    End Sub
36.  
    End Class

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