friendgroup.vb

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

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

Public Class FriendGroup

    Private Sub btnGroup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGroup.Click

        Try
            If (String.IsNullOrEmpty(txtGroupName.Text.Trim())) Then
                MessageBox.Show("请输入分组名称")
                Exit Sub
            End If

            If (txtGroupName.Text.Trim().Length > 10) Then
                MessageBox.Show("组名称不能超过十个字符")
                Exit Sub
            End If

            Using conn As New OleDbConnection(Common.StrConn)
                Using cmd As OleDbCommand = conn.CreateCommand()
                    cmd.CommandText = "insert into FriendGroup(GroupName) values(?)"
                    cmd.Parameters.Add("@GroupName", OleDbType.VarChar).Value = txtGroupName.Text.Trim()
                    conn.Open()
                    If (cmd.ExecuteNonQuery() > -1) Then
                        MessageBox.Show("添加成功")
                        BindFriendGroupControl()
                        My.Forms.Main.Bind_comGroupList()
                    Else
                        MessageBox.Show("添加失败")
                    End If
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub FriendGroup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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

    End Sub

    Private Sub BindFriendGroupControl()
        Try
            Dim result As List(Of FriendGroupClass) = FriendGroupClass.GetAllFriendGroup()
            ComboBox1.DisplayMember = "GroupName"
            ComboBox1.ValueMember = "ID"
            ComboBox1.DataSource = result
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

        Try
            If (ComboBox1.SelectedIndex > -1) Then

                Dim result As DialogResult = MessageBox.Show("删除分组时，分组下的所有通讯录一同被删除，确认要删除吗？", "删除分组", MessageBoxButtons.OKCancel)
                If (result = Windows.Forms.DialogResult.OK) Then
                    Dim groupId As Integer = Integer.Parse(ComboBox1.SelectedValue)
                    If (FriendGroupClass.DeleteGroupById(groupId)) Then
                        MessageBox.Show("删除成功")
                        BindFriendGroupControl()
                    Else
                        MessageBox.Show("删除失败")
                    End If
                End If

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

    End Sub
End Class