frm_member_modify.vb

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

Public Class frm_member_modify

    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

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Cursor.Current = Cursors.WaitCursor

        Dim sSQL As String


        sSQL = "UPDATE member SET member_name='" + tb_member_name.Text.Trim() + "',card_id='" + tb_card_id.Text.Trim() + "',sex='" + cb_sex.Text.Trim()
        sSQL = sSQL + "',schoolage='" + cb_schoolage.Text.Trim() + "',state='" + cb_state.Text.Trim() + "',people='" + tb_people.Text.Trim()
        sSQL = sSQL + "',dept='" + cb_dept.SelectedValue + "',phone='" + tb_phone.Text.Trim() + "',employment='" + tb_employment.Text.Trim()
        sSQL = sSQL + "',start_time='" + Mid(dtp_start_time.Value, 1, 8) + "',end_time='" + Mid(dtp_end_time.Value, 1, 8) + "',address='" + tb_address.Text.Trim()
        sSQL = sSQL + "',note='" + tb_note.Text.Trim() + "' WHERE member_id='" + tb_member_id.Text.Trim() + "'"
        If ExecuteSQL(sSQL) Then
            Cursor.Current = Cursors.Default
            If MsgBox("记录修改成功。点击'是'继续修改，点击'否'关闭本窗口并返回，请选择。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.No Then
                Me.Close()
            End If
        Else
            MsgBox("记录修改失败", MsgBoxStyle.Critical, "提示")
        End If
        Cursor.Current = Cursors.Default
    End Sub
End Class