当前位置:文档之家› Visual FoxPro 程序设计实验报告

Visual FoxPro 程序设计实验报告

VF程序设计实验报告图书馆管理系统专业:学号:姓名:指导教师:2010年12月31日目录第一部分系统概述--------------------------------2 第二部分系统功能模块设计------------------------2 第三部分系统数据库及表设计----------------------2 第四部分系统菜单设计----------------------------5 第五部分系统界面设计----------------------------6 第六部分系统相关程序代码-----------------------13 第七部分实验报告小结---------------------------22 第八部分参考资料-------------------------------22一、系统概述近年来,随着图书馆规模的不断扩大,图书数量相应的增加,有关图书的各种信息量也成倍增加,面对庞大的信息量,传统的人工管理户导致图书管理的混乱,人力与物力过多的浪费,图书管理费用的增加,从而使图书馆的负担过重,影响整个图书馆的运作和控制管理。

因此,为了充分发挥了图书馆的功效,最大限度地为读者服务,必须制定一套合理、有效,规范和实用的图书馆管理系统,对图书资料进行集中统一的管理。

根据上述需要,我们建立本图书馆管理系统。

根据图书、读者和管理员三者之间的关系,本系统主要实现读者对图书的查询、个人信息的修改和管理员对读者、图书的管理。

本系统采用VF6.0作为开发工具。

二、系统功能模块设计本系统可以完成一般图书馆关于图书查询、借阅及书库管理的主要功能。

其中:图书查询模块可以查询所需要的图书;读者管理模块中,读者可以查看自己的信息,对登陆密码进行修改,管理员可以对读者进行添加和删除;图书管理模块中,管理员可以为读者进行图书的借阅和归还操作,以及对图书的信息进行修改,如加入新书、删除不能使用的图书和更新图书的信息;报表打印模块中,实现对需要的信息进行打印输出。

系统结构下图所示。

三、数据库及表设计经分析,图书馆管理系统主要涉及了学生、管理员和图书三部分。

因此需要建立的实体就是学生、管理员和图书三个。

根据系统模块的设计,可以的到本系统需要建立的基本表为:读者信息表、管理员信息表、图书信息表、图书借阅信息表、图书信息表。

数据库的相关设计如下:其中,读者信息表中证号为主索引,图书信息表中总编号为主索引,图书借阅表中对总编号和证号建立普通索引。

