DAL/ROLEGROUP_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 ROLEGROUP_DAL
    Public Function Add_GROUP(ByVal strgroup As ROLEGROUP) As Integer

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

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