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())