VF课程设计实验报告Word格式文档下载.docx

VF课程设计实验报告Word格式文档下载.docx

《VF课程设计实验报告Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VF课程设计实验报告Word格式文档下载.docx（32页珍藏版）》请在冰豆网上搜索。

删除

修改

添加

按地点查询

景点精确查询

景点浏览

打印

3、变量说明（公有、私有、本地变量）

公有变量：

在登录界面：

Publicn

N=0

在雪花的加载过程中：

publicx（40）

x（i）默认值为.t.，表示雪花的方向为上

私有变量：

1登陆界面的确认按钮：

username=thisform.text1.value

userpwd=thisform.text2.value

2在浏览界面的上一个与下一个按钮：

xx

（1）=旅游信息.景点名称

xx

（2）=旅游信息.景点票价

xx（3）=旅游信息.景点简介

xx（4）=旅游信息.景点星级

xx（5）=旅游信息.景点位置

3在添加界面的确定按钮：

xx

（1）=thisform.text1.value

xx

（2）=thisform.text2.value

xx（3）=thisform.text3.value

xx（4）=thisform.text4.value

xx（5）=thisform.text5.value

4、数据库、表的设计及描述

数据库---“秦皇岛旅游景点”，结构如下：

数据库表----

旅游信息：

creattable旅游信息（景点名称c（18），景点票价n（3）,，景点简介m，景点星级c

（2），景点预览g，景点位置c（11））

表1：

creattable表1（namec（20），pricen（3）,，introductionm，starc

（2），photog，locationc（11））

5、操作说明

点击2011vf文件夹里的p1应用程序，进入封面主界面点击进入，进入登陆界面，选择用户名登录，用户名，密码可为任意值（密码与登录名必须一致），登陆成功后，进入语言选择页面，用户可根据需要选择对应的语言：

英语、汉语，然后进入对应语言的欢迎界面。

点击菜单下的各个子菜单，可以在各相应表单上进行对应操作。

进入相应的界面后便可以进行数据查询（景点查询、精确查询、分区查询）、系统维护（修改、添加、删除）、退出系统（注：

如不登录，则不能进行以上功能）。

英文系统与之类似。

在景点查询中，使用者可以通过上一条，下一条命令对景点信息进行浏览。

精确查询可以精确显示每个景点的信息，并打印显示的结果。

分区查询可以在海港区、昌黎县、南戴河、北戴河、上海关的景点信息进行查询。

系统维护中可以对景点信息进行修改、添加、删除。

使用结束后点击菜单栏的退出按钮，退出系统。

六、各模块代码及结果图

（一）封面：

“点击进入”的clickevent：

doformfengmian

Thisform.release

（2）登录界面

界面设置：

添加代码：

①“确认”的clickevent：

ifalltrim（username）<

>

alltrim（userpwd）

n=n+1

thisform.label2.caption="

用户名或密码错误，请重新输入！

"

else

doform表单2.scx

endif

ifn>

=3

messagebox（"

您的密码输入错误，欢迎下次使用"

）

thisform.release

②“取消”的clickevent：

thisform.text1.value="

thisform.text2.value="

③“退出”的clickevent：

quit。

退出VF系统。

④timer的timerevent：

thisform.label4.caption="

现在时间"

+space

（2）+time（）

运行效果：

（3）欢迎界面

①timer的timerevent：

ifthisform.label1.left+thisform.label1.width<

thisform.label1.left=thisform.width

thisform.label1.left=thisform.label1.left-100

Endif

②“确认”的clickevent：

ifthisform.optiongroup1.value=1

thisform.hide

doform表单3

doformform3

通过选项按钮组可以进行中英文的切换

中文效果：

英文效果图：

（4）查询模块

子模块1景点浏览（中文）

界面设置（添加了40个shape，并进行了形状设置）

①对“form1”

initevent：

dimensionxx（5）

thisform.text1.value=xx

（1）

thisform.text2.value=xx

（2）

thisform.edit1.value=xx（3）

thisform.text4.value=xx（4）

thisform.text5.value=xx（5）

use旅游信息

go1

Loadevent：

store.t.tox

②“上一个”的clickevent：

ifnotbof（）

skip-1

已到达表头"

③“下一个”的clickevent：

ifnoteof（）

skip1

已到达表尾"

④timer的timer事件

