思想上移 行为下移---抽象工厂+反射+配置文件

   
   机房收费系统个人版开始了有段时间了，但是前进的速度似乎都没有蜗牛快！  归根结底  差在哪？ 
   几天的实践下来，我想我找到答案了---缺少动手实践 
   一件事情，你就是把他想的在完美，在天衣无缝，在华丽，没有去真真正正的实践也是不行的，会成为一个空想。同理呢，遇到一个问题，你把他想的比登山还难，结果就是他真的成了一座山，把你挡住了，相反，当你也能像愚公一样拿着铁锹去挖那座山时，慢慢的山也就没了。那么你也就会如诗中所说：
                    山重水复疑无路，  柳暗花明又一村。
    米老师的思想上移，而行为下移，这句话听了很多遍了，但要说真的理解了，还真是惭愧，对于现在的任务个人版的机房收费系统，真真儿的把我给挡住了。 由此想起了前几天我还这样形容自己呢，我的学习道路上突然出现了一座大山，我该怎么办啊，好高啊！  现在想想我比愚公还笨了。我总是把问题想的多么多么复杂啊，但是却不去动手实践，渐渐的我开始恐惧了！看着同伴们都走过了我现在所处的阶段，我除了着急也该做点什么了。
   端午假期，我要去做！自己做出来了才是真的懂了，思想要上移，而行为要下移！ 我就是问多少人，都不如自己去做！就像我每次问学敏，她都是要我自己去做，嘿嘿，还好没有直接告诉我，要不然我岂不是学不到这么多了！     从画图着手 此次在包图中加了抽象工厂+反射 来防止系统更换数据库时，维护的困难，实现高内聚低耦合
 
   



    有了图也就类似于有了思想吧，那么接下来我要去实践，打算敲一个小的登陆例子来看看这个过程是怎么实现的，于是我要再次学习抽象工厂模式，反射的格式 ，以及配置文件等问题，从新回头学习看书，发现，书上写的在好，你理解的在怎么好，用了才知道也不是那么容易的  
    搭建程序：
     也类似于三层的搭建，根据包图的一些关系，来添加引用 具体的添加步骤参照
      博客 ：三层架构入门知识梳理  点击打开链接
    配置文件： 

<?xml version="1.0"encoding="utf-8" ?>
<configuration>

<appSettings>
<addkey ="DB" value="DAL"/>
</appSettings>
</configuration>

  其中KEY 就是我们自己定义的一个字段的名字，而Value的值则对应着我们所使用的数据库，他也可以换成其他数据库 ，达到易维护的目的 
   抽象工厂+反射：
     以往我们在实例化某些东西，需要写在程序里，而抽象工厂+反射是用字符串来实例化对象，切变量可以更换，进而接触一些分支带来的耦合，在我的登陆例子中，工厂中代码如下：
    

Public Class dataAccess
Dim strDB As String =System.Configuration.ConfigurationManager.AppSettings("DB")
'Dim AssemblyName As String ="DAL"
Public Function CreateUser() AsIUser
'Dim className As String ="DAL" + "." + strDB + "User"
Dim className = strDB +".user_Info"
ReturnCType(Assembly.Load("DAL").CreateInstance(className), IUser)
End Function
End Class

 工厂读取配置文件，进而知道我所用的数据库是什么，我将D层命名为了DAL ，那么DB的值也就为DAL。 整个登陆过程如下：
   U层
  

Private Sub btnLogin_Click(sender As Object, e AsEventArgs) Handles btnLogin.Click
Dim user1 As Entity.T_user = NewEntity.T_user
user1.UID = txtUserName.Text.ToString()  将参数值传给实体层
user1.Upassword =txtUserPwd.Text.ToString()
Dim b1 As BLL.userLogin = NewBLL.userLogin() 实例化B层
If b1.userLoginSystem(user1)Then
MsgBox("登陆成功")
Me.Hide()
Else
MsgBox("登陆失败，请重新登陆")
Me.Show()
End If
End Sub

   B层  负责逻辑判断B层需要U层传来的信息通过接数据库接口来实现。那么B层首先要告诉工厂 我需要什么接口，工厂就会通过相应的命令来创建接口。返回给B层 
 
 

Public ClassuserLogin
Public Function userLoginSystem(ByValuser2 As Entity.T_user) As Boolean
Dim IUser1 As IDAL.IUser
Dim factory AsDataAccessFactory.dataAccess = New DataAccessFactory.dataAccess实例化工厂
IUser1 = factory.CreateUser()调用工厂中创建接口的方法
'IUser1 = NewDAL.user_Info
If IUser1.userLoginSystem(user2)Then   调用接口方法 通过DAL 层来实现接口
Return True
Else
Return False
End If
End Function
End Class

   B层 得到了工厂创建的接口后 要访问接口  
   IDAL 

Public Interface IUser
Function userLoginSystem(ByVal userLAs Entity.T_user) As Boolean
End Interface

接口中的方法，也就是需要通过D层来实现的方法，在调用的过程中，D层就会将这个方法实现，返回相应的值 
 D层：  

Public Class user_Info : Implements IUser
Dim str As String = "datasource =192.168.24.74;initial catalog =studentSystem;user ID=sa;password=123456"
Dim conn AsSqlClient.SqlConnection
Public Sub New()
conn = NewSqlClient.SqlConnection
conn.ConnectionString =str
conn.Open()
End Sub
Public Function userLoginSystem(ByValuserL As T_user) As Boolean Implements IUser.userLoginSystem
Dim sqlStr As String
'查询命令字符串
sqlStr = "select * fromT_user where U_ID='" & userL.UID & "' and U_password='"& userL.Upassword & "'"
Dim strCmd AsSqlClient.SqlCommand
strCmd = NewSqlClient.SqlCommand(sqlStr, conn)
'strCmd.CommandText =sqlStr
'strCmd.Connection =conn
'执行命令并查询数据，将数据返回到datareader中
Dim dr As SqlClient.SqlDataReader= strCmd.ExecuteReader
If dr.Read() Then
Return True
Else
Return False
End If
End Function
End Class

  D层完成了接口的实现，接着这些信息也会返回给U层来判断登陆是否成功了。 
  这些看似很容易的步骤，在运行的时候却出现了很多问题 
 
 "未能加载文件或程序集“DAL”或它的某一个依赖项。系统找不到指定的文件”的解决方案 .
       查了一些资料和社河的关于这个问题的解释，才算是把这个问题通过了
 问题解决文章：  DALFactory出现"未能加载文件或程序集“DAL”或它的某一个依赖项。系统找不到指定的文件”的解决方案 .
     我在跟踪调试时，发现在工厂那，创建接口的过程中，找不到DAL的文件，所以停止了，而那些dll 文件在我的U层内还真的没有，复制过去了，程序好了，这个问题的其他小问题也学习了点。哎 只要你肯下工夫，也就没啥问题了吧。  
     工厂困扰了我一天半，今天不仅感慨 工厂一罢工，其他怎么办那！ 
 
另外 在创建接口的过程中，反射的模式 要是用错了也会出问题 
反射模式如下：Assembly.Load(“程序集名称”).CreateInstance("命名空间名称.要实例化的类名") 
   此处程序集的名称也就是我们需要的数据库程序集名称 ，而要实例化的类名也是 数据库层中相应的类 
 
  截至到现在为止，整个过程才算是真的给运行出来，而且明白了！   
  思想上移，行为下移！   继续向下一个问题出发！