《2022年visualfoxpro程序设计实验报告.pdf》由会员分享，可在线阅读，更多相关《2022年visualfoxpro程序设计实验报告.pdf（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VF程序设计实验报告图书馆管理系统专业：学号：姓名：指导教师：2010 年 12 月 31 日精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 14 页 - - - - - - - - - - 目录第一部分系统概述 -2 第二部分系统功能模块设计-2 第三部分系统数据库及表设计-2 第四部分系统菜单设计 -5 第五部分系统界面设计 -6 第六部分系统相关程序代码-13 第七部分实验报告小结 -22 第八部分参考资料 -22 精品资料 - - - 欢迎下载 - - - - - - - - - -
2、- 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 14 页 - - - - - - - - - - 一、系统概述近年来，随着图书馆规模的不断扩大，图书数量相应的增加， 有关图书的各种信息量也成倍增加， 面对庞大的信息量， 传统的人工管理户导致图书管理的混乱，人力与物力过多的浪费，图书管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理。因此，为了充分发挥了图书馆的功效，最大限度地为读者服务，必须制定一套合理、有效，规范和实用的图书馆管理系统，对图书资料进行集中统一的管理。根据上述需要，我们建立本图书馆管理系统。根据图书、读者和管理员三者之间的关系，
3、 本系统主要实现读者对图书的查询、个人信息的修改和管理员对读者、图书的管理。本系统采用作为开发工具。二、系统功能模块设计本系统可以完成一般图书馆关于图书查询、借阅及书库管理的主要功能。 其中：图书查询模块可以查询所需要的图书；读者管理模块中， 读者可以查看自己的信息，对登陆密码进行修改， 管理员可以对读者进行添加和删除；图书管理模块中，管理员可以为读者进行图书的借阅和归还操作，以及对图书的信息进行修改，如加入新书、删除不能使用的图书和更新图书的信息；报表打印模块中，实现对需要的信息进行打印输出。系统结构下图所示。三、数据库及表设计经分析，图书馆管理系统主要涉及了学生、管理员和图书三部分。 因此
4、需要建立的实体就是学生、管理员和图书三个。根据系统模块的设计，可以的到本系统需要建立的基本表为：读者信息表、图书馆管理系统主界面系统登陆图书查询读者管理图书管理报表打印退出读者信息查看登陆密码修改读者增添删除图书借阅图书归还图书信息修改精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 14 页 - - - - - - - - - - 管理员信息表、图书信息表、图书借阅信息表、图书信息表。数据库的相关设计如下：其中，读者信息表中证号为主索引，图书信息表中总编号为主索引，图书借阅表中对总编号和证号建
5、立普通索引。表单设计（1） 、读者信息表 .dbf读者信息表结构设计字段名类型宽度索引证号字符型6主索引密码字符型6姓名字符型8专业字符型10性别字符型2年级字符型2院系字符型8照片通用性30备注备注型4（2）管理员信息表 .dbf管理员信息表设计字段名类型宽度索引证号字符型4密码字符型6（3） 、图书信息表 .dbf图书信息表设计字段名类型宽度索引总编号字符型6主索引分类名字符型6书名字符型12作者字符型8出版社字符型20状态字符型4照片通用型4（4） 、图书借阅信息表 .dbf精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - -
6、 - - - - -第 4 页，共 14 页 - - - - - - - - - - 图书借阅信息表设计字段名类型宽度索引总编号字符型6普通索引证号字符型6普通索引借出日期日期型8四、系统菜单设计依据上述系统功能模块的设计， 可以得到图书馆主界面菜单： 主要包括图书查询、读者管理、图书管理、报表打印和退出。其中，图书查询执行命do form 图书查询 .scx ；退出执行命令；读者管理和图书管理包含子菜单；另外，报表打印的相关设计未能实现。相关设计如下图：读者管理菜单主要包含读者信息查看、登陆密码修改、 读者增添删除三个子菜单。其中，读者信息查看执行命令do form 读者信息 .scx ；登
7、陆密码修改执行命令 do form 密码修改 .scx ；读者增添删除执行命令do form 读者增删 .scx 。相关设计结果如下图：图书管理菜单包含图书借阅、图书归还、图书信息修改三个子菜单。其中，图书归还执行命令do form 图书借阅 .scx ；图书归还执行命令do form 图书归还.scx ；图书信息修改执行命令do form 图书信息修改 .scx 。相关设计结果如下图：五、系统界面设计（1） 登陆界面设计用户通过登陆界面进行登陆， 选择自己的用户类型， 输入证号和密码， 如果输入的信息与所连接的表中的数据相符， 则进入图书馆的主界面， 否则提示错误，直到输入正确信息方能进入系
8、统。（2）系统主界面设计当用户登陆证号和密码通过验证后，进入图书管理系统的主界面， 该界面由一表单及菜单组成。 其中，表单上的”欢迎使用图书馆管理系统！”是一向左移动的动画， 以增强界面的友好感。 另外，用户可通过菜单上的各种操作对图书进行管理。图书馆管理系统的主界面如下：（3）图书查询界面设计用户可以选择查询条件，根据书名、作者、主题词、出版社、总编号其中的一种方式对图书进行查询，查询的结果显示在下边一个表格中。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 14 页 - - - - - -
9、 - - - - （4）读者信息查看界面设计管理员可以再次查看读者的信息，点击CommandGroup 组中的各个图标可以查看任意一个读者的信息。（5）读者密码修改界面设计读者可以在此修改自己的密码， 修改后的新密码同时在读者信息表中对相应密码进行更新。（6）读者增添删除界面设计管理员可以在此添加和删除用户， 添加和删除的用户信息同时在读者信息表中进行更新。（7）图书借阅界面设计管理员对读者需要借阅的图书进行借阅操作，输入图书总编号及读者的证号完成图书的借阅流程。将此借阅的信息保存到图书借阅信息表中。（8）图书归还界面设计管理员对读者需要需要归还的图书进行归还操作，输入要归还的图书编号及读者证
10、号，在图书借阅信息中进行查找并删除，完成图书归还的操作。（9）图书信息修改界面设计本界面使用了一个PageCount为 3 的页框，主要完成图书的添加、 删除及信息更新的功能。 下图中，管理员可以对图书进行登记，新书信息将添加到图书信息表中，读者可查阅到。在本界面中， 管理员可以对需要删除的图书从图书信息表中删除，输入要删除的图书的总编号，系统进行查找，若找到则删除，找不到则提示错误。在本界面中，管理员可以通过输入图书的总编号，查找到需要更新的图书，进入图书更新界面中。当系统找到对应的图书编号时，进入如下界面。 在此，管理员可以更改图书的各种信息。六、程序代码1、登陆界面（1）登陆按钮 cli
11、ck事件代码：if alltrim messagebox(请输入用户名！ ) return精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 14 页 - - - - - - - - - - endifif alltrim messagebox(请输入密码！ ) returnendifa= a=1 use 读者信息 locate for alltrim(证号)=alltrim if found() if alltrim(密码)=alltrim messagebox(登录成功 ,64,身份验证通过
12、) do form 图书馆主界面 .scx release thisform else messagebox(密码输入错误！ ,16,错误提示 ) endif else messagebox(读者号不存在！ ,16,错误提示 ) endifelse use 管理员 locate for alltrim(证号)= alltrim if found() if alltrim(密码)=alltrim messagebox(登录成功！ ,64,身份验证通过 ) do form 图书馆主界面 .scx release thisform else messagebox(密码输入错误！ ,16,错误提示 )
13、 endif else messagebox(用户名不存在！ ,16,错误提示 ) endifendif（2） 退出按钮 click事件代码：answer=messagebox(你决定退出系统吗？ ,4,提示)do case case answer=6 case answer=7messagebox(请输入用户名和密码 ,0,提示)endcase2、系统主界面（1）表单的 int事件代码：do 图书馆主界面 .MPR with this,.T.精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 1
14、4 页 - - - - - - - - - - = .T.（2）time1 的 time 事件代码：IF = = ENDIF3、图书查询界面（1）查询按钮的 click事件代码：OPEN DATABASE 图书馆数据库 .dbc SHAREDm=allt casecase n=1 select * from 图书信息 where 书名=m into cursor temp tempcase n=2 select * from 图书信息 where alltrim(作者)=m into cursor temp tempcase n=3select * from 图书信息 where alltri
15、m(书名) like %+m+% into cursor temp tempcase n=4 select * from 图书信息 where alltrim(出版社 )=m into cursor temp tempcase n=5 select * from 图书信息 where alltrim(总编号 )=m into cursor temp tempendcase（2）返回按钮的 click事件代码：4、读者信息查看界面Commandgroup 组的 click事件代码：n=do casecase n=1go top n=2 skip-1if bof()go topendif n=3s
16、kip 1if eof()go bottom精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 14 页 - - - - - - - - - - endif n=4go bottom n=5endcase5、密码修改界面：（1）修改按钮的 click事件密码：a= alltrim(a)= messagebox( 请输入账号！ ) returnendifif alltrim(b)= messagebox( 请输入密码！ ) returnendifif alltrim(c)= messagebox(
17、请输入新密码！ ) returnendifif alltrim(d)= messagebox( 请再次输入新密码！ ) returnendifuse 读者信息locate for alltrim(证号)=alltrim(a)if found() if alltrim(密码)=alltrim(b) if c=d e=messagebox(确定要修改吗？ ,32+1+0, 提示) if e=1 replace 密码 with c for alltrim(证号)=alltrim(a) messagebox(密码修改成功！ ) endif else messagebox(确认密码不正确！请重新输入！)
18、 endif else messagebox(密码输入错误！请重新输入密码！,16,错误提示 ) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 14 页 - - - - - - - - - - endifelse messagebox(证号不存在！ ,16,错误提示 ) endif（2）返回按钮的 click事件代码： release thisform6、读者增删界面(1)command1按钮的 click事件代码：open database 图书馆数据库 .dbc shareda=allt
19、 a= messagebox(证号不能为空！ ,0,提示) returnendifif b= messagebox(密码不能为空！ ,0,提示) returnendif use 读者信息locate for 证号=aif found() messagebox(该用户已经存在！ ,0,提示) insert into 读者信息 (证号, 密码) values (a,b) messagebox(恭喜你注册成功！ ,0,提示)（2）command2 的 click事件代码：open database 图书馆数据库 .dbc shareda=allt a= messagebox(证号不能为空！ ,0,提
20、示) returnendifuse 读者信息locate for 证号=aif found() b=messagebox( 确定要删除该用户吗？ ,1,提示) if b=1精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 14 页 - - - - - - - - - - deletepackmessagebox(删除成功！ ,0,提示) endifelse messagebox(没有该用户！请重新输入！,0,提示) （3）的 click事件代码：7、图书借阅界面（1）借出按钮的 click事件
21、代码：OPEN DATABASE 图书馆数据库 .dbc SHAREDa=allt 图书借阅信息locate for 总编号=aif found() insert into 借书信息 values (a,b,c) messagebox(借书成功！ ,0,提示)else answer=messagebox(没有该书！是否继续？ ,1,提示) if answer=1 else endif endifuseclose database（2）返回按钮的 click事件代码： release thisform8、图书归还界面（1）归还按钮的 click事件代码：OPEN DATABASE 图书馆数据库
22、.dbc SHAREDa=allt 图书借阅信息locate for 总编号=a and 证号=bif found() delete answer=messagebox(确认是否还书？ ,1,提示) if answer=1 pack else recall精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 14 页 - - - - - - - - - - endifelse messagebox(你输入的信息不对，请确认后重新输入！,0,提示) endif close database（2）返回
23、按钮的 click事件代码： release thisform9、图书信息修改界面（1）page1中的 command1 按钮的 click事件代码：open database 图书馆数据库 .dbc sharedzbh=allt 图书信息answer=messagebox(确认添加新书吗？ ,1,提示)if answer=1 insert into 图书信息 values (zbh,flm,sm,zz,cbs,dj,zt) messagebox(添加成功！ ,0,提示)else endifuseclose database（2）page1中的 command2 按钮的 click事件代码：r
24、elease thisform（3）page2中的 command1 按钮的 click事件代码：open database 图书馆数据库 .dbc sharedzbh=allt 图书信息locate for 书名=zbhif found() answer=messagebox(确定要删除该书吗？ ,1,提示) if answer=1 delete pack messagebox( 删除成功！ ,0,提示) endifelse messagebox(没有此书！请检查重新输入！,0,提示) endif精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳
25、- - - - - - - - - -第 12 页，共 14 页 - - - - - - - - - - useclose database（4）page2中的 command2 按钮的 click事件代码：release thisform（5）page3中的 command1 按钮的 click事件代码：open database 图书馆数据库 .dbc sharedzbh=allt 图书信息locate for 总编号=zbhif found() DO FORM 图书信息更新 .scx else messagebox(没有该书！请检查重新输入！,0,提示) endifuseclose da
26、tabase（6）page3中的 command2 按钮的 click事件代码：release thisform10、图书信息更新界面（1）command1 的 click事件代码：open database 图书馆数据库 .dbc sharedzbh_new=allt 图书信息locate for 总编号=zbhif found() if !empty(zbh_new) replace 总编号 with zbh_new endif if !empty(flm_new) replace 分类名 with flm_new endif if !empty(sm_new) replace 书名 wi
27、th sm_new endif if !empty(zz_new) replace 作者 with zz_new endif if !empty(cbs_new) replace 出版社 with cbs_new endif if !empty(dj_new) replace 单价 with val(dj_new) endif if !empty(zt_new)精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 14 页 - - - - - - - - - - replace 状态 with z
28、t_new endif messagebox(更新成功！ ,0,提示)else messagebox(数据请输入完整！ ,0,提示)endif use（2）command2 的 click事件代码：release thisform七、实验报告小结经过近两周的设计和开发， 本图书馆管理系统基本实现了一个图书馆所必须的简单功能。读者可以进行图书查询、密码修改、信息查看；管理员可以对图书进行借阅、归还及更新操作，对读者进行添加和删除。由于我个人的水平及时间所限， 本系统的各项功能都比较简单， 数据库设计还有很多缺陷， 如数据表的索引、 视图的应用等等， 其中原先设想的报表打印这一功能由于时间限制未能
29、予以实现。下面简单谈一下，这此实验报告给我的感想：首先，通过本次实验报告， 我深切的认识到了开发一个系统原来是这么的不简单：大到整个系统的整体规划，如各项功能上的设计、所需数据库的设计，小到一个细节的具体设计， 如编写相应代码实现某一功能，甚至为美化界面调整字体的字号大小，或者插入一些图片等等都凝聚了设计人员的心血。其次，我充分的认识到了我所学的东西，用来设计一个系统是多么的微不足道，设计一个相对好一些的系统，我都还有很东西需要学习。最后，通过这次实验， 我对所学到的知识有了一个系统的梳理，将所学的理论用于最终的实践， 进行了一次有益的尝试， 还有，这次实验让我对开发系统有了更进一步的认识。
30、虽然有很多遗憾和不足， 但毕竟让我认识到自己的真实水平和实际应用中的差距，这必将督促着我更加努力学习。八、参考资料1 Visual FoxPro 程序设计教程第二版刘瑞新 汪远征 曹欢欢 等编着机械工业出版社2 Visual FoxPro 项目开发案例教程李政 赵瑞 李颖 王海燕 等编着 中国水利水电出版社3 Visual FoxPro 数据库通用模块及典型系统开发实例导航求是科技编着 人民邮电出版社4 Visual FoxPro 数据库系统项目开发实践韩中孝 王凌志主编科学出版社5 一些网络上的关于图书管理的论文报告精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 14 页 - - - - - - - - - -