关闭数据库与文件管理软件的所有连接

　　表单载入的时候，会将成员变量m RoomResv成员分配给类模块CDataObjects。在CDataObjects的初始化期间，会建立与ODBC和SQL Server数据库的连接。随后会设置网格控件。列标题以及它们的宽度将应用于该控件。随后，Form Load进程会调用FillGrid进程。以传递给进程的参数为基础，会用一个For Next循环将适当的信息填充到网格里。
　　在FillGrid进程里，将在传递的SQL语句的基础上打开rdoResultset对象。If语句会检查是否有数据通过OpenResultset语句返回。如有数据返回，就利用For Next循环将信息插入网格的每一列内。同时，利用Do Loop循环能将插入点定位于网格内正确的行。MoveNext方法能将数据指针移至结果集的下一行（下一条记录）。由于拿不准结果集到底会返回多少行数据，所以每次当数据指针移至下一行时，都会在一个计数器添加一个新行技数。
　　执行了FillGrid进程以后，接着会调用CalcPercent进程。首先，将在网格里添加一个新列，并设置它的标题信息。随后，用一个嵌套的For Next循环处理网格里的每一行。此时，列标准行和最后一行进行处理。之所以不处理标题行，是由于它的值已经固定，即列标题文本；之所以不处理最后一行，是因为不会在其中放置信息。第一个For Next循环用于处理表格行，而第二个For Next则用于处理表格列。计算出贴现或利润值以后，会执行Percentage进程，并将计算出来的值添加到单元格。
　　按下OK按钮后，会将m-RoomResv成员设为Nothing，同时触发Class-Terminate时间。这样会关闭数据库与文件管理软件的所有连接。