软件工程综合性实验报告

1、软件工程学综合性实验报告项目名称：图书管理系统指导教师：方英兰组员：张士捷（039）徐 山（038）朱 宁（018）张 林（003）时间：2011年5月一、项目工作计划书。包括项目阶段划分、任务分解、时间和人员安排、阶段工作成果等。1、阶段划分A. 可行性分析：1天B. 需求分析：1天；C. 软件设计(概要设计和详细设计)：3天；D. 数据库建立：2天；E. 单元测试：1天;F. 集成测试：1天;G. 验收测试:1天2、任务的分解和人员分工 任务姓名开发时间计划开始时间可行性分析张士捷1天2011.05.15需求分析张士捷1天2011.05.16软件设计徐山3天2011.05.17数据库建立朱

2、宁2天2011.05.20单元测试张林   1天2011.05.22集成测试张林1天2011.05.23验收测试:张士捷1天2011.05.243、进度和完成的最后期限项目启动时间：2011-5-15项目交付时间：2011-5-24 进度：包括可行性分析、需求分析、软件概要设计、软件详细设计、编码、测试、安装、转换、确认、培训等阶段活动和任务的进度安排，具体安排见“PERT网络图”和“进度计划表”。4、“图书管理系统”进度计划表“图书管理系统”进度计划表活动编号活动任务名称开始时间结束时间持续时间（天）参加人员预算经费其它资源A可行性分析2011.05.152011.05.

3、151张士捷 B需求分析2011.05.162011.05.161张士捷C软件设计2011.05.172011.05.193徐山D数据库建立2011.05.202011.05.212朱宁E单元测试2011.05.222011.05.221张林   F集成测试2011.05.232011.05.231张林G验收测试:2011.05.242011.05.241张士捷二、系统流程图和软硬件设备清单表。u 硬件环境： (1) 处理器（CPU）：1G以上 (2) 内存容量（RAM）：512M以上u 软件环境 (1) 操作系统：Microsoft Windows 2000或以上(2)

4、数据库管理系统：Microsoft Office Access三、细化的数据流程图和图解说明。图书管理系统细化数据流程图四、系统的数据字典。元素编号名称类型说明IPO1查询处理读者查询本人借还书记录，图书信息IPO2更新处罚规则处理处罚规则维护IPO3处罚处理根据处罚规则给以处罚，登记处罚款信息IPO4借书处理处理按读者号，图书号进行借书IPO5有效性检查处理检查读者号，图书号的有效性IPO6图书管理处理图书的添加，修改，删除IPO7还书处理根据书号还书处理DS1读者记录数据存储保存读者基本信息DS2图书信息记录数据存储保存图书基本信息DS3借还书记录数据存储保存借还书信息DS4处罚记录数据存

5、储保存罚款信息DS5处罚规则数据存储记录处罚规则五、IPO图(至少三个处理过程)。IPO图编号：IPO2 名称：更新处罚规则输入处理说明输出罚款金额/天1，修改罚款金额/天修改DS5处罚规则备注：编号：IPO3 名称：处罚输入处理说明输出（根据系统时间自动计算）1，创建处罚记录插入处罚记录到DS4备注：编号：IPO4 名称：借书处理输入处理说明输出读者编号图书编号1，输入读者编号和图书编号2，创建结束记录，修改图书在库量修改DS2的在库图书量插入借书记录到DS3备注：六、系统的ER图。E-R图七、需求说明规格说明书。7.1详细需求在图书管理系统中，管理员要为每个读者建立借阅账户，并給读者发放不

6、同类别的借阅卡（借阅卡可提供卡号、读者姓名），账户内存储读者的个人信息和借阅记录信息。持有借阅卡的读者可以通过管理员（作为读者的代理人与系统交互）借阅、归还图书，不同类别的读者可借阅图书的范围、数量和期限不同，可通过互联网或图书馆内查询终端查询图书信息和个人借阅情况，以及续借图书（系统审核符合续借条件）。借阅图书时，先输入读者的借阅卡号，系统验证借阅卡的有效性和读者是否可继续借阅图书，无效则提示其原因，有效则显示读者的基本信息，供管理员人工核对。然后输入要借阅的书号，系统查阅图书信息数据库，显示图书的基本信息，供管理员人工核对。最后提交借阅请求，若被系统接受则存储借阅纪录，并修改可借阅图书的数

