机房重构总结1

机房重构也进行一段时间了，有必要总结一下了。

机房重构的第一步就是七层登录，七层登录我用的是C#实现的。

不管做什么项目首先就是要理清思路，实现七层登录当然也是，首先我们要看图。

这里的七层是在三层的基础上与设计模式相结合演化而来的，应用了设计模式中的外观模式和抽象工厂模式。

1、IDAL：接口层用来定义一个统一的接口，解除B层和D层的耦合。

2、Factory：工厂来创建接口，返回接口，用到了抽象工厂+反射+配置文件，作用是灵活的实现数据库的连接，方便换数据库，进一步解耦合。

3、BLL：主要负责一些逻辑判断和处理。

4、Facade：这里用到了外观模式，使得复杂问题简单化，用外观模式定义系统中每一层的入口，层与层之间不直接产生联系，而通过外观类建立联系，降低层之间的耦合度。

5、UI：主要职责是为用户提供信息，以及把用户的指令进行翻译。

6、Entity：实体层，存放全局的实体类，方便各个层之前的参数调用。

7、DAL：数据访问层所做事务直接操作数据库，针对数据的增添、删除、修改、查找。无需做什么逻辑判断，只是和数据库直接交互。

展示一下部分代码：

Factory层：

Imports System.Reflection  
Imports IDAL  
Imports System.Data  
Imports System.Configuration  
Public Class LoginFactory     
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DBString")  
  
    Dim strQueryWorkLog As String = System.Configuration.ConfigurationSettings.AppSettings("DBStrQueryWorkLog")  
      
    Public Function CreateUser() As IDAL.IUser  
        Return CType(Assembly.Load("DAL").CreateInstance("DAL.LoginDAL"), IDAL.IUser)  
    End Function  
  
    Public Function SaveWorkLog() As IDAL.IWorklog  
        Return CType(Assembly.Load("DAL").CreateInstance("DAL.WorklogDAL"), IDAL.IWorklog)  
    End Function      
End Class  

DAL层：

Imports System.Data.SqlClient  
Imports IDAL  
  
Public Class LoginDAL : Implements IDAL.IUser    
    Public Function IDALUser(User As Entity.UserEntity) As DataTable Implements IDAL.IUser.IDALUser  
        Dim SqlParams As SqlParameter() = {New SqlParameter("@UserID", User.UserID), New SqlParameter("@passWord", User.Password)}  
        Dim Sql As String = "select * from User_Info where userID=@userID and passWord=@passWord"  
        'Dim cmdText As String = "pro_selectUser"  
        Dim SqlHelperObject As New SqlHelper.LoginSqlHelper  
     
        Dim cmdType As CommandType = New CommandType()  
  
  
        Dim table As New DataTable
  
        table = SqlHelperObject.Execute(Sql, cmdType, SqlParams)  
  
        Return table
    End Function

Imports System.Data.SqlClient  
Imports IDAL  
Public Class WorklogDAL : Implements IDAL.IWorklog  
  
    Public Function SaveWorklog(worklog As Entity.WorklogEntity) As Boolean Implements IDAL.IWorklog.SaveWorklog  
        Dim Sql As String = "INSERT INTO Worklog_Info (UserID,loginDateTime,Computer) VALUES (@UserID,@loginDateTime,@Computer)"  
        Dim SqlParams As SqlParameter() = {New SqlParameter("@UserID", worklog.UserID),  
                                          New SqlParameter("@loginDateTime", worklog.loginDateTime),  
                                          New SqlParameter("@Computer", worklog.Computer)}  
        Dim cmdType As CommandType = CommandType.Text  
        Dim SqlHelperObject As New SqlHelper.LoginSqlHelper  
        Return SqlHelperObject.ExecuteQuery(Sql, cmdType, SqlParams)  
  
    End Function  
End Class