VF课程设计--图书管理系统
Visual Foxpro课程设计
启安图书管理系统
一、引言
1、 背景介绍
随着计算机的不断发展,人们对于计算机的应用不再是最初的简单的文字处理和科学计算,现在,利用计算力来进行管理也成了中图分类号 字符型 10 科技图书分类号 字符型 10
(5)预约表结构:
字段名 字段类型 字段宽度 小数位 索引否 证件号 字符型 10 主索引 单位 字符型 20 题名 字符型 26 著者 字符型 20 馆藏地 字符型 10 保留截止日期 日期型 8
Visual Foxpro课程设计
(6)人员配置表结构:
字段名 字段类型 字段宽度 小数位 索引否 证件号 字符型 10 主索引 姓名 字符型 10 权限 字符型 3 密码 字符型 10
四、详细设计
1、 登陆界面
登陆界面的load事件代码如下所示:
set talk off
set safety off
close all
open database c:\vfp\ exclu
selec A
use c:\vfp\
caozuoyuan=''
return caozuoyuan
close all
unload事件代码如下:
caouoyuan=''
return caozuoyuan
close all
确认按钮的click事件代码如下:
PRIVATE zj,mm,st
st='密码不正确,请重新输入!'
zj=alltrim()
Visual Foxpro课程设计
mm=alltrim() locate for zj==alltrim()
if found()and alltrim()==mm
caozuoyuan=alltrim()
=.f.
do
else
wait window st timeout 2
=''
endif
退出按钮的click事件代码如下:
tuichu=messagebox('亲,您确定要退出吗,',4+32+0,'图书管理系统启安') if tuichu=6
caozuoyuan=''
endif
clear events
2、 主界面模块
3、 书目查询模块:
对书目的查询主要包括对图书信息进行按书名查询、按著者姓名查询、以及按出版信息进行查询等,查询出来的图书信息应该包括是否在馆信息、馆藏地信息以及是否可借的信息等
Visual Foxpro课程设计
按题名查询的Init事件代码如下:
public tm
use c:\vfp\图书表启安
go top
= 查询按钮的代码如下:
tm=alltrim()
do form c:\vfp\书目查询结果启安
退出按钮的代码如下:
按出版信息查询的界面如下:
按出版社查询的Init事件代码如下: public cb
Visual Foxpro课程设计
use c:\vfp\图书表启安
go top
=
查询按钮的代码如下:
cb=alltrim()
do form c:\vfp\书目查询结果启安
退出按钮的代码如下:
按著者查询的界面如下:
按著者查询的Init事件代码如下:
public zz
use c:\vfp\图书表启安
go top
=
查询按钮
VF课程设计--图书管理系统 来自淘豆网www.taodocs.com转载请标明出处.