在程序中的数据访问层中，经常会遇到返回实体类的情况，而不同的实体类大多具有相似的代码，情况也大致相同：有的是返回实体类的一条记录，有的是返回实体类的集合。这样如果仅按照最简单的写法的话，程序中会出现许多相似的代码，给人一种不舒服的感觉，如果发现一个程序中有许多重复类似的代码，那么就是程序中的坏味道，我们就应该想办法，对这些代码的实质进行抽象，进行优化，那么接下来要总结的接口泛型就是这么一个例子，另外用到了策略模式+单例模式。有些地方还需要继续优化，不过先把今天实现的功能总结一下。
先来看看UML结构图：
1、解释一下单例模式：BasicDataReaderToEntityStrategy
单例模式有一个自身的组合，需要一个私有化的实例化入口，具备一个全局访问的方法，另外需要明白的是，单例模式的线程安全问题，我的理解是整个程序中再任何时刻只能允许单例的原始对象自身有的动作，如，修改里面的数据等，因此给它自己上一把或者两把锁是必要的了。有关单例模式的5种写法以及各自的特点，可以参考这里：
我再把这里用到的BasicDataReaderToEntityStrategy的相关代码贴出来供大家参考或者讨论。
Imports ModelImports System.Windows.FormsImports System.Collections.GenericImports System.Data.SqlClient’单例模式Public NotInheritable Class BasicDataReaderToEntityStrategyImplements IDataReaderToEntityStrategy(Of BasicData)’自身组合Shared singleInstance As BasicDataReaderToEntityStrategy = Nothing’定义一个静态的系统锁Shared ReadOnly padLock As New Object’私有化构造函数Private Sub New()End Sub’全局静态属性，唯一实例化入口,双重锁Public Shared ReadOnly Property GetInstance() As BasicDataReaderToEntityStrategyGetIf singleInstance Is Nothing ThenSyncLock padLockIf singleInstance Is Nothing ThensingleInstance = New BasicDataReaderToEntityStrategyEnd IfEnd SyncLockEnd IfReturn singleInstanceEnd GetEnd Property’实现策略模式的接口Public Function DataReaderToEntity(ByVal dataReader As System.Data.SqlClient.SqlDataReader) As Model.BasicData Implements IDataReaderToEntityStrategy(Of Model.BasicData).DataReaderToEntityDim BasicData As New Model.BasicDataBasicData.Data_Date = dataReader.Item("Data_Date").ToStringBasicData.Data_Head = dataReader.Item("Data_Head").ToStringBasicData.Data_leastTime = dataReader.Item("Data_leastTime").ToStringBasicData.Data_leastCash = dataReader.Item("Data_leastCash").ToStringBasicData.Data_prepareTime = dataReader.Item("Data_prepareTime").ToStringBasicData.Data_Rate = dataReader.Item("Data_Rate").ToStringBasicData.Data_tempRate = dataReader.Item("Data_tempRate").ToStringBasicData.Data_Time = dataReader.Item("Data_Time").ToStringBasicData.Data_unitTime = dataReader.Item("Data_unitTime").ToStringReturn BasicDataEnd FunctionEnd Class
2、泛化后的接口：IDataReaderToEntityStrategy
无疑这是这篇博客的重点总结，所谓的接口的泛化就是对接口再进行进一步的抽象，然后遵循一个编译器约定的书写格式，，经过实践之后你会感觉也挺简单的，废话不多说，贴代码，供参考：
Imports SystemImports System.Collections.GenericImports System.DataImports System.TextImports System.Data.SqlClient’策略模式，定义泛型接口：将DataReader的数据返回实体类Public Interface IDataReaderToEntityStrategy(Of T)Function DataReaderToEntity(ByVal dataReader As SqlDataReader) As TEnd Interface
解释：这里的 T就是对不同的实体类的进一步抽象，相当于在接口中定义一个占位符，然后在具体的环境中根据需求进行针对性的实例化。
3、SQLServerDALHelp类：
SQLServerDALHelp类不与具体的策略接口的子类BasicDataReaderToEntityStrategy关联，只与他们的父类接口关联，看看代码：
”’ <summary>”’ 执行没有传入参数的存储过程，返回DataReader”’ </summary>”’ <param name="spName">存储过程名</param>”’ <returns>DataReader</returns>”’ <remarks></remarks>Public Function ExecuteNoProcReader(ByVal spName As String) As SqlDataReaderDim dataReader As SqlDataReader = NothingDim conn As New SqlConnection(connStr)Dim cmd As New SqlCommand(spName, conn)Tryconn.Open()’当关闭dataReader的时候系统自动关闭数据库连接dataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)Return dataReaderCatch ex As ExceptionMsgBox(ex.Message)Return NothingFinally’这些语句不能有,因为该函数的返回值dataReader，要供其他函数调用，’需要保证dataReader的状态为开启，就像一扇门，如果关着的话，别人是无法进入其中进行操作的。’conn.Close()’cmd.Dispose()’cmd = Nothing’dataReader.Close()End TryEnd Function”’ <summary>”’ 利用泛化机制，返回一个泛化接口指定的实体类的一条记录”’ </summary>”’ <typeparam name="T">泛化的实体类的类型</typeparam>”’ <param name="spName">存储过程名</param>”’ <param name="strategy">策略接口</param>”’ <returns>泛化的实体类的一条记录</returns>”’ <remarks></remarks>Public Function OperatorProcEntity(Of T)(ByVal spName As String, ByVal strategy As IDataReaderToEntityStrategy(Of T)) As TDim dataReader As SqlDataReaderdataReader = ExecuteNoProcReader(spName)TryIf dataReader.HasRows = False ThenMsgBox("没有数据可以读取，您需要先往数据库中添加配置信息后，系统才可正常使用！")Return NothingElseWhile dataReader.Read()Return strategy.DataReaderToEntity(dataReader)End WhileEnd IfCatch ex As ExceptionMsgBox(ex.Message)Return NothingFinallydataReader.Close()End TryEnd Function
4、BasicDataDAL类：
上面做了一系列的铺垫，可谓磨刀霍霍向猪羊，此类才是真正的刀子——去执行返回实体类的动作。
没有预兆目的地在哪，前进的脚步不能停下，