表单设计(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 普通索引证号字符型 6 普通索引借出日期日期型8四、系统菜单设计依据上述系统功能模块的设计,可以得到图书馆主界面菜单:主要包括图书查询、读者管理、图书管理、报表打印和退出。

其中,图书查询执行命do form 图书查询.scx;退出执行命令_vfp.activeform.release;读者管理和图书管理包含子菜单;另外,报表打印的相关设计未能实现。

相关设计如下图:读者管理菜单主要包含读者信息查看、登陆密码修改、读者增添删除三个子菜单。

其中,读者信息查看执行命令do form 读者信息.scx;登陆密码修改执行命令do form 密码修改.scx;读者增添删除执行命令do form读者增删.scx。

相关设计结果如下图:图书管理菜单包含图书借阅、图书归还、图书信息修改三个子菜单。

其中,图书归还执行命令do form 图书借阅.scx;图书归还执行命令do form 图书归还.scx;图书信息修改执行命令do form 图书信息修改.scx。

相关设计结果如下图:五、系统界面设计(1)登陆界面设计用户通过登陆界面进行登陆,选择自己的用户类型,输入证号和密码,如果输入的信息与所连接的表中的数据相符,则进入图书馆的主界面,否则提示错误,直到输入正确信息方能进入系统。

(2)系统主界面设计当用户登陆证号和密码通过验证后,进入图书管理系统的主界面,该界面由一表单及菜单组成。

其中,表单上的”欢迎使用图书馆管理系统!”是一向左移动的动画,以增强界面的友好感。

另外,用户可通过菜单上的各种操作对图书进行管理。

图书馆管理系统的主界面如下:(3)图书查询界面设计用户可以选择查询条件,根据书名、作者、主题词、出版社、总编号其中的一种方式对图书进行查询,查询的结果显示在下边一个表格中。

(4)读者信息查看界面设计管理员可以再次查看读者的信息,点击CommandGroup组中的各个图标可以查看任意一个读者的信息。

(5)读者密码修改界面设计读者可以在此修改自己的密码,修改后的新密码同时在读者信息表中对相应密码进行更新。

(6)读者增添删除界面设计管理员可以在此添加和删除用户,添加和删除的用户信息同时在读者信息表中进行更新。

(7)图书借阅界面设计管理员对读者需要借阅的图书进行借阅操作,输入图书总编号及读者的证号完成图书的借阅流程。

将此借阅的信息保存到图书借阅信息表中。

(8)图书归还界面设计管理员对读者需要需要归还的图书进行归还操作,输入要归还的图书编号及读者证号,在图书借阅信息中进行查找并删除,完成图书归还的操作。

(9)图书信息修改界面设计本界面使用了一个PageCount为3的页框,主要完成图书的添加、删除及信息更新的功能。

下图中,管理员可以对图书进行登记,新书信息将添加到图书信息表中,读者可查阅到。

在本界面中,管理员可以对需要删除的图书从图书信息表中删除,输入要删除的图书的总编号,系统进行查找,若找到则删除,找不到则提示错误。

在本界面中,管理员可以通过输入图书的总编号,查找到需要更新的图书,进入图书更新界面中。

当系统找到对应的图书编号时,进入如下界面。

在此,管理员可以更改图书的各种信息。

六、程序代码1、登陆界面(1)登陆按钮click事件代码:if alltrim(thisform.container1.text1.value)==""messagebox("请输入用户名!")returnendifif alltrim(thisform.container1.text2.value)==""messagebox("请输入密码!")returnendifa=thisform.container1.optiongroup1.valueif a=1use 读者信息locate for alltrim(证号)=alltrim(thisform.container1.text1.value) if found()if alltrim(密码)=alltrim(thisform.container1.text2.value)messagebox("登录成功",64,"身份验证通过")do form 图书馆主界面.scxrelease thisformelsemessagebox("密码输入错误!",16,"错误提示")endifelsemessagebox("读者号不存在!",16,"错误提示")endifelseuse 管理员locate for alltrim(证号)= alltrim(thisform.container1.text1.value) if found()if alltrim(密码)=alltrim(thisform.container1.text2.value)messagebox("登录成功!",64,"身份验证通过")do form 图书馆主界面.scxrelease thisformelsemessagebox("密码输入错误!",16,"错误提示")endifelsemessagebox("用户名不存在!",16,"错误提示")endifendif(2)退出按钮click事件代码:answer=messagebox("你决定退出系统吗?",4,"提示")do casecase answer=6thisform.releasecase answer=7messagebox("请输入用户名和密码",0,"提示")endcase2、系统主界面(1)表单的int事件代码:do 图书馆主界面.MPR with this,.T.THISFORM.Timer1.Enabled = .T.(2)time1的time事件代码:IF bel1.Left+bel1.width>0bel1.Left = bel1.Left-10ELSEbel1.Left = thisform.WidthENDIF3、图书查询界面(1)查询按钮的click事件代码:OPEN DATABASE 图书馆数据库.dbc SHAREDthisform.grid1.recordsource=""m=allt(thisform.text1.value)n=thisform.optiongroup1.valuedo casecase n=1select * from 图书信息 where 书名==m into cursor tempthisform.grid1.recordsource="temp"case n=2select * from 图书信息 where alltrim(作者)==m into cursor tempthisform.grid1.recordsource="temp"case n=3select * from 图书信息 where alltrim(书名) like "%"+m+"%" into cursor tempthisform.grid1.recordsource="temp"case n=4select * from 图书信息 where alltrim(出版社)==m into cursor tempthisform.grid1.recordsource="temp"case n=5select * from 图书信息 where alltrim(总编号)==m into cursor tempthisform.grid1.recordsource="temp"endcasethisform.refresh(2)返回按钮的click事件代码:thisform.release4、读者信息查看界面Commandgroup组的click事件代码:n=this.valuedo casecase n=1go topmandgroup1.buttons(1).enabled=.f.mandgroup1.buttons(2).enabled=.f.mandgroup1.buttons(3).enabled=.t.mandgroup1.buttons(4).enabled=.t. case n=2skip-1if bof()go topmandgroup1.buttons(1).enabled=.f.mandgroup1.buttons(2).enabled=.f.endifmandgroup1.buttons(3).enabled=.t.mandgroup1.buttons(4).enabled=.t. case n=3skip 1if eof()go bottommandgroup1.buttons(3).enabled=.f.mandgroup1.buttons(4).enabled=.f.endifmandgroup1.buttons(1).enabled=.t.mandgroup1.buttons(2).enabled=.t. case n=4go bottommandgroup1.buttons(4).enabled=.f.mandgroup1.buttons(3).enabled=.f.mandgroup1.buttons(1).enabled=.t.mandgroup1.buttons(2).enabled=.t. case n=5thisform.releaseendcasethisform.refresh5、密码修改界面:(1)修改按钮的click事件密码:a=thisform.text4.valueb=thisform.text1.valuec=thisform.text2.valued=thisform.text3.valueif alltrim(a)==""messagebox("请输入账号!")thisform.text4.setfocusreturnendifif alltrim(b)==""messagebox("请输入密码!")thisform.text1.setfocusreturnendifif alltrim(c)==""messagebox("请输入新密码!")thisform.text2.setfocusreturnendifif alltrim(d)==""messagebox("请再次输入新密码!")thisform.text3.setfocusreturnendifuse 读者信息locate for alltrim(证号)==alltrim(a)if found()if alltrim(密码)==alltrim(b)if c==de=messagebox("确定要修改吗?",32+1+0,"提示")if e=1replace 密码 with c for alltrim(证号)==alltrim(a)messagebox("密码修改成功!")endifelsemessagebox("确认密码不正确!请重新输入!")thisform.text2.value=""thisform.text3.value=""thisform.text2.setfocusendifelsemessagebox("密码输入错误!请重新输入密码!",16,"错误提示") thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text1.setfocusendifelsemessagebox("证号不存在!",16,"错误提示")thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""endif(2)返回按钮的click事件代码:release thisform6、读者增删界面(1)command1按钮的click事件代码:open database 图书馆数据库.dbc shareda=allt(thisform.text1.value)b=allt(thisform.text2.value)if a==""messagebox("证号不能为空!",0,"提示")thisform.text1.setfocusreturnendifif b==""messagebox("密码不能为空!",0,"提示")thisform.text2.setfocusreturnendifuse 读者信息locate for 证号=aif found()messagebox("该用户已经存在!",0,"提示")thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocuselseinsert into 读者信息(证号,密码) values (a,b) thisform.text1.value=""thisform.text2.value=""messagebox("恭喜你注册成功!",0,"提示")thisform.text1.setfocusendifuse(2)command2的click事件代码:open database 图书馆数据库.dbc shareda=allt(thisform.text3.value)if a==""messagebox("证号不能为空!",0,"提示")returnendifuse 读者信息locate for 证号=aif found()b=messagebox("确定要删除该用户吗?",1,"提示")if b=1deletepackthisform.text3.value=""messagebox("删除成功!",0,"提示")thisform.text3.setfocusendifelsemessagebox("没有该用户!请重新输入!",0,"提示")thisform.text3.value=""thisform.text3.setfocusendifuse(3) command3的click事件代码:thisform.release7、图书借阅界面(1)借出按钮的click事件代码:OPEN DATABASE 图书馆数据库.dbc SHAREDa=allt(thisform.text1.value)b=allt(thisform.text2.value)c=date()use 图书借阅信息locate for 总编号=aif found()insert into 借书信息 values (a,b,c)messagebox("借书成功!",0,"提示")elseanswer=messagebox("没有该书!是否继续?",1,"提示") if answer=1thisform.text1.value=""thisform.text2.value=""elsethisform.releaseendifendifuseclose database(2)返回按钮的click事件代码:release thisform8、图书归还界面(1)归还按钮的click事件代码:OPEN DATABASE 图书馆数据库.dbc SHAREDa=allt(thisform.text1.value)b=allt(thisform.text2.value)use 图书借阅信息locate for 总编号=a and 证号=bif found()deleteanswer=messagebox("确认是否还书?",1,"提示")if answer=1packthisform.text1.value=""thisform.text2.value=""elserecallendifelsemessagebox("你输入的信息不对,请确认后重新输入!",0,"提示") endifclose database(2)返回按钮的click事件代码:release thisform9、图书信息修改界面(1)page1中的command1按钮的click事件代码:open database 图书馆数据库.dbc sharedzbh=allt(thisform.pageframe1.page1.text1.value)flm=allt(thisform.pageframe1.page1.text2.value)sm=allt(thisform.pageframe1.page1.text3.value)zz=allt(thisform.pageframe1.page1.text4.value)cbs=allt(thisform.pageframe1.page1.text5.value)dj=val(allt(thisform.pageframe1.page1.text6.value))zt=allt(thisform.pageframe1.page1.text7.value)use 图书信息answer=messagebox("确认添加新书吗?",1,"提示")if answer=1insert into 图书信息 values (zbh,flm,sm,zz,cbs,dj,zt)messagebox("添加成功!",0,"提示")elsethisform.pageframe1.page1.text1.value=""thisform.pageframe1.page1.text2.value=""thisform.pageframe1.page1.text3.value=""thisform.pageframe1.page1.text4.value=""thisform.pageframe1.page1.text5.value=""thisform.pageframe1.page1.text6.value=""thisform.pageframe1.page1.text7.value=""endifuseclose database(2)page1中的command2按钮的click事件代码:release thisform(3)page2中的command1按钮的click事件代码:open database 图书馆数据库.dbc sharedzbh=allt(thisform.pageframe1.page2.text1.value)use 图书信息locate for 书名=zbhif found()answer=messagebox("确定要删除该书吗?",1,"提示") if answer=1deletepackthisform.pageframe1.page1.text1.value=""messagebox("删除成功!",0,"提示")endifelsemessagebox("没有此书!请检查重新输入!",0,"提示") thisform.pageframe1.page1.text1.value=""endifuseclose database(4)page2中的command2按钮的click事件代码:release thisform(5)page3中的command1按钮的click事件代码:open database 图书馆数据库.dbc sharedzbh=allt(thisform.pageframe1.page3.text1.value)use 图书信息locate for 总编号=zbhif found()DO FORM 图书信息更新.scxthisform.releaseelsemessagebox("没有该书!请检查重新输入!",0,"提示") thisform.pageframe1.page1.text1.value=""endifuseclose database(6)page3中的command2按钮的click事件代码:release thisform10、图书信息更新界面(1)command1的click事件代码:open database 图书馆数据库.dbc sharedzbh_new=allt(thisform.text1.value)flm_new=allt(thisform.text2.value)sm_new=val(allt(thisform.text3.value))zz_new=allt(thisform.text4.value)cbs_new=allt(thisform.text5.value)dj_new=allt(thisform.text6.value)zt_new=allt(thisform.text7.value)use 图书信息locate for 总编号=zbhif found()if !empty(zbh_new)replace 总编号 with zbh_newendifif !empty(flm_new)replace 分类名 with flm_newendifif !empty(sm_new)replace 书名 with sm_newendifif !empty(zz_new)replace 作者 with zz_newendifif !empty(cbs_new)replace 出版社 with cbs_newendifif !empty(dj_new)replace 单价 with val(dj_new)endifif !empty(zt_new)replace 状态 with zt_newendifmessagebox("更新成功!",0,"提示")elsemessagebox("数据请输入完整!",0,"提示") endifuse(2)command2的click事件代码:release thisform七、实验报告小结经过近两周的设计和开发,本图书馆管理系统基本实现了一个图书馆所必须的简单功能。

相关主题