vf课程设计 图书管理系统

1、visual foxpro 课程设计报告专 业： 珠宝学院珠宝设计专业班 级： 142091学 号： 20081000224姓 名： 熊玮题目名称： 图书管理系统 熊玮版完成日期： 2011年1月29日目 录 一、 前言 3二、 系统概况 3三、 需求分析 2四、 数据库设计 4五、 主程序清单 9六、 模块界面与代码 13七、 设计小结 63前 言长期以来，图书管理都是依赖人工进行的，面对如此众多的图书信息，其工作量可想而知，不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可控因素，造成了图书管理的某些不规范。在学校，尤其是在大中专院校，图书管理是学校的一项重要的数据资源，图书管理

2、也是学校的一项常规性的重要工作。随着社会的日益发展，尤其是科技的迅猛发展，计算机广泛地应用在生产生活的各个方面，不仅提高了工作效率，而且也降低了劳动强度，美化了我们的工作环境。在电子信息化时代，设计一款计算机图书管理系统尤为必要，它不仅能大大减轻图书馆工作人员的工作量，而且全面提高图书馆的管理效率及服务质量。我以Visual Foxpro 6.0为环境，开发了此应用软件，本系统适用于各类小型图书馆，以及各类大中专院校、中小学校的图书馆和资料室的现代化综合管理。系统概况一、 课题名称：图书管理系统 熊玮版二、设计环境：开发工具：Microsoft Visual FoxPro 6.0操作系统：Wi

3、ndows XP需求分析一、 系统功能分析图书管理系统的主要任务是对图书馆图书信息、读者个人信息、图书借阅归还信息的查询、统计、更新，并且能按一定要求输出报表。通过该系统，使图书管理工作系统化、规范化、自动化，从而提高图书管理的效率。二、 系统功能模块设计本系统分为如下的几大模块：1、主界面模块该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调。2、 图书管理模块该模块提供图书查询、修改、删除、入库功能界面。3、 读者管理模块该模块提供读者信息查询与注册功能界面。4、 读者借还书模块该模块提供读者借书、还书功能界面5、 打印显示模块该模块按一定格式将图书、读者、借阅信

4、息以报表格式输出。6、 其他模板提供设计作者介绍、程序升级说明和系统退出的界面。三、 数据流图数据库设计创建数据库是设计系统的第一步，其关键问题在于确定所需的表结构并为之建立索引。为了使系统设计精练实用，体现关系型数据库的特点，本系统还为各相关表建立关系。1、数据项设计通过需求分析，可确定系统的数据项和数据结构如下：a图书的基本信息（ISBN、书名、作者、出版社、单价、类别、购买日期、简介、借阅状态）b.所借图书的读者与图书信息（read编号、书名）c.读者的基本信息（编号、班级、姓名、学号、姓别、权限、头像）d.管理员信息（用户名、密码）2、 概念结构设计本系统在需求分析的基础上设计出能够满

5、足用户需求的各种实体。根据上面的分析所得的实体有：图书的基本信息实体（books）、所借图书的读者与图书信息实体（jieboos）、读者的基本信息实体（readpeople）。各实体间的关系如图：3、 逻辑结构设计图书的基本信息表（books.dbf）列名数据类型可否为空说明Isbn字符型（10）否图书isbn号码书名字符型（50）否书名作者字符型（10）否图书的作者出版社数值型（50）否图书的出版社单价数值型（10.2）否图书单价类别字符型（20）否图书类别购买日期日期型（10）否图书的购买日期简介字符型（200）否图书的简介借阅状态逻辑型（10）否图书的借阅状态所借图书的读者与图书信息表（

6、jieboos.dbf）列名数据类型可否为空说明Read编号字符型（10）否读者的编号书名字符型（50）否书名读者的基本信息表（readpeople.dbf）列名数据类型可否为空说明编号字符型（10）否读者的编号班级字符型（6）否读者所在班级姓名字符型（10）否读者姓名学号字符型（6）否读者学号姓别字符型（2）否读者性别权限数值型（1）否读者还能借书的本数头像通用型（4）否读者的个人头像管理员信息表（user1.dbf）列名数据类型可否为空说明用户名字符型（10）否管理员的用户名密码字符型（10）否管理员的密码主程序清单主程序代码如下：（主程序1.prg）set talk offmodify

