|
|
AutoThrCode 三层结构业务层代码自动生成工具 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
点击下载
请看下面示例: 数据表结构如下:

生成的 属性成员 和 添加,更新的代码:
'AutoThrCode自动生成三层结构业务逻辑层代码
'IsDotNet 版权所有
'作者:梦虫
'Msn: [email protected]
'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
此程序部分界面截屏





|
|
相关文章:相关软件: |
|