7、量。归还图书时，输入读者借阅卡号和图书号（或丢失标记号），系统验证是否有此借阅纪录以及是否超期借阅，无则提示，有则显示读者和图书的基本信息供管理员人工审核。如果有超期借阅情况，先转入过期罚款处理。图书管理员定期或不定期对图书信息进行入库、修改、删除等图书信息管理以及注销（不外借），包括图书类别和出版社管理。为系统维护人员提供权限管理、数据备份等通用功能。7.2性能需求由于此开发项目针对图书馆，使用频度较高，使用性要求比较高。为防止对信息资料和管理程序的恶意破坏，要求有较为可靠的安全性能。总之，要求稳定、安全、便捷，易于管理和操作。² 查询速度：不超过10秒；² 其它所有交互

8、功能反应速度：不超过3秒；² 可靠性：平均故障间隔时间不低于200小时。7.3 其他需求能快速恢复系统和故障处理，方便系统升级和扩充，故障恢复时间不超过5小时。八、设计工作计划书。包括任务分解、时间和人员安排、阶段工作成果等。任务的分解和人员分工 任务姓名开发时间计划开始时间可行性分析张士捷1天2011.05.15需求分析张士捷1天2011.05.16软件设计徐山3天2011.05.17数据库建立朱宁2天2011.05.20单元测试张林   1天2011.05.22集成测试张林1天2011.05.23验收测试:张士捷1天2011.05.24“图书管理系统”进度表活

9、动编号活动任务名称开始时间结束时间持续时间（天）参加人员阶段工作成果A可行性分析2011.05.152011.05.151张士捷完成可行性分析B需求分析2011.05.162011.05.161张士捷完成需求分析C软件设计2011.05.172011.05.193徐山完成软件设计D数据库建立2011.05.202011.05.212朱宁完成数据库建立E单元测试2011.05.222011.05.221张林   完成单元测试F集成测试2011.05.232011.05.231张林完成集成测试G验收测试:2011.05.242011.05.241张士捷完成验收测试:九、对分析的

10、补充说明（如果有的话），对分析的评分。我小组对分析的总体评分为：80分十、设计规格说明书（包括概要设计说明书和详细设计说明书）（一）概要设计说明书1、引言编写目的由前面的需求分析，得出了系统的基本需求，和基本的数据流图，要实现整个系统，需要对用户的需求进行设计，概要设计主要是利用比较抽象的语言对整个需求进行概括，确定对系统的物理配置，确定整个系统的处理流程和系统的数据结构，接口设计，实现对系统的初步设计。项目背景根据XX学校希望能够充分利用现代科技来提高图书管理的效率，在原有的办公系统基础上进行扩展，将一些可以用计算机来管理的都进行计算机化，使得图书馆管理人员工作更加方便，工作效率也更加的高。

11、定义ACCESS：数据库管理软件DBMS：数据库管理系统Windows 2000/2003/XP：运行环境VB ：软件开发语言目标通过该系统的实施，将图书馆管理等方面通过系统来实施，其中包括对学生借还读书信息，员工信息，以及读书信息等等，使得图书馆借还等管理业务和查询业务运转周期缩短，来提高学校图书馆运转效率。运行环境数据库管理系统软件：ACCESS运行平台：Windows XP/Windows 2000/Windows 2003.分辨率：最佳效果1024x768像素需求概述按照需求分析文档中的规格要求，使用条形码扫描器进书、借书、还书，使得信息传递准确、流畅。同时，系统最大限度地实现易安装，

12、易维护性，易操作性，运行稳定，安全可靠。条件与限制无2、总体设计数据流程及处理功能分配针对图书管理系统，可分为4大模块，分别管理系统管理子系统，图书管理子系统，借书子系统，查询子系统。3、接口设计外部接口1， 用户接口：采用窗口化，菜单式进行设计，在操作时响应热键。2， 硬件接口：一卡通，扫描仪器3， 软件接口/通过ADO对数据库的连接内部接口通过面向对象语言设计,模块间实现严格封装；4、数据库设计逻辑结构设计物理结构设计略（详见12数据库设计）5、运行设计运行模块的组合本程序主要是以一个窗口为模块，一般一个窗口完成一个特定的功能，主窗口通过打开另一个子窗口来实现个模块之间不同功能的连接和组合

