使用VB.Net写一个简单的数据访问层(不能称ORM):前言

使用.Net多年，没有什么进步，比较困惑。可能是非主流的原因，很多时候一个问题，能用代码来解决，确无法用文字来解释，为了增强这方面的功力，接下来把自己正在开发的一个数据层拿出来说话。可能这是在重复造轮子，对于小系统来说自己造的轮子，也许用起来更顺手。

此物的目的：也就是一个数据访问的功能。

希望能支持多种数据库：

1. Access2000，写一个小东西用它还是不错的。
2. SQLSERVER，不用说，肯定要支持它，我也只对它比较熟一些。
3. MySql，有时使用SQLSERVER增加了客户的成本，不过这个东西维护人员也不好找吧，当然你用盗版列外。当然我还没有用过，在写这个组件的同时，慢慢学习。

以下是在接下来的演示中需要用到的表结构图：

<script type="text/javascript"> </script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

这里有三个表，实体与表是一对一的。也相应的有三个实体，实体我一般都是放在命名空间Common下的。下面我简单的列出主表的实体代码。

Imports At.Data
Imports At.Core
Imports System.ComponentModel
Namespace Common
    Public Class 主表
        Inherits EntityBase
#Region "类实例化"
        Public Sub New()
            MyBase.new()
        End Sub
#End Region
#Region "实体字段描述"
        Private f_ID As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _ID() 
    
    As IEntityField
            
    
    Get
                
    
    If f_ID 
    
    Is 
    
    Nothing 
    
    Then
                    f_ID = 
    
    Me.DataHelper.GetEntityField
   
   

(Me, "ID", "ID", True, False, DbType.Int32, 4)
                End If
                Return f_ID
            End Get
        End Property

        Private f_物品编号 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _物品编号() 
    
    As IEntityField
            
    
    Get
                
    
    If f_物品编号 
    
    Is 
    
    Nothing 
    
    Then
                    f_物品编号 = 
    
    Me.DataHelper.GetEntityField
   
   

                    (Me, "物品编号", "物品编号", False, False, DbType.String, 50)
                End If
                Return f_物品编号
            End Get
        End Property

        Private f_物品名称 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _物品名称() 
    
    As IEntityField
            
    
    Get
                
    
    If f_物品名称 
    
    Is 
    
    Nothing 
    
    Then
                    f_物品名称 = 
    
    Me.DataHelper.GetEntityField
   
   

                    (Me, "物品名称", "物品名称", False, False, DbType.String, 50)
                End If
                Return f_物品名称
            End Get
        End Property

        Private f_物品型号 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _物品型号() 
    
    As IEntityField
            
    
    Get
                
    
    If f_物品型号 
    
    Is 
    
    Nothing 
    
    Then
                    f_物品型号 = 
    
    Me.DataHelper.GetEntityField
   
   

                 (Me, "物品型号", "物品型号", False, False, DbType.String, 50)
                End If
                Return f_物品型号
            End Get
        End Property

        Private f_单位 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _单位() 
    
    As IEntityField
            
    
    Get
                
    
    If f_单位 
    
    Is 
    
    Nothing 
    
    Then
                    f_单位 = 
    
    Me.DataHelper.GetEntityField
   
   

                    (Me, "单位", "单位", False, False, DbType.String, 50)
                End If
                Return f_单位
            End Get
        End Property

        Private f_生产厂家 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _生产厂家() 
    
    As IEntityField
            
    
    Get
                
    
    If f_生产厂家 
    
    Is 
    
    Nothing 
    
    Then
                    f_生产厂家 = 
    
    Me.DataHelper.GetEntityField
   
   

        (Me, "生产厂家", "生产厂家", False, False, DbType.String, 50)
                End If
                Return f_生产厂家
            End Get
        End Property

        Private f_库存量 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _库存量() 
    
    As IEntityField
            
    
    Get
                
    
    If f_库存量 
    
    Is 
    
    Nothing 
    
    Then
                    f_库存量 = 
    
    Me.DataHelper.GetEntityField
   
   

   (Me, "库存量", "库存量", False, False, DbType.Decimal, 9)
                End If
                Return f_库存量
            End Get
        End Property

        Private f_库存金额 As IEntityField

        
   
   
    
    False)> _
        
    
    Public 
    
    Overridable 
    
    ReadOnly 
    
    Property _库存金额() 
    
    As IEntityField
            
    
    Get
                
    
    If f_库存金额 
    
    Is 
    
    Nothing 
    
    Then
                    f_库存金额 = 
    
    Me.DataHelper.GetEntityField
   
   

    (Me, "库存金额", "库存金额", False, False, DbType.Decimal, 9)
                End If
                Return f_库存金额
            End Get
        End Property


