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

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

3.3.3信息查询模块

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

http://www.paper51.com

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

copyright paper51.com

按区号查询表单的主要代码如下: copyright 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" 内容来自www.paper51.com

thisform.grid1.refresh

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

thisform.refresh copyright paper51.com

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

内容来自www.paper51.com

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

图3.5 按区号查询

http://www.paper51.com

按字段查询的主要代码如下:

paper51.com

sele ziyuan

paper51.com

do case

paper51.com

         case thisform.list1.value="编号" copyright 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

         case thisform.list1.value="地区" paper51.com

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

内容来自www.paper51.com

         other

copyright paper51.com

                findstr="" 内容来自www.paper51.com

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

wait findstr windows copyright paper51.com

loca for &findstr 内容来自论文无忧网 www.paper51.com

findrec=recno()

http://www.paper51.com

if found()

内容来自www.paper51.com

go findrec 内容来自www.paper51.com

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

http://www.paper51.com

else paper51.com

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

copyright paper51.com

endif     http://www.paper51.com

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

内容来自www.paper51.com

图3.6 按字段查询

paper51.com

copyright paper51.com

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