VF课程设计--图书管理系统.doc

Visual Foxpro课程设计启安图书管理系统一、 引言1、 背景介绍随着计算机的不断发展，人们对于计算机的应用不再是最初的简单的文字处理和科学计算，现在，利用计算力来进行管理也成了日常需要。 在学校，一直以来，人们都是用传统的方式来管理图书、期刊、论文、以及报纸。这种管理方式存在很大的效率低下、保密性差的缺点。并且，随着时间的积累，图书越来越多，查找维护或者更新起来非常麻烦。手工管理显然已经不能满足以上需求，应该使用现代化的手段来提提高管理和服务的水平。图书管理系统就是一个为辅者提供充足的信息和快捷的查询手段的一种工具。2、实现目标 管理员可以通过图书管理系统查询某位读者、某种图书的借阅情况；还可以对当前图书借阅进行一些统计，给出统计表格，方便汇总，以便全面掌握图书的流通情况。读者可以通过图书信息管理系统查询图书馆新进书的情况等。二、需求分析1、 功能需求根据上述目标，我们可以确定系统有如下功能： 系统登录：系统的使用人员只有在输入了正确的证件号和密码后才可以进入该系统，只知道证件号的人员，不知道密码，也不能进入。这主要是为了防止信息被非法盗用。 权限设置：不同的登入人员具有不同的权限，访问的系统资源是不一样的。在这主要是防止权限越位的现象。 书目查询管理：对书目的查询进行管理，主要包括对图书信息进行按书名查询、按著者查询以及按出版社信息查询等进行查询。 读者查询管理：对读者信息查询进行管理，主要包括：读者信息查询、书刊借阅查询、以及书刊借阅及时查询等。读者信息查询应包括按证件号查询以及按姓名查询。对于读者的信息，图书管理者也可以进行查询。读者信息主要包括：证件号、读者类型、姓名、出生日期、性别、文化程度、工作单位、职位、办证日期、违章状态、失效日期、累计借书、欠款状态、电话、Email、地址以及邮编字段。 信息公布管理：对一些公有的信息进行管理、包括：超期罚款、超期催款、预约到书等。这些信息对读者可见。 系统维护：对系统数据进行维护。主要包括：修改密码、以及添加人员等。 退出系统：离开图书管理系统。2、 性能需求系统运行对运行环境的一些要求：1）硬件环境 处理器：80486/50MHz及以上处理器内存：不低于16M硬盘空间：100M2）软件环境操作系统：Windows 9x、2000或XP数据库：Visual FoxPro开发平台：Visual FoxPro三、总体设计班级学生成绩管理系统学生基本信息维护成绩录入成绩查询成绩修改成绩删除成绩统计按学号查询按姓名查询按学号修改按姓名修改按学号删除按姓名删除个人成绩统计课程成绩统计班级成绩统计1、系统总体结构如图所示：验证密码主表单书目查询读者查询信息公布密码管理系统维护按题名查询按出版社查询超期催还按著者查询读者信息借阅历史书刊借阅预约到书超期罚款退出系统系统首页2、数据库结构设计按照系统不同的功能模块，需要不同的表来存储信息，数据库设计如下：（1）读者信息表结构：字段名字段类型字段宽度小数位索引否字段名字段类型字段宽度小数位索引否证件号字符型10主索引邮编字符型6姓名字符型10工作单位字符型20性别字符型2职位字符型20读者类型字符型20办证日期日期型6出生日期日期型8违章状态逻辑型1文化程度字符型10失效日期日期型8电话字符型13Email字符型20地址字符型20欠款状态逻辑型1累计借书整型4当年借书整型4（2）借阅表结构：字段名字段类型字段宽度小数位索引否条码号字符型10主索引证件号字符型10普通索引索取号字符型20题名字符型26著者字符型20借阅日期日期型8应还日期日期型8馆藏地字符型10续借逻辑型1是否到期逻辑型1（3）馆藏信息表结构：字段名字段类型字段宽度小数位索引否条码号字符型10主索引索取号字符型20馆藏地字符型10书刊状态字符型6当前状态字符型6（4）图书表结构：字段名字段类型字段宽度小数位索引否条码号字符型10主索引索取号字符型20题名字符型26著者字符型20出版信息字符型20是否带光盘逻辑型1ISBN号字符型10中图分类号字符型10科技图书分类号字符型10（5）预约表结构：字段名字段类型字段宽度小数位索引否证件号字符型10主索引单位字符型20题名字符型26著者字符型20馆藏地字符型10保留截止日期日期型8（6）人员配置表结构：字段名字段类型字段宽度小数位索引否证件号字符型10主索引姓名字符型10权限字符型3密码字符型10四、 详细设计1、 登陆界面登陆界面的load事件代码如下所示：set talk offset safety offclose allopen database c:vfp图书管理启安.dbc excluselec Ause c:vfp人员配置表启安.dbfcaozuoyuan=return caozuoyuanclose allunload事件代码如下：caouoyuan=return caozuoyuanclose all确认按钮的click事件代码如下：PRIVATE zj,mm,stst=密码不正确，请重新输入!zj=alltrim(thisform.no.value)mm=alltrim(thisform.password1.value)locate for zj=alltrim(人员配置表启安.证件号)if found()and alltrim(人员配置表启安.密码)=mmcaozuoyuan=alltrim(人员配置表启安.证件号)thisform.visible=.f.do zhumenu.mprelsewait window st timeout 2thisform.password1.value=thisform.password1.setfocusendif退出按钮的click事件代码如下：tuichu=messagebox(亲，您确定要退出吗？,4+32+0,图书管理系统启安)if tuichu=6caozuoyuan=thisform.releaseendifclear events2、 主界面模块3、 书目查询模块：对书目的查询主要包括对图书信息进行按书名查询、按著者姓名查询、以及按出版信息进行查询等，查询出来的图书信息应该包括是否在馆信息、馆藏地信息以及是否可借的信息等按题名查询的Init事件代码如下：public tmuse c:vfp图书表启安thisform.refreshgo bo1.value=图书表启安.题名查询按钮的代码如下：tm=alltrim(bo1.value)thisform.releasedo form c:vfp书目查询结果启安退出按钮的代码如下：thisform.release按出版信息查询的界面如下：按出版社查询的Init事件代码如下：public cbuse c:vfp图书表启安thisform.refreshgo bo1.value=图书表启安.出版信息查询按钮的代码如下：cb=alltrim(bo1.value)thisform.releasedo form c:vfp书目查询结果启安退出按钮的代码如下：thisform.release按著者查询的界面如下：按著者查询的Init事件代码如下：public zzuse c:vfp图书表启安thisform.refreshgo bo1.value=图书表启安.著者查询按钮的代码如下：zz=alltrim(bo1.value)thisform.releasedo form c:vfp书目查询结果启安退出按钮的代码如下：thisform.release4、 读者查询模块：对读者信息的查询主要包括；读者信息查询、书刊借阅查询以及借阅历史查询等。读者查询包括按证件号查询、以及按姓名查询。书刊借阅查询包括图书的借阅时间、到期时间的记录，还包括违章状态以及欠款状态等。读者信息的界面如下：读者信息查询结果的Init事件如下：THISFORM.REFRESHLOCATE FOR cj=ALLTRIM(读者信息启安.证件号)THISFORM.txt证件号.enabled=.f.THISFORM.txt姓名.enabled=.f.THISFORM.txt性别.enabled=.f.THISFORM.txt职位.enabled=.f.THISFORM.txt出生日期.enabled=.f.THISFORM.txt读者类型.enabled=.f.THISFORM.txt文化程度.enabled=.f.THISFORM.txt工作单位.enabled=.f.THISFORM.txt办证日期.enabled=.f.THISFORM.txt失效日期.enabled=.f.THISFORM.chk违章状态.enabled=.f.THISFORM.chk欠款状态.enabled=.f.THISFORM.txt累计借书.enabled=.f.THISFORM.txt当年借书.enabled=.f.THISFORM.txt电话.enabled=.f.THISFORM.txt地址.enabled=.f.THISFORM.txt邮编.enabled=.f.THISFORM.txtEmail.enabled=.f.第一个按钮的代码如下：GO TOPTHISFORM.ENABLED=.T.THISFORM.COMMAND2.ENABLED=.F.THISFORM.COMMAND3.ENABLED=.T.THISFORM.COMMAND4.ENABLED=.T.THISFORM.COMMAND5.ENABLED=.T.THISFORM.REFRESH上一个按钮的代码如下：SKIP -1THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND3.ENABLED=.T.THISFORM.COMMAND4.ENABLED=.T.THISFORM.COMMAND5.ENABLED=.T.THISFORM.REFRESHIF BOF( )Messagebox(已经到了表头！,0=48,提示)THIS.ENABLED=.F.ELSETHIS.ENABLED=.F.ENDIFTHISFORM.REFRESH下一个按钮的代码如下：SKIPTHISFORM.COMMAND1.ENABLED=.T.IF EOF( )THIS.ENABLED=.F.Messagebox(已经到了表尾！,0+48,提示)THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND2.ENABLED=.T.THISFORM.COMMAND3.ENABLED=.F.THISFORM.COMMAND5.ENABLED=.T.THISFORM.REFRESHELSETHIS.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND2.ENABLED=.T.THISFORM.COMMAND3.ENABLED=.T.THISFORM.COMMAND5.ENABLED=.T.ENDIFTHISFORM.REFRESH最后一个按钮的代码如下：GO BOTTOMTHIS.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND2.ENABLED=.T.THISFORM.COMMAND3.ENABLED=.F.THISFORM.COMMAND5.ENABLED=.T.THISFORM.REFRESH退出按钮的代码如下：thisform.refreshthisform.release5、 密码修改模块：该模块实现对密码的修改功能。为了系统的安全，密码使用一段时间之后就需要进行更换。密码修改的数据环境为人员配置表启安确定按钮的代码如下：public Xselect ause c:vfp人员配置表启安x=alltrim(thisform.txt密码.value)replace 人员配置表启安.