vfp__图书馆管理新新系统

  摘要 【摘要】随着社会经济发展，图书信息管理已经逐渐发展成为一门重要的学科，对图书信息的管理高效与否已成为衡量一个部门是否信息化的重要标志。现介绍的图书信息管理系统包括图书的基本信息管理、借阅管理、读者信息管理以及系统用户管理。系统的特点是操作方便，功能完备。本系统采用Visual Foxpro 作为开发工具。通过此系统的开发可以使读者了解管理信息系统的需求分析、设计和实现的完整过程，掌握数据库的基本设计和管理方法，积累数据库应用系统实战经验。 【关键词】图书信息管理系统 系统分析与总体设计 1、【系统需求分析】本系统用于实现与图书管理相关的各种信息的系统化、化和自动化。该图书信息管理系统完成的主要功能有： l  图书管理。包括图书入库管理和修改图书信息。 l  读者管理。包括对录入读者信息和修改读者信息。 l  图书服务。包括借阅图书和图书查询。 l  系统管理。用于管理系统用户。 2、【开发及运行环境】 系统发平台：Microsoft Visual FoxPro 6.0。 运行平台：Windows XP/ Windows 2000/ Windows 2003 分辨率：最佳效果1024×768像素         3、【系统模块设计预览】     需求分析，建立教务管理系统的逻辑模型，如下图：                           图书管理 图书信息管理系统                        读者管理                       图书服务   『图书查询                                    借还图书』                     系统用户管理       针对各个模块不同的表实现添加、修改记录、删除记录以及查询、显示记录等功能。 （1）   登录 “登录”窗体如图，操作员使用系统前，要输入正确的用户名和密码，才可以进入“图书信息管理系统”进行下一步操作。 登录窗口 （2）主界面      通过登录验证以后，进入主界面窗体，通过主窗体，操作员可以方便地调用“图书信息管理系统”内的各项功能。 主界面 （3）图书管理      单击上图中的“图书管理”菜单，可以进行图书管理操作，比如单击“图书入库”子菜单，就可以弹出如下窗口： 单击“修改图书信息”按钮，弹出“修改图书信息”窗口，可以对图书信息进行修改。如图： （4）读者管理      单击主界面中的“读者管理”菜单，可以进行读者管理操作，比如单击“录入读者信息”子菜单，弹出“录入读者信息”窗口，同时还可以进行“修改读者信息”操作，如下图： （5）图书服务      单击主界面中的“图书服务”菜单，可以进行图书服务操作，比如单击“图书查询”子菜单，弹出“查询、预约、借阅图书”窗口，在此窗口中可以查询、预约、借阅图书。单击“借还图书”按钮，弹出“个人借阅图书”窗口，可以借阅及归还图书。如下图“ （6）系统用户管理      单击“主界面”中的“系统管理”菜单，可以进行系统管理操作，比如单击“用户注册”子菜单，弹出“用户注册”窗口，在此窗口中可以注册新用户。单击“修改密码”按钮，弹出“用户修改密码”窗口，可以修改当前用户的密码。           4、数据库结构设计 本系统数据库包含4表，即图书信息表、读者信息表、借阅图书表和用户表。下面分别介绍这些表的结构。 （1）图书信息表（booksinfo），用于记录图书的基本信息，包括编号、书名、书号、作者及出版社等，其逻辑结构如表： 图书信息表 字段名 字段类型 宽度 索引否 说明 编号 字符型 10 无 无 书号 字符型 10 无 无 书名 字符型 40 无 无 作者 字符型 8 无 无 出版社 字符型 20 无 无 定价 双精度型 6 无 无 册数 数值型 3 无 无 入库日期 日期型 8 无 无 备注 备注型 4 无 无 （2）    读者信息表（readerinfo），用于记录读者的基本信息，包括读者编号、姓名、详细住址及注册日期等，其逻辑结构如表： 读者信息表 字段名 字段类型 宽度 索引否 说明 读者编号 字符型 6 无 无 姓名 字符型 10 无 无 性别 字符型 10 无 无 年龄 数值型 8 无 无 详细地址 字符型 20 无 无 联系电话 字符型 11 无 无 注册日期 日期型 8 无 无 压金 数值型 3 无 无 是否允许借 逻辑型 1 无 无 （3）    借阅图书表（leadinfo），用于记录借阅图书的基本信息，包括书号、读者编号、借阅日期、预约日期、借阅天数及归还日期等，其逻辑结构如表： 借阅图书表 字段名 字段类型 宽度 索引否 说明 书号 字符型 6 无 无 读者编号 字符型 10 无 无 借阅日期 日期型 8 无 无 预约日期 日期型 8 无 无 借阅天数 数值型 2 无 无 归还日期 日期型 8 无 无 借阅情况 字符型 20 无 无 是否延期 逻辑型 1 无 无 备注 备注型 4 无 无   （4）用户表（passwordinfo），用于记录用户的基本信息，包括用户名及密码等，其逻辑结构如表： 字段名 字段类型 宽度 索引否 说明 用户名 字符型 6 无 系统的用户姓名 密码 字符型 10 无 用户密码       5、登录窗体和系统主界面设计     当系统运行时，首先打开登录表单，只有有权限的用户才能进入系统。登录成功后，将显示系统主界面。 （1）    设计登录窗体 新建一个表单，保存为“log”（登录），表单及控件属性如表： 对象名称 属性名称 属性值 Form1 Caption 用户登录 Borderstyle 2-固定对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Label1 Caption 用户名： Fontsize 14 Fontname 宋体 Label1 Caption 密码：   Fontsize 14 Command1 Caption 确定 Command2 Caption 退出 Text1,text2 alignment 0-居左 Text2 Password * 在command1 的“click”事件中添加如下代码： select passwordinfo if allt(thisform.text1.value)==""    thisform.text1.setfocus else    if allt(thisform.text2.value)==""       thisform.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()      else         cyonghu=allt(thisform.text1.value)         cmima=allt(thisform.text2.value)         do menu.mpr         thisform.release      endif    endif endif 在command2（退出）“click”事件中添加如下代码： thisform.release clear event quit   （2）设计主界面      主界面为本系统最基本的功能模块，通过主界面的菜单能对系统的其他功能进行集中管理。主界面采用了顶层表单技术，使用界面友好，同时大大减轻了设计、编程的工作量。 主界面属性表 对象名称 属性名称 属性值 Form1 Caption 图书信息管理系统 borderstyle 3-可调对话框 Autocenter .t. Maxbutton .f. Mnbutton .t. showwindow 2-作为顶层表单   建立一个名为“menu”的菜单文件，如表： 图书信息管理系统菜单设计 图书管理 读者管理 图书服务 系统管理 录入图书信息 录入读者信息 图书查询 用户注册 修改图书信息 修改读者信息 图书借还 密码修改       退出系统 条形菜单中的4个菜单为下拉式菜单： 6、图书管理模块设计     （1）建立一个新的表单，保存为“tslr”如下图部分空间属性： 对象名称 属性名称 属性值 Form1 Caption 录入图书信息 Borderstyle 3-可调对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 确定 Command2 Caption 重填 Command3 Caption 返回   Command1中添加如下代码： use booksinfo if allt(thisform.text1.value)==""    messagebox("请输入完整的必要信息！",64,"提示")    thisform.text1.setfocus else    if allt(thisform.text2.value)==""       messagebox("请输入完整的必要信息！",64,"提示")       thisform.text2.setfocus    else       if allt(thisform.text3.value)==""          messagebox("请输入完整的必要信息！",64,"提示")          thisform.text3.setfocus       else          if allt(thisform.text4.value)==""             messagebox("请输入完整的必要信息！",64,"提示")             thisform.text4.setfocus          else             if allt(thisform.text5.value)==""                messagebox("请输入完整的必要信息！",64,"提示")                thisform.text5.setfocus             else                if allt(thisform.text6.value)==""                   messagebox("请输入完整的必要信息！",64,"提示")                   thisform.text6.setfocus                else                    if allt(thisform.text7.value)==""                       messagebox("请输入完整的必要信息！",64,"提示")                       thisform.text7.setfocus                     else                        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 allt(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                     endif                  endif               endif            endif         endif      endif   endif   use command2中添加如下代码： thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" thisform.text5.value="" thisform.text6.value="" thisform.text7.value="" thisform.edit1.value="" thisform.text1.setfocus command2中添加如下代码： command3中添加如下代码： thisform.release   （2）    设计图书信息修改表单 建立一个新的表单，保存为“xxxg”，部分控件属性如下： 对象名称 属性名称 属性值 Form1 Caption 图书信息修改 Borderstyle 3可调对话框 Autocenter Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 修改 Command2 Caption 删除 Command3 Caption 第一条 Command4 Caption 最后一条 Command5 Caption 上一条 Command6 Caption 下一条 Command7 Caption 快速定位 Command8 Caption 返回 Command1中添加的代码： thisform.text1.readonly=.f. thisform.text2.readonly=.f. thisform.text3.readonly=.f. thisform.text4.readonly=.f. thisform.text5.readonly=.f. thisform.text6.readonly=.f. thisform.edit1.readonly=.f. Command2中添加的代码： use booksinfo exclusive go nhere mb=messagebox("确定要删除吗？",1+64,"提示") if mb==1    delete    pack    thisform.label1.init    if nhere>num       go bottom       thisform.init    else       go nhere       thisform.init    endif endif Command3中添加的代码： go top nhere=recno() thisform.label8.caption=allt(str(recno)) thisform.command4.enabled=.t. thisform.command6.enabled=.t. thisform.init Command4中添加的代码： go bottom nhere=recno() thisform.label8.caption=allt(str(recno)) thisform.command3.enabled=.t. thisform.command5.enabled=.t. thisform.init     Command5中添加的代码： skip-1 if bof()    this.enabled=.f.    thisform.command3.enable=.f.    messagebox("已经到第一条记录了！",48,"提示")    go top    nhere=recno() else    thisform.init    nhere=recno() endif thisform.command4.enabled=.t. thisform.command6.enabled=.t. Command6中添加的代码： skip 1 if eof()    thisform.enabled=.f.    thisform.command4.enabled=.f.    messagebox("已经到最后一条记录了！",48,"提示")    go bottom    nhere=recno() else    nhere=recno()    thisform.init endif thisform.command3.enabled=.t. thisform.command5.enabled=.t. Command7中添加的代码： sele booksinfo go top if allt(thisform.text7.value)==""    messagebox("请输入要查询的内容！",64,"提示")    thisform.text7.setfocus else    locate for allt(书名)=allt(thisform.text7.value)    if eof()       go bottom       thisform.init       messagebox("此书不存在，请重新输入！",64,"提示")       thisform.text7.setfocus    else       thisform.init    endif    nhere=recno() endif Command8中添加的代码：   thisform.release   7、读者模块设计 （1）建立表单保存为“dzlr” 对象名称 属性名称 属性值 Form1 Caption 录入图者信息 Borderstyle 3-可调对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 确定 Command2 Caption 重填 Command3 Caption 返回   Command1 中添加的代码： use readerinfo if allt(thisform.text1.value)==""    messagebox("请输入完整的必要信息！",64,"提示")    thisform.text1.setfocus else    if allt(thisform.text2.value)==""       messagebox("请输入完整的必要信息！",64,"提示")       thisform.text2.setfocus    else       if allt(thisform.text4.value)==""          messagebox("请输入完整的必要信息！",64,"提示")          thisform.text3.setfocus       else          if allt(thisform.text5.value)==""             messagebox("请输入完整的必要信息！",64,"提示")             thisform.text4.setfocus          else             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 allt(thisform.text5.value)             repl 压金 with val(allt(thisform.text6.value))             repl 备注 with allt(thisform.edit1.value)             repl 注册日期 with date()             if allt(thisform.combo1.value)==""                repl 性别 with allt(thisform.combo1.displayvalue)             else                repl 性别 with allt(thisform.combo1.value)             endif             thisform.command2.click          endif       endif    endif endif use            Command2 中添加的代码：  thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" thisform.text5.value="" thisform.combo1.value="" thisform.combo1.displayvalue="男" thisform.edit1.value="" thisform.text1.setfocus Command3 中添加的代码： thisform.release （2）建立度读者信息修改表单，保存为“dzxg” 对象名称 属性名称 属性值 Form1 Caption 读者信息修改 Borderstyle 3可调对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 修改 Command2 Caption 删除 Command3 Caption 第一条 Command4 Caption 最后一条 Command5 Caption 上一条 Command6 Caption 下一条 Command7 Caption 快速定位 Command8 Caption 返回   Command1 中添加的代码： thisform.text1.readonly=.f. thisform.text2.readonly=.f. thisform.text3.readonly=.f. thisform.text4.readonly=.f. thisform.text5.readonly=.f. thisform.text6.readonly=.f. thisform.edit1.readonly=.f. Command2 中添加的代码： use booksinfo exclusive go there mb=messagebox("确定要删除吗？",1+64,"提示") if mb==1    delete    pack    thisform.label1.init    if nhere>num       go bottom       thisform.init    else       go nhere       thisform.init    endif endif Command3 中添加的代码： go top nhere=recno() thisform.label8.caption=allt(str(recno())) thisform.command4.enabled=.t. thisform.command6.enabled=.t. thisform.init Command4 中添加的代码： go bottom nhere=recno() thisform.label8.caption=allt(str(recno())) thisform.command3.enabled=.t. thisform.command6.enabled=.t. thisform.init Command5 中添加的代码： skip-1 if bof()    this.enabled=.f.    thisform.command3.enable=.f.    messagebox("已经到第一条记录了！",48,"提示")    go top    nhere=recno() else    thisform.init    nhere=recno() endif thisform.command4.enabled=.t. thisform.command6.enabled=.t. Command6 中添加的代码： skip 1 if eof()    thisform.enabled=.f.    thisform.command4.enabled=.f.    messagebox("已经到最后一条记录了！",48,"提示")    go bottom    nhere=recno() else    nhere=recno()    thisform.init endif thisform.command3.enabled=.t. thisform.command5.enabled=.t.     Command7 中添加的代码： sele booksinfo go top if allt(thisform.text7.value)==""    messagebox("请输入要查询的内容！",64,"提示")    thisform.text7.setfocus else    locate for allt(书名)=allt(thisform.text7.value)    if eof()       go bottom       thisform.init       messagebox("此书不存在，请重新输入！",64,"提示")       thisform.text7.setfocus    else       thisform.init    endif    nhere=recno() endif Command8 中添加的代码 thisform.release           8、系统管理模块设计  （1）建立一个新的表单，保存为“yhzc”，部分控件属性： 对象名称 属性名称 属性值 Form1 Caption 用户注册 Borderstyle 2-固定对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 注册 Command2 Caption 取消   Command1中添加的代码： select passwordinfo if allt(thisform.text1.value)==""    thisform.text1.setfocus else    locate for allt(用户名)=allt(thisform.text1.value)    if !eof()       messagebox("用户名已存在，请重新输入！",64,"提示")       thisform.text1.value=""       thisform.text2.value=""       thisform.text1.setfocus()    else       if allt(thisform.text2.value)==""          messagebox("请输入密码！",64,"提示")          thisform.text2.setfocus       else          if !allt(thisform.text2.value)==allt(thisform.text3.value)             messagebox("确认密码错误，请重新输入！",64,"信息提示")             thisform.text3.value=""             thisform.text3.setfocus          else             append blank             repl 用户名 with allt(thisform.text1.value)             repl 密码 with allt(thisform.text2.value)             thisform.text1.value=""             thisform.text2.value=""             thisform.text3.value=""          endif       endif    endif endif          Command2中添加的代码： thisform.release           （2）建立一个新的表单，保存为“yhxg”，部分控件属性： 对象名称 属性名称 属性值 Form1 Caption 修改用户密码 Borderstyle 2-固定对话框 Autocenter .T. Maxbutton .F. Minbutton .F. showwindow 0-在屏幕中 Command1 Caption 修改 Command2 Caption 取消   Command1中添加的代码： select passwordinfo if allt(thisform.text1.value)==""    thisform.text1.setfocus else    locate for allt(用户名)=allt(thisform.text1.value)    if eof()       messagebox("此用户不存在，请重新输入！",64,"提示")       thisform.text1.value=""       thisform.text2.value=""       thisform.text3.value=""       thisform.text4.value=""       thisform.text1.setfocus()    else       if !allt(thisform.text2.value)==""          messagebox("密码错误，请重新输入！",64,"提示")          thisform.text2.value=""          thisform.text3.value=""          thisform.text4.value=""          thisform.text2.setfocus()       else          if allt(thisform.text3.value)==""             messagebox("请输入新密码！",64,"提示")             thisform.text3.setfocus          else             if !allt(thisform.text3.value)==allt(thisform.text4.value)                messagebox("确认密码错误，请重新输入！",64,"提示")                thisform.text4.value=""                thisform.text3.setfocus             else                repl 密码 with allt(thisform.text4.value)                thisform.release             endif          endif       endif    endif endif            Command2中添加的代码： thisform.release 附录：参考文献 1. 《Visual Foxpro 6.0数据库原理与应用》 2. 《Visual Foxpro 数据库应用实例完全解析》