frm_dept_add.vb

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

Public Class frm_dept_add
    Private Sub frm_dept_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 SUBSTRING('000',1,3-LEN(LTRIM(STR(MAX(dept_id))+1)))+LTRIM(STR(MAX(dept_id))+1) AS id FROM dept", conn)
            rdr = cmd.ExecuteReader
            rdr.Read()
            If rdr.IsDBNull(0) Then
                tb_dept_id.Text = "001"
            Else
                tb_dept_id.Text = rdr.GetString(0)
            End If
            tb_dept_name.Text = ""
            tb_dept_name.Focus()
        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_apply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_apply.Click
        Cursor.Current = Cursors.WaitCursor

        Dim sSQL As String


        sSQL = "insert into dept(dept_id,dept_name) values('" + tb_dept_id.Text.Trim() + "','" + tb_dept_name.Text.Trim() + "')"
        If ExecuteSQL(sSQL) Then
            Cursor.Current = Cursors.Default
            If MsgBox("记录保存成功。点击'是'继续新增，点击'否'关闭本窗口并返回，请选择。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
                Me.frm_dept_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_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click
        Me.Close()
    End Sub
End Class