三层数据库四大法宝之“查”

在做完这四个功能之后感觉“查”是这四个功能里面算最简单的了，下面就来看看它是怎么实现的吧： 实体层，就不说了和前三个功能是一样的。 UI层： span style=font-family:KaiTi_GB2312;font-size:24px;Public Class Form1 查询 Private Sub btnLogin_Click(

在做完这四个功能之后感觉“查”是这四个功能里面算最简单的了，下面就来看看它是怎么实现的吧：

实体层，就不说了和前三个功能是一样的。

UI层：

Public Class Form1
    &＃39;查询

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnSelect.Click
        Try
            &＃39;获得表现层的数据
            Dim muser As New LoginMODEL.User              &＃39;实例化一个新的实体，用来传递B层的实体
            muser.UserName = txtUserName.Text.Trim           &＃39;将用户名传递给实体层的UserName
            muser.PassWord = txtPassWord.Text.Trim            &＃39;将密码传递给实体层的PassWord

            &＃39;调用B层，登录判断
            Dim mgr As New LoginBLL.SelectBLL
            muser = mgr.SelectBLL(muser)

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())              &＃39;错误处理
        End Try
    End Sub
   
End Class

&＃39;查
Public Class SelectBLL
    Public Function SelectBLL(ByVal User As LoginMODEL.User) As LoginMODEL.User
        Dim uDao As New LoginDAL.SqlserverUser()               &＃39;实例化D层中新的UserDAO对象
        Dim mUser As LoginMODEL.User                  &＃39;定义一个类型为实体层参数，用户赋值

        mUser = uDao.SelectDAL(User)

        &＃39;判断是否查询到记录
        If IsNothing(mUser.UserName) Then
            Throw New Exception("查询失败，请检查用户名和密码！")          &＃39;没有记录
        Else
            MsgBox("查询成功，恭喜！", , "提示框")         &＃39;有记录
        End If
        Return mUser            &＃39;返回实体
    End Function
End Class

&＃39; 引用命名空间
Imports System.Data
Imports System.Data.SqlClient
Imports LoginMODEL

&＃39;D层，主要是对原始数据（数据库或者文本文件等存放数据的形式）的操作层，需要引用实体层
&＃39;查
Public Class SqlserverUser
    Public conn As New SqlConnection("server=ZY-PC;database=Login;user id=sa;password =1")          &＃39;创建数据库的连接
    Public Function SelectDAL(ByVal User As User) As LoginMODEL.User         &＃39;传实体Login,方便对实体中的参数进行调用
        Dim reader As SqlDataReader         &＃39;定义类型为SQLDATAREADER的变量reader
        Dim mUser As New LoginMODEL.User
        Dim sql As String = "select UserName,passWord from T_Users where UserName=@UserName and PassWord=@PassWord" &＃39;数据库查询语句
        Dim cmd As New SqlCommand(sql, conn)        &＃39;创建sqlcommand对象
        cmd.CommandText = sql                       &＃39;获取SQL语句的具体内容
        cmd.CommandType = CommandType.Text           &＃39;获取上述SQL语句的具体类型
        cmd.Parameters.Add(New SqlParameter("@UserName", User.UserName))
        cmd.Parameters.Add(New SqlParameter("@PassWord", User.PassWord))
        conn.Open()        &＃39;打开数据连接
        reader = cmd.ExecuteReader()              &＃39;执行查询语句，并生成一个DataReader

        &＃39;读取查询到的数据，并返回给相应的属性
        While reader.Read()
            mUser.UserName = reader.GetString("UserName")            &＃39;给@UserName赋值
            mUser.PassWord = reader.GetString("PassWord")            &＃39;给@PassWord赋值
        End While
        Return mUser               &＃39;返回查询到的实体
        conn.Close()              &＃39;关闭连接

    End Function

End Class