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

    '属性成员: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