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

最新推荐文章于 2024-02-07 22:09:49 发布

dreamworm

最新推荐文章于 2024-02-07 22:09:49 发布

阅读量1k

点赞数

文章标签：工具 border database insert 数据库 server

本文链接：https://blog.youkuaiyun.com/dreamworm/article/details/78065

版权

点击下载

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

生成的属性成员和添加，更新的代码：
<script src="highlight.js"></script>

'AutoThrCode自动生成三层结构业务逻辑层代码
'IsDotNet 版权所有
'作者：梦虫
'Msn:IsDotNet@MsN.CoM
'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

此程序部分界面截屏