七层连连串

最新推荐文章于 2022-11-03 22:57:21 发布

jimmyBay

最新推荐文章于 2022-11-03 22:57:21 发布

阅读量1.4k

点赞数 2

分类专栏： --------【VB.NET学习】 --------【机房收费系统重构】 ● 编程语言 ● 项目经验文章标签：七层抽象工厂+反射加载DAL失败 sqlhelper

本文链接：https://blog.csdn.net/shiyiqijialimin/article/details/43453379

版权

● 项目经验同时被 3 个专栏收录

31 篇文章 0 订阅

订阅专栏

--------【机房收费系统重构】

16 篇文章 0 订阅

订阅专栏

● 编程语言

9 篇文章 0 订阅

订阅专栏

在个人重构之前，在三层学习之后，加入七层的跨越连接，整体感觉还是不错的。

【1】先看下包图：其实在七层敲完后才感觉一目了然，，，

当时感觉包图好宏观，却不清楚内部层与层之间的关系。所以我用下面一张图，来说明我对七层的理解。

当然这里我加入了SqlHelper类，所以，称之为七层，八层也是可以理解的。

用这样一段话来描述这幅图：

U层：接受用户传来的数据，传给外观，再由外观传递给B层判断用户的实际性。而在B层逻辑判断的过程中，要用到抽象工厂加反射技术来判断具体应该实例化的DAL类，以及用到抽象工厂返回的接口，换句话说，这个接口类就是对D层的一个封装，具体的接口实现还是由D层实现，然后返回给B层进行逻辑判断。而sqlhelper的加入，是将D层对数据库的增删改查的过程进行了封装，这样直接由D层传递参数进去，返回的就是相应的查询结果。

下面以具体代码来详细了解。（这里从B层开始，因为U曾和外观都很容易理解）

B层：

<span style="font-family:SimSun;font-size:18px;">Public Class loginBLL
    '检查用户名是否存在

    Public Function IsExists(ByVal user As Entity.LoginUserInfo) As DataTable
        Dim factory As New Factory.LoginFactory()
        Dim Iuser As IDAL.IuserinfoDAL
        '实例化接口为：已经通过抽象工厂+反射选择数据库后的DAL层。
        Iuser = factory.CreateUserInfo()
        Dim table As DataTable
        table = Iuser.selectUser(user) '通过该DAL层返回table,也就是说这个接口方法的实现是通过该DAL层实现的。
        Return table

    End Function</span>

配置文件：

<span style="font-family:SimSun;font-size:18px;"><?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <appSettings>
      <add key="ConnStr" value ="Server=jialimin;Initial Catalog=Login;User ID=sa;Pwd=1"></add>
      <add key ="DB" value="DAL"/>
    </appSettings>
</configuration></span>

抽象工厂+反射：

<span style="font-family:SimSun;font-size:18px;">Imports System.Configuration '添加对配置文件的引用
Imports System.Reflection '添加对反射的引用
Imports IDAL
'抽象工厂负责数据库的选择和创建接口
'我理解的抽象工厂加反射目的：通过字符串赋值来选择不同数据库的DAL层。
Public Class LoginFactory
    '选择数据库，通过读配置文件给DB字符串赋值。
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DB")


    Public Function CreateUserInfo() As IuserinfoDAL
        ' 反射的写法:
        'objType=Assembly.Load(AssemblyPath).CreateInstance(className)
        '其中：AssemblyPath指程序集名。className指命名空间.类名称。
        Dim Iuser As IuserinfoDAL
        Iuser = CType(Assembly.Load("loginDAL").CreateInstance("loginDAL" & "." & "LoginUserDAL"), IuserinfoDAL)
        Return Iuser
    End Function</span>

接口层：

<span style="font-family:SimSun;font-size:18px;">Imports Entity
Public Interface IuserinfoDAL
    Function selectUser(ByVal user As Entity.LoginUserInfo)
    Function UpdateScore(ByVal Score As Entity.LoginScoreInfo)

End Interface</span>

D层：

<span style="font-family:SimSun;font-size:18px;">'system.data.sqlclient命名空间是sqlserver的.net framework 数据提供程序。
Imports System.Data.SqlClient
Imports Entity
Imports IDAL
Imports SQLHelper


