frm_member_add.vb

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

Public Class frm_member_add

    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_add_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


        conn = New System.Data.SqlServerCe.SqlCeConnection(GetDBConnString())
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        Try
            cmd = New System.Data.SqlServerCe.SqlCeCommand("SELECT '" + CStr(Now().Year) + "' + SUBSTRING('0000',1,4-LEN(LTRIM(STR(SUBSTRING(MAX(member_id),5,4))+1))) + LTRIM(STR(SUBSTRING(MAX(member_id),5,4))+1) AS id FROM member WHERE SUBSTRING(member_id,1,4)='" + CStr(Now().Year) + "'", conn)
            rdr = cmd.ExecuteReader
            rdr.Read()
            If rdr.IsDBNull(0) Then
                tb_member_id.Text = CStr(System.DateTime.Now.Year) + "0001"
            Else
                tb_member_id.Text = rdr.GetString(0)
            End If
            tb_member_name.Text = ""
            tb_member_name.Focus()
        Catch ex As SqlServerCe.SqlCeException
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
            conn.Close()
        End Try
        conn.Close()

        cb_sex.SelectedIndex = 0
        cb_schoolage.SelectedIndex = 5
        dtp_start_time.Value = Now()
        dtp_end_time.Value = Now()

        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
        Dim ds As DataSet

        tc_member_info.SelectedIndex = 1
        If cb_dept.DataSource Is Nothing Then
            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"
                cb_dept.SelectedIndex = 0
            End If
        End If
    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 = "insert into member(member_id,member_name,card_id,sex,schoolage,state,people,dept,phone,employment,start_time,end_time,address,note) "
        sSQL = sSQL + "values('" + tb_member_id.Text.Trim() + "','" + tb_member_name.Text.Trim() + "','" + tb_card_id.Text.Trim() + "','" + cb_sex.Text.Trim() + "','"
        sSQL = sSQL + cb_schoolage.Text.Trim() + "','" + cb_state.Text.Trim() + "','" + tb_people.Text.Trim() + "','" + cb_dept.SelectedValue + "','"
        sSQL = sSQL + tb_phone.Text.Trim() + "','" + tb_employment.Text.Trim() + "','" + Mid(dtp_start_time.Value, 1, 8) + "','" + Mid(dtp_end_time.Value, 1, 8) + "','"
        sSQL = sSQL + tb_address.Text.Trim() + "','" + tb_note.Text.Trim() + "')"
        If ExecuteSQL(sSQL) Then
            Cursor.Current = Cursors.Default
            If MsgBox("记录保存成功。点击'是'继续新增，点击'否'关闭本窗口并返回，请选择。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
                Me.frm_member_add_Load(sender, e)
            Else
                Cursor.Current = Cursors.Default
                Me.Close()
            End If
        Else
            MsgBox("记录保存失败", MsgBoxStyle.Critical, "提示")
        End If
        Cursor.Current = Cursors.Default
    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