在用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
最后就是我们的运行结果:
到此我们这个简单的面向过程的登录例子就完成了。