数据库课程实践

1、Visual Foxpro 课程设计报告 设计名称：Visual Foxpro程序设计 -图书馆管理系统 系 （院）： 专业班级： 学 号： 姓 名： 指导老师： 时 间：130624-13075目 录1、课程设计任务书2、图书馆管理系统设计的目的及内容3、VFP课程设计说明书3.1系统概述 3.2系统总体设计 3.3数据库设计 3.4系统设计顺序图3.5系统的具体设计过程3.6调试运行退出4、实习心得数据库系统课程设计任务书设计题目：图书管理系统背景资料：1) 图书室有各种图书一万多册。2) 每种图书都有书名、书号（ISBN）、一名或多名作者、出版社、定价和内容简介。3) 借书证记录有借阅者

2、的姓名、所在单位、职业等。4) 凭借书证借书，每次最多能借8本书。借书期限最长为30天。设计要求：1) 进行需求分析，编写数据字典。2) 设计E-R图。3) 实现新进图书的数据录入。4) 实现对所有购进图书的分类查询和分类统计。5) 能够按书名、作者等分类查询现有图书的数量。6) 记录借阅者的个人资料和所借图书的书名、书号数据等。任务安排：1、每个学生选择一个题目，独立完成设计任务。2、提交完整的设计报告和源程序清单（以附录形式）。3、设计报告要求，设计报告按照以下提纲书写：1) 摘要。2) 需求分析。3) 数据库概念结构设计。4) 数据库逻辑结构设计。5) 数据流图及程序结构框图。6) 程序

3、原代码及其说明。7) 总结。图书馆管理系统设计的目的及内容 在现代化的图书馆工作中，信息量与日俱增，读者流量迅速增大，传统的手工管理方式已经不能适应现代图书馆工作的需要，因此，图书馆信息管理系统是现代图书馆服务工作中多急切需要和应用的一个管理系统。随着信息化管理系统的引入，图书馆工作的效率和服务质量将极大地提升，是传统手工管理工作所无法比拟的，而且可以极大地节约人力和物力，实现现代图书馆管理工作的规范化和制度化。图书馆管理人员功能的信息量大，数据安全性和保密性要求最高。本功能实现对图书信息、借阅者信息、总体借阅情况信息的管理和统计、工作人员和管理人员信息查看及维护。图书馆管理员可以浏览、查询、

4、添加、删除、修改、统计图书的基本信息；浏览、查询、统计、添加、删除和修改图书借阅者的基本信息，浏览、查询、统计图书馆的借阅信息。 建立目标系统的逻辑模型。分析目标系统与当前系统逻辑上的差别，明确目标系统到底要“做什么”，从而从当前系统的逻辑模型导出目标系统的逻辑模型。在对上述流程进行分析后，我们对新的图书处理流程进行整理，图书馆操作过程如下： （1）书籍信息管理书籍信息的输入，包括书籍编号、书籍名称、书籍类别、书籍作者、书籍价格、出版社等。 书籍信息的删除，包括书籍编号、书籍名称、书籍类别、书籍作者、出版社。 （2）读者信息管理读者基本信息的输入、修改、查询，包括读者编号、读者姓名、读者种类、

5、读者性别、地址、读者状况等。 读者借书信息的输出，包括读者编号、读者姓名、读者种类、读者性别、地址、读者状况等。 读者还书信息的输入，包括读者编号、读者姓名、书籍编号、书籍名称、借书日期、还书日期等。（4）借书过程读者从架上选到所需图书后，将图书和借书卡交管理人员，管理人员用码阅读器将图书信息读入处理系统。系统根据读者ID从读者文件和借阅文件中找到相应记录；根据图书上的编号从图书文件中找到相应记录。系统在借阅文件表中增加一条记录，记入读者码、图书条码、借阅日期等内容。 （5）还书过程 还书时读者只要将书交给管理人员，管理员将书上的图书ID录入系统，系统从借阅文件上找到相应记录，填上还书日期后写

6、入借阅历史文件，并从借阅文件上删去相应记录，同时系统对借还书日期进行计算并判断是否超期，若不超期则结束过程，若超期则计算出超期天数、罚款数。为了对图书管理系统做完整的描述，还需要对上面得到的逻辑模型做一些补充首先采用图形的方式描述图书管理系统的用户界面，这样做的目的是保证整个系统的用户界面的一致性，同时也有助于后续的开发人员更好地理解系统需要实现的功能其次，说明图书管理系统的一些特珠性能要求。如借书、还书服务花费的时间一次不得大于分钟等。课程设计说明书图书馆管理系统1. 系统概述随着我国高等教育的迅速发展,学校规模不断扩大,图书馆在正常运营中总是面对大量的读者信息，书籍信息，图书管理员信息以及