Public Class LoginUserDAL : Implements IDAL.IuserinfoDAL
    '定义一个sqlhelper对象。
    Private SqlHelper As SQLHelper.sqlHelper = New SQLHelper.sqlHelper()

    '实现接口的selectuser方法。
    Public Function selectUser(user As LoginUserInfo) As Object Implements IuserinfoDAL.selectUser
        Dim sql As String
        Dim table As DataTable
        Dim sqlParams() As SqlParameter = {New SqlParameter("@username", user.UserName), New SqlParameter("@password", user.Password)}
        sql = "select * from [User] where UserName=@UserName and Password =@password"
        table = SqlHelper.GetDataTable(sql, CommandType.Text, sqlParams)
        Return table
    End Function
</span>

SqlHelper层：

<span style="font-family:SimSun;font-size:18px;">Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data

'''其sqlHelper类中的属性和方法不可继承或实例化
Public Class sqlHelper
    '获取当前应用程序默认配置文件中的 AppSettingsSection 数据，ConnStr该字符串就是配置文件中设置连接数据库的那部分。
    Public Shared connectionString As String = ConfigurationManager.AppSettings("ConnStr")

    ''' <summary>
    '''执行带参数的查询方式,返回值为表。
    ''' <param name="cmdTxt" >参数cmdText为所要执行的sql语句</param >
    ''' <param name=" cmdType">查询时的查询方式</param> 
    ''' <param name="paras" >查询时的命令参数</param>
    ''' <returns >查询后以表的形式返回，</returns >
    ''' </summary>
    ''' <remarks></remarks>

    Public Shared Function GetDataTable(ByVal cmdTxt As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable

        Dim conn As SqlConnection = New SqlConnection(connectionString) '创建数据库的连接
        Dim cmd As SqlCommand  '定义命名变量
        Dim adataset As DataSet '定义数据适配器，DataSet类表示一个存放于内存中的数据缓存
        Dim adaptor As SqlDataAdapter 'SqlDataAdapter类目的是填充DataSet
        cmd = New SqlCommand(cmdTxt, conn) '在conn上面执行实例化命令变量，并执行语句cmdtype
        cmd.CommandType = cmdType '命令执行的类型
        cmd.Parameters.AddRange(paras) '命令执行的参数
        adaptor = New SqlDataAdapter(cmd) '初始化 SqlDataAdapter 类的新实例，用指定的 cmd 作为 SelectCommand 的属性
        adataset = New DataSet
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
            adaptor.Fill(adataset) '向adaptor对象中填充查询的数据
        Catch ex As Exception
            MsgBox(ex.Message, , "数据库操作")
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try
        Return adataset.Tables(0) '获取包含在 DataSet 中的表的集合。

    End Function</span>

【2】我认为的难点：

1·配置文件的两个参数：“ConnStr”和“DB”

conntr： 该字符串的值就是设置连接数据库的。最后作为参数传递给SqlHelper类的connectionString 字符串。（如图所示）

DB： 该字符串的值用于数据库的选择。最后作为参数传递给抽象工厂类的strDB字符串。（如果所示）

2· 反射的用法:

objType = Assembly.Load(AssemblyPath).CreateInstance(className)

其中：AssemblyPath指程序集名。className指命名空间.类名称。

起初，虽然知道这两个参数，但我实在不明白程序集是哪个？然后那个className又是什么？后来看到社河师哥才有了那么点感觉。

反射的一个原则:

一切皆以UI层的bin文件夹中的dll名称为中心。

原因很简单:

在我们每次重新生成解决方案，程序运行时，程序集的bin文件中会生成所有要加载的程序集的dll文件，（实在不明白，可以在UI层的bin文件中找到dll文件。）而 .net类加载的机制就是默认从本程序集的bin文件中找,所以bin文件夹中一定要有要加载的程序集的dll。所以，UI 层中bin文件夹中dll叫什么名字AssemblyPath就使用什么名字,而className就是默认的D层的命名空间和类名。如果所示：（框出的两部分一样）

【3】遇到的问题：

1· DALFactory出现"未能加载文件或程序集“DAL”或它的某一个依赖项。系统找不到指定的文件”的解决方案 .

这个问题就设计到上面说到的“加载dll文件”一事，我的问题是： dll文件存在，但是加载路径不对。在我的UI层的bin文件夹下没有D层生成的dll文件，那么程序运行时必然会报错，因为它在UI层根本找不到生成的dll文件，解决方案有两种：1·手动添加（想想都知道，这肯定不是好办法）2·右击D层名称，选择属性，如图所示：改变其生成输出路径为UI层下的bin文件夹的Debug中。