frm_relation_modify.vb

来自「基于Windows Mobile平台的客户关系系统（CRM）」· VB 代码 · 共 23 行

Public Class frm_relation_modify

    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 = "UPDATE relation SET relation_name='" + tb_relation_name.Text.Trim() + "' WHERE relation_id='" + tb_relation_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
    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