华 中 科 技 大 学 硕 士 学 位 论 文

在这里创建了几个存储过程。列举以下几个存储过程，它们的Transact-SQL代码如下：

（1） 存储过程IsertFContent用于向学生档案信息表中添加记录。 （2） 存储过程InsertFCategory用于向学生档案类别表中添加记录。 （3） 存储过程InsertBorrow用于向学生档案借用表中添加记录，并修改学生档案信息表中对应档案的状态。

（4） 存储过程UpdateFContent用于对学生档案信息表的记录进行更新。 （5） 存储过程InsertFReturn用于向学生档案归还表FilesReturn添加记录,并修改档案信息表FilesContent及学生档案借用表FilesBorrow中对应档案的状态。

（6） 存储过程DeleteFReturn用于对学生档案归还表FilesReturn的记录进行删除,如果学生档案借用表FilesBorrow中有相应档案的信息，则要修改学生档案信息表FilesContent及学生档案借用表FilesBorrow中对应档案的状态[44]。

（7） 存储过程DeleteFBorrow用于对学生档案借用表FilesBorrow的记录进行删除，并修改学生档案信息表FilesContent对应档案的状态。

在应用程序运行的过程中将调用这些存储过程，完成对学生档案基本信息、借用以及归还信息的插入、更新、删除等工作。 4.3.3 数据库的连接

1）创建数据源及工程项目

在用程序代码实现调用数据库之前，我们首先应该在Windows的ODBC数据源管理器中注册数据库FilesglSys。

本实例将在Delphi7.0开发平台下进行系统开发，首先要创建该系统的工程文件IDMS.dpr。具体步骤是：运行 Delphi7.0主程序，，然后创建一个新的应用程序工程。然后单击保存，将工程命名为IDMS,保存主窗口为Main.pas。

2）建立与数据库的连接

在实现各个模块之前，首先需要建立与数据库FilesglSys的连接。在该实例中，

21

华 中 科 技 大 学 硕 士 学 位 论 文

我们采用注册表方式连接数据库。在菜单中，选择File|New|Data Module 命令创建一个新的数据模块，命名为dm,保存为dm.pas。然后，在窗体中放置一个ADOConnection组件，设置其Name属性为ConDaLei，并添加它的BeforeConnection事件响应[45]。代码如下：

procdure Ffdm.ConDaLeiBeforeConnect(Sender:TObject); begin

ConDaLei.ConnectionString:=GetConnectStr; end;

其中，函数GetConnectStr（）用于获得连接字符串，代码如下：

Function GetConnectStr: String var

rt:boolean; rtStr:String; begin Result:=”;

if ReadReg(LabelConnectReg,LabelConnectStr,rtStr) then Result:=rtStr; end;

ReadReg()函数主要用于从注册表中获取连接字符串信息，具体代码不再给出。 至此，数据库的设计和连接工作已经全部完成，接下来，我们将进行系统的界面设计及其代码实现。

4.4 系统界面

系统启动的最初为登陆界面，界面如图4-1所示。

22

华 中 科 技 大 学 硕 士 学 位 论 文

图4-1 系统登陆界面

下面再给出档案查询借阅部分的界面，见图4-2所示：

图4-2 档案查询界面

23

华 中 科 技 大 学 硕 士 学 位 论 文

4.5 本章小结

本章叙述了系统开发的详细过程，首先明确了系统所使用的开发环境和运行环境，即采用Delphi语言为开发平台，数据库采用SQL Server 2000，而UML图的绘制则是是采用了Rational Rose 2003。然后根据上一章的系统的需求分析和总体设计，分别详细实现了学生档案管理模块、学生档案类别管理模块、学生档案查询模块的，然后通过又使用SQL Server 2000软件根据前面数据库设计中的E-R图实现了数据库的表的设计并完成了相关视图的建立，最后详细介绍了存储过程创建和数据库的连接的技术细节，并给出了部分系统的用户界面。

24