平顶山工业职业技术学院毕业设计说明书

第4章 档案管理系统的实现

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

4.1 开发环境的选择

系统采用Delphi语言为开发语言，数据库采用SQL Server 2000。而UML图的绘制则是是采用了Rational Rose 2003软件。

Rational Rose 是一个完全的，具有能满足所有建模环境（Web开发，数据建模，Visual Studio和 C++ ）需求能力和灵活性的一套解决方案。Rose 允许开发人员，项目经理，系统工程师和分析人员在软件开发周期内在将需求和系统的体系架构转换成代码，消除浪费的消耗，对需求和系统的体系架构进行可视化，理解和精练。通过在软件开发周期内使用同一种建模工具可以确保更快更好的创建满足客户需求的可扩展的、灵活的并且可靠的应用系统[37]。

4.2 系统功能模块实现

从第三章可以得出学生档案管理信息系统包括以下5个部分组成，分别是： （1） 用户登录界面及系统主界面 （2） 学生档案管理模块 （3） 学生档案查询管理模块

（4） 学生档案类别管理界面及档案柜资料管理模块 （5） 学生档案借用管理界面及档案归还管理模块

由于论文篇幅所限，下面仅就以下三个典型的模块进行介绍。

14

平顶山工业职业技术学院毕业设计说明书

4.2.1 学生档案管理模块实现

学生档案管理模块主要用于维护档案的基本信息，以便管理人员添加、修改和删除档案信息。

在界面中，要放置3个ADOQuery组件，然后，在界面上放置1个DataSourse组件，各个组件的属性如下表4-1所示。

表4-1 该界面所需组件属性 组件名称 ADOQuery 属性 Name Connection SQL ADOQuery Name Connection SQL ADOQuery Name Connection SQL DataSource Name DataSet 设置 DaEdit ConDaLei Select*from view_FilesContent DaGuild ConDaLei Select distinct 档案柜号 from view_FilesContent Getfilecatory ConDaLei Select Cgname from FilesCategory CdDaEdit DaEdit

然后，为本界面添加OnCreate事件响应，以初始化窗体信息。代码如下： Procedure TfGBset.EokClick(Sender:TObject); begin

if Edittype.ItemIndex=0 then //修改按钮被选中 begin

with fdm.ExecSql do

15

平顶山工业职业技术学院毕业设计说明书

begin

close; Sql.clear;

Sql.Add(Format(ExcUpdate,[DBEdit.text,

DBEdit2.text,dangtype.text,Dagui.text,DBEdit4.text,DBMemol.text,DaStatus.text,DBEdit5.text])); //执行操作 ExecSql;

end; end else begin

with fdm.ExecSql do begin

close; Sql.clear;

Sql.Add(Format(InsertSql,[DBEdit.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,DBEdit4.text,DBMeo1.text,DaStatus.text,DBEdit5.text]));

Sql.Clear;Sql.Add(Format(GetDa,[Trim(dangtype.text)])); Open; end; end;

上述代码中所使用的GetDa是在SqlStr单元中定义的常量，代码如下： GetDa=?SELECT FilesContent.Status as “状态”,FilesContent.FileId as “档案编号”，FilesContent.Fname as “名称”，?+?FilesContent.

Contents as “内容”，FilesContent.CabinetId as “档案柜号”，Filescabinet.cbname as “档案柜”+?FilesContent.Ftime as “建档日期”，FilesContent.Content.Remarks as “备注”FROM?+?FilesContent,

FilesCategory, FilesCategory,FilesCabinet where filescontent.category

16

平顶山工业职业技术学院毕业设计说明书

id=filescategory.categoryid?+?and filescabinet.cabinetid=

filescontent.cabinetid=filescontent.cabinetid and filescategory.cgname =”%s”

管理人员在学生档案信息列表中选择了目标档案信息后，如果选择的操作类型是”修改”时，编辑栏中就会显示该档案的详细信息。管理人员修改完毕后，单击”确定”按钮即可完成对该档案信息的修改。

如果将操作类型设为”添加”时，管理人员可填写新的档案信息，然后单击”确定”按钮，系统就会在当前所选择的档案类别下录入的该档案信息。

为实现上述功能，添加”确定”按钮的OnClick事件响应。代码如下： Procedure TfGBset.EokClick(Sender:TObject) begin if Edittype.ItemIndex=0 then //修改按钮被选中 begin

//ExecSql 是在界面中定义的一个ADOQuery组件 with fdm.ExecSql do begin

close; Sql.clear;

Sql.Add(Format(ExcUpdate,[DBEdit2.text,dangtype. text,DaGui.text,DBEdit4.text,

DBMemo1.text,DaStatus.text,DBEeit5.text])); //执行操作 ExecSql； end；

end else begin

with fdm.ExecSql do begin

17