VF课程设计实验报告.docx
- 文档编号:9633944
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:32
- 大小:1.46MB
VF课程设计实验报告.docx
《VF课程设计实验报告.docx》由会员分享,可在线阅读,更多相关《VF课程设计实验报告.docx(32页珍藏版)》请在冰豆网上搜索。
VF课程设计实验报告
秦皇岛旅游信息查询系统
东北大学秦皇岛分校
姓名:
左倩
学号:
3090318
指导教师:
盛娟
日期:
2011年06月19日
一、总体说明
总体功能介绍:
此系统为秦皇岛旅游信息查询系统,为用户提供旅游信息的查询及修改功能。
此系统通过密码登录来给用户提供,针对不同人群的需求我们设计了中英文切换,另外,此系统对不同旅游景点提供数据查询功能,包括景点浏览,及精确查找和按地点查询,提供景点名称,景点票价,景点星级,景点位置,景点简介等信息,使用户可以全方位了解各个景点,以便明确地锁定自己的旅游目标及方便用户的旅游过程。
此系统还提供数据维护功能,包括对数据的添加,修改和删除。
针对精确查询,还可以提供给用户打印报表的功能,以保证输出的可行性。
二、功能模块结构图
秦皇岛旅游信息查询系统
秦皇岛旅游英文查询系统
数据维护
退出
查询
数据维护
退出
查询
删除
修改
添加
按地点查询
景点精确查询
景点浏览
删除
修改
添加
按地点查询
景点精确查询
景点浏览
打印
打印
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:
username=thisform.text1.value
userpwd=thisform.text2.value
ifalltrim(username)<>alltrim(userpwd)
n=n+1
thisform.label2.caption="用户名或密码错误,请重新输入!
"
else
doform表单2.scx
endif
ifn>=3
messagebox("您的密码输入错误,欢迎下次使用")
thisform.release
endif
②“取消”的clickevent:
thisform.text1.value=""
thisform.text2.value=""
thisform.label2.caption=""
③“退出”的clickevent:
quit。
退出VF系统。
④timer的timerevent:
thisform.label4.caption="现在时间"+space
(2)+time()
运行效果:
(3)欢迎界面
界面设置:
添加代码:
①timer的timerevent:
ifthisform.label1.left+thisform.label1.width<0
thisform.label1.left=thisform.width
else
thisform.label1.left=thisform.label1.left-100
Endif
②“确认”的clickevent:
ifthisform.optiongroup1.value=1
thisform.hide
doform表单3
else
thisform.hide
doformform3
Endif
③“退出”的clickevent:
Thisform.release
运行效果:
通过选项按钮组可以进行中英文的切换
中文效果:
英文效果图:
(4)查询模块
子模块1景点浏览(中文)
界面设置(添加了40个shape,并进行了形状设置)
添加代码:
①对“form1”
initevent:
dimensionxx(5)
xx
(1)=旅游信息.景点名称
xx
(2)=旅游信息.景点票价
xx(3)=旅游信息.景点简介
xx(4)=旅游信息.景点星级
xx(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:
publicx(40)
store.t.tox
②“上一个”的clickevent:
ifnotbof()
skip-1
dimensionxx(5)
xx
(1)=旅游信息.景点名称
xx
(2)=旅游信息.景点票价
xx(3)=旅游信息.景点简介
xx(4)=旅游信息.景点星级
xx(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)
else
messagebox("已到达表头")
endif
③“下一个”的clickevent:
ifnoteof()
skip1
dimensionxx(5)
xx
(1)=旅游信息.景点名称
xx
(2)=旅游信息.景点票价
xx(3)=旅游信息.景点简介
xx(4)=旅游信息.景点星级
xx(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)
else
messagebox("已到达表尾")
endif
④timer的timer事件
*x(i)为雪花方向标识,为真表示向下,为假表示重新重上开始
fori=1to40
j="shape"+alltrim(str(i))
ifthisform.&j..top+thisform.&j..height>thisform.top+thisform.height
x(i)=.f.
endif
ifx(i)=.t.
thisform.&j..top=thisform.&j..top+rand()*30
endif
ifx(i)=.f.
thisform.&j..top=thisform.top+thisform.&j..height
x(i)=.t.
endif
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”
③“退出”的clickevent:
thisform.release
运行效果:
报表打印效果:
子模块2EXACTSEARCH(English)
表单界面设置:
代码同中文的,打印报表效果图为:
子模块3分区查询(中文)
界面设置:
再新建5个表:
再在“分区查询”的表单数据环境中添加这5张表。
效果如图:
子模块3SEARCHBYLOCATION(English)
界面设置:
代码操作同中文版的,添加的5个表分别是:
效果图为:
(5)数据维护
子模块1:
添加(中文)
界面设置
添加代码:
①“确定”的clickevent:
dimensionxx(5)
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
use旅游信息
appendblank
gatherfromxxfields景点名称,景点票价,景点简介,景点星级,景点位置
thisform.grd旅游信息.recordsource="旅游信息"
②“退出”的clickevent:
thisform.release
效果如图:
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.refresh
thisform.text1.value=""
thisform.text2.value=""
thisform.edit1.value=""
thisform.text4.value=""
thisform.text5.value=""
③“退出”的clickevent:
thisform.release
效果图:
MODIFY(English)代码同中文版,界面如下:
子模块3删除(中文)
界面设计:
添加代码:
①“确定”的clickevent:
setdeletedon
delete
pack
thisform.grd旅游信息.recordsource="旅游信息"
②“退出”的clickevent:
thisform.release
效果如图:
DELETE(English)代码同中文版,设计界面以及效果图如下:
7、体会(重点是学习中收获和存在的问题)
最开始确定好题目之后,其实心里对整个系统的构思,所以把书后的范例来回看了好几遍,好在我们组三个成员在一个寝室,我们一起讨论学习那些在以前学习当中没注意到的,有好几个控件以及代码的编写,在之前的实验当中也有做过,我们又重新根据实验指导书去回忆,最终在三个人的不断努力之下,在整个出现问题并想一切办法解决的过程中,我对VF这个应用系统又有了一个更加系统深刻的了解,觉得不再那么陌生,对下学期即将的VF二级考试有了信心。
除此之外,这次合作是我们三个第一次在学习上这么正式的合作,由于在一个寝室,大家平时都是不太严肃的,但是在这次合作当中,也出现了一些意见分歧之类的,我们不是去辩论自己的是对的,而是大家都自己先做出来运行之后,让对方看看效果,然后再做决定。
常常就是,只要有一个人在其负责的操作过程中出现了影响运行的情况,我们都会相互帮助共同尝试解决。
这个星期以来,我们三个一起熬夜一起啃着面包做VF,我能明显的感觉到我们三个之间的感情更加深刻。
最重要的,真的非常非常感谢我们的授课、实验以及辅导老师盛娟老师,还记得6月13日周一上午,老师原定辅导时间到11点,来请教的学生也比较多,老师依然对每个同学很认真的做了辅导。
老师在平时授课过程中,不仅给我们演示了课本当中的一些范例,更是另外给我们做了很多例子(如:
雪花效果等),不仅对学生授之以鱼,更是授之以渔。
老师,谢谢您!
。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 课程设计 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)