思想上移，行动下移——抽象工厂+反射+配置文件

蔚落 2022-08-24 11:23 101阅读 0赞

从网上查找资料的时候发现很多同学都写过这篇博客了，可见我的方向没有跑偏。虽然我们学设计模式的时候已经接触过抽象工厂模式，大话设计模式中每个设计模式都紧密联系生活，而且主人公讲的也相当有趣，但是真正运用起来却没那么简单。可以说小菜只是帮我们理解了各个设计模式的用途以及优缺点，真正的理解还需要我们自己动手实践。

##   为什么要用抽象工厂？ ##

主要就是为了提高软件的灵活性，运用抽象工厂+反射+配置文件可以很方便的更换数据库。引入接口之后，就可以对外提供一致的接口，而我们既可以用SQLServer实现接口，也可以用AccessDAL实现，能够更好地为B层和D层解耦合。

![SouthEast][]

##   怎样用于抽象工厂呢？ ##

我们就以机房收费系统用户登录为例，讲解如何具体运用：

这里我们用的是SQLServer数据库，配置文件如下：

U层负责接收和输出数据信息，通过B层的返回值显示用户是否登陆成功。

Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 If IsEmptyText(Me) = True Then '调用遍历函数判断文本框和选择框是否为空
 Exit Sub
 Else
 Dim thisUser As Entity.LoginModel = New Entity.LoginModel '定义一个实体对象来获得文本框的内容
 thisUser.user_name = txtUserid.Text.Trim()
 thisUser.user_pwd = txtPassword.Text
 
 Dim ub As BLL.Loginbll = New BLL.Loginbll '定义一个B层对象，通过B层返回结果，通知用户信息
 If ub.IsUser(thisUser) Then
 MessageBox.Show("登陆成功，欢迎使用！")
 Me.Hide()
 frmmain.Show()
 Else
 MessageBox.Show("登录失败，请重新输入！")
 Call NotEmptyText(Me)
 End If
 End If
 End Sub

B层是逻辑处理层，进行逻辑判断和放置功能函数。

Public Function IsUser(ByVal user As Entity.LoginModel) As Boolean
 Dim factory As New Factory.DBFactory
 '定义一个接口变量
 Dim IUser As IUserInfo
 '调用查找用户的工厂方法
 IUser = factory.FindUser
 Dim table As DataTable
 Dim flag As Boolean
 table = IUser.QueryUserInfo(user)
 If table.Rows.Count = 0 Then
 flag = False
 Else
 flag = True
 End If
 Return flag
 End Function

Factory层应用配置文件和反射技术实现灵活更换数据库功能，更换数据库的过程在这里就是一个拼接字符串。

Private Shared ReadOnly AssemblyName As String = "DAL" '声明程序集的名称
 Private Shared ReadOnly db As String = ConfigurationManager.AppSettings("DB") '读取配置文件
 Public Function FindUser() As IDAL.IUserInfo
 Dim className As String = AssemblyName + "." + db + "LoginDAL" '定义类名初值为DAL.SqlserverLoginDAL
 Dim iuser As IUserInfo
 iuser = CType(Assembly.Load(AssemblyName).CreateInstance(className), IUserInfo) '使用反射
 Return iuser
 End Function

IDAL层中写好我们需要的父类方法，通过DAL层实现。

Public Interface IUserInfo
 '查询用户的接口函数 
 Function QueryUserInfo(ByVal user As Entity.LoginModel) As DataTable
 End Interface

D层重写IDAL层的方法，借助于SQLHelper实现对用户名和密码的查询。

Public Class SqlserverLoginDAL : Implements IUserInfo '实现接口函数
 
 '重写接口中查找用户方法
 Function QueryUserInfo(ByVal user As Entity.LoginModel) As DataTable Implements IUserInfo.QueryUserInfo
 Dim strSQL As String = "select * from User_info where userName= @username and passWord=@password"
 Dim Params() As SqlParameter = {New SqlParameter("@username", user.user_name), New SqlParameter("@password", user.user_pwd)}
 Dim helper As New SqlHelper
 Dim dbuser = helper.GetDataTable(strSQL, CommandType.Text, Params)
 Return dbuser
 End Function
 
 End Class

运用抽象工厂，能够大大的降低B层和D层之间的耦合，使我们能够灵活的更换数据库，更好地满足用户的需求。纸上得来终觉浅，得知此事要躬行，理论上的真理还需要实践来验证。

[SouthEast]: /images/20220823/1110dc8466d7471c9f2793ba1d40a999.png