📄 frm_dept_modify.vb
字号:
Public Class frm_dept_modify
Private Sub btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click
Me.Close()
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 = "UPDATE dept SET dept_name='" + tb_dept_name.Text.Trim() + "' WHERE dept_id='" + tb_dept_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
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -