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

新客网 XKER.COM 2004-09-02 来源： 收藏本文

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


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


'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

此程序部分界面截屏

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决