13、。各模块之间相对独立，程序的可移植性好。各模块之间主要以传递数据项的引用来实现模块之间的合作和数据共享。运行控制只要符合操作说明书，用户可自由控制运行时间由用户决定6、出错处理设计出错输出信息本程序多处采用了异常处理的机制，当遇到异常时不但能及时的处理，保证程序的安全性和稳定性，而且各种出错信息能通过弹出对话框的形式，及时的告诉用户出错的原因及解决的办法，使用户以后能够减少错误的发生。程序的大部分地方还采取了出错保护，如输入内容的长度和类型等减少了用户出错的可能。出错处理对策我们对于本程序的几种可能的错误进行了分析，分别进行了不同的处理。主要的错误可能有：输入错误：这主要是用户输入不规范造成的

14、，我们在尽量减少用户出错的条件的情况下，主要也是通过对话框，提醒用户，然后再次操作。其他操作错误：对于用户的不正当操作，有可能使程序发生错误。我们主要是中止操作，并提醒用户中止的原因和操作的规范。其他不可预知的错误：程序也会有一些我们无法预知或没考虑完全的错误，我们对此不可能作出万全的异常处理，这时我们主要要保证数据的安全，所以要经常的进行数据库备份，并能及时的和我们联系，以逐步的完善我们的程序。（二）详细设计说明书1、引言略2、总体设计2.1需求概述略（详见 7 需求规格说明）2.1软件结构略3、程序描述3.1系统管理模块略3.2图书管理模块略3.3借还书模块略3.4查询模块。略3.5接口设

15、计略3.6测试要点系统登录测试信息检索功能测试十一、系统软件结构图。十二、数据库设计（包括表名、字段名、字段类型、字段大小、字段说明）基本设置表（basicSet）字段类型长度格式约束采集方式借出册数数字20主键，必须输入人工采集罚款数字50必须输入人工采集图书信息表(bookInfo)字段类型长度格式约束采集方式书籍编号文本20主键，必须输入图书名称文本50必须输入人工采集类别代号文本20必须输入人工采集出版社文本20人工采集作者姓名文本20人工采集书籍价格数字20人工采集书籍页码文本20人工采集登记日期时间/日期自动采集是否借出是/否1自动采集图书种类（bookType）字段类型长度格式约

16、束采集方式类别代码文本20主键，必须输入书籍类别文本20必须输入人工采集借出天数数字20必须输入自动采集借阅信息表（lentInfo）字段类型长度格式约束采集方式读者编号文本20主键，必须输入人工采集书籍编号文本20主键，必须输入人工采集借书日期日期/时间自动采集还书日期日期/时间自动采集超出天数数字20自动采集罚款金额数字20自动采集登录信息表字段类型长度格式约束采集方式ID自动编号20主键，必须输入人工采集名称文本20必须输入人工采集密码文本20必须输入人工采集书库管理是/否1人工采集读者管理是/否1人工采集图书管理是/否1人工采集基本管理是/否1人工采集读者信息表（rederInfo）字

17、段类型长度格式约束采集方式读者编号文本20主键，必须输入人工采集读者姓名文本20人工采集读者性别文本2男/女人工采集办证日期日期/时间人工采集联系电话文本20人工采集工作单位文本20人工采集家庭住址文本20人工采集十三、3个模块的详细设计说明（以程序流程图+文字说明）。还书数据流程图借书数据流程图 图书管理书籍流程图十四、5个模块的界面设计（可以用高级编程语言环境或其他任何工具设计）。十五、系统主要功能的源代码（包括注释）-（考核方式：提交文档）主程序代码：Private Sub chkQuery_Click()If chkQuery.Value = 1 Then txtQueryBookID

