VB.NET版机房收费系统之异常处理

VB.NET版机房收费系统之异常处理2015-07-02异常处理，英文名为Exceptional Handling, 那时年少，还记得那年一起学习过的VB6.0的时候，常常使用ONError的错误语句。与传统VB6.0中的OnError语句相比.NET平台的异常处理机制更加灵活，而且使用更加方便。是代替日渐衰落的Error Code方法的新法，提供Error Code 所未能具体的优势。异常处理巧妙又不失完美的分离了接收和处理错误代码。这个功能理清了编程者的思绪，也帮助代码增强了可读性，方便了维护者的阅读和理解。

异常处理（又称为错误处理）功能提供了处理程序运行时出现的任何意外或异常情况的方法。异常处理使用 try、catch 和 finally 关键字来尝试可能未成功的操作，处理失败，以及在事后清理资源。异常处理通常是防止未知错误产生所采取的处理措施。异常处理的好处是你不用再绞尽脑汁去考虑各种错误，这为处理某一类错误提供了一个很有效的方法，使编程效率大大提高。

一、异常处理Try...Catch...Finally

<span style="font-size:18px;"><span style="font-size:18px;">Try"程序代码 Catch "处理异常的代码Finally"清理工作End Try</span></span>

在上述语句中，Try语句块通常存放的是我们需要检测可能存在异常情况的代码，也就是说如果程序正确，则执行Try语句块，Catch语句块负责捕捉到错误的代码。所以当这段代码在执行过程中产生异常，则转到Catch块中对该异常进行相应处理。最后，无论是否引发异常，Finally块中的代码最后一定会被执行。 Finaly块用于清除try块中分配的任何资源以及运行任何即使在发生异常时也必须执行的代码。Catch和Finally语句可以共同使用于一个Try块中。

简单来说，就是Try和Finally语句块是必须运行的，但是Catch语句不一定运行，如果Try块内的代码没有错误，没有抛出异常的话，Catch语句块中的代码是不运行的，而是跳过Catch块直接运行Finally块中的清理工作。反之如果遇到了异常Catch语句块中的处理工作就要进行。为什么在Finally块中进行清理工作？简单的说一个程序的异常会导致程序不能正常完成结束工作，而且在错误出现的地方跳出程序，直接执行Catch语句块中的代码，使得在程序运行时构建的对象资源不能释放，浪费了内存资源，同时也可能导致栈中数据存储的杂乱，所以无论有没有出现异常Finally块中的代码是一定会运行的。
以VB.NET版机房收费系统中的注册为例，我们要如何在代码中应用异常处理呢？

<span style="font-size:18px;"><span style="font-size:18px;"> Private Sub btnSave_Click（sender As Object, e As EventArgs） Handles btnSave.ClickTryDim RegisterManager As New BLL.RegisterManagerDim studentinfo As New Entity.StudentinfoDim cardinfo As New Entity.CardinfoDim rechargeinfo As New Entity.RechargeinfoIf （RegisterManager.query（txtStudentNo.Text） Is Nothing And RegisterManager.queryCard（txtCardNo.Text） Is Nothing） Thenstudentinfo.cardNo = txtCardNo.Textstudentinfo.studentNo = txtStudentNo.Textstudentinfo.studentName = txtName.Textstudentinfo.sex = cmbSex.Textstudentinfo.department = txtDepartment.Textstudentinfo.grade = txtGrade.Textstudentinfo.stuclass = txtClass.Textstudentinfo.remark = txtRemark.Textstudentinfo.Handler = frmLogin.handler.handler"用户显示层没有处理人这个文本框，怎么办？数据库里面handler这个字段的信息如何获取,答案就在上面哦。cardinfo.cardNo = txtCardNo.Textcardinfo.balance = txtbalance.Textcardinfo.status = "使用"cardinfo.registerDate = CStr（Format（Now（）, "yyyy-MM-dd"））cardinfo.registerTime = CStr（Format（Now（）, "HH:mm:ss"））cardinfo.handler = frmLogin.handler.handlercardinfo.ischeck = "未结账"rechargeinfo.cardNo = txtCardNo.Textrechargeinfo.rechargeAmount = txtbalance.Textrechargeinfo.rechargeDate = CStr（Format（Now（）, "yyyy-MM-dd"））rechargeinfo.time = CStr（Format（Now（）, "HH:mm:ss"））rechargeinfo.userID = frmLogin.handler.handlerRegisterManager.insert（studentinfo）RegisterManager.insertCard（cardinfo）RegisterManager.insertRecharge（rechargeinfo）MsgBox（"用户注册成功"）End IfCatch ex As ExceptionMessageBox.Show（ex.Message.ToString（））End TryEnd Sub</span></span>

如果，我们没有写捕获异常的这个语句，该注册在D层出错了，运行结果会怎样？