7、window screen titl"图书管理系统 熊玮版"cleado FORM welcomedo form 登陆界面do form 改进说明read events主菜单代码如下：（主界面.MNT）SET SYSMENU TOSET SYSMENU AUTOMATICDEFINE PAD _34v1cqn46 OF _MSYSMENU PROMPT "图书管理(A)" COLOR SCHEME 3 ;KEY CTRL+A, "CTRL+A"DEFINE PAD _34v1cqn47 OF _MSYSMENU PROMPT &quo

8、t;读者管理(B)" COLOR SCHEME 3 ;KEY CTRL+B, "CTRL+B"DEFINE PAD _34v1cqn48 OF _MSYSMENU PROMPT "读者借还书(C)" COLOR SCHEME 3 ;KEY CTRL+C, "CTRL+C"DEFINE PAD _34v1cqn49 OF _MSYSMENU PROMPT "打印显示(D)" COLOR SCHEME 3 ;KEY CTRL+D, "CTRL+D"DEFINE PAD _34v1cqn4a

9、 OF _MSYSMENU PROMPT "关于熊玮(E)" COLOR SCHEME 3 ;KEY CTRL+E, "CTRL+E"DEFINE PAD _34v1cqn4b OF _MSYSMENU PROMPT "退出(F)" COLOR SCHEME 3 ;KEY CTRL+F, "CTRL+F"ON PAD _34v1cqn46 OF _MSYSMENU ACTIVATE POPUP 图书管理aON PAD _34v1cqn47 OF _MNU do form 借还书.scxON SELECTION PA

10、D _34v1cqn49 OF _MSYSMENU do form 报表显示.scxON PAD _34v1cqn4a OF _MSYSMENU ACTIVATE POPUP 关于熊玮eON SELECTION PAD _34v1cqn4b OF _MSYSMENU quitDEFINE POPUP 图书管理a MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 图书管理a PROMPT "查询图书"DEFINE BAR 2 OF 图书管理a PROMPT "修改图书"DEFINE BAR 3 OF

11、图书管理a PROMPT "删除图书"DEFINE BAR 4 OF 图书管理a PROMPT "图书入库(H)" ;KEY CTRL+H, "CTRL+H"ON BAR 1 OF 图书管理a ACTIVATE POPUP 查询图书gON BAR 2 OF 图书管理a ACTIVATE POPUP 修改图书ON BAR 3 OF 图书管理a ACTIVATE POPUP 删除图书ON SELECTION BAR 4 OF 图书管理a do form 入库.scxDEFINE POPUP 查询图书g MARGIN RELATIVE SH

12、ADOW COLOR SCHEME 4DEFINE BAR 1 OF 查询图书g PROMPT "按ISBN(G)" ;KEY CTRL+G, "CTRL+G"DEFINE BAR 2 OF 查询图书g PROMPT "按书名"DEFINE BAR 3 OF 查询图书g PROMPT "按任意条件"ON SELECTION BAR 1 OF 查询图书g do form 查询-按isbn.scxON SELECTION BAR 2 OF 查询图书g do form 查询-按书名.scxON SELECTION BAR

13、 3 OF 查询图书g do form 查询-按任意条件.scxDEFINE POPUP 修改图书 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 修改图书 PROMPT "按ISBN"ON SELECTION BAR 1 OF 修改图书 do form 修改-按isbn.scxDEFINE POPUP 删除图书 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 删除图书 PROMPT "按ISBN"DEFINE BAR 2 OF 删除图书

14、PROMPT "按任意条件"ON SELECTION BAR 1 OF 删除图书 do form 删除-按isbn.scxON SELECTION BAR 2 OF 删除图书 do form 删除-按任意条件.scxDEFINE POPUP 读者管理b MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 读者管理b PROMPT "读者信息(K)" ;KEY CTRL+K, "CTRL+K"DEFINE BAR 2 OF 读者管理b PROMPT "读者注册(L)&quo

15、t; ;KEY CTRL+L, "CTRL+L"ON SELECTION BAR 1 OF 读者管理b do form 读者查询.scxON SELECTION BAR 2 OF 读者管理b do form 读者注册.scxDEFINE POPUP 关于熊玮e MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 关于熊玮e PROMPT "熊玮信息(M)" ;KEY CTRL+M, "CTRL+M"DEFINE BAR 2 OF 关于熊玮e PROMPT "改进说明&qu