18、.Enabled = TrueElse txtQueryBookID.Enabled = FalseEnd IfEnd SubPrivate Sub cmdLendBook_Click()If txtReaderID.Text <> "" Then If lblRemain.Caption <> "0" Then '判断是否已经借满 Set g_rs = g_db.OpenRecordset("lentInfo", dbOpenTable) With g_rs .AddNew .Fields("

19、;读者编号") = txtReaderID.Text .Fields("书籍编号") = txtBookID.Text .Fields("借书日期") = dtpLendDate.Value .Update End With Set g_rs = Nothing '更新bookInfo表,设置该书是否借出属性为"借出" g_strSql = "select * from bookInfo where 书籍编号='" & txtBookID.Text & "'

20、;" Set g_rs = g_db.OpenRecordset(g_strSql) g_rs.Edit g_rs.Fields("是否借出").Value = True g_rs.Update Set g_rs = Nothing MsgBox "借出完毕!", vbOKOnly, "提示" txtBookID.Text = "" txtBookName.Text = "" txtBookPrice.Text = "" txtBookLeibie.Text = &

21、quot;" txtBookConcern.Text = "" txtBookPage.Text = "" InitDataGrid (False) Else MsgBox "您的书已经借满,不能再借!", vbOKOnly, "提示" End IfElse MsgBox "请先输入读者编号!", vbOKOnly, "提示"End IfEnd SubPrivate Sub cmdOK_Click() g_strSql = "select * from l

22、entInfo where 书籍编号='" & txtBookIDRenew.Text & "' and 读者编号='" & txtReaderIDRenew.Text & "' and 借书日期=#" & txtLendDate.Text & "#" Set g_rs = g_db.OpenRecordset(g_strSql) g_rs.Edit g_rs.Fields("借书日期").Value = dtpLendDat

23、eChange.Value g_rs.Update Set g_rs = Nothing Adodc1.Recordset.Update MsgBox "续借完毕!", vbOKOnly, "提示"End SubPrivate Sub cmdReturn_Click() g_strSql = "select * from lentInfo where 书籍编号='" & txtBookIDReturn.Text & "' and 读者编号='" & txtReadID

24、Return.Text & "' and 借书日期=#" & txtLendDateReturn.Text & "#" Set g_rs = g_db.OpenRecordset(g_strSql) g_rs.Edit g_rs.Fields("还书日期").Value = txtReturnDate.Text g_rs.Fields("超出天数").Value = txtDayCount.Text g_rs.Fields("罚款金额").Value = txtF

25、akuan.Text g_rs.Update Set g_rs = Nothing g_strSql = "select * from bookInfo where 书籍编号='" & txtBookIDReturn.Text & "'" Set g_rs = g_db.OpenRecordset(g_strSql) g_rs.Edit g_rs.Fields("是否借出").Value = False g_rs.Update Set g_rs = Nothing txtBookIDReturn.Tex

26、t = "" txtBookNameReturn.Text = "" txtBookPriceReturn.Text = "" txtBookLeibieReturn.Text = "" txtBookPageReturn.Text = "" txtReadIDReturn.Text = "" txtReaderNameReturn.Text = "" txtLendDateReturn.Text = "" txtDay.Text =

27、"" txtReturnDate.Text = "" txtFactDay.Text = "" txtDayCount.Text = "" cmdReturn.Enabled = False MsgBox "归还完毕!", vbOKOnly, "提示"End SubPrivate Sub Form_Load()dtpLendDate.Value = DatedtpLendDateChange.Value = Date Set g_ws = DBEngine.Workspace

28、s(0) Set g_db = g_ws.OpenDatabase(App.Path + "图书馆查询管理系统.mdb")End SubPrivate Sub Form_Unload(Cancel As Integer) g_db.Close Set g_db = Nothing g_ws.Close Set g_ws = Nothing EndEnd SubPrivate Sub mnuBookManage_Click()FrmBookManage.ShowEnd SubPrivate Sub mnuBookQuery_Click()FrmBookQuery.ShowEn

29、d SubPrivate Sub mnuLendQuery_Click()FrmLendQuery.ShowEnd SubPrivate Sub mnuSetBasic_Click()FrmSetBasic.ShowEnd SubPrivate Sub mnuSetBook_Click()FrmSetBook.ShowEnd SubPrivate Sub SSTab1_DblClick()End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)'根据点击工具栏按钮的caption属性值进行不同