*x（i）为雪花方向标识，为真表示向下，为假表示重新重上开始

fori=1to40

j="

shape"

+alltrim（str（i））

ifthisform.&

j..top+thisform.&

j..height>

thisform.top+thisform.height

x（i）=.f.

ifx（i）=.t.

thisform.&

j..top=thisform.&

j..top+rand（）*30

ifx（i）=.f.

j..top=thisform.top+thisform.&

j..height

x（i）=.t.

Endfor

运行效果图：

提示信息为：

①

②

子模块1ALLLIST（English）

添加代码同中文版的，运行效果如下：

子模块2精确查询（中文）

界面设置

①将“combo1”的controlsouce改为“旅游信息.景点名称”

“form1”的数据环境设为“旅游信息”

“确认”的clickevent：

sele*from旅游信息where景点名称=bo1.valueintocursora

thisform.text1.value=a.景点票价

thisform.text2.value=a.景点星级

thisform.text3.value=a.景点位置

thisform.edit1.value=a.景点简介

②“打印”的clickevent：

sele*from旅游信息where景点名称=bo1.valueintodbfbaobiao

reportform报表1preview

报表1：

设计图，数据环境设为“baobian.dbf”

报表打印效果：

子模块2EXACTSEARCH（English）

表单界面设置：

代码同中文的，打印报表效果图为：

子模块3分区查询（中文）

再新建5个表：

再在“分区查询”的表单数据环境中添加这5张表。

效果如图：

子模块3SEARCHBYLOCATION（English）

代码操作同中文版的，添加的5个表分别是：

效果图为：

（5）数据维护

子模块1：

添加（中文）

①“确定”的clickevent：

appendblank

gatherfromxxfields景点名称,景点票价,景点简介,景点星级,景点位置

thisform.grd旅游信息.recordsource="

旅游信息"

②“退出”的clickevent：

ADD（English）代码同中文，界面如图：

①

效果图

子模块2修改（中文）

①“combo1”的clickevent：

sele*from旅游信息where景点名称=bo1.valueintocursortemp1

thisform.grd旅游信息.recordsource='

temp1'

thisform.refresh

②“确定”的clickevent：

replace旅游信息.景点名称withthisform.text1.value

replace旅游信息.景点票价withthisform.text2.value

replace旅游信息.景点简介withthisform.edit1.value

replace旅游信息.景点星级withthisform.text4.value

replace旅游信息.景点位置withthisform.text5.value

thisform.grd旅游信息.recordsource="

thisform.edit1.value="

thisform.text4.value="

thisform.text5.value="

效果图：

MODIFY（English）代码同中文版，界面如下：

子模块3删除（中文）

界面设计：

setdeletedon

delete

pack

DELETE（English）代码同中文版，设计界面以及效果图如下：

7、体会（重点是学习中收获和存在的问题）

最开始确定好题目之后，其实心里对整个系统的构思，所以把书后的范例来回看了好几遍，好在我们组三个成员在一个寝室，我们一起讨论学习那些在以前学习当中没注意到的，有好几个控件以及代码的编写，在之前的实验当中也有做过，我们又重新根据实验指导书去回忆，最终在三个人的不断努力之下，在整个出现问题并想一切办法解决的过程中，我对VF这个应用系统又有了一个更加系统深刻的了解，觉得不再那么陌生，对下学期即将的VF二级考试有了信心。

除此之外，这次合作是我们三个第一次在学习上这么正式的合作，由于在一个寝室，大家平时都是不太严肃的，但是在这次合作当中，也出现了一些意见分歧之类的，我们不是去辩论自己的是对的，而是大家都自己先做出来运行之后，让对方看看效果，然后再做决定。

常常就是，只要有一个人在其负责的操作过程中出现了影响运行的情况，我们都会相互帮助共同尝试解决。

这个星期以来，我们三个一起熬夜一起啃着面包做VF，我能明显的感觉到我们三个之间的感情更加深刻。

最重要的，真的非常非常感谢我们的授课、实验以及辅导老师盛娟老师，还记得6月13日周一上午，老师原定辅导时间到11点，来请教的学生也比较多，老师依然对每个同学很认真的做了辅导。

老师在平时授课过程中，不仅给我们演示了课本当中的一些范例，更是另外给我们做了很多例子（如：

雪花效果等），不仅对学生授之以鱼，更是授之以渔。

老师，谢谢您！

。