16、ot;ON SELECTION BAR 1 OF 关于熊玮e do form 关于我.scxON SELECTION BAR 2 OF 关于熊玮e do form 改进说明.scx快捷菜单代码如下：DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()DEFINE BAR _med_paste OF 快捷菜单 PROMPT "粘贴(<P)" ;KEY CTRL+V, "Ctrl+V" ;MESSAGE "粘贴剪贴板上的内容"DEFINE BAR _med_copy OF 快捷

17、菜单 PROMPT "复制(<C)" ;KEY CTRL+C, "Ctrl+C" ;MESSAGE "将选定内容复制到剪贴板上"DEFINE BAR _med_cut OF 快捷菜单 PROMPT "剪切(<T)" ;KEY CTRL+X, "Ctrl+X" ;MESSAGE "移去选定内容并将其放入剪贴板"DEFINE BAR _med_undo OF 快捷菜单 PROMPT "撤消(<U)" ;KEY CTRL+Z, "Ct

18、rl+Z" ;MESSAGE "撤消上一次命令或操作"ACTIVATE POPUP 快捷菜单模块界面1、 登陆界面：对象名属性与属性值说明Form1登陆界面Text1输入用户名Text2输入密码Command1确定按钮Command2注册按钮Command3退出按钮Form1的init event 代码：thisform.Text1.setfocuscommand1的click event 代码：sele user1locate for allt(thisform.Text1.value)=allt(用户名) if found()if allt(thisform.

19、Text2.value)=allt(密码)messagebox("登陆成功！欢迎进入熊玮的图书管理系统",0+64,"恭喜")do 主界面.mprthisform.releaseelsemessagebox("密码错误！请检查后重新输入！",0+64,"错误")thisform.Text2.value=""thisform.Text2.setfocusendifelsemessagebox("该用户不存在，请检查您的用户名！",0+64,"错误")endi

20、fcommand2的click event 代码：do form 注册界面.scxthisform.releasecommand3的click event 代码：quit2、注册界面对象名属性与属性值说明Form1注册界面Command1确定按钮Command2继续注册按钮Command3退出按钮Text1输入注册用户名Text2输入密码Text3确认密码Form1的init event 代码：thisform.Text1.setfocuscommand1的click event代码： sele 1 use user1locate for allt(thisform.Text1.value)=

