smstemplate.vb

用GSM模块发送短信,是个发送短信的平台

Imports System.Data
Imports System.Data.OleDb
Imports System.Collections.Generic

Public Class SMSTemplate

    Private m_ID As Integer

    Public Property ID() As String
        Get
            Return m_ID
        End Get
        Set(ByVal value As String)
            m_ID = value
        End Set
    End Property

    Private m_SMSContent As String

    Public Property SMSContent() As String
        Get
            Return m_SMSContent
        End Get
        Set(ByVal value As String)
            m_SMSContent = value
        End Set
    End Property


    Private Shared Function GetEntry(ByVal odr As OleDbDataReader) As SMSTemplate

        Dim entry As SMSTemplate = New SMSTemplate()
        Try
            entry.ID = odr.GetInt32(0)
            entry.SMSContent = odr.GetString(1)
        Catch ex As Exception
            Throw ex
        End Try
        Return entry

    End Function

    ''' <summary>
    ''' 获取所有短信模板
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetAllSMSTemplate() As List(Of SMSTemplate)

        Dim result As List(Of SMSTemplate) = New List(Of SMSTemplate)()
        Try
            Using conn As OleDbConnection = New OleDbConnection(Common.StrConn)
                Using cmd As OleDbCommand = conn.CreateCommand
                    cmd.CommandText = "select * from smstemplate"
                    conn.Open()
                    Using odr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                        If (odr.HasRows) Then
                            While (odr.Read())
                                result.Add(GetEntry(odr))
                            End While
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return result

    End Function

    ''' <summary>
    ''' 插入短信模板
    ''' </summary>
    ''' <param name="smscontent"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function InsertSmsContent(ByVal smscontent As String) As Boolean

        Try
            Using conn As OleDbConnection = New OleDbConnection(Common.StrConn)
                Using cmd As OleDbCommand = conn.CreateCommand
                    cmd.CommandText = "insert into smstemplate(smscontent) values(?)"
                    cmd.Parameters.Add("@smscontent", OleDbType.VarChar).Value = smscontent
                    conn.Open()
                    Return cmd.ExecuteNonQuery() > -1
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try

    End Function

    ''' <summary>
    ''' 更新短信模板
    ''' </summary>
    ''' <param name="smsContent"></param>
    ''' <param name="smsTemplateID"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function UpdateSmSContent(ByVal smsContent As String, ByVal smsTemplateID As Integer) As Boolean
        Try
            Using conn As OleDbConnection = New OleDbConnection(Common.StrConn)
                Using cmd As OleDbCommand = conn.CreateCommand
                    cmd.CommandText = "update smstemplate set smscontent=? where [id]=?"
                    cmd.Parameters.Add("@smscontent", OleDbType.VarChar).Value = smsContent
                    cmd.Parameters.Add("@id", OleDbType.Integer).Value = smsTemplateID
                    conn.Open()
                    Return cmd.ExecuteNonQuery() > -1
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    ''' <summary>
    ''' 删除短信模板
    ''' </summary>
    ''' <param name="SmsTemplateID"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function DeleteSMSTemplate(ByVal SmsTemplateID As Integer) As Boolean
        Try
            Using conn As OleDbConnection = New OleDbConnection(Common.StrConn)
                Using cmd As OleDbCommand = conn.CreateCommand
                    cmd.CommandText = "delete from smsTemplate where [id]=?"
                    cmd.Parameters.Add("@id", OleDbType.Integer).Value = SmsTemplateID
                    conn.Open()
                    Return cmd.ExecuteNonQuery() > -1
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
    End Function


End Class