在做完这四个功能之后感觉“查”是这四个功能里面算最简单的了，下面就来看看它是怎么实现的吧：
实体层，就不说了和前三个功能是一样的。
ui层：
public class form1 '查询 private sub btnlogin_click(sender as object, e as eventargs) handles btnselect.click try '获得表现层的数据 dim muser as new loginmodel.user '实例化一个新的实体，用来传递b层的实体 muser.username = txtusername.text.trim '将用户名传递给实体层的username muser.password = txtpassword.text.trim '将密码传递给实体层的password '调用b层，登录判断 dim mgr as new loginbll.selectbll muser = mgr.selectbll(muser) catch ex as exception messagebox.show(ex.message.tostring()) '错误处理 end try end sub end class
bll层：'查public class selectbll public function selectbll(byval user as loginmodel.user) as loginmodel.user dim udao as new logindal.sqlserveruser() '实例化d层中新的userdao对象 dim muser as loginmodel.user '定义一个类型为实体层参数，用户赋值 muser = udao.selectdal(user) '判断是否查询到记录 if isnothing(muser.username) then throw new exception(查询失败，请检查用户名和密码！) '没有记录 else msgbox(查询成功，恭喜！, , 提示框) '有记录 end if return muser '返回实体 end functionend class
dal层：' 引用命名空间imports system.dataimports system.data.sqlclientimports loginmodel'd层，主要是对原始数据（数据库或者文本文件等存放数据的形式）的操作层，需要引用实体层'查public class sqlserveruser public conn as new sqlconnection(server=zy-pc;database=login;user id=sa;password =1) '创建数据库的连接 public function selectdal(byval user as user) as loginmodel.user '传实体login,方便对实体中的参数进行调用 dim reader as sqldatareader '定义类型为sqldatareader的变量reader dim muser as new loginmodel.user dim sql as string = select username,password from t_users where username=@username and password=@password '数据库查询语句 dim cmd as new sqlcommand(sql, conn) '创建sqlcommand对象 cmd.commandtext = sql '获取sql语句的具体内容 cmd.commandtype = commandtype.text '获取上述sql语句的具体类型 cmd.parameters.add(new sqlparameter(@username, user.username)) cmd.parameters.add(new sqlparameter(@password, user.password)) conn.open() '打开数据连接 reader = cmd.executereader() '执行查询语句，并生成一个datareader '读取查询到的数据，并返回给相应的属性 while reader.read() muser.username = reader.getstring(username) '给@username赋值 muser.password = reader.getstring(password) '给@password赋值 end while return muser '返回查询到的实体 conn.close() '关闭连接 end functionend class
数据库四大法宝到此就已经全部介绍完了，当然这是三层数据库中“天然去雕饰”最基础、最朴素的，还需要经过我们进一步的加工和完善。