DAL/ROLE_DAL.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports SQLHelper
Imports Model
Public Class ROLE_DAL
    Public Function Add_ROLE(ByVal strrole As USERROLE) As Integer

        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@USERID", SqlDbType.NVarChar, 50, strrole.USERID), _
                                           sqlHelper.CreateInParam("@FOLDERNO", SqlDbType.Int, 4, strrole.FOLDERNO), _
                                           sqlHelper.CreateInParam("@DESCRIPTION", SqlDbType.NVarChar, 50, strrole.DESCRIPTION), _
                                           sqlHelper.CreateInParam("@PARENTNO", SqlDbType.Int, 4, strrole.PARENTNO), _
                                           sqlHelper.CreateInParam("@IMAGEURL", SqlDbType.NVarChar, 50, strrole.IMAGEURL), _
                                           sqlHelper.CreateInParam("@LINKURL", SqlDbType.NVarChar, 50, strrole.LINKURL), _
                                           sqlHelper.CreateInParam("@USERLEVEL", SqlDbType.Int, 4, strrole.USERLEVEL), _
                                           sqlHelper.CreateInParam("@USER_VIEW", SqlDbType.Int, 4, strrole.USER_VIEW), _
                                           sqlHelper.CreateInParam("@USER_UPDATE", SqlDbType.Int, 4, strrole.USER_UPDATE), _
                                           sqlHelper.CreateInParam("@USER_DEL", SqlDbType.Int, 4, strrole.USER_DEL)}
        Try
            Return (sqlHelper.RunProc("Add_ROLE", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Sub Delete_ROLE(ByVal struserid As String)
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@USERID", SqlDbType.NVarChar, 50, struserid)}
        Try
            sqlHelper.RunProc("Delete_ROLE", ParamList)
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Sub
End Class