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

图书管理系统设计思路 系统简介 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 ）创建主菜单 如下图创建主菜单表单，并且选择“显示”“常规选项”“顶层表单” 分别设置各个子菜单如下： 信息录入 读者服务 信息维护 信息查询 报表打印 然后分别在各自的过程中写入相应的调用表