点击下载
请看下面示例:
数据表结构如下:
生成的 属性成员 和 添加,更新的代码:
'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
'isdotnet 版权所有
'作者:梦虫
'msn:isdotnet@msn.com
'http://www.isdotnet.com
'本代码引用 isdotnet.data.sqldbhelper 类,请将 adohelper.dll 拷贝到web程序的bin目录下
'请在web程序的web.config文件的
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
本文关键:AutoThrCode 三层结构业务层代码自动生成工具