一个Delphi 多层SQL服务器实例，程序将建立一个字符串数组存放BDE所有的数据库别名数据，利用Session控件取得当前BDE所有的数据库别名数据，建立一个变量数组给函数返回变量Result，增加一位前台上线者（调用Form1上的程序），最后再把数据库别名数据指定给该变量数组。如果错误就把构造的DBNames释放掉。 　　本源码中的异常处理思路：把前台传来的数据库别名、用户上线名称、用户上线密码等三项数据指定给TDatabase控件，并且执行联机的操作。如果联机时发生错误，则产生一个exception给前台程序，前台程序将会利用到这个exception来判断是否要把输入上，线数据的窗口激