7、这三者相互作用产生的借书信息，还书信息，工作人员信息。因此需要对读者资源，书籍资源，员工资源进行管理，利用计算机实现自动化控制，将会大大减轻图书管理工作。本系统就是面向管理员和普通读者多用户系统。它能够实现图书信馆管理的基本功能，包括用户登陆、读者信息，图书信息，管理员信息的查询、图书借阅排行榜、查看逾期图书以及各种信息的打印等操作。图书管理员必须合法注册及输入有效密码才能成功进入此系统，可以进行数据查询，数据修改、添加、删除，打印报表等操作。对于非法操作，系统有识别和防护措施。1.1 系统组成 本系统由1个数据库、1个主个程序、8个菜单、 9个表单和4个表组成。 数据库组成：数据库表4个：“

8、bookstab”数据表：保存所有的图书数据；“readertab”数据表：保存所有的读者数据“borrtab”数据表：保存图书流通的所有数据“usertab”数据表：保存系统用户的数据 查询组成：读者信息查询、图书信息查询 、借书登记查询表单组成：登录界面（login）、主界面（main）、加载界面（frmcover）、操作员管理界面（frmuser）、读者管理界面（frmreaderadd）、综合查询界面（frmquery）、图书管理界面（bookmanage）、图书借阅界面（frmborrowtab）、图书归还界面（frmbookreversion）。菜单组成：操作员管理、读者管理、综合

9、查询、图书类型管理、图书管理、图书借阅、图书归还和退出系统程序组成：主程序main1.2系统功能 本系统面向管理员的主要功能分别通过表单中的以下各项来实现： 通过初始化表单实现数据表的初始化， 通过读者管理表单实现读者各种信息的分类查询，添加，修改，删除打印，编辑，返回主表单。 通过图书管理表单实现图书各种信息的分类查询，添加，修改，删除，打印，编辑，返回主表单 。 通过管理员管理表单实现管理员各种信息的分类查询，添加，修改，删除，打印，编辑，返回主表单。 通过借阅管理表单实现学生的借书，还书，查看逾期图书，查看图书借阅排行，打印排行榜，返回主表单。 通过日常生活管理表单实现图书馆开放时间查询

10、，返回主表单。本系统面向普通读者的主要功能分别通过菜单中的以下各项来实现： 通过信息查询实现图书信息，借阅信息，图书馆管理及其相关信息的 通过设备报表打印菜单各种信息的打印输出 通过借书还书实现书籍管理 通过退出菜单实现系统的退出1.3系统预览登录界面系统主界面.系统总体设计. 系统设计思想2.2 系统功能模块划分 根据系统调查阶段的数据资料，并依据用户的要求，确定该图书馆的基本功能和工作过程。 根据响应的功能要求，我们绘制系统的功能分析图如图所示：图书馆管理系统管理员登录图书借阅图书管理图书归还退出系统综合查询读者注册管理注册3.数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库

11、结构设计的好坏直接对应用系统的效率，以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库时应该首先充分了解用户各个方面的需求，包括现有的及将来可能增加的需求。数据库设计一般包括如下几个步骤。（1）数据库需要分析（2）数据库概念结构设计（3）数据库逻辑结构设计3.1数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入。收集基本数据、数据结构，以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。通过上述系统功能分析，针对一般图书馆管理信息系统的需求，总结出如下需求信息。（1）

12、读者信息数据：包括读者各方面的信息数据（2）图书信息数据：包括图书类别，出版社，编号等信息数据（3）登陆人员信息数据：包括图书馆管理员、使用者信息数据。（4）借阅信息数据：包括借阅过程所涉及的读者和图书数据。在上面的需求分析、数据结构设计、数据项分析的基础 上，下面可以开始数据库概念结构设计了。3.2数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。各个实体具体的描述E-R图如下。3.3数据库逻辑结构设计 数据库的概念结构设计完毕后，现在可以将上

