|
3.3.3信息查询模块 信息查询模块分为景点查询、路线查询和特色查询三个方面。主要是考虑到用户的不同需要而设置的。用户可以方便的通过菜单操作完成对旅游信息的各种查询，以便方便快捷的得到自己需要的旅游资料。具体功能如下： http://www.paper51.com
景点查询分为根据区号查询和根据字段查询两个功能界面。根据区号查询（如图3.5），用户可以通过下拉框选择自己想要查询的地区的区号，查询到该地区的旅游景点。而根据字段查询（如图3.6）则是用户可以通过选择自己喜爱的查询方式选择字段将会出现对应的查询方式，然后选择相关地区得到当地的旅游信息在查询结果浏览表单给出（如图3.7）。 http://www.paper51.com 按区号查询表单的主要代码如下： paper51.com
Selectziyuan.编号,ziyuan.地区,ziyuan.景点名称,ziyuan.门票价格From ziyuan; http://www.paper51.com
wheresubstr(ziyuan.编号,1,4)=allt(thisform.combo1.value) into cursor grid1 paper51.com thisform.grid1.recordsource="grid1" http://www.paper51.com thisform.grid1.refresh 内容来自论文无忧网 www.paper51.com thisform.refresh copyright paper51.com 由程序可知实现本表单功能的关键函数是“substr(ziyuan.编号,1,4)”取编号的前四位得到区号，然后进行查询。 paper51.com http://www.paper51.com 图3.5 按区号查询 内容来自论文无忧网 www.paper51.com 按字段查询的主要代码如下： paper51.com sele ziyuan copyright paper51.com do case paper51.com case thisform.list1.value="编号" http://www.paper51.com findstr="ziyuan.编号=alltrim(thisform.list2.value)" paper51.com case thisform.list1.value="景点名称" 内容来自www.paper51.com findstr="ziyuan.景点名称=alltrim(thisform.list2.value)" http://www.paper51.com case thisform.list1.value="地区" copyright paper51.com findstr="ziyuan.地区=alltrim(thisform.list2.value)" 内容来自www.paper51.com
other http://www.paper51.com findstr="" 内容来自论文无忧网 www.paper51.com endcase http://www.paper51.com
wait findstr windows copyright paper51.com
loca for &findstr paper51.com findrec=recno() 内容来自www.paper51.com if found() paper51.com go findrec paper51.com do form form\cxjgll &&执行查询结果浏览表单 http://www.paper51.com else 内容来自论文无忧网 www.paper51.com =messagebox("没找到",16,"提示") 内容来自论文无忧网 www.paper51.com endif 内容来自论文无忧网 www.paper51.com
由程序可知实现本表单查询功能的关键是运用了“do case”语句和定义了全程变量“findrec”使查询的结果顺利的在“查询结果浏览表单”中体现了出来。 paper51.com
http://www.paper51.com
图3.6 按字段查询 paper51.com 内容来自论文无忧网 www.paper51.com |