frm_setup.vb

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

Public Class frm_setup
    Dim dept_currentPageIndex As Integer
    Dim relation_currentPageIndex As Integer

    Private Sub frm_setup_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_dept.TableStyles.Clear()
        dept_currentPageIndex = 0
        relation_currentPageIndex = 0

        header(0, 0) = "dept_id"
        header(0, 1) = "部门标识"
        header(0, 2) = "100"
        header(1, 0) = "dept_name"
        header(1, 1) = "部门名称"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT dept_id,dept_name FROM dept ORDER BY dept_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        dg_dept.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_dept.DataSource = QueryWithPage(ds, 12, dept_currentPageIndex)
    End Sub

    Private Sub btn_dept_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dept_add.Click
        Dim frm_tmp As New frm_dept_add
        frm_tmp.Show()
    End Sub

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

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

    Private Sub btn_dept_modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dept_modify.Click
        If dg_dept.CurrentRowIndex < 0 Then
            Exit Sub
        End If

        Dim frm_tmp As New frm_dept_modify
        frm_tmp.Show()
        frm_tmp.tb_dept_id.Text = dg_dept.Item(dg_dept.CurrentCell.RowNumber, 0).ToString()
        frm_tmp.tb_dept_name.Text = dg_dept.Item(dg_dept.CurrentCell.RowNumber, 1).ToString()
    End Sub

    Private Sub btn_dept_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dept_del.Click
        If dg_dept.CurrentRowIndex < 0 Then
            Exit Sub
        End If

        If MsgBox("确认删除当前记录吗？点击'是'确认删除操作，点击'否'取消删除操作，请选择。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
            Cursor.Current = Cursors.WaitCursor
            Dim sSQL As String


            sSQL = "DELETE FROM dept WHERE dept_id='" + dg_dept.Item(dg_dept.CurrentCell.RowNumber, 0).ToString + "'"
            If ExecuteSQL(sSQL) Then
                MsgBox("记录删除成功。", MsgBoxStyle.Information, "提示")
                Me.frm_setup_Load(sender, e)
            Else
                MsgBox("记录删除失败。", MsgBoxStyle.Critical, "提示")
            End If
        End If
    End Sub

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

        dg_dept.TableStyles.Clear()

        header(0, 0) = "dept_id"
        header(0, 1) = "部门标识"
        header(0, 2) = "100"
        header(1, 0) = "dept_name"
        header(1, 1) = "部门名称"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT dept_id,dept_name FROM dept ORDER BY dept_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        dept_currentPageIndex -= 1
        dg_dept.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_dept.DataSource = QueryWithPage(ds, 12, dept_currentPageIndex)
    End Sub

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

        dg_dept.TableStyles.Clear()

        header(0, 0) = "dept_id"
        header(0, 1) = "部门标识"
        header(0, 2) = "100"
        header(1, 0) = "dept_name"
        header(1, 1) = "部门名称"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT dept_id,dept_name FROM dept ORDER BY dept_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        dept_currentPageIndex += 1
        dg_dept.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_dept.DataSource = QueryWithPage(ds, 12, dept_currentPageIndex)
    End Sub

    Private Sub tc_setup_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tc_setup.SelectedIndexChanged
        If tc_setup.SelectedIndex = 1 Then
            Dim ds As New DataSet
            Dim header(1, 2) As String

            dg_relation.TableStyles.Clear()
            relation_currentPageIndex = 0

            header(0, 0) = "relation_id"
            header(0, 1) = "关系标识"
            header(0, 2) = "100"
            header(1, 0) = "relation_name"
            header(1, 1) = "关系名称"
            header(1, 2) = "328"
            ds = GetDataSet("SELECT relation_id,relation_name FROM relation ORDER BY relation_id DESC")
            If ds.Tables().Count <= 0 Then
                Exit Sub
            End If
            dg_relation.TableStyles.Add(CustomDataGridTableStyle(ds, header))
            dg_relation.DataSource = QueryWithPage(ds, 12, relation_currentPageIndex)
        End If
    End Sub

    Private Sub btn_relation_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_add.Click
        Dim frm_tmp As New frm_relation_add
        frm_tmp.Show()
    End Sub

    Private Sub btn_relation_modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_modify.Click
        If dg_relation.CurrentRowIndex < 0 Then
            Exit Sub
        End If

        Dim frm_tmp As New frm_relation_modify
        frm_tmp.Show()
        frm_tmp.tb_relation_id.Text = dg_relation.Item(dg_relation.CurrentCell.RowNumber, 0).ToString()
        frm_tmp.tb_relation_name.Text = dg_relation.Item(dg_relation.CurrentCell.RowNumber, 1).ToString()
    End Sub

    Private Sub btn_relation_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_del.Click
        If dg_relation.CurrentRowIndex < 0 Then
            Exit Sub
        End If

        If MsgBox("确认删除当前记录吗？点击'是'确认删除操作，点击'否'取消删除操作，请选择。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
            Cursor.Current = Cursors.WaitCursor
            Dim sSQL As String


            sSQL = "DELETE FROM relation WHERE relation_id='" + dg_relation.Item(dg_relation.CurrentCell.RowNumber, 0).ToString + "'"
            If ExecuteSQL(sSQL) Then
                MsgBox("记录删除成功。", MsgBoxStyle.Information, "提示")
                Me.btn_relation_reload_Click(sender, e)
            End If