vfp图馆管理新新完整Word文档下载推荐.docx

1、图书信息管理系统 读者管理 图书服务 图书查询 借还图书系统用户管理 针对各个模块不同的表实现添加记录、修改记录、删除记录以及查询、显示记录等功能。（1） 登录“登录”窗体如图，操作员使用系统前，要输入正确的用户名和密码，才可以进入“图书信息管理系统”进行下一步操作。登录窗口（2）主界面 通过登录验证以后，进入主界面窗体，通过主窗体，操作员可以方便地调用“图书信息管理系统”内的各项功能。主界面（3）图书管理 单击上图中的“图书管理”菜单，可以进行图书管理操作，比如单击“图书入库”子菜单，就可以弹出如下窗口：单击“修改图书信息”按钮，弹出“修改图书信息”窗口，可以对图书信息进行修改。如图：（4）

2、读者管理 单击主界面中的“读者管理”菜单，可以进行读者管理操作，比如单击“录入读者信息”子菜单，弹出“录入读者信息”窗口，同时还可以进行“修改读者信息”操作，如下图：（5）图书服务 单击主界面中的“图书服务”菜单，可以进行图书服务操作，比如单击“图书查询”子菜单，弹出“查询、预约、借阅图书”窗口，在此窗口中可以查询、预约、借阅图书。单击“借还图书”按钮，弹出“个人借阅图书”窗口，可以借阅及归还图书。如下图“（6）系统用户管理 单击“主界面”中的“系统管理”菜单，可以进行系统管理操作，比如单击“用户注册”子菜单，弹出“用户注册”窗口，在此窗口中可以注册新用户。单击“修改密码”按钮，弹出“用户修改

3、密码”窗口，可以修改当前用户的密码。4、数据库结构设计本系统数据库包含4表，即图书信息表、读者信息表、借阅图书表和用户表。下面分别介绍这些表的结构。（1）图书信息表（booksinfo），用于记录图书的基本信息，包括编号、书名、书号、作者及出版社等，其逻辑结构如表：图书信息表 字段名字段类型宽度索引否说明编号字符型10无书号书名40作者8出版社20定价双精度型6册数数值型3入库日期日期型备注备注型4（2） 读者信息表（readerinfo），用于记录读者的基本信息，包括读者编号、姓名、详细住址及注册日期等，其逻辑结构如表：读者信息表 读者编号姓名性别年龄详细地址联系电话11注册日期压金是否允许

4、借逻辑型1（3） 借阅图书表（leadinfo），用于记录借阅图书的基本信息，包括书号、读者编号、借阅日期、预约日期、借阅天数及归还日期等，其逻辑结构如表：借阅图书表 借阅日期预约日期借阅天数2归还日期借阅情况是否延期 （4）用户表（passwordinfo），用于记录用户的基本信息，包括用户名及密码等，其逻辑结构如表：用户名系统的用户姓名密码用户密码5、登录窗体和系统主界面设计当系统运行时，首先打开登录表单，只有有权限的用户才能进入系统。登录成功后，将显示系统主界面。 设计登录窗体新建一个表单，保存为“log”（登录），表单及控件属性如表：对象名称属性名称属性值Form1Caption用户登

5、录Borderstyle2-固定对话框Autocenter.T.Maxbutton.F.Minbuttonshowwindow0-在屏幕中Label1用户名：Fontsize14Fontname宋体密码：Command1确定Command2退出Text1,text2alignment0-居左Text2Password*在command1 的“click”事件中添加如下代码：select passwordinfoif allt（thisform.text1.value）= thisform.text1.setfocuselse if allt（thisform.text2.value）= thi

6、sform.text2.setfocus else locate for allt（用户名）=allt（thisform.text1.value）。 .and.allt（密码）=allt（thisform.text2.value） if eof（） messagebox（用户名或密码错误，请重新输入！,64,提示） thisform.text1.value= thisform.text2.value= thisform.text1.setfocus（） cyonghu=allt（thisform.text1.value） cmima=allt（thisform.text2.value） do

