在用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
最后就是我们的运行结果:
到此我们这个简单的面向过程的登录例子就完成了。
原文链接:https://www.f2er.com/vb/258958.html