21、allt(用户名) if found()messagebox("操作失败，此用户名已经存在!",0+64,"错误")elseif allt(thisform.Text2.value)!=allt(thisform.Text3.value)messagebox("两次密码不一致！请检查后重新输入！",0+64,"错误")thisform.Text3.value=""thisform.Text3.setfocuselsemessagebox("操作成功！",0+64,"

22、注册提示")insert into user1(用户名,密码) value( allt(thisform.Text1.value),allt(thisform.Text2.value)endifendifusecommand2的click event代码：thisform.Text1.value=" "thisform.Text2.value=" "thisform.Text3.value=" "command3的click event代码：do form 登陆界面.scxthisform.release3、主界面welco

23、me对象名属性与属性值说明Form1图书管理系统主界面Label1滚动字幕Timer1Label2本机时间Timer2Command1按ISBN查询按钮Command2读者信息查询按钮Command3借还书查询按钮Command4关于我按钮Timer1的timer event代码：if thisform.label1.left<192thisform.label1.left=480elsethisform.label1.left=thisform.label1.left-1endifTimer2的timer event代码：if thisform.label2.caption!=time

24、()thisform.label2.caption=time()endifcommand1的click event代码：do form 查询-按isbncommand2的click event代码：do form 读者查询command3的click event代码：do form 借还书command3的click event代码：do form 关于我4、 查询按ISBN对象名属性与属性值说明Form1查询按ISBN界面Combo1ISBN编号Command1查询按钮Text1书名Text2出版社Text3类别Text4简介Text5作者Text6单价Text7购买日期Text8借阅状态C

25、ommand6退出按钮Command1的click event代码：if select("books")=0&&检查数据表是否打开messagebox("数据表books不存在，请检查后再试！",0+16,"警告")elseselect books&&选取account表locate for allt(thisform.Combo1.value)=allt(isbn)&&按索引查找当前所选user相关记录seekif found()thisform.Text1.value=书名thisf

26、orm.Text2.value=出版社thisform.Text3.value=类别thisform.Text4.value=简介thisform.Text5.value=作者thisform.Text6.value=单价thisform.Text7.value=购买日期thisform.Text8.value=借阅状态endifendiftext1/2/3/4/5/6/7/8的rightclick event代码：do 快捷菜单.mprcommand6的click event代码：thisform.release5、 查询按书名对象名属性与属性值说明Form1按书名查询界面Combo1书名G

27、rid1查询结果Command1查询按钮Form1的init event代码：with thisform.grid1 .columncount=9 .column1.header1.caption="Isbn" .column2.header1.caption="书名" .column3.header1.caption="作者" .column4.header1.caption="出版社" .column5.header1.caption="单价" .column6.header1.captio

28、n="类别" .column7.header1.caption="购买日期" .column8.header1.caption="简介" .column9.header1.caption="借阅状态" .column1.width=50 .column3.width=50 .column2.width=80 .column4.width=100 .column5.width=50 .column7.width=50 .column8.width=100 if thisform.Combo1.value="

29、" .recordsource="books" else .recordsource="temp" endif .recordsourcetype=1 .column1.header1.caption="Isbn" .column2.header1.caption="书名" .column3.header1.caption="作者" .column4.header1.caption="出版社" .column5.header1.caption="单价&qu

30、ot; .column6.header1.caption="类别" .column7.header1.caption="购买日期" .column8.header1.caption="简介" .column9.header1.caption="借阅状态" .refreshendwithcommand1的click event代码：sele books locate for allt(thisform.Combo1.value)=allt(书名) if found() messagebox("查找成功&qu

31、ot;,0+48,"提示") go top sele * from books where allt(thisform.Combo1.value)=allt(书名) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",0+48,"提示") endif6、 查询按任意条件对象名属性与属性值说明Form1按任意条件查询界面Combo1选择字段Grid1查询结果Command1查询按钮Command2退出按钮Text1字段内容Form1的i

32、nit event代码：with thisform.grid1 .columncount=9 .column1.header1.caption="Isbn" .column2.header1.caption="书名" .column3.header1.caption="作者" .column4.header1.caption="出版社" .column5.header1.caption="单价" .column6.header1.caption="类别" .column7.h

33、eader1.caption="购买日期" .column8.header1.caption="简介" .column9.header1.caption="借阅状态" .column1.width=50 .column3.width=50 .column2.width=80 .column4.width=100 .column5.width=50 .column7.width=50 .column8.width=100 if thisform.Combo1.value="" .recordsource="

34、books" else .recordsource="temp" endif .recordsourcetype=1 .column1.header1.caption="Isbn" .column2.header1.caption="书名" .column3.header1.caption="作者" .column4.header1.caption="出版社" .column5.header1.caption="单价" .column6.header1.captio

35、n="类别" .column7.header1.caption="购买日期" .column8.header1.caption="简介" .column9.header1.caption="借阅状态" .refreshEndwithCombo1的lostfocus event代码：if thisform.Combo1.value="单价"thisform.Text1.value=0elseif thisform.Combo1.value="购买日期" thisform.Tex

36、t1.value= else- if thisform.Combo1.value="借阅状态" thisform.Text1.value=.F. else thisform.Text1.value="" endif endifendifCommand1的click event代码：if thisform.Combo1.value="isbn"if thisform.Text1.value="" messagebox("你没有选择要查找的内容",0+16,"提示") else

37、&&sele books locate for allt(thisform.text1.value)=allt(isbn) if found() messagebox("查找成功",0+48,"提示") go top sele * from books where allt(thisform.Text1.value)=allt(isbn) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",0+48,"提示&

38、quot;) endif endif endifif thisform.Combo1.value="书名"if thisform.Text1.value="" messagebox("你没有选择要查找的内容",0+16,"提示") else &&sele books locate for allt(thisform.text1.value)=allt(书名) if found() messagebox("查找成功",0+48,"提示") go top sele

39、 * from books where allt(thisform.Text1.value)=allt(书名) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",0+48,"提示") endif endif endifif thisform.Combo1.value="作者"if thisform.Text1.value="" messagebox("你没有选择要查找的内容",0+16,&qu

40、ot;提示") else &&sele books locate for allt(thisform.text1.value)=allt(作者) if found() messagebox("查找成功",0+48,"提示") go top sele * from books where allt(thisform.Text1.value)=allt(作者) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",

41、0+48,"提示") endif endif endif if thisform.Combo1.value="出版社"if thisform.Text1.value="" messagebox("你没有选择要查找的内容",0+16,"提示") else &&sele books locate for allt(thisform.text1.value)=allt(出版社) if found() messagebox("查找成功",0+48,"提示&q

42、uot;) go top sele * from books where allt(thisform.Text1.value)=allt(出版社) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",0+48,"提示") endif endif endif if thisform.Combo1.value="单价"if thisform.Text1.value=0 messagebox("你没有选择要查找的内容",

