frm_member.vb

基于Windows Mobile平台的客户关系系统（CRM）

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) = "业务编号"
        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) = "业务编号"
        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) = "业务编号"
        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) = "业务编号"
        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("没有设置查询条件，请设置查询条件。", 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("没有查找到相关记录，请重新设置查询条件。", 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("没有选择统计项，请选择相关统计项。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人数"
        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 = "现状"
        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("没有统计数据，请重新选择统计项。", 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("没有选择统计项，请选择相关统计项。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人数"

        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 = "现状"
        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("没有统计数据，请重新选择统计项。", 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("没有选择统计项，请选择相关统计项。", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim ds As New DataSet
        Dim sSQL As String = ""
        Dim xName As String = ""
        Dim yName As String = "人数"

        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 = "现状"
        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("没有统计数据，请重新选择统计项。", 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