另一种方法是使用数据库别名(Alias)。在 Delphi 中数据库别名是在数据库引擎(BDE)
中设定的,=$ 的方法在设计时是可行的,然而需要对程序进行移植时却会导致程序运行
出现异常。
数据库应用程序的移植是一个重要的问题。因为在数据库应用程序中要访问数据库或
数据表,就要涉及到数据文件的路径。一般来说,数据库应用程序开发完成后要移植到其
他的机器上使用,因此数据库应用程序运行时的数据文件路径很可能和开发时的不同。所
以必须对数据文件的路径进行有效的管理,以便用于系统的移植。管理数据文件路径的方
法有三种:①把数据文件建立在应用程序所在目录的子目录下②利用配置文件存放数据路
径 ③利用数据库别名存放数据库路径。
本试题库系统采用的是第三种方法,且具有更强的移植性,每次启动时都会对别名进
行检查并进行重设,以防异常情况的出现,但是损失了一定的运行时间。下面代码说明如
何建立名字为“CPXSGL”的别名,它的数据库路径为“H:\毕业设计\数据库”,数据库类型为
PARADOX。
$.F>I5+
$+++J.*<:JJ(G毕业设计G数据库’J*2-<J
$+/.F>@))保存新建立的别名
如须对别名进行删除,则先要检查别名是否存在,如果对不存在的别名做删除操作则
会引起异常。下面代码说明如何检查数据库别名“.*<:C是否存在,如果存在则进行删
除。
定义变量:/++%>))用于保存 ( 数据库别名表
代码: +I%>$.+))生成 %> 类的实例
$:+8+5+))获取数据库别名
4+$,-4’CPXSGL’KLM'!
>
session.DeleteAlias('CPXSGL');
session.SaveConfigFile;
六 试题库系统应用程序界面设计
本系统采用图形化界面并且提供帮助,界面友好,操作方便,可以大大降低了本软
件的使用难度和维护难度,为软件的使用者带来方便。
系统在进行设计时,主要使用的是 ! 中的一部分的控件,最长使用的是 +
控件、6 控件、2+>6 控件,5 控件。数据库方面常用 ++6 控
件、 -60 控件、 -. 控件、 8+/>+ 控件、 -%+ 控
件、 ( 控件、: 控件。
§6.1 用户登录窗体
本窗体的任务是通过用户输入密码判断用户是否是合法的用户$它用于管理员按照用
户名和密码进行登录。以免不相关得人进入系统进行不良的操作,而对系统进行破坏,导
致整个系统进行瘫痪。