13、面的数据库概念结构转化为某种数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。 图书馆管理系统中使用的各个数据表的字段设置如下所示。图书资料数据表字 段 名 数 据 类 型 索引字段大小图书编号字符型主索引10图书名称字符型20作者字符型50图书类型 字符型16出版社 字符型20简介 字符型4价格 货币型8入馆日期日期型8图书状态字符型4目前持书人字符型10借阅表信息数据表字 段 名数 据 类 型索引字段大小图书编号字符型 主索引10读者编号字符型10图书名称字符型2借书日期日期型8归还日期日期型8图书类型字符型16经办人字符型8读者信息数据表字 段 名数 据 类 型索引读者编号字符型主

14、索引10读者名称字符型普通索引10年级字符型普通索引10班级字符型10专业字符型10性别字符型4类别字符型6注册日期字符型10可借本数数值型2经办人字符型10管理员信息数据表字段名数据类型索引用户名字符型主索引20密码字符型203.4 数据库具体内容 本系统由1个数据库、4个数据库表、9个表单、一个主程序以及一个菜单、若干图片等内容组成。 具体内容：（1）表单9个：登陆、读者信息查询、图书资料查询、借书登记查询、还书、管理表单、身份验证、信息查询、新书入库（3）主程序：mian.prg代码： *main.prg*系统环境设置*CLEARCLEAR ALL Close allset talk o

15、ff &关闭命令显示set dele on set safe off Set exact onSet default to *启动主表单，执行登录表单，进入事件循环do form frmcoverread events（4）菜单组成：系统维护、借还操作、资料查询、数据管理、报表打印、退出系统子菜单：初始化、数据备份、数据恢复、清空数据、密码设置4、系统的具体设计过程：4.1数据库的设计：建立数据库表：1) 数据库表2) 管理员用户信息表3) 读者信息表4) 图书借阅表5) 图书信息表4.2 表单设计以及代码输入：a. 登陆组成：标签1图书馆管理系统按钮登陆按钮退出按钮重填代码如下：程序代码登陆

