.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
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


此程序部分界面截屏


!!!此图片仅显示局部,请点击查看完整图片!!!

!!!此图片仅显示局部,请点击查看完整图片!!!



相关文章

相关软件