论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VF >

(C)VFP014山西旅游资源管理系统

3.3.3信息查询模块

信息查询模块分为景点查询、路线查询和特色查询三个方面。主要是考虑到用户的不同需要而设置的。用户可以方便的通过菜单操作完成对旅游信息的各种查询,以便方便快捷的得到自己需要的旅游资料。具体功能如下: 内容来自www.paper51.com

景点查询分为根据区号查询和根据字段查询两个功能界面。根据区号查询(如图3.5),用户可以通过下拉框选择自己想要查询的地区的区号,查询到该地区的旅游景点。而根据字段查询(如图3.6)则是用户可以通过选择自己喜爱的查询方式选择字段将会出现对应的查询方式,然后选择相关地区得到当地的旅游信息在查询结果浏览表单给出(如图3.7)。

copyright paper51.com

按区号查询表单的主要代码如下:

内容来自论文无忧网 www.paper51.com

Selectziyuan.编号,ziyuan.地区,ziyuan.景点名称,ziyuan.门票价格From ziyuan; copyright paper51.com

wheresubstr(ziyuan.编号,1,4)=allt(thisform.combo1.value) into cursor grid1

内容来自www.paper51.com

thisform.grid1.recordsource="grid1" paper51.com

thisform.grid1.refresh copyright paper51.com

thisform.refresh 内容来自论文无忧网 www.paper51.com

由程序可知实现本表单功能的关键函数是“substr(ziyuan.编号,1,4)”取编号的前四位得到区号,然后进行查询。 http://www.paper51.com

paper51.com

图3.5 按区号查询 paper51.com

按字段查询的主要代码如下: 内容来自www.paper51.com

sele ziyuan 内容来自www.paper51.com

do case 内容来自www.paper51.com

         case thisform.list1.value="编号" http://www.paper51.com

                findstr="ziyuan.编号=alltrim(thisform.list2.value)" copyright paper51.com

         case thisform.list1.value="景点名称" 内容来自www.paper51.com

                findstr="ziyuan.景点名称=alltrim(thisform.list2.value)" 内容来自论文无忧网 www.paper51.com

         case thisform.list1.value="地区" 内容来自论文无忧网 www.paper51.com

                findstr="ziyuan.地区=alltrim(thisform.list2.value)"

内容来自论文无忧网 www.paper51.com

         other

内容来自论文无忧网 www.paper51.com

                findstr=""

内容来自www.paper51.com

endcase

内容来自www.paper51.com

wait findstr windows

内容来自论文无忧网 www.paper51.com

loca for &findstr paper51.com

findrec=recno() paper51.com

if found()

copyright paper51.com

go findrec copyright paper51.com

         do form form\cxjgll   &&执行查询结果浏览表单

paper51.com

else

内容来自www.paper51.com

         =messagebox("没找到",16,"提示")

paper51.com

endif    

内容来自www.paper51.com

由程序可知实现本表单查询功能的关键是运用了“do case”语句和定义了全程变量“findrec”使查询的结果顺利的在“查询结果浏览表单”中体现了出来。 paper51.com

copyright paper51.com

图3.6 按字段查询

内容来自论文无忧网 www.paper51.com

copyright paper51.com

------分隔线----------------------------
联系方式