16、if len(alltrim(thisform.text2.value)=0 or len(alltrim(thisform.text2.value)=0 then messagebox(请输入完整登录信息,48,提示信息) returnendif close all use usertablocate for allt(thisform.Text1.value)=allt(用户名) if found() if allt(thisform.Text2.value)=allt(密码)messagebox(登陆成功！,0+64,恭喜)delete from usertab where 用户名=al

17、lt(thisform.text1.value)do form frmcoverthisform.release elsemessagebox(密码错误！请检查后重新输入！,0+64,错误)thisform.Text2.value=thisform.Text2.setfocus endifelse messagebox(该用户不存在，请检查您的用户名！,0+64,错误)endif退出thisform.release重填Thisform.text1.value=Thisform.text.value=b. 主页面main表单caption代码按钮1操作员管理do form frmuser按钮2读

18、者管理do form frmreaderadd按钮3综合查询do form frmquery按钮4图书管理do form bookmanage按钮5图书借阅do form frmborrowtab按钮6图书归还Do form frmquery按钮7退出系统Thisform.releasec. 图书借阅表单控件caption属性事件或方法程序代码label图书编号label图书编号Text1keypressLPARAMETERS nKeyCode, nShiftAltCtrlText2keypressLPARAMETERS nKeyCode, nShiftAltCtrlCommand1借出cli

19、ckif len(alltrim(thisform.txtbookid.text)=0 or len(alltrim(thisform.txtusername.text)=0 then messagebox(输入信息不完整，请输入完整！,64,提示信息) returnendif&判断该读者是否超出可借本数dimension books(1)select 可借本数 from readertab where 读者编号=alltrim(thisform.txtusername.value) into array booksif books 0 then messagebox(该图书已借出,64,提示

20、信息) returnendifupdate bookstab set 图书状态=已借 where 图书编号=alltrim(thisform.txtbookid.text)&更新borrtab表数据&update borrtab set 图书名称=mingzi(1),图书类型=mingzi(2) where 读者编号=allt(thisform.txtusername.text) and 图书编号=allt(thisform.txtbookid.text)dimension chishuren(1)select 读者名称 from readertab where 读者编号=alltrim(th

21、isform.txtusername.text) into array chishurenupdate bookstab set 目前持书人=allt(chishuren(1) where 图书编号=alltrim(thisform.txtbookid.text)dimension mingzi(2)select 图书名称,图书类型 from bookstab where 图书状态=已借 and 图书编号=allt(thisform.txtbookid.text) into array mingzidimension ab(1)select 用户名 from usertab where del

22、eted() into array abinsert into borrtab(图书编号,图书名称,读者编号,借书日期,图书类型) values(alltrim(thisform.txtbookid.text),mingzi(1),alltrim(thisform.txtusername.text),date(),mingzi(2)thisform.grdborrtab.refreshmessagebox(借书成功,48,提示信息)update readertab set 可借本数=可借本数-1 where 读者编号=alltrim(thisform.txtusername.text)& 可借

23、本数调整 local linshi select * from bookstab where 图书状态=未借 into cursor linshigo topthisform.grdborrtab.recordsourcetype=0thisform.grdborrtab.recordsource=linshi thisform.grdborrtab.refreshCommand2退出clickthisform.released、图书归还控件caption属性事件或方法程序代码Label 图书编号Text1keypressLPARAMETERS nKeyCode, nShiftAltCtrlC

24、ommand1还书clickif len(alltrim(thisform.bookidtxt.text)=0 then messagebox(无效的图书编号！,48,提示信息) returnendifupdate bookstab set 图书状态=未借 where 图书编号=alltrim(thisform.bookidtxt.value)update bookstab set 目前持书人= where 图书编号=alltrim(thisform.bookidtxt.value) update borrtab set 归还日期=date() where empty(归还日期) and 图书

25、编号=alltrim(thisform.bookidtxt.value)dimension linshiid(1)select 读者编号 from borrtab where 图书编号=alltrim(thisform.bookidtxt.value) into array linshiidupdate readertab set 可借本数=可借本数+1 where 读者编号=allt(linshiid(1)messagebox(归还成功,64,提示信息)thisform.bookborrgrid.refreshthisform.bookidtxt.value= local linshi se

26、lect * from bookstab where 图书状态=已借 into cursor linshi go topthisform.bookborrgrid.recordsourcetype=0thisform.bookborrgrid.recordsource=linshi thisform.bookborrgrid.refreshthisform.bookidtxt.setfocus Command2退出clickthisform.releasee、综合查询控件caption属性事件或方法程序代码Label1查询Combol1Combol2Combol3Command1查询click

27、local tabtemp,comtmp&select * from bookstab where 图书状态=未借 into cursor tabtempcomtmp=alltrim(bo2.value)do casecase comtmp=未借图书select * from bookstab where 图书状态=未借 into cursor tabtemp case comtmp=已借图书 select * from borrtab where empty(归还日期) into cursor tabtemp otherwiseif len(alltrim(thisform.text1.va

28、lue)=0 then messagebox(请输入正确的编号,48,提示信息) return endifif comtmp=图书编号 then select 图书状态,图书编号,图书名称,图书类型,出版社,作者,价格 from bookstab where 图书编号= alltrim(thisform.text1.value) into cursor tabtempelse select 读者编号,图书编号,图书名称,借书日期,归还日期 from borrtab where 读者编号 =alltrim(thisform.text1.value) into cursor tabtempendi

29、fendcasego topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=tabtempthisform.grid1.refreshCommand2退出clickthisform.releasee、 图书管理控件caption属性事件或方法程序代码Text1Text2Text3Combol1图书入库clicklocal linshiselect * from bookstab into cursor linshigo topthisform.grid1.recordsourcetype=0thisform.grid1.

30、recordsource=linshithisform.grid1.refreshdimension j(9)if this.caption=图书入库 then this.caption=确定 mand3.enabled=.f.else j(1)=alltrim(thisform.txtbookid.value) j(2)=alltrim(thisform.txtbookname.value) j(3)=alltrim(booktypename.value) j(4)=alltrim(thisform.txtbookcon.value) j(5)=alltrim(thisform.edtbri

31、ef.value) j(6)=alltrim(thisform.txtauthor.value) j(7)=alltrim(thisform.txtprice.value) j(8)=date() j(9)=未借 if len(j(1)=0 or len(j(2)=0 or len(j(3)=0 or len(j(4)=0 or len(j(5)=0 or len(j(6)=0 or len(dtoc(j(8)=0 then messagebox(输入信息不完整！,提示信息) return endif close ALL select 1 use bookstab excl locate fo

32、r 图书编号=j(1) if !eof() thenmessagebox(该图书编号已经存在！,64,提示信息) return elseinsert into bookstab from array jmessagebox(图书添加成功,0+48,信息提示) this.caption=图书入库 mand3.enabled=.t. mand4.enabled=.t. thisform.init endif endif local linshi select * from bookstab into cursor linshi go top thisform.grid1.recordsourcet

33、ype=0 thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand1编辑信息clickclose data all dimension booktmp(7)if this.caption=编辑信息 then if len(alltrim(thisform.txtbookid.value)=0 thenmessagebox(输入要修改的图书编号,48,提示信息returnendifthis.caption=确定select * from bookstab where 图书编号 = alltrim(thisform.txtb

34、ookid.value) into array booktmp thisform.txtbookid.value=booktmp(1) thisform.txtbookname.value=booktmp(2)booktypename.value=booktmp(3) thisform.txtbookcon.value=booktmp(4) thisform.edtbrief.value=booktmp(5) thisform.txtauthor.value=booktmp(6) thisform.txtprice.value=booktmp(7)else this.caption=编辑信息

35、mand2.enabled=.t. mand4.enabled=.t. thisform.txtbookid.enabled=.t.booktmp(1)=allt(thisform.txtbookid.value)booktmp(2)=allt(thisform.txtbookname.value)booktmp(3)=allt(booktypename.value) booktmp(4)=thisform.txtbookcon.value booktmp(5)=thisform.edtbrief.value booktmp(6)=thisform.txtauthor.value booktm

36、p(7)=thisform.txtprice.value use select 2 use bookstab update bookstab set 图书名称=booktmp(2), 图书类型=booktmp(3),出版社=booktmp(4),简介=booktmp(5),作者=booktmp(6),价格=booktmp(7) where 图书编号=booktmp(1) use messagebox(图书信息更新成功,48,提示信息)endifclose data all local linshi select * from bookstab where 图书编号 = alltrim(this

37、form.txtbookid.value) into cursor linshi go topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand3删除信息clickclose database allif len(alltrim(thisform.txtbookid.value)=0 then messagebox(请输入要修改的图书编号,48,提示信息) thisform.txtbookid.setfocus returnendiflocal tmp

38、select * from bookstab where 图书编号 = alltrim(thisform.txtbookid.value) into cursor tmp if tmp.图书状态=已借 then messagebox(该图书已被借出，目前不能对其删除操作,64,提示信息) thisform.txtbookid.setfocus returnendifclose allselect 3use bookstab excldelete from bookstab where 图书编号= alltrim(thisform.txtbookid.value)packusemessagebo

39、x(删除成功！,64,提示信息)thisform.initthisform.txtbookid.setfocus local linshi select * from bookstab into cursor linshi go topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand4查询clickclose database allif len(alltrim(thisform.txtbookid.value)=0 then messagebox(

40、请输入要修改的图书编号,48,提示信息) thisform.txtbookid.setfocus returnendiflocal tmpselect * from bookstab where 图书编号 = alltrim(thisform.txtbookid.value) into cursor tmp if tmp.图书状态=已借 then messagebox(该图书已被借出，目前不能对其删除操作,64,提示信息) thisform.txtbookid.setfocus returnendifclose allselect 3use bookstab excldelete from b

41、ookstab where 图书编号= alltrim(thisform.txtbookid.value)packusemessagebox(删除成功！,64,提示信息)thisform.initthisform.txtbookid.setfocus local linshi select * from bookstab into cursor linshi go top thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand5退出clickThisfo

42、rm.realeaseGrid1recordsource1g、操作员管理控件caption属性事件或方法程序代码Command1添加clickdimension s(5)if this.caption=添加 then this.caption=确定 mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理员 thisform.txtregadmin.value=s(5)els

43、e s(1)=alltrim(thisform.txtusername.value) s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(输入信息不完整！) return endif insert into usertab from array s messagebox(用户注册成功,0+48,信

44、息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtusername.value= thisform.txtuserpwd.value= thisform.txtregadmin.value= thisform.grid1.refreshendifCommand2删除clickdimension s(5)if this.caption=添加 then this.caption=确定 mand2.enabled=.f. mand3.enabled=.f. mand4.enab

45、led=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理员 thisform.txtregadmin.value=s(5)else s(1)=alltrim(thisform.txtusername.value) s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(

46、1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(输入信息不完整！) return endif insert into usertab from array s messagebox(用户注册成功,0+48,信息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtusername.value= thisform.txtuserpwd.value= thisform.txtregadmin.value= thisform.grid

47、1.refreshendifCommand3修改clickdimension s(5)if this.caption=添加 then this.caption=确定 mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理员 thisform.txtregadmin.value=s(5)else s(1)=alltrim(thisform.txtusername.value)

48、 s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(输入信息不完整！) return endif insert into usertab from array s messagebox(用户注册成功,0+48,信息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtuser