Public Class frm_member
    Dim member_currentPageIndex As Integer
    Dim stat_currentPageIndex As Integer

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Me.Close()
    End Sub

    Private Sub frm_member_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As New DataSet
        Dim header(1, 2) As String

        dg_member_management.TableStyles.Clear()
        member_currentPageIndex = 0

        header(0, 0) = "member_id"
        header(0, 1) = "業(yè)務編號"
        header(0, 2) = "100"
        header(1, 0) = "member_name"
        header(1, 1) = "人員名稱"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT member_id,member_name FROM member ORDER BY member_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        dg_member_management.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_member_management.DataSource = QueryWithPage(ds, 12, member_currentPageIndex)
    End Sub

    Private Sub btn_member_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_add.Click
        Dim frm_tmp As New frm_member_add
        frm_tmp.Show()
    End Sub

    Private Sub btn_member_modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_modify.Click
        If dg_member_management.CurrentRowIndex < 0 Then Exit Sub

        Dim frm_tmp As New frm_member_modify
        frm_tmp.tb_member_id.Text = dg_member_management.Item(dg_member_management.CurrentCell.RowNumber, 0).ToString()
        frm_tmp.Show()
    End Sub

    Private Sub btn_momber_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_momber_del.Click
        If dg_member_management.CurrentRowIndex < 0 Then Exit Sub

        If MsgBox("確認刪除當前記錄嗎？點擊'是'確認刪除操作，點擊'否'取消刪除操作，請選擇。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
            Cursor.Current = Cursors.WaitCursor
            Dim sSQL As String


            sSQL = "DELETE FROM member WHERE member_id='" + dg_member_management.Item(dg_member_management.CurrentCell.RowNumber, 0).ToString + "'"
            If ExecuteSQL(sSQL) Then
                MsgBox("記錄刪除成功。", MsgBoxStyle.Information, "提示")
                Me.frm_member_Load(sender, e)
            Else
                MsgBox("記錄刪除失敗。", MsgBoxStyle.Critical, "提示")
            End If
        End If
    End Sub

    Private Sub btn_member_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_up.Click
        Dim ds As New DataSet
        Dim header(1, 2) As String

        dg_member_management.TableStyles.Clear()

        header(0, 0) = "member_id"
        header(0, 1) = "業(yè)務編號"
        header(0, 2) = "100"
        header(1, 0) = "member_name"
        header(1, 1) = "人員名稱"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT member_id,member_name FROM member ORDER BY member_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        member_currentPageIndex -= 1
        dg_member_management.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_member_management.DataSource = QueryWithPage(ds, 12, member_currentPageIndex)
    End Sub

    Private Sub btn_member_down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_down.Click
        Dim ds As New DataSet
        Dim header(1, 2) As String

        dg_member_management.TableStyles.Clear()

        header(0, 0) = "member_id"
        header(0, 1) = "業(yè)務編號"
        header(0, 2) = "100"
        header(1, 0) = "member_name"
        header(1, 1) = "人員名稱"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT member_id,member_name FROM member ORDER BY member_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        member_currentPageIndex += 1
        dg_member_management.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_member_management.DataSource = QueryWithPage(ds, 12, member_currentPageIndex)
    End Sub

    Private Sub btn_reload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reload.Click
        Me.frm_member_Load(sender, e)
    End Sub

    Private Sub btn_member_query_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_query.Click
        Dim ds As New DataSet
        Dim header(1, 2) As String
        Dim sSQL As String

        dg_member_query.TableStyles.Clear()
        member_currentPageIndex = 0

        header(0, 0) = "member_id"
        header(0, 1) = "業(yè)務編號"
        header(0, 2) = "100"
        header(1, 0) = "member_name"
        header(1, 1) = "人員名稱"
        header(1, 2) = "328"

        sSQL = ""
        If (Len(tb_member_name.Text.Trim()) <= 0) And (Len(tb_member_id.Text.Trim()) <= 0) Then
            MsgBox("沒有設(shè)置查詢條件，請設(shè)置查詢條件。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        If Len(tb_member_name.Text.Trim()) > 0 Then
            sSQL = "SELECT member_id,member_name FROM member WHERE member_name='" + tb_member_name.Text.Trim() + "' ORDER BY member_id DESC"
        End If
        If Len(tb_member_id.Text.Trim()) > 0 Then
            sSQL = "SELECT member_id,member_name FROM member WHERE member_id='" + tb_member_id.Text.Trim() + "' ORDER BY member_id DESC"
        End If

        ds = GetDataSet(sSQL)
        If ds.Tables.Count <= 0 Then
            MsgBox("沒有查找到相關(guān)記錄，請重新設(shè)置查詢條件。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        dg_member_query.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_member_query.DataSource = QueryWithPage(ds, 12, 0)
    End Sub

    Private Sub dg_member_query_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg_member_query.DoubleClick
        If dg_member_query.CurrentRowIndex < 0 Then Exit Sub

        Cursor.Current = Cursors.WaitCursor
        Dim frm_tmp As New frm_member_review
        frm_tmp.tb_member_id.Text = dg_member_query.Item(dg_member_query.CurrentCell.RowNumber, 0).ToString()
        frm_tmp.Show()
        Cursor.Current = Cursors.Default
    End Sub

    Private Sub btn_member_stat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_stat.Click
        If (Not rb_dept.Checked) And (Not rb_state.Checked) And (Not rb_schoolage.Checked) Then
            MsgBox("沒有選擇統(tǒng)計項，請選擇相關(guān)統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人數(shù)"
        Dim cBmp As Bitmap = Nothing

        stat_currentPageIndex = -1

        If rb_dept.Checked Then
            sSQL = "SELECT COUNT(member.member_id),dept.dept_name FROM member,dept WHERE member.dept=dept.dept_id GROUP BY dept.dept_name"
            xName = "部門"
        End If
        If rb_state.Checked Then
            sSQL = "SELECT COUNT(member_id),state FROM member GROUP BY state"
            xName = "現(xiàn)狀"
        End If
        If rb_schoolage.Checked Then
            sSQL = "SELECT COUNT(member_id),schoolage FROM member GROUP BY schoolage"
            xName = "學歷"
        End If

        ds = GetDataSet(sSQL)
        If ds.Tables().Count <= 0 Then
            MsgBox("沒有統(tǒng)計數(shù)據(jù)，請重新選擇統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        If rb_Rectangle.Checked Then
            cBmp = GetDrawRectangleForStat(ds, xName, yName, 11, stat_currentPageIndex)
        ElseIf rb_Pie.Checked Then
            cBmp = GetDrawPieForStat(ds, "測試標題")
        End If
        pb_graphic.Image = Nothing
        pb_graphic.Image = cBmp
    End Sub

    Private Sub btn_member_stat_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_stat_up.Click
        If stat_currentPageIndex = -1 Then Exit Sub
        If rb_Pie.Checked Then Exit Sub

        If (Not rb_dept.Checked) And (Not rb_state.Checked) And (Not rb_schoolage.Checked) Then
            MsgBox("沒有選擇統(tǒng)計項，請選擇相關(guān)統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人數(shù)"

        If rb_dept.Checked Then
            sSQL = "SELECT COUNT(member_id),dept FROM member GROUP BY dept"
            xName = "部門"
        End If
        If rb_state.Checked Then
            sSQL = "SELECT COUNT(member_id),state FROM member GROUP BY state"
            xName = "現(xiàn)狀"
        End If
        If rb_schoolage.Checked Then
            sSQL = "SELECT COUNT(member_id),schoolage FROM member GROUP BY schoolage"
            xName = "學歷"
        End If

        ds = GetDataSet(sSQL)
        If ds.Tables().Count <= 0 Then
            MsgBox("沒有統(tǒng)計數(shù)據(jù)，請重新選擇統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        stat_currentPageIndex -= 1
        pb_graphic.Image = Nothing
        pb_graphic.Image = GetDrawRectangleForStat(ds, xName, yName, 11, stat_currentPageIndex)
    End Sub

    Private Sub btn_member_stat_down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_stat_down.Click
        If stat_currentPageIndex = -1 Then Exit Sub
        If rb_Pie.Checked Then Exit Sub

        If (Not rb_dept.Checked) And (Not rb_state.Checked) And (Not rb_schoolage.Checked) Then
            MsgBox("沒有選擇統(tǒng)計項，請選擇相關(guān)統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人數(shù)"

        If rb_dept.Checked Then
            sSQL = "SELECT COUNT(member_id),dept FROM member GROUP BY dept"
            xName = "部門"
        End If
        If rb_state.Checked Then
            sSQL = "SELECT COUNT(member_id),state FROM member GROUP BY state"
            xName = "現(xiàn)狀"
        End If
        If rb_schoolage.Checked Then
            sSQL = "SELECT COUNT(member_id),schoolage FROM member GROUP BY schoolage"
            xName = "學歷"
        End If

        ds = GetDataSet(sSQL)
        If ds.Tables().Count <= 0 Then
            MsgBox("沒有統(tǒng)計數(shù)據(jù)，請重新選擇統(tǒng)計項。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        stat_currentPageIndex += 1
        pb_graphic.Image = Nothing
        pb_graphic.Image = GetDrawRectangleForStat(ds, xName, yName, 11, stat_currentPageIndex)
    End Sub
End Class