vfp--图书馆管理新新系统.doc

vfp 图书馆管理新新系统

———————————————————————————————— 作者：
———————————————————————————————— 日期：

17

个人收集整理 勿做商业用途

摘要
【摘要】随着社会经济发展，图书信息管理已经逐渐发展成为一门重要的学科，对图书信息的管理高效与否已成为衡量一个部门是否信息化的重要标志。现介绍的图书信息管理系统包括图书的基本信息管理、借阅管理、读者信息管理以及系统用户管理.系统的特点是操作方便，功能完备。本系统采用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
。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 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))
mand4。enabled=。t。
mand6.enabled=.t。
thisform.init
Command4中添加的代码：
go bottom
nhere=recno()
thisform。label8.caption=allt(str(recno)）
thisform。command3.enabled=。t.
mand5。enabled=.t.
thisform.init

Command5中添加的代码：
skip—1
if bof（)
   this.enabled=.f。
   mand3。enable=。f。
   messagebox(”已经到第一条记录了！”，48，”提示”)
   go top
   nhere=recno（)
else
   thisform。init
   nhere=recno()
endif
mand4.enabled=.t.
mand6。enabled=.t。
Command6中添加的代码:
skip 1
if eof(）
   thisform。enabled=。f.
   mand4.enabled=。f.
   messagebox（”已经到最后一条记录了！”，48,”提示”）
   go bottom
   nhere=recno（)
else
   nhere=recno（)
   thisform。init
endif
mand3。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(bo1.displayvalue)
            else
               repl 性别 with allt(thisform。combo1。value)
            endif
            mand2。click
         endif
      endif
   endif
endif
use
           Command2 中添加的代码：
 thisform.text1.value=”"
thisform.text2.value=””
thisform。text3.value=””
thisform。text4.value="”
thisform.text5。value=””
bo1.value=”"
bo1.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（)））
mand4。enabled=.t.
mand6.enabled=。t。
thisform.init
Command4 中添加的代码：
go bottom
nhere=recno（)
thisform.label8.caption=allt（str(recno()）)
mand3。enabled=。t.
mand6.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
mand4。enabled=。t。
mand6。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
mand3.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)==all