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

《VFP图书管理系统程序设计思路》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、图书管理系统设计思路系统简介1、本图书管理系统，包含了对图书、读者等基本信息的管理，也包含了借书信息，还书信息等的查询和管理。本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息。能打印图书信息，读者信息等。本系统的初始登录用户名为：万鹏密码为12342、本系统的总体设计树状图系统登录图书管理信息录入读者服务信息维护信息查询报表打印图书登记读者登记借书登记还书登记读者读者借阅图书读者清单图书图书具体操作步骤1、创建项目，名为图书管理系统2、数据库设计（1）在项目中新建三个

2、自由表，各自由表的字段值如下：表名字段一字段二字段三字段四字段五字段六图书图书编号作者图书名称价格现存数量出版社读者读者编号读者姓名性别籍贯联系电话专业用户读者编号用户名密码3、界面设计（1）系统启动表单在项目中创建一个表单。如下图添加相应控件并在登录按钮的Click事件下写入如下代码：use用户.dbflogcount=logcount+1locateforalltrim(用户.用户名)=alltrim(thisform.text2.value)iffound()andalltrim(用户.密码)

3、==alltrim(thisform.text3.value)messagebox("登陆成功！欢迎进入图书管理系统",0+64,"恭喜")doform等待启动.scxreleasethisformelseiflogcount<4then=messagebox("密码错误，请重新输入！！！",48,"提示")else=messagebox("对不起，您无权访问，系统将自动退出！！！",48,"警告")releasethisformendifendif双击退出按钮，并在它的Click事件写下如下代码：

4、Clearevent设置Form1对象的init事件代码为：thisform.label9.caption=ALLTRIM(STR(YEAR(DATE())))+"年"+ALLTRIM(STR(MONTH(DATE())))+"月"+ALLTRIM(STR(DAY(DATE())))+"日"+time()publiclogcountasintegerlogcount=0thisform.text2.setfocus（3）创建主表单创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“

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

6、ulttoe:计算机学习vfpvfp教学vf60中文帮助版.insvfp98图书管理系统_screen.visible=.f.doform登录.scxmodifywindowsscreentitle"图书管理系统"readeventquit4、表单设计（1）图书登记表单如下图，创建一个名为读者录入的表单，在他的数据环境中添加表。然后拖动相应的字段到表单中，按如图所示的位置放好。（2）借书登记表单如图新建一个表单，把相应的字段拖入表单中。按如图所示的位置放好如图添加一个命令按钮并在他的cl

7、ick事件中写入如下代码：USE图书借阅locatallfor图书名称=alltrim(thisform.text4.value)iffound()updatetushuziliaoset借阅日期=date(),截止日期=借阅日期+45where图书编号=thisform.Text1.valuem=alltrim(thisform.text1.value)n=alltrim(thisform.text2.value)update图书借阅set读者姓名=m,读者编号=nwhere图书名称=alltri

8、m(thisform.Text4.value)=messagebox("恭喜,借书成功！",64,"提示")endif（3）读者信息维护表单创建一个表单，在其数据环境设计器中添加读者表，在表单上添加一个表格对象，一个命令按钮组对象，如图：设置按钮的Click事件代码为：dzbh=allt(thisform.combo1.value)zy=allt(thisform.text2.value)lxdh=allt(thisform.text4.value)xm=allt(t