AutoThrCode 三层结构业务层代码自动生成工具
请看下面示例：
数据表结构如下：
=(screen.width*0.95-200))window.open(this.src);else return false;" hspace=2 src="http://www.isdotnet.com/blog/uploadimg/200481814115622815.jpg" onload="if(this.width=(screen.width*0.95-200)){this.style.cursor='hand';this.alt='!!!此图片仅显示局部，请点击查看完整图片!!!';this.previousSibling.style.display='';}" vspace=2 border=0
生成的 属性成员 和 添加，更新的代码：
'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 SystemImports System.DataImports System.Data.SqlClientClass 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
