在用VB.NET敲三层的登录前，自己先敲了一个没有用三层的登录以和三层的登录进行比较。下面就是我编写的关于面向过程的登录例子。

在进行代码编写之前我们需要专门建立一个数据库：下面这个是我建立的数据库，数据库名字是SanCeng，表的名字是TLoginUser.

为了方便我们设置的表里的字段只有两个：

数据库添加完成后接下来就是我们的代码部分。

首先是一个很简单登录界面：

接下来就是数据库的连接：

 '连接数据库
        Dim cnStr As String = "data source=zwk-PC;initial catalog=SanCeng;user id=sa;password=zwk;"
        Dim cn As sqlClient.sqlConnection = New sqlClient.sqlConnection(cnStr)

        cn.Open() '打开数据库

        Dim strsql As String = "SELECT * FROM TLoginUser " '查询字符串1
        'Dim strsql As String = "select * from TLoginUser where strUser_ID='" & txtID.Text & "'and strUser_PWD='" & txtPWD.Text & "'" '查询字符串2
        Dim cmd As sqlClient.sqlCommand = New sqlClient.sqlCommand(strsql,cn)

        cmd.CommandText = strsql
        Dim dr As sqlClient.sqlDataReader = cmd.ExecuteReader() '查询结果返回到数据读取器中

再接下来就是业务的判断:

       While (dr.Read())

            If txtID.Text.Trim = dr("strUser_ID").ToString() Then
                If txtPWD.Text = dr("strUser_PWD").ToString() Then
                    MsgBox("登录成功！")
                    Exit While
                Else
                    MsgBox("密码错误！")
                    txtPWD.Text = ""
                    Exit While
                End If
            Else
                MsgBox("账号错误！")
                txtID.Text = ""
                txtPWD.Text = ""
                Exit While

            End If
        End While

        cn.Close()
    End Sub

最后就是我们的运行结果：

到此我们这个简单的面向过程的登录例子就完成了。