#End Region
#Region "实体属性"
        Private md_ID As Integer

        
   
   
    
    True)> _
        
    
    Public 
    
    Overridable 
    
    Property ID() 
    
    As 
    
    Integer
            
    
    Get
                
    
    Return md_ID
            
    
    End 
    
    Get
            
    
    Set(
    
    ByVal Value 
    
    As 
    
    Integer)
                
    
    If value <> md_ID 
    
    Then
                    md_ID = Value
                    
    
    Me.OnPropertyChanged(
    
    "ID")
                
    
    End 
    
    If
            
    
    End 
    
    Set
        
    
    End 
    
    Property

        
    
    Private md_物品编号 
    
    As 
    
    String = 
    
    String.Empty

        
    
    
     
     True)> _
        
     
     Public 
     
     Overridable 
     
     Property 物品编号() 
     
     As 
     
     String
            
     
     Get
                
     
     Return md_物品编号
            
     
     End 
     
     Get
            
     
     Set(
     
     ByVal Value 
     
     As 
     
     String)
                
     
     If value <> md_物品编号 
     
     Then
                    md_物品编号 = Value
                    
     
     Me.OnPropertyChanged(
     
     "物品编号")
                
     
     End 
     
     If
            
     
     End 
     
     Set
        
     
     End 
     
     Property

        
     
     Private md_物品名称 
     
     As 
     
     String = 
     
     String.Empty

        
     
     
      
      True)> _
        
      
      Public 
      
      Overridable 
      
      Property 物品名称() 
      
      As 
      
      String
            
      
      Get
                
      
      Return md_物品名称
            
      
      End 
      
      Get
            
      
      Set(
      
      ByVal Value 
      
      As 
      
      String)
                
      
      If value <> md_物品名称 
      
      Then
                    md_物品名称 = Value
                    
      
      Me.OnPropertyChanged(
      
      "物品名称")
                
      
      End 
      
      If
            
      
      End 
      
      Set
        
      
      End 
      
      Property

        
      
      Private md_物品型号 
      
      As 
      
      String = 
      
      String.Empty

        
      
      
       
       True)> _
        
       
       Public 
       
       Overridable 
       
       Property 物品型号() 
       
       As 
       
       String
            
       
       Get
                
       
       Return md_物品型号
            
       
       End 
       
       Get
            
       
       Set(
       
       ByVal Value 
       
       As 
       
       String)
                
       
       If value <> md_物品型号 
       
       Then
                    md_物品型号 = Value
                    
       
       Me.OnPropertyChanged(
       
       "物品型号")
                
       
       End 
       
       If
            
       
       End 
       
       Set
        
       
       End 
       
       Property

        
       
       Private md_单位 
       
       As 
       
       String = 
       
       String.Empty

        
       
        
        True)> _ 
        Public 
        Overridable 
        Property 单位() 
        As 
        String 
        Get 
        Return md_单位 
        End 
        Get 
        Set( 
        ByVal Value 
        As 
        String) 
        If value <> md_单位 
        Then md_单位 = Value 
        Me.OnPropertyChanged( 
        "单位") 
        End 
        If 
        End 
        Set 
        End 
        Property 
        Private md_生产厂家 
        As 
        String = 
        String.Empty 
         
         True)> _ 
         Public 
         Overridable 
         Property 生产厂家() 
         As 
         String 
         Get 
         Return md_生产厂家 
         End 
         Get 
         Set( 
         ByVal Value 
         As 
         String) 
         If value <> md_生产厂家 
         Then md_生产厂家 = Value 
         Me.OnPropertyChanged( 
         "生产厂家") 
         End 
         If 
         End 
         Set 
         End 
         Property 
         Private md_库存量 
         As 
         Decimal 
          
          True)> _ 
          Public 
          Overridable 
          Property 库存量() 
          As 
          Decimal 
          Get 
          Return format(md_库存量, 
          "0.######") 
          End 
          Get 
          Set( 
          ByVal Value 
          As 
          Decimal) 
          If value <> md_库存量 
          Then md_库存量 = Value 
          Me.OnPropertyChanged( 
          "库存量") 
          End 
          If 
          End 
          Set 
          End 
          Property 
          Private md_库存金额 
          As 
          Decimal 
           
           True)> _ 
           Public 
           Overridable 
           Property 库存金额() 
           As 
           Decimal 
           Get 
           Return format(md_库存金额, 
           "0.######") 
           End 
           Get 
           Set( 
           ByVal Value 
           As 
           Decimal) 
           If value <> md_库存金额 
           Then md_库存金额 = Value 
           Me.OnPropertyChanged( 
           "库存金额") 
           End 
           If 
           End 
           Set 
           End 
           Property 
           #End Region 
           #Region 
           "设置实体的属性" 
           Public 
           Overrides 
           Sub SetValue( 
           ByVal attributename 
           As 
           String, 
           ByVal value 
           As 
           Object) 
           Select 
           Case attributename 
           Case 
           "ID" ID = value 
           Case 
           "物品编号" 物品编号 = value 
           Case 
           "物品名称" 物品名称 = value 
           Case 
           "物品型号" 物品型号 = value 
           Case 
           "单位" 单位 = value 
           Case 
           "生产厂家" 生产厂家 = value 
           Case 
           "库存量" 库存量 = value 
           Case 
           "库存金额" 库存金额 = value 
           Case 
           Else 
           MyBase.SetValue(attributename, value) 
           End 
           Select 
           End 
           Sub 
           #End Region 
           #Region 
           "获取实体的属性" 
           Public 
           Overrides 
           Function GetValue( 
           ByVal attributename 
           As 
           String) 
           As 
           Object 
           Select 
           Case attributename 
           Case 
           "ID" 
           Return ID 
           Case 
           "物品编号" 
           Return 物品编号 
           Case 
           "物品名称" 
           Return 物品名称 
           Case 
           "物品型号" 
           Return 物品型号 
           Case 
           "单位" 
           Return 单位 
           Case 
           "生产厂家" 
           Return 生产厂家 
           Case 
           "库存量" 
           Return 库存量 
           Case 
           "库存金额" 
           Return 库存金额 
           Case 
           Else 
           Return 
           MyBase.GetValue(attributename) 
           End 
           Select 
           End 
           Function 
           #End Region 
           #Region 
           "实体其它属性" 
            
            False)> _ 
            Public 
            ReadOnly 
            Property Guid() 
            As 
            String 
            Get 
            Return 
            "aee5307acf2a24a0a8e1f5c650d5e24d6" 
            End 
            Get 
            End 
            Property 
             
             False)> _ 
             Public 
             Overrides 
             ReadOnly 
             Property TableName() 
             As 
             String 
             Get 
             Return 
             "主表" 
             End 
             Get 
             End 
             Property 
              
              False)> _ 
              Public 
              Overrides 
              ReadOnly 
              Property AutoIncrement() 
              As IEntityField 
              Get 
              Return _ID 
              End 
              Get 
              End 
              Property 
              #End Region 
              End 
              Class 
              End 
              Namespace 
              
             
            
           
          
         
       
      
      
     
     
    
    
   
   

         表里的每个字段映射到实体对象的实体字段（IEntityField对象），这里没有采用XML配置文件或属性的方式。使用XML文件太繁杂，特别是系统经常进行调整和修改时会很头痛。属性的方式比较字段，但是不能按一个常规对象来进行访问。曾在前两年使用过这种方式。

<script type="text/javascript"> </script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

属性解说：

TableName：对应的是数据库的表名，有时我们可能需要在同一服务器上进行跨库访问，可以不用修改数据库连接字符串，直接设置实体对象的DbName名称就可以，以后会有这方面的例子。

AutoIncrement：是对应的自动增长字段，虽然我们可以通过IEntityField对象可以判断出那个字段是AutoIncrement的，这样需要一个循环，所以这里就单独的公开了一个属性。如果需要对实体进行CRUD操作，则必须要设置一个字段为自动增长字段。当然你可以不设，那么CRUD操作，就需要你自己写代码了。

Guid:这个属性没有实际意义，正在考虑，是否去掉。

SetValue,GetValue:这个方法是重写基类的，基类的SetValue和GetValue是使用反射的形式把DataRow对象转换为一个实体对象，反射的效率比较差，所以这里就采用了折衷的方法，使用硬编码。

OnPropertyChanged:这个方法用于当字段的值发生变化时，引发一个事件。

DataHelper.GetEntityField:用于根据当前数据库获取一个字段描述对象，我称为字段对象。

对这个实体对象就简单介绍完了，如果您有兴趣讲继续关注。一个简单的数据访问层！