1、Comment U1: 中、英文封面原 样拷贝，只更换相应内容，以保持格式统一。分类号 学号 学校代码 密级 硕 士 学 位 论 文XXX系统的设计与实现学位申请人 ： XXX学科专业 ： 软件工程指导教师 ： XXX教授（或副教授）答辩日期 ： 2007.10.25Comment U2: 介词、冠词、连词均小写，其它单词首字母要大写。Comment U3: 姓、名的首字母大写。A Thesis Submitted in Partial Fulfillment of the Requirementsfor the Degree for the Master of EngineeringDesi
2、gn and Implementation of a Bar-Code-Based Student Archive Management SystemCandidate : Jiang LiyingMajor : Software EngineeringSupervisor : Prof. XXX（或 Assoc. Prof. XXX）Huazhong University of Science begin if Edittype.ItemIndex=0 then /修改按钮被选中begin with fdm.ExecSql do15华 中 科 技 大 学 硕 士 学 位 论 文begin c
3、lose;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 beginwith fdm.ExecSql dobegin close; Sql.clear; Sql.Add(Format(InsertSql,DBEdit.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,
4、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
5、.CabinetId as “档案柜号”，Filescabinet.cbname as “档案柜”+FilesContent.Ftime as “建档日期”，FilesContent.Content.Remarks as “备注”FROM+FilesContent,FilesCategory, FilesCategory,FilesCabinet where filescontent.category16华 中 科 技 大 学 硕 士 学 位 论 文id=filescategory.categoryid+and filescabinet.cabinetid=filescontent.cabin
6、etid=filescontent.cabinetid and filescategory.cgname=”%s”管理人员在学生档案信息列表中选择了目标档案信息后，如果选择的操作类型是”修改”时，编辑栏中就会显示该档案的详细信息。管理人员修改完毕后，单击”确定”按钮即可完成对该档案信息的修改。如果将操作类型设为” 添加 ”时，管理人员可填写新的档案信息，然后单击 ”确定”按钮，系统就会在当前所选择的档案类别下录入的该档案信息。为实现上述功能，添加” 确定 ”按钮的 OnClick 事件响应。代码如下：Procedure TfGBset.EokClick(Sender:TObject)begin
7、 if Edittype.ItemIndex=0 then/修改按钮被选中begin /ExecSql 是在界面中定义的一个 ADOQuery 组件with fdm.ExecSql dobegin 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 beginwith fdm.ExecSql dobegin 17华 中 科 技
8、大 学 硕 士 学 位 论 文close;Sql.clear;Sql.Add(Format(InsertSql,DBEdit1.text,DBEdit2.text,Trim(dangtype.text),DaGui.text,DBEdit4.text,DBMemo1.text,DaStatus.text,DBEdit5.text); ExecSql;end;with fdm.DaEdit do/刷新界面beginclose;Sql.Clear;Sql.Add(Format(GetDa,Trim(dangtype.Text);open;end; end; end;另外，如果管理人员在”修改” 状
9、态下，单击”删除”按钮时，即可对当前所选定的当按信息进行删除操作。添加”删除” 按钮的 OnClick 事件响应。代码如下：Procedure TfGBset.EdeleClick(Sender:TObject);begin if MessageDlg(确定要删除该档案么？,mtCustom,mbYes,mbNo,0)=mrYes thenbeginwith fdm.ExecSql dobegin close;18华 中 科 技 大 学 硕 士 学 位 论 文Sql.Clear;Sql.Add(Format(DeleteSql,DBEdit.text);ExecSql;End;with fdm
10、.DaEditdo/刷新begin close;Sql.Clear;Sql.Add(select * from view_FilesContent);Open; end;end;end;4.3 数据库访问的实现4.3.1 视图的创建在本系统中，为了便于浏览档案的基本信息、借用以及归还信息，我们创建了3 个视图，view_SFContent、view_SFBorrow 和 view_SFReturn.这三个视图的Transact-SQL 代码如下：（1）视图 view_SFContent 用于监视档案的基本信息CREATE VIEW dbo.view_SFContentASSELECT dbo.
11、FilesContent.Status AS 状态 dbo.FilesContent,FileId AS 档案编号，dbo.FilesContent.Fname AS 名称，dbo.FilesContent.contents AS 内容，dbo.FilesContent.CabinetId AS 档案柜号，dbo.FilesCabinet.Cbname AS 档案柜，dbo.FilesContent.Ftime AS 建档日期，dbo.FilesContent.Remarks 19华 中 科 技 大 学 硕 士 学 位 论 文AS 备注 From dbo.FilesContent INNER
12、JOIN dbo.FilesCabinet ON dbo.FilesContent.CabinetId=dbo.FilesCabinetId（2）视图 view_SFBorrow 用于显示档案的借用信息CREATE VIEW dbo.view_SFBorrowSELECT FilesBorrow.Status as “状态”,FileBorrow.FbId as “借用编号” ，FilesBorrow.FileId as “档案编号”，FilesContent.Fname as “档案名称”, FilesBorrow.Borrower as“借用人员”，FilesBorrow.Btime as
13、 “借用日期”，FilesBorrow.Remarks as 备注FROM FilesBorrow,FilesContentWHERE FilesBorrow.FileId=FilesContent.FileId（3）视图 view_SFReturn 用于显示档案的归还信息。CRETATE VIEW dbo.view_FreturnASSELECT dbo.FilesReturn.FrId AS 归还编号，dbo.FilesReturn.FileId AS 档案编号，dbo.FilesContent.Fname AS 档案名称 dbo.FileReturn.ReturnerAS 归还人,dbo
14、.FilesReturn.Rtime AS 归还时间，dbo.FilesReturn.Remarks AS 备注FORM dbo.FilesReturn INNER JOINdbo.FilesContent ON dbo.FilesReturn.FileId=dbo.FilesContent.FileId在程序中，我们可以使用者三个视图直接查询并显示多个表中的学生档案信息、己用及归还信息，例如视图 view_SFBorrow 和学生档案信息表 FilesContent 中的信息，从而大大的简化了程序设计 43。4.3.2 存储过程的创建在 本 系 统 运 行 过 程 中 ， 有 一 些 工 作
15、 需 要 经 常 进 行 ， 不 如 向 各 个 表 中 插 入 或 更 新学 生 档 案 的 基 本 信 息 、 档 案 借 用 及 归 还 信 息 等 操 作 。 为 了 提 过 系 统 的 运 行 效 率 ， 在Comment U31: 此处不适合引用，因为这是自己做的工作。一旦引用，就有抄袭之嫌了。20华 中 科 技 大 学 硕 士 学 位 论 文这 里 创 建 了 几 个 存 储 过 程 。 列 举 以 下 几 个 存 储 过 程 ， 它 们 的 Transact-SQL代 码 如下 ：（1） 存储过程 IsertFContent用于向学生档案信息表中添加记录。（2） 存储过程 In
16、sertFCategory用于向学生档案类别表中添加记录。（3） 存储过程 InsertBorrow用于向学生档案借用表中添加记录，并修改学生档案信息表中对应档案的状态。（4） 存储过程 UpdateFContent用于对学生档案信息表的记录进行更新。（ 5） 存 储 过 程 InsertFReturn用 于 向 学 生 档 案 归 还 表 FilesReturn添 加 记 录 ,并 修 改 档 案 信 息 表 FilesContent 及 学 生 档 案 借 用 表 FilesBorrow中 对 应 档 案 的 状 态 。（6） 存储过程 DeleteFReturn用于对学生档案归还表 Fi
17、lesReturn的记录进行删除,如果学生档案借用表 FilesBorrow中有相应档案的信息，则要修改学生档案信息表 FilesContent及学生档案借用表 FilesBorrow中对应档案的状态 44。（7） 存储过程 DeleteFBorrow用于对学生档案借用表 FilesBorrow的记录进行删除，并修改学生档案信息表 FilesContent对应档案的状态。在应用程序运行的过程中将调用这些存储过程，完成对学生档案基本信息、借用以及归还信息的插入、更新、删除等工作。4.3.3 数据库的连接1）创建数据源及工程项目在用程序代码实现调用数据库之前，我们首先应该在 Windows的 OD
18、BC数据源管理器中注册数据库 FilesglSys。本实例将在 Delphi7.0开发平台下进行系统开发，首先要创建该系统的工程文件 IDMS.dpr。具体步骤是：运行 Delphi7.0主程序，然后创建一个新的应用程序工程。然后单击保存，将工程命名为 IDMS,保存主窗口为 Main.pas。2）建立与数据库的连接在实现各个模块之前，首先需要建立与数据库 FilesglSys的连接。在该实例中，Comment U32: 实现部分的系统界面截图不要太多；选择几个能较全面反映系统功能、内容较丰富的界面即可。类似于系统登陆、身份认证这类简单界面最好不要截取，影响论文质量。21华 中 科 技 大 学
19、 硕 士 学 位 论 文我们采用注册表方式连接数据库。在菜单中，选择 File|New|Data Module 命令创建一个新的数据模块，命名为 dm,保存为 dm.pas。然后，在窗体中放置一个ADOConnection组件，设置其 Name属性为 ConDaLei，并添加它的BeforeConnection事件响应 45。代码如下：procdure Ffdm.ConDaLeiBeforeConnect(Sender:TObject);beginConDaLei.ConnectionString:=GetConnectStr;end;其中，函数 GetConnectStr（）用于获得连接字符
20、串，代码如下：Function GetConnectStr: Stringvar rt:boolean;rtStr:String;beginResult:=”;if ReadReg(LabelConnectReg,LabelConnectStr,rtStr)then Result:=rtStr;end;ReadReg()函数主要用于从注册表中获取连接字符串信息，具体代码不再给出。至此，数据库的设计和连接工作已经全部完成，接下来，我们将进行系统的界面设计及其代码实现。4.4 系统界面系统启动的最初为登陆界面，界面如图 4-1所示。22华 中 科 技 大 学 硕 士 学 位 论 文图 4-1 系统登陆界面下面再给出档案查询借阅部分的界面，见图 4-2 所示：图 4-2 档案查询界面
