vfp课程设计报告(1)

vfp课程设计报告(1)
课程设计题目：
1 房产管理信息系统
2 娱乐休闲型酒店管理信息系统
3 银行信贷管理系统
4 帐务处理与报表管理信息系统
5 人力资源管理系统
6 图书管理信息系统
7 VFP理论考试系统
8 民用电管理系统
9 成绩计算系统
10 签到管理系统
11 学籍管理系统
12 企业工资管理系统
13 进销存管理系统
14 合同管理系统
15 仓库管理系统
16 公司人力资源管理系统
17 票务管理信息系统
18 小区物业管理系统
19 图书管理系统
20 餐饮业管理系统
21 律师行案件管理系统
22 航空售票管理系统
23 学生信息查询系统
24 医药管理系统设计
滨江学院花旗营校区
Visual FoxPro课程设计
报告书
设计题目
专业班级
学生姓名
学号
指导教师
日期
目录
1、课程设计题目 (1)
2、课程设计目的 (1)
3、课程设计要求 (1)
4、课程设计报告内容 (1)
4.1 系统主要功能 (1)
4.2 系统功能结构图 (2)
4.3 系统代码实现 (2)
4.4 系统存在的主要问题及注意事项 (4)
4.5 设计总结及体会 (6)
1、课程设计题目
综合训练程序设计及管理系统
2、课程设计目的
（1）巩固VFP基本操作（表、数据库、查询、表单、菜单等的使用）；
（2）进一步学习和巩固VFP程序设计的方法。

3、课程设计要求
（1）熟练掌握 VFP 数据库管理系统的使用方法；
（2）正确理解程序设计的基本概念，掌握程序设计的一般方法；
（3）掌握用 VFP 开发数据库应用程序的基本技能。

4、课程设计报告内容
4.1 系统主要功能
设计并实现一个菜单文件，实现VFP上机试题的汇编。

具体要求如下：
(1)菜单文件中的各个菜单项，分别实现2008年（秋）每套上机试题中的
设计查询、设计表单和程序改错题这三个部分的内容；
(2)菜单文件中必须提供恢复系统主菜单的功能；
(3)编译生成可直接在Windows中运行的应用程序（.exe文件）。

4.2 系统功能结构图
4.3 系统代码实现
（要求：给出查询对应的SQL语句；给出设计菜单、设计表单部分对应的命令和事件代码；给出程序改错题错误的语句和对应的改正语句）
[VFP01]
（1）设计查询
SELECT Whcd.mc, COUNT(*) as RS,AVG(YEAR(DATE())-YEAR(Js.csrq)) as PJNL; FROM jxsj!js INNER JOIN jxsj!whcd;
ON Js.whcd=Whcd.dm;
GROUP BY Whcd.mc;
ORDER BY 2 DESC,3
（2）设计菜单
“统计“菜单项的SELECT-SQL命令：select zc,count(*) as rs from js group by zc
（3）设计表单
命令按钮组的Click代码：n=this.value
thisform.xxx
（4）程序改错题
a.将第12行的c(k)=c(k+1)改为c(k)=c(k-1)
b.将第18行的ENDDO改为ENDFOR
[VFP02]
（1）设计查询
SELECT Whcd.mc, Js.xb, COUNT(*) AS 人数;
FROM jxsj!js INNER JOIN jxsj!whcd ;
ON Js.whcd=Whcd.dm;
WHERE YEAR(DATE())-YEAR(Js.csrq)<= 45;
GROUP BY Whcd.mc, Js.xb;
ORDER BY Whcd.mc, Js.xb
（2）设计菜单
“统计“菜单项的SELECT-SQL命令：select xb,count(*) as rs from js group by xb
（3）设计表单
命令按钮组的Click最后一行代码：
bel1.caption=cj.xh
（4）程序改错题
a.将第9行的FOR j=n TO i+1 STEP 1 改为 FOR j=n TO i+1 STEP -1
b.将第14行的Lcontinue=.F.改为Lcontinue=.T.
[VFP03]
（1）设计查询
SELECT Yxzy.yxmc, COUNT(*) as rs, SUM(IIF(Js.zc="教授",1,0)) as jsrs;
FROM jxsj!js INNER JOIN jxsj!yxzy;
ON Js.yxzydm=Yxzy.yxzydm;
GROUP BY Yxzy.yxmc;
HAVING SUM(IIF(Js.zc="教授",1,0))/COUNT(*)>= 0.2;
ORDER BY 3 DESC
（2）设计菜单
“统计“菜单项的命令：do chaxun.qpr
（3）设计表单
a．设置表单对象F081B的以下属性值：AutoCenter属性：.T.
b．选项按钮组的Click代码：c=THIS.VALUE
THISFORM.GRID1.RECORDSOURCE=c
BEL1.CAPTION=c+"表浏览"
（4）程序改错题
a.将第9行的IF CHR('Str1')>127 改为 IF ASC(Str1)>127
b.将第11行的ENDIF改为ELSE
[VFP04]
（1）设计查询
SELECT Yxzy.yxmc, COUNT(*) as rs, SUM(IIF(Js.xb="男",1,0)) as nanrs;
FROM jxsj!js INNER JOIN jxsj!yxzy ;
ON Js.yxzydm=Yxzy.yxzydm;
GROUP BY Yxzy.yxmc;
ORDER BY 3 DESC;
TO FILE temp.txt
（2）设计菜单
a．设置“导出”菜单项的跳过条件：Empty(alias())或!used(alias())
b. 设置“打印预览”菜单项命令：report form rtest preview
（3）设计表单
a．设置表单对象F081B的以下属性值：
AutoCenter属性：.T. Height属性: 120 Width属性: 280
b.设置标签Caption属性: 口令输入
c. 设置文本框PasswordChar属性: *
d.“确定”按钮的Click代码：IF ALLTRIM(THISFORM.TEXT1.VALUE)="ABC"
MESSAGEBOX("OK!")
ELSE
MESSAGEBOX("口令不正确!")
ENDIF
（4）程序改错题
a.将第14行的m2=m2+VAL(SUBSTR(c2,j,1))*2**(j)
改为 m2=m2+VAL(SUBSTR(c2,j,1))*2**(-j)
b.将第17行的?'二进制'+cstr+'十进制表示为:'+VAL(m,10,3)
改为?'二进制'+cstr+'十进制表示为:'+STR(m,10,3)
4.4 系统存在的主要问题及注意事项
1．做题前要先设置默认路径
2．题目要求要看清，确定你要打开的是哪个表、哪个表单
3．当做设计查询时，出现无法访问此表，可以先清理项目，然后再添加该表；如果还是无法访问，可以先在项目管理器中先浏览该表，再设计查询
4．设置参照完整性时要先清理数据库
5．要时刻注意中英文输入状态，编写代码和命令时一定要在英文输入环境下
4.5 设计总结及体会
之前看教程书时，顺着文章的条理一条一条地看下去，并没觉得有什么难的。

可当上机实践操作时，很多问题就暴露出来了，觉得这不懂那不会的，还不得不重新查阅教程，并向老师、同学请教。

也多亏老师的耐心指导和同学的细心帮助，使我克服了大大小小的困难。

在此，我还是要感谢他们！
从设计过程中遇到的一些问题可以看出，书本知识一定要熟练掌握，不能急功近利、自以为是。

此外还需要些大胆的尝试和探索，要把理论与实践相结合，灵活运用书本知识，学以致用！。