30、的操作Select Case Button.Caption Case "书库管理" FrmBookManage.Show Case "新书" FrmAddnew.Show Case "借阅列表" FrmLendList.Show Case "书库查询" FrmBookQuery.Show Case "图书类别" FrmSetBook.Show Case "退出" Call Form_Unload(0)End SelectEnd SubPrivate Sub txtBookID

31、_KeyPress(KeyAscii As Integer)'判断用户按下回车键并且是否输入读者编号和书籍编号If KeyAscii = "13" And txtReaderID.Text <> "" And txtBookID.Text <> "" Then g_strSql = "select bookInfo.书籍名称,bookInfo.书籍价格,bookInfo.出版社,bookInfo.书籍页码," _ & "bookInfo.是否借出,bookType.

32、书籍类别 from bookInfo,bookType where 书籍编号='" & txtBookID.Text & "'" _ & " and bookInfo.类别代码=bookType.类别代码" Set g_rs = g_db.OpenRecordset(g_strSql) If Not g_rs.EOF Then txtBookName.Text = g_rs!书籍名称 txtBookPrice.Text = g_rs!书籍价格 txtBookLeibie.Text = g_rs!书籍类别

33、txtBookConcern.Text = g_rs!出版社 txtBookPage.Text = g_rs!书籍页码 If g_rs!是否借出 = True Then MsgBox "该书已经借出,请选择其它图书!", vbOKOnly, "提示" cmdLendBook.Enabled = False Else cmdLendBook.Enabled = True End If Else MsgBox "没有该书信息!", vbOKOnly, "提示" txtBookName.Text = "&quo

34、t; txtBookPrice.Text = "" txtBookLeibie.Text = "" txtBookConcern.Text = "" txtBookPage.Text = "" End If Set g_rs = Nothing ElseIf KeyAscii = "13" And txtReaderID.Text = "" Then MsgBox "请先输入读者编号", vbOKOnly, "提示"ElseIf Key

35、Ascii = "13" And txtReaderID.Text <> "" And txtBookID.Text = "" Then MsgBox "请先输入书籍编号", vbOKOnly, "提示"End IfEnd SubPrivate Sub txtBookIDReturn_KeyPress(KeyAscii As Integer)Dim strSQL As String'判断用户按下回车键并且是否输入读者编号和书籍编号 If KeyAscii = "13

36、" And txtBookIDReturn.Text <> "" Then strSQL = "select lentInfo.读者编号,readerInfo.读者姓名,lentInfo.书籍编号,bookInfo.书籍价格," _ & " bookInfo.书籍名称,bookInfo.书籍页码,lentInfo.借书日期,bookType.书籍类别,bookType.借出天数" _ & " from readerInfo,bookInfo,lentInfo,bookType where

37、 readerInfo.读者编号=lentInfo.读者编号" _ & " and bookInfo.书籍编号=lentInfo.书籍编号 and bookInfo.书籍编号='" & txtBookIDReturn.Text & "'" _ & " and bookInfo.类别代码=bookType.类别代码" g_strSql = strSQL Set g_rs = g_db.OpenRecordset(g_strSql) If Not g_rs.EOF Then cmd

38、LendBook.Enabled = True txtBookNameReturn.Text = g_rs!书籍名称 txtBookPriceReturn.Text = g_rs!书籍价格 txtBookLeibieReturn.Text = g_rs!书籍类别 txtBookPageReturn.Text = g_rs!书籍页码 txtReadIDReturn.Text = g_rs!读者编号 txtReaderNameReturn.Text = g_rs!读者姓名 txtLendDateReturn.Text = g_rs!借书日期 txtDay.Text = g_rs!借出天数 txtR

