AutoThrCode 三层结构业务层代码自动生成工具

点击下载

请看下面示例：
数据表结构如下：


生成的 属性成员 和 添加，更新的代码：

 

'AutoThrCode自动生成三层结构业务逻辑层代码
'IsDotNet 版权所有
'作者：梦虫
'Msn:[e-mail]
'Http://www.IsDotNet.com
'本代码引用 IsDotNet.Data.SqlDbHelper 类，请将 AdoHelper.dll 拷贝到WEB程序的BIN目录下
'请在WEB程序的web.config文件的节配置数据库连接字符串，"ConnectionString" value="Server=(local); database=databasename; User ID=sa; Password=sa;" /> 

Imports System
Imports System.Data
Imports System.Data.SqlClient

Class DBShippers

    '属性成员ErrMsg
    Private _ErrMsg As String 
    Public Property [ErrMsg] As String  
        Get 
            Return Me._Errmsg 
        End Get 
        Set(ByVal Value As String) 
            Me._Errmsg = Value 
        End Set 
    End Property 

    '属性成员:ShipperID
    Private intShipperid As Integer 
    Public Property [ShipperID] As Integer 
        Get
            Return Me.intShipperid
        End Get
        Set(ByVal Value As Integer )
            Me.intShipperid = Value
        End Set
    End Property

    '属性成员:CompanyName
    Private strCompanyname As String 
    Public Property [CompanyName] As String 
        Get
            Return Me.strCompanyname
        End Get
        Set(ByVal Value As String )
            Me.strCompanyname = Value
        End Set
    End Property

    '属性成员:Phone
    Private strPhone As String 
    Public Property [Phone] As String 
        Get
            Return Me.strPhone
        End Get
        Set(ByVal Value As String )
            Me.strPhone = Value
        End Set
    End Property

    '添加
    Public Function Shippers_Insert() As Boolean
        Dim db As New IsDotNet.Data.SqlDbHelper
        Dim strSql As String = "Insert Into [Shippers] ([CompanyName],[Phone]) values (@CompanyName,@Phone)" 
        Dim param() As SqlParameter = { _ 
                db.MakeInParam("@CompanyName", SqlDbType.NVarChar, 40, Me.strCompanyname) , _
         db.MakeInParam("@Phone", SqlDbType.NVarChar, 24, Me.strPhone) _
        }
        If db.Execute(strSql,param) Then
            Return True
        Else
            Me._ErrMsg = db.ErrMsg
            Return False
        End If
    End Function


    '更新
    Public Function Shippers_Update() As Boolean 
        Dim db As New IsDotNet.Data.SqlDbHelper 
        Dim strSql As String = "Update [Shippers] Set [CompanyName]=@CompanyName,[Phone]=@Phone where [ShipperID]=@ShipperID" 
        Dim param() As SqlParameter = { _ 
                db.MakeInParam("@CompanyName", SqlDbType.NVarChar, 40, Me.strCompanyname) , _
         db.MakeInParam("@Phone", SqlDbType.NVarChar, 24, Me.strPhone) , _
         db.MakeInParam("@ShipperID", SqlDbType.Int, 0, Me.intShipperid) _
        }
        If db.Execute(strSql, param) Then 
            Return True 
        Else 
            Me.ErrMsg = db.ErrMsg 
            Return False 
        End If 
    End Function 
End Class

此程序部分界面截屏