frm_member_review.vb

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

Public Class frm_member_review

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

    Private Sub frm_member_modify_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cursor.Current = Cursors.WaitCursor

        Dim conn As System.Data.SqlServerCe.SqlCeConnection
        Dim rdr As System.Data.SqlServerCe.SqlCeDataReader
        Dim cmd As New System.Data.SqlServerCe.SqlCeCommand
        Dim ds As DataSet
        Dim sSQL As String

        ds = GetDataSet("SELECT dept_id,dept_name FROM dept ORDER BY dept_id ASC")
        If ds.Tables.Count > 0 Then
            cb_dept.DataSource = ds.Tables(0)
            cb_dept.DisplayMember = "dept_name"
            cb_dept.ValueMember = "dept_id"
        End If

        conn = New System.Data.SqlServerCe.SqlCeConnection(GetDBConnString())
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()

        sSQL = "SELECT member_id,member_name,card_id,sex,schoolage,state,people,dept,phone,employment,start_time,end_time,address,note FROM member WHERE member_id='" + tb_member_id.Text.Trim() + "'"
        Try
            cmd = New System.Data.SqlServerCe.SqlCeCommand(sSQL, conn)
            rdr = cmd.ExecuteReader
            While rdr.Read()
                tb_member_id.Text = rdr.GetString(0)
                tb_member_name.Text = rdr.GetString(1)
                tb_card_id.Text = rdr.GetString(2)
                cb_sex.Text = rdr.GetString(3)
                cb_schoolage.Text = rdr.GetString(4)
                cb_state.Text = rdr.GetString(5)
                tb_people.Text = rdr.GetString(6)
                cb_dept.SelectedValue = rdr.GetString(7)
                tb_phone.Text = rdr.GetString(8)
                tb_employment.Text = rdr.GetString(9)
                dtp_start_time.Value = rdr.GetDateTime(10)
                dtp_end_time.Value = rdr.GetDateTime(11)
                tb_address.Text = rdr.GetString(12)
                tb_note.Text = rdr.GetString(13)
            End While
        Catch ex As SqlServerCe.SqlCeException
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
            conn.Close()
        End Try
        conn.Close()

        Cursor.Current = Cursors.Default
    End Sub

    Private Sub btn_member_next_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_next_1.Click
        tc_member_info.SelectedIndex = 1
    End Sub

    Private Sub btn_member_prior_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_prior_1.Click
        tc_member_info.SelectedIndex = 0
    End Sub

    Private Sub btn_member_next_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_next_2.Click
        tc_member_info.SelectedIndex = 2
    End Sub

    Private Sub btn_member_prior_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_member_prior_2.Click
        tc_member_info.SelectedIndex = 1
    End Sub
End Class