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