VFP图书管理系统程序设计思路.docx

1、VFP图书管理系统程序设计思路图书管理系统设计思路系统简介1、本图书管理系统，包含了对图书、读者等基本信息的管理，也包含了借书信息，还书信息等的查询和管理。本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息。能打印图书信息，读者信息等。本系统的初始登录用户名为：万鹏 密码为12342、本系统的总体设计树状图具体操作步骤1、创建项目，名为图书管理系统2、数据库设计（1）在项目中新建三个自由表，各自由表的字段值如下：表名字段一字段二字段三字段四字段五字段六图书图书编号作者图书名称价格现存数量出版社读者读者编号读者姓名性别籍贯联系电话专业用户读者编号用户名密码 3、界面

2、设计（1）系统启动表单在项目中创建一个表单。如下图添加相应控件并在登录按钮的Click事件下写入如下代码：use 用户.dbflogcount=logcount+1locate for alltrim(用户.用户名)=alltrim(thisform.text2.value)if found() and alltrim (用户.密码)=alltrim(thisform.text3.value)messagebox(登陆成功！欢迎进入图书管理系统,0+64,恭喜) do form 等待启动.scx release thisformelse if logcount4 then =messagebo

3、x(密码错误，请重新输入,48,提示) else =messagebox(对不起，您无权访问，系统将自动退出,48,警告) release thisform endif endif 双击退出按钮，并在它的Click事件写下如下代码： Clear event设置Form1对象的init 事件代码为：thisform.label9.caption=ALLTRIM(STR(YEAR(DATE()+年+ALLTRIM(STR(MONTH(DATE()+月+ALLTRIM(STR(DAY(DATE()+日+time() public logcount as integerlogcount=0thisfo

4、rm.text2.setfocus（3）创建主表单创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2作为顶层表单”如图设置它的其他控件属性。设置主界面对象的init 事件代码为：DO 菜单1.mpr with this,.T.（4）创建主菜单如下图创建主菜单表单，并且选择“显示”“常规选项”“顶层表单”分别设置各个子菜单如下：信息录入读者服务信息维护信息查询报表打印然后分别在各自的过程中写入相应的调用表单的命令。例如在读者登记菜单的过程中写入：Do form 读者信息(5)创建主程序文件创建主程序文件，将其保存为“程序1”在代码编辑窗口中，输入以下代码：clear all

5、 set talk offset default to e:计算机学习vfpvfp教学vf60中文帮助版.insvfp98图书管理系统_screen.visible=.f.do form 登录.scxmodify windows screen title 图书管理系统read eventquit4、表单设计（1）图书登记表单如下图，创建一个名为读者录入的表单，在他的数据环境中添加表。然后拖动相应的字段到表单中，按如图所示的位置放好。（2）借书登记表单如图新建一个表单，把相应的字段拖入表单中。按如图所示的位置放好如图添加一个命令按钮并在他的 click事件中写入如下代码：USE 图书借阅loca

6、t all for 图书名称=alltrim(thisform.text4.value) if found() update tushuziliao set 借阅日期=date() , 截止日期=借阅日期+45 where 图书编号=thisform.Text1.value m=alltrim(thisform.text1.value) n=alltrim(thisform.text2.value) update 图书借阅 set 读者姓名=m,读者编号=n where 图书名称=alltrim(thisform.Text4.value) =messagebox(恭喜,借书成功！,64,提示)

7、 endif（3）读者信息维护表单创建一个表单，在其数据环境设计器中添加读者表，在表单上添加一个表格对象，一个命令按钮组对象，如图：设置按钮的Click事件代码为：dzbh=allt(bo1.value)zy=allt(thisform.text2.value) lxdh=allt(thisform.text4.value)xm=allt(thisform.Text1.value)xb=allt(bo2.value)jg=allt(thisform.Text3.value)locate for 读者编号 = dzbhif found()messagebox(读者编号不能为空,16,错误)els

8、eif empty(xm)messagebox(姓名不能为空,16,错误)elseif empty(xb)messagebox(性别不能为空,16,错误)elseif empty(jg)messagebox(籍贯不能为空,16,错误)elseif empty(zy)messagebox(专业不能为空,16,错误)elseif empty(lxdh)messagebox(联系电话不能为空,16,错误)elseAPPE BLANREPL 读者编号 WITH THISFORM.combo1.VALUEREPL 姓名 WITH THISFORM.TEXT1.VALUEREPL 性别 WITH THIS

9、FORM.combo2.VALUEREPL 籍贯 WITH THISFORM.TEXT3.VALUEREPL 专业 WITH (THISFORM.TEXT2.VALUE)REPL 联系电话 WITH VAL(THISFORM.TEXT4.VALUE)messagebox(添加成功,64,提示)bo1.value=thisform.Text2.value=thisform.Text4.value=thisform.Text1.value=bo2.value=thisform.Text3.value=endifendifendifendifendifendif（4）读者信息查询表单查询按钮的代码： select 读者 set filter to 姓名= alltrim(bo1.value) thisform.grd读者.setfocus thisform.refresh（3）读者信息打印表单5、连编程序