VFP实训报告模板

课程名称： 《VFP程序设计》    

系：        管理工程系                   

专业：      营销与策划                   

班级：       营销102                  

姓名：  陈二狗  学号：   17     

指导教师：   刘鑫       张朋     

起始日期：2011.5.30 至 2011.6.3 

VFP课程设计任务书

（专科）

一、设计目的

 通过课程设计使学生进一步掌握用VFP开发小型应用程序的过程和方法，掌握数据库数据的增加、删除、修改、查询等各种应用技巧，提高解决实际问题的能力，为将来进行软件程序设计奠定基础。

二、设计要求

1、认真查阅相关资料。 、遵守课程设计的时间安排。

3、按时上机，认真调试程序。 、认真书写课程设计报告书。

5、分组完成要求的设计题目（每组4-8人）

三、报告书写格式

1．封皮

2．任务书

3．报告正文（设计题目、系统功能、结构、代码、总结、评定表）

4．参考文献

四、设计题目（以下题目任选其一,详见选题登记表）

1. 表单实例演示管理系统  　2. VFP教学实例管理系统     

3. VFP控件实例演示系统 . 表单动画实例演示系统       

五、时间安排

1．查阅资料及系统设计（1天）

系统功能设计/数据表结构设计

2．程序编制及调试（3天）

数据表数据输入/表单设计/菜单设计/总体调试／编译工程文件

3．成绩评定（1天）　　　4．书写报告（1天）

六、成绩评定（较高要求）

评定成绩根据设计表现、成绩测验、设计报告等进行综合评定。评定等级：不及格、及格、中、良好、优秀。

七、参考书目

１、《VisualFoxPro 6.0 编程实战》 安玉庆  青岛出版社

２、《VisualFoxPro 6.0中文版编程基础与范例》 韩正清  电子工业出版社

课程设计成绩评定表

中等： B>=4； 及格： C>=4；

乐购会员管理系统说明书

一、系统说明

乐购会员管理系统通常包括会员的更新、录入、删除、查询、备份、统计、打印等，具体管理中还涉及到登陆用户的密码保护等。乐购会员管理系统，可以实现上述功能，能够方便快捷准确地获得所需的信息。

二、系统功能

乐购会员管理系统包括如下功能：

1．会员管理：对当前会员进行浏览、查询、索引等相关操作。

2．会员浏览：包括对当前会员详细信息的浏览及查找。

3．会员查询：包括简单查询和多条件查询，能够实现实时查询。

4．会员索引：包括进行会员的精密条件查询及项目浏览功能。

5．条件打印：首先筛选出符合条件的会员，然后进行打印。

6．打印预览：对所有会员信息预览后可以进行打印功能。

7．系统说明：其中有本人信息简介，还囊括有系统报时。

8．系统退出：实现本管理系统的退出功能，带有确认信息。

三、系统结构流程图：（菜单调用关系）

乐购会员管理系统

会员管理

项目打印

系统说明

退出系统

条件打印

打印预览

会员浏览

会员查询

会员索引

确认

否定

四、数据表结构

乐购会员管理系统所用的数据表主要有：会员.dbc

会员.dbc表结构如下:                      

bd2.scx：    程序运行主窗口

dy.scx：    执行打印窗口

dyyl.scx：    调出打印预览窗口

xt.scx：    执行关于系统窗口

查询系统.scx：    执行查询窗口

会员系统登录.scx：    登陆系统窗口

会员信息表单.scx：    登录会员信息浏览窗口

退出.scx：    打开退出窗口

修改.scx：    执行会员修改窗口

六、所参与的功能模块及代码

在乐购会员管理系统中：

其中会员登录模块的设计设计思路是：只有密码验证正确才能进入系统进行其他操作。

乐购会员管理系统登录表单的执行界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：2——作为顶层表单

WindowState：2——最大化

Command1控件的click事件代码如下：

if thisform.text1.value="123"

=messagebox("你蒙对了!",48,"提示信息")

thisform.release

do form bd2.scx

else

thisform.text1.setfocus

=messagebox("傻了吧，你猜错了",48,"提示信息")

endif

Command2控件的click事件代码如下：

thisform.text1.value=" "

thisform.text1.setfocus

thisform.refresh

乐购会员管理系统待机界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：1——打开

ShowWindow：2——作为顶层表单

WindowState：2——最大化

Init：do 菜单1.mpr with this,.t.

Label1控件的主要属性有：

Autosize：.T.——真

Fontname: 华文新魏

Fontsize: 72

乐购会员鼓励系统条件打印待机画面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Init：parameters tj

public tiaojian

tianjian = tj

Command1控件的click事件代码如下：

report form 会员信息.frx preview

Optiongroup1控件的click事件代码如下：

if thisform.optiongroup1.value =3

thisform.optiongroup1.value =2

thisform.optiongroup1.refresh

endif

乐购会员管理系统打印预览待机画面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Command1控件的click事件代码如下：

report form dyyl preview

clea memo

Command2控件的click事件代码如下：

thisform.release

乐购会员管理系统系统说明如图

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Timer1控件的timer事件代码如下：

thisform.label4.caption="系统时间"+time()

Label1控件的主要属性有：

=“系统时间”+time()