7、menu.mpr thisform.release endifendif在command2（退出）“click”事件中添加如下代码：thisform.releaseclear eventquit（2）设计主界面 主界面为本系统最基本的功能模块，通过主界面的菜单能对系统的其他功能进行集中管理。主界面采用了顶层表单技术，使用界面友好，同时大大减轻了设计、编程的工作量。主界面属性表 图书信息管理系统borderstyle3-可调对话框.t.f.Mnbutton2-作为顶层表单建立一个名为“menu”的菜单文件，如表：图书信息管理系统菜单设计 读者管理图书服务系统管理录入图书信息录入读者信息图书查询用

8、户注册修改图书信息修改读者信息图书借还密码修改退出系统条形菜单中的4个菜单为下拉式菜单：6、图书管理模块设计 （1）建立一个新的表单，保存为“tslr”如下图部分空间属性：重填Command3返回Command1中添加如下代码：use booksinfo请输入完整的必要信息！ if allt（thisform.text3.value）= thisform.text3.setfocus if allt（thisform.text4.value）= thisform.text4.setfocus if allt（thisform.text5.value）=thisform.text5.setfoc

9、us if allt（thisform.text6.value）= thisform.text6.setfocus if allt（thisform.text7.value）= thisform.text7.setfocus append blank repl 书号 with allt（thisform.text1.value）repl 编号 with allt（thisform.text2.value） repl 书名 with allt（thisform.text3.value） repl 作者 with allt（thisform.text4.value） repl 出版社 with a

10、llt（thisform.text5.value）repl 定价 with allt（thisform.text6.value） repl 册数 with allt（thisform.text7.value） repl 备注 with allt（thisform.edit1.value） repl 入库日期 with date（） thisform .command2.click usecommand2中添加如下代码：thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=thisf

11、orm.text5.value=thisform.text6.value=thisform.text7.value=thisform.edit1.value=thisform.text1.setfocuscommand3中添加如下代码： 设计图书信息修改表单建立一个新的表单，保存为“xxxg”，部分控件属性如下：图书信息修改3可调对话框修改删除第一条Command4最后一条Command5上一条Command6下一条Command7快速定位Command8Command1中添加的代码：thisform.text1.readonly=.f.thisform.text2.readonly=.f.t

12、hisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.readonly=.f.thisform.text6.readonly=.f.thisform.edit1.readonly=.f.Command2中添加的代码：use booksinfo exclusivego nheremb=messagebox（确定要删除吗？,1+64,if mb=1 delete pack thisform.label1.init if nherenum go bottom thisform.init go nhereCommand3

13、中添加的代码：go topnhere=recno（）thisform.label8.caption=allt（str（recno）mand4.enabled=.t.mand6.enabled=.t.thisform.initCommand4中添加的代码：go bottommand3.enabled=.t.mand5.enabled=.t.Command5中添加的代码：skip-1if bof（） this.enabled=.f. mand3.enable=.f.已经到第一条记录了！,48, go top nhere=recno（）Command6中添加的代码：skip 1if eof（） th

14、isform.enabled=.f. mand4.enabled=.f.已经到最后一条记录了！Command7中添加的代码：sele booksinfoif allt（thisform.text7.value）=请输入要查询的内容！ locate for allt（书名）=allt（thisform.text7.value）此书不存在，请重新输入！Command8中添加的代码：7、读者模块设计（1）建立表单保存为“dzlr” 录入图者信息Command1 中添加的代码：use readerinfo repl 读者编号 with allt（thisform.text1.value） repl 姓

15、名 with allt（thisform.text2.value） repl 年龄 with allt（thisform.text3.value） repl 联系电话 with allt（thisform.text4.value） repl 详细地址 with allt（thisform.text5.value） repl 压金 with val（allt（thisform.text6.value）repl 注册日期 with date（） if allt（bo1.value）= repl 性别 with allt（bo1.displayvalue） repl 性别 with allt（bo1.value）