图书管理系统实验报告（精）

1、Vfp课程设计报告系统名称：图书管理系统姓名：华丹学号：指导教师：朱鹏合作组员：陈丹雅目录1、系统概述1.1 所选课题 开发工具1.3 设计目的2、需求分析及业务流程说明2.1 需求分析2.2 业务流程图3、小组成员及分工3.1 小组成员3.2 具体分工4、功能模块说明5、数据库结构5.1 所建数据库表5.2 表结构介绍5.3 所建表单6、心得体会1、系统概述 选题：图书管理系统 开发工具：visual foxpro 开发目的：使图书管理更为方便快捷，让同学们在查询书籍时更方便，让管理者能够更快的查询信息，包括查询同学信息，借阅信息与书籍录入。2、需求分析及业务流程说明需求分析：图书管理系统主

2、要是对馆内书籍的基本信息及借阅学生的基本资料进行管理，可以进行查询、新增、删除等操作，管理系统的另外一个重要功能便是可以进行借阅操作，并查看借阅状态，预览逾期未归还名册。系统登录流程说明：书籍资料书记借阅学生资料查询书籍添加/删除书籍借阅状态查询续借添加/删除读者查询读者3.小组成员及分工小组成员：陈丹雅、华丹分工：陈丹雅主要负责了系统主要表单的实施，包括建立编号查询（findb）、读者查询（finds）、题名查询、借阅状态、添加读者、添加书籍等表单以及系统登录界面表单和菜单1的建立，并建立了逾期未归还名册报表。 我负责数据库表结构及其关系的设计，建立管理人员、借阅记录、书籍信息、学生资料表，

3、并建立书刊借阅表单和图书查询结果、学生查询结果表单，最后对程序进行连编。 最后共同查找和改正了设计过程中的一些错误以及完善程序中的一些细节。4、功能模块说明系统登录模块：点击程序图标后出现登录界面。管理员可以输入证件号以及密码后点击“登录”，进入到图书管理系统的主界面并执行相应菜单操作。学生数据模块：可以通过证件号查寻学生的基本数据，也可以办理图书借阅，查看借阅状态及预览逾期未归还名册等等。借阅操作模块：可以查阅借还书学生的基本资料以及借阅情况，也可以办理续借。书籍查询模块：读者可以通过书籍题目、书籍编号来查询所要找的书籍以及相关信息。系统退出模块：点击主界面上的“退出”命令按钮，弹出“您确定

4、要退出图书管理系统吗？”对话框，单击“是”按钮，则退出图书管理系统，单击“否”按钮，则继续留在当前页面。4、数据库结构所建数据库表 数据库表结构1、管理人员表2、借阅记录表3、书籍资料表4、学生资料表所建表单1、findb表单，功能：根据编号查找书籍（code）界面：表单的load代码为Select 书籍资料use c:usersuserdesktop数据库管理系统(1)书籍资料.dbf exclusive确定按钮click事件代码为 CJ=ALLTRIM(THISFORM bo1.value)do form c:usersuserdesktop数据库管理系统(1)学生查询结果(此路径为自己电

5、脑上设置的)取消的click 事件代码为此表单数据环境为2、finds表单 功能：根据学号查询学生界面此表单的load 代码为close alluse c:usersuserdesktop数据库管理系统(1)学生资料表.dbf exclusive确定按钮的click事件代码为CJ=ALLTRIM(THISFORM bo1.value)do form c:usersuserdesktop数据库管理系统(1)学生查询结果3、题名查询表单 功能：按题名查询书籍界面此表单load代码为Select 书籍资料use c:usersuserdesktop数据库管理系统(1)书籍资料.dbf exclusi

6、ve查询按钮click代码为tm=ALLTRIM(THISFORM bo1.value)DO FORM c:usersuserdesktop数据库管理系统(1)图书查询结果其余同findb表单4、添加读者表单 功能：向学生资料表中添加一条记录界面 此表单load代码为close alluse c:usersuserdesktop数据库管理系统(1)学生资料表.dbf exclusive确定按钮的click事件代码public g,h,i,j,k,l,m,n,o,pg=alltrim(thisform.txt1.value)h=alltrim(thisform.txt2.value)i=allt

