managersmstemplate.vb

来自「用GSM模块发送短信,是个发送短信的平台」· VB 代码 · 共 86 行

Public Class ManagerSMSTemplate

    Private Sub ManagerSMSTemplate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Bind_listSmsTemplate()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Private Sub Bind_listSmsTemplate()
        Try
            listSmsTemplate.DisplayMember = "SMSContent"
            listSmsTemplate.ValueMember = "ID"
            listSmsTemplate.DataSource = SMSTemplate.GetAllSMSTemplate()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub listSmsTemplate_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listSmsTemplate.SelectedIndexChanged

        Try
            Dim smsContent As String = DirectCast(listSmsTemplate.SelectedItem, SMSTemplate).SMSContent
            txtSMSContentEdit.Text = smsContent
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub


    Private Sub btnSaveEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveEdit.Click

        Try
            Dim smsContent As String = txtSMSContentEdit.Text.Trim()
            If (String.IsNullOrEmpty(smsContent)) Then
                MessageBox.Show("请输入短信模板内容", "提示")
                Exit Sub
            End If

            Dim smsTemplateId As Integer = DirectCast(listSmsTemplate.SelectedItem, SMSTemplate).ID
            If (SMSTemplate.UpdateSmSContent(smsContent, smsTemplateId)) Then

                MessageBox.Show("更新短信模板内容成功", "提示")

            Else
                MessageBox.Show("更新短信模板内容失败", "提示")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub btnDeleteSmsTemplate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSmsTemplate.Click

        Try
            If (listSmsTemplate.SelectedIndex > -1) Then

                Dim result As DialogResult = MessageBox.Show("确定要删除吗？", "删除提示", MessageBoxButtons.YesNo)
                If (result = Windows.Forms.DialogResult.Yes) Then
                    Dim smsTemplateId As Integer = DirectCast(listSmsTemplate.SelectedItem, SMSTemplate).ID
                    If (SMSTemplate.DeleteSMSTemplate(smsTemplateId)) Then
                        MessageBox.Show("删除成功", "提示")
                    Else
                        MessageBox.Show("删除失败", "提示")
                    End If
                End If

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
   
    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        Try
            Bind_listSmsTemplate()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class