39、eturnDate.Text = Date txtFactDay.Text = CStr(Date - g_rs!借书日期) If CInt(txtFactDay.Text) - CInt(txtDay.Text) > 0 Then txtDayCount.Text = CStr(CInt(txtFactDay.Text) - CInt(txtReturnDate.Text) Else txtDayCount.Text = "0" End If Set g_rs = Nothing g_strSql = strSQL Set g_rs = g_db.OpenRecor

40、dset("select * from basicSet") txtFakuan.Text = g_rs!罚款 * CInt(txtDayCount.Text) Set g_rs = Nothing cmdReturn.Enabled = True Else Set g_rs = Nothing MsgBox "没有该书信息!", vbOKOnly, "提示" txtBookNameReturn.Text = "" txtBookPriceReturn.Text = "" txtBookLeib

41、ieReturn.Text = "" txtBookPageReturn.Text = "" txtReadIDReturn.Text = "" txtReaderNameReturn.Text = "" txtLendDateReturn.Text = "" txtDay.Text = "" txtReturnDate.Text = "" txtFactDay.Text = "" txtDayCount.Text = "&q

42、uot; cmdReturn.Enabled = False End If ElseIf KeyAscii = "13" And txtBookIDReturn.Text = "" Then MsgBox "请先输入书籍编号", vbOKOnly, "提示"End IfEnd SubPrivate Sub txtReaderID_KeyPress(KeyAscii As Integer)'判断用户按下回车键并且是否输入读者编号If KeyAscii = "13" And txtReade

43、rID.Text <> "" Then '根据输入的读者编号,查找读者姓名 g_strSql = "select * from readerInfo where 读者编号='" & txtReaderID.Text & "'" Set g_rs = g_db.OpenRecordset(g_strSql) '进行数据库的查询 '判断是否找到 If Not g_rs.EOF Then txtReaderName.Text = g_rs!读者姓名 InitDataGrid

44、 (False) '初始化DataGrid控件信息 Else MsgBox "没有该读者信息!", vbOKOnly, "提示" txtReaderName.Text = "" End If Set g_rs = NothingElseIf KeyAscii = "13" And txtReaderID.Text = "" Then MsgBox "请先输入读者编号", vbOKOnly, "提示"End IfEnd SubPublic Funct

45、ion InitDataGrid(blnRenew As Boolean) '初始化DataGrid控件信息,其中得参数用来区分是正常借书页面还是续借页面Dim strDataSource As StringDim intCount As IntegerDim strReaderID As StringIf blnRenew = False Then strReaderID = txtReaderID.TextElse strReaderID = txtReaderIDRenew.TextEnd IfstrDataSource = "select lentInfo.读者编号,

46、readerInfo.读者姓名,lentInfo.书籍编号," _ & " bookInfo.书籍名称,bookType.书籍类别,bookInfo.出版社,bookInfo.书籍页码,lentInfo.借书日期," _ & " lentInfo.还书日期,lentInfo.超出天数,lentInfo.罚款金额 from readerInfo,bookInfo,lentInfo,bookType " _ & " where readerInfo.读者编号=lentInfo.读者编号 and bookInfo.书

47、籍编号=lentInfo.书籍编号 and " _ & " lentInfo.读者编号='" & strReaderID & "' and bookType.类别代码=bookInfo.类别代码 and lentInfo.还书日期 is null"Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "图书馆查询管理系统.mdb;Persis

48、t Security Info=False"Adodc1.CursorLocation = adUseClientAdodc1.CommandType = adCmdTextAdodc1.RecordSource = strDataSourceAdodc1.RefreshIf blnRenew = False Then '如果是正常借书进行如下操作 Set dtgrdLendBook.DataSource = Adodc1 dtgrdLendBook.Refresh '显示一共借了多少书 lblLendCount.Caption = "所借图书:"

49、 + CStr(Adodc1.Recordset.RecordCount) '显示还能够借多少书 g_strSql = "select * from basicSet" Set g_rs = g_db.OpenRecordset(g_strSql) intCount = g_rs!借出册数 - Adodc1.Recordset.RecordCount lblRemain.Caption = CStr(intCount)Else Set dtgrdLendBookRenew.DataSource = Adodc1 dtgrdLendBookRenew.RefreshEnd IfEnd FunctionPrivate Sub txtReaderIDRenew_KeyPress(KeyAscii As Integer)'判断用户按下回车键并且是否输入读者编号If KeyAscii = "13" And txtReaderIDRenew.Text <> "" Then '根据输入的读者编号,查找