7、rim(thisform.txt3.value)j=Val(alltrim(thisform.txt4.value)k=alltrim(thisform.txt5.value)l=Val(alltrim(thisform.txt6.value)m=alltrim(thisform.txt7.value)n=alltrim(thisform.txt8.value)o=alltrim(thisform.txt9.value)p=empty(thisform.check1.value)insert into 学生资料表(stuid,name,sex,grade,depno,class,tel,add

8、r,password,是否超期);values (g,h,i,j,k,l,m,n,o,p)messagebox(确定要输入这条记录吗？,48,提示)删除按钮的click事件代码为IF MESSAGEBOX(你确定删除该记录吗？,4+64+256,提示)=6DELETEPACKRELEASE THISFORMENDIF5、添加书籍表单 功能：向书籍资料表中添加一条记录，包括code,bookname,writer,publisher,buydate,isloan,number,是否借出这几个字段 界面 此表单的load事件代码为Select 书籍资料use c:usersuserdesktop数

9、据库管理系统(1)书籍资料.dbf exclusive添加按钮的click事件代码为public g,h,i,j,k,l,mg=alltrim(thisform.txt1.value)h=alltrim(thisform.txt2.value)i=alltrim(thisform.txt3.value)j=alltrim(thisform.txt4.value)k=ctod(alltrim(thisform.txt5.value)l=val(alltrim(thisform.txt6.value)m=empty(thisform.check1.value)insert into 书籍资料(co

10、de,bookname,writer,publisher,buydate,number,isloan);values (g,h,i,j,k,l,m)messagebox(确定要输入这条记录吗？,48,提示)删除按钮的click事件代码为IF MESSAGEBOX(你确定删除该记录吗？,4+64+256,提示)=6DELETEPACKRELEASE THISFORMENDIF6、图书查询结果表单 功能：在findb和题名查询表单运行后显示出相应结果（在这两个表单后附加使用）界面上一条的click事件代码为skip -1 if .not. bof() thisform.refresh else m

11、essagebox(已经是第一条纪录！,0,记录情况) endif下一条的click事件代码为skip 1if .not. eof() thisform.refresh else messagebox(已经是最后一条纪录！,0,记录情况) endif7、登陆界面表单界面8、系统登录表单界面登录的click事件代码PRIVATE Zj,mm,ST &定义私有变量zj(输入的证件号)，mm(输入的密码)，ST(提示信息)ST=密码不正确，请重新输入！ Zj=alltrim(THISFORM.text1.value)mm=alltrim(THISFORM.text2.value)LOCATE FOR

12、 Zj=alltrim(管理人员.登录名)IF FOUND() AND alltrim(管理人员.密码)=mmcaozuoyuan=alltrim(管理人员.登录名)THISFORM.Visible=.F. DO c:usersuserdesktop数据库管理系统(1)菜单ELSEWAIT WINDOW ST TIMEOUT 2 thisform.password1.value= endif退出的click事件代码tuichu=messagebox(您确定要退出图书管理系统吗?,4+32+0,图书管理系统)if tuichu=6caozuoyuan=endifclear events9、学生查

13、询结果表单 功能：运行finds后显示界面（作为这个表单附加使用）上一条的click事件代码为skip -1 if .not. bof() thisform.refresh else messagebox(已经是第一条纪录！,0,记录情况) endif下一条的click事件代码为skip 1if .not. eof() thisform.refresh else messagebox(已经是最后一条纪录！,0,记录情况) endif10、书刊借阅表单 功能：续借书籍界面其中表grd借阅记录的init事件代码为WITH This.column6 .addobject(Check1,CheckBo

14、x) .currentcontrol=Check1 .sparse=.f.Check1.Caption=.Check1.visible=.t.Text1.visible=.f.ENDWITH续借按钮的click事件代码为借阅记录.column6.check1.value=.T. THENREPLACE 借阅记录.应还日期 with 借阅记录.应还日期+35messagebox(已续借成功,0,提示)endif11、借阅状态表单 功能：查看借阅状态界面建立报表 逾期未归还名册 建立主程序 程序1代码为SET DATE TO YMDSET DECIMALS TO 2SET RESOURCE ONS

15、ET FDOW TO 1SET FWEEK TO 1SET MARK TO .SET SEPARATOR TO .do form c:usersuserdesktop数据库管理系统(1)登陆界面.scxREAD EVENTSSET SYSMENU TO DEFAULTSET SYSMENU ONSET NOTIFY ONSET EXCLUSIVE OFFSET SAFETY ONMODIFY WINDOWS SCREEN建立菜单 菜单1书目查询有子菜单 界面按题名查询命令为DO form c:usersuserdesktop数据库管理系统(1)题名查询按编号查询命令为do form c:use

16、rsuserdesktop数据库管理系统(1)findb其他均无子菜单借阅状态的命令为DO FORM c:usersuserdesktop数据库管理系统(1)借阅状态书刊借阅的命令为DO FORM c:usersuserdesktop数据库管理系统(1)书刊借阅读者查询读者信息的命令为DO FORM c:usersuserdesktop数据库管理系统(1)finds读者添加的命令为DO FORM c:usersuserdesktop数据库管理系统(1)添加读者书籍添加的命令为DO FORM c:usersuserdesktop数据库管理系统(1)添加书籍退出系统是一个过程，代码为set pro

17、cedure to c:usersuserdesktop数据库管理系统(1)菜单close databasesclose allclear eventsquit6、心得体会由于对vfp系统的各种不了解，我们在制作过程中还是遇到了相当多的难题。就建立几个功能为查询的表单（finds, findb ,题名查询）而言，问题也不是非常大，但是到建立添加表单比如说添加书籍时就遇到了不小对的问题，首先是代码格式，目的在于添加一条记录到表中，可以用append 或者insert into，经过我几次试验，发现还是insert 语句好用一点，于是就采用了这种方式。第二个是操作类型或者操作符不匹配的问题。很惭愧的我不知道这是什么意思，只知道不能运行并试了很多方法都无