43、0+16,"提示") else &&thisform.Text1.value=0 &&奖框框变为数值型的; &&sele books locate for thisform.text1.value=单价 if found() messagebox("查找成功",0+48,"提示") go top sele * from books where thisform.Text1.value=单价 into cursor temp thisform.refresh thisform.init e

44、lse messagebox("对不起,没有相关内容",0+48,"提示") endif endif endif if thisform.Combo1.value="类别"if thisform.Text1.value="" messagebox("你没有选择要查找的内容",0+16,"提示") else &&sele books locate for allt(thisform.text1.value)=allt(类别) if found() message

45、box("查找成功",0+48,"提示") go top sele * from books where allt(thisform.Text1.value)=allt(类别) into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关内容",0+48,"提示") endif endif endif if thisform.Combo1.value="购买日期" &&sele books &a

46、mp;&thisform.Text1.value= locate for thisform.text1.value=购买日期 if found() messagebox("查找成功",0+48,"提示") go top sele * from books where thisform.Text1.value=购买日期 into cursor temp thisform.refresh thisform.init else messagebox("查找失败,没有相关信息",0+48,"提示") endif e

47、ndif if thisform.Combo1.value="借阅状态" &&sele books locate for thisform.text1.value=借阅状态 if found() messagebox("查找成功",0+48,"提示") go top sele * from books where thisform.Text1.value=借阅状态 into cursor temp thisform.refresh thisform.init else messagebox("对不起,没有相关

48、内容",0+48,"提示") endif endifCommand2的click event代码：thisform.releaseText1的click event代码：sele * from books into cursor temp &&占击时使表中的数据转入另一表中,因为如不转入第一次查询后,再查的话,相当于第二次是在第一次的基础上再查的;这样有可能找不到 with thisform.grid1 .recordsource="books" .refresh EndwithText1的rightclick event代码：

49、do 快捷菜单.MPR7、 修改按ISBN对象名属性与属性值说明Form1修改-按ISBNCombo1选择ISBNCommand1确定按钮Text1书名Text2出版社Text3类别Text4简介Text5作者Text6单价Text7购买日期Text8借阅状态Command2首记录Command3前一条记录Command4后一条记录Command5尾记录Command6修改Command7退出Command8放弃Form1的init event代码：thisform.Text6.enabled=.F.thisform.Text7.enabled=.F.thisform.Text8.enable

50、d=.F.Command1的click event代码：if select("books")=0&&检查数据表是否打开messagebox("数据表books不存在，请检查后再试！",0+16,"警告")elseselect books&&选取account表locate for allt(thisform.Combo1.value)=allt(isbn)if found()thisform.Text1.value=书名thisform.Text2.value=出版社thisform.Text3.val

51、ue=类别thisform.Text4.value=简介thisform.Text5.value=作者thisform.Text6.value=单价thisform.Text7.value=购买日期thisform.Text8.value=借阅状态endifendif&&THISFORM.combo1.ADDITEM(temp.学号) skipif eof()thisform.Command4.enabled=.F.thisform.Command3.enabled=.T.elseskip -2 if bof() thisform.Command3.enabled=.F.thi

52、sform.Command4.enabled=.T.elsethisform.Command4.enabled=.T.thisform.Command3.enabled=.T.endifendifText1/2/3/4/5/6/7/8的rightclick event代码：do 快捷菜单.MPRCommand2的click event代码：go top thisform.Text1.value=书名thisform.Text2.value=出版社thisform.Text3.value=类别thisform.Text4.value=简介thisform.Text5.value=作者thisfo

53、rm.Text6.value=单价thisform.Text7.value=购买日期thisform.Text8.value=借阅状态thisform.Combo1.value=isbnthisform.Command3.enabled=.F.thisform.Command4.enabled=.T.Command3的click event代码：if !bof()skip -1thisform.Text1.value=书名thisform.Text2.value=出版社thisform.Text3.value=类别thisform.Text4.value=简介thisform.Text5.value=作者thisform.Text6.value=单价thisform.Text7.value=购买日期thisform.Text8.value=借阅状态thisform.Combo1.value=isbnelsethisform.Command3.enabled=.F.endifif eof()thisform.Command4.enabled=.F.else thisform.Command4.enabled=.T.endifCommand4的click event代码：if !eof()skip thisform.Text1.value=书名thisform.T