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

图书管理系统设计思路 系统简介 1、本图书管理系统，包含了对图书、读者等基本信息的管理，也包含了借书信息，还书信息等的查询和管理。 本系统具有如下功能：能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息。能打印图书信息，读者信息等。 本系统的初始登录用户名为：万鹏 密码为1234 2、本系统的总体设计树状图 具体操作步骤 1、创建项目，名为图书管理系统 2、数据库设计 （1）在项目中新建三个自由表，各自由表的字段值如下： 表名 字段一 字段二 字段三 字段四 字段五 字段六 图书 图书编号 作者 图书名称 价格 现存数量 出版社 读者 读者编号 读者姓名 性别 籍贯 联系电话 专业 用户 读者编号 用户名 密码 3、界面设计 （1）系统启动表单 在项目中创建一个表单。如下图添加相应控件并在登录按钮的Click事件下写入如下代码： use 用户.dbf logcount=logcount+1 locate for alltrim(用户.用户名)=alltrim(thisform.text2.value) if found() and alltrim (用户.密码)==alltrim(thisform.text3.value) messagebox(登陆成功！欢迎进入图书管理系统,0+64,恭喜) do form 等待启动.scx release thisform else if logcount4 then =messagebox(密码错误，请重新输入！！！,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 integer logcount=0 thisform.text2.setfocus （3）创建主表单 创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2——作为顶层表单” 如图设置它的其他控件属性。 设置主界面对象的init 事件代码为： DO 菜单1.mpr with this,.T. （4）创建主菜单 如下图创建主菜单表单，并且选择“显示”“常规选项”“顶层表单” 分别设置各个子菜单如下： 信息录入 读者服务 信息维护 信息查询 报表打印 然后分别在各自的过程中写入相应的调用表单的命令。例如在读者登记菜单的过程中写入： Do form 读者信息 (5)创建主程序文件 创建主程序文件，将其保存为“程序1”在代码编辑窗口中，输入以下代码： clear all set talk off set default to e:\计算机学习\vfp\vfp教学\vf60中文帮助版.ins\vfp98\图书管理系统 _screen.visible=.f. do form 登录.scx modify windows screen title 图书管理系统 read event quit 4、表单设计 （1）图书登记表单 如下图，创建一个名为读者录入的表单，在他的数据环境中添加表。然后拖动相应的字段到表单中，按如图所示的位置放好。 （2）借书登记表单 如图新建一个表单，把相应的字段拖入表单中。按如图所示的位置放好 如图添加一个命令按钮并在他的 click事件中写入如下代码： USE 图书借阅 locat 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,提示) endif （3）读者信息维