DAL/NOTICESQL.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

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

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 NOTICESQL
    Public Function Add_NOTICE(ByVal strTask As NOTICE) As Integer

        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@NOTICEID", SqlDbType.NChar, 20, strTask.NOTICEID), _
                                           sqlHelper.CreateInParam("@Title", SqlDbType.NVarChar, 200, strTask.TTitle), _
                                           sqlHelper.CreateInParam("@Content", SqlDbType.NText, 0, strTask.TContent), _
                                           sqlHelper.CreateInParam("@Remark", SqlDbType.NText, 0, strTask.Remark), _
                                           sqlHelper.CreateInParam("@Createby", SqlDbType.NChar, 10, strTask.Createby)}
        Try
            Return (sqlHelper.RunProc("Add_NOTICE", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Function Update_NOTICE(ByVal strTask As NOTICE) As Integer
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ID", SqlDbType.Int, 4, strTask.ID), _
                                           sqlHelper.CreateInParam("@Title", SqlDbType.NVarChar, 200, strTask.TTitle), _
                                           sqlHelper.CreateInParam("@TContent", SqlDbType.NText, 0, strTask.TContent), _
                                           sqlHelper.CreateInParam("@Remark", SqlDbType.NText, 0, strTask.Remark), _
                                           sqlHelper.CreateInParam("@Updateby", SqlDbType.NChar, 10, strTask.Updateby)}
        Try
            Return (sqlHelper.RunProc("Update_NOTICE", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Sub Delete_NOTICE(ByVal strNOTICEId As String)
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@NOTICEId", SqlDbType.NVarChar, 20, strNOTICEId)}
        Try
            sqlHelper.RunProc("Delete_NOTICE", ParamList)
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Sub
    Public Function getTaskID(ByVal crfid As String) As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim strTaskID As String = sqlHelper.Taskcode(crfid)
        Return strTaskID
    End Function
    Public Function countfield(ByVal strsql As String) As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim strcount As String = sqlHelper.countfield(strsql)
        Return strcount