乐购会员管理系统会员索引界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Optiongroup1控件的click事件代码如下：

do case

case thisform.optiongroup1.value=1

thisform.label2.caption="请输入要查询的会员号："

case thisform.optiongroup1.value=2

thisform.label2.caption="请输入要查询的姓名："  

case thisform.optiongroup1.value=3

thisform.label2.caption="请输入要查询的身份证号："  

endcase

thisform.text1.value=''

thisform.text1.setfocus

Text1控件的Inter事件代码如下：

select 会员信息

do case

case thisform.optiongroup1.value=1

set filter to 会员号 =alltrim(thisform.text1.value)

case thisform.optiongroup1.value=2

set filter to 姓名 =alltrim(thisform.text1.value) 

case thisform.optiongroup1.value=3

set filter to 身份证号 = alltrim(thisform.text1.value)   

endcase

乐购会员管理系统会员浏览界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Command1控件的click事件代码如下：

thisform.command2.enabled=.T.

skip-1

if bof( )

go top

this.enabled=.F.

endif

thisform.refresh

Command2控件的click事件代码如下：

thisform.command1.enabled=.T.

skip+1

if bof( )

go bottom

this.enabled=.F.

endif

thisform.refresh

乐购会员管理系统会员查询界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Command1控件的click事件代码如下：

thisform.release

Command2控件的click事件代码如下：

append blank

go bottom

thisform.refresh

Command3控件的click事件代码如下：

inotice = messagebox("确定删除指定的记录吗？",65,"重要提示")

if inotice =1

delete record recno()

anotice = messagebox("确定物理删除指定的记录吗？"+chr(13)+"一经删除,不能恢复",65,"重要提示")

if anotice = 1

pack

endif

thisform.refresh

endif

Command4控件的click事件代码如下：

inotice = messagebox("恢复所有逻辑删除的记录吗？",65,"提示信息")

if inotice = 1

recall all

endif

乐购会员管理退出界面如图：

其中：

Form1控件的主要属性有：

AutoCenter：.T.——真

TitleBar：0——关闭

ShowWindow：1——在顶层表单中

WindowState：2——最大化

Command1控件的click事件代码如下：

close all

clear events

quit

Command2控件的click事件代码如下：

thisform.release

七、课程设计总结

通过本次课程设计，我学会了VFP6.0程序设计软件各种操作技巧，并且自己成功的设计了一个乐购会员管理项目。虽然学习是辛苦的，但我认真的去把的所有内容学好，认真完成每一天的学习任务。

通过这次实训，我对电脑有了更深刻的认识，做二十一世纪现代人不但要有过硬的理论知识，良好的心理素质，健康的体魄，还要有超强的电脑操作能力，正所谓“秀才不出门，便知天下事”作为一名营销专业学生来说，必须有较广的社交圈和开阔的知识面，所以要把电脑作为一个重点来抓!

学校为提高学生的自身水平提供了良好的平台，为学生专业发展提供了惬机。不管是现在还是将来每个学生应不断地加强学习，不断地给自己“充电”，才能不断的开拓进取，勇于创新，才不至于被社会淘汰。经过1周的学习计算机的过程，我深深体会到电脑的神奇和奥妙;也意识到自己在计算机上还有许多不足。老师布置了一些的作业给我们操练，在老师精心的指导下我已把许多常规工具操作的很好了!现在我们已步入大学，经过最初的在校计算机学习，对电脑还只是初步的认识和理解，一直忙于理论知识的学习，没能有机会放开课本，真正切身感受计算机小程序设计魅力，所以在实训之前，程序设计对我们来说是比较抽象的，但通过这次实训，我们揭开了她神秘的面纱，离我们不再遥远!据我了解，大多数同学都以前接触过电脑，也有玩过一些游戏，却不懂操作一些对我们以后工作有用的系统。对于我们所学的计算机知识渗透较少，之前都是老师讲解为主。此次实训就不同了，同学们都自己进行实际操作。老师在实训中也分别给予了我们指导，并且做详细的讲解，给学生一个很好的操作平台。相比较以前这次培训的内容最显著的特点，就是实用性和工具性很强，都是以后生活中经常用到的。具体设计过程中我发现，原来从没有制作过也不是想象中的那么难。简单的制作我已经基本上掌握。现在想起来这种培训是必要的，正所谓“磨刀不误砍柴工”。

电脑实训暂告一个段落，闲暇之余，我对这次实训也进行了思考。我虽然努力了但离“出色”还有很大的一段距离，离老师对我的期望还相去甚远。固然有能力、水平、经验、性格等原因，但是最重要的原因还是思想上的对学习不重视，导致了有的操作不能出色的完成。由于计算机操作的特殊性，要求操作人员思维严密、灵活应付，要能够迅速理解指令，沉着应对复杂的步骤，这样才不致于在完成操作时，总是手忙脚乱、丢三落四。通过这次培训，我认识到只有沉下身来，静下心来认真学习，踏实做事，多用心，多动脑，才能让学习有好的起色。为自己以后的打好基础。

社会的竞争是激烈的，我想我们应该好好把握住大学学习的时间，充实、完善自我，全面发展，攻破电脑，争取做一名出色的现代人