关于我做的查询表单,其程序代码如下,运行时问题很多

DOOR9876 2009-10-29 10:07:19
cb_date1=thisform.pageframe1.page1.text3.value
co_date1=thisform.pageframe1.page1.text4.value
flag1=thisform.pageframe1.page1.check1.value
flag2=thisform.pageframe1.page1.check2.value
flag3=thisform.pageframe1.page1.check3.value
flag4=thisform.pageframe1.page1.check4.value
if (flag1=.f.) and (flag2=.f.) and (flag3=.f.) and (flag4=.f.)
messagebox("没有填写查询条件",32,"提示")
thisform.pageframe1.page1.text1.setfocus
endif
if (flag1=.t.) and (flag2=.f.) and (flag3=.f.) and (flag4=.f.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.报检号==allt(thisform.pageframe1.page1.text1.value)
endif
if reccount()=0
messagebox("这个报检号没有查验记录",0,"查询信息")
endif
if (flag1=.f.) and (flag2=.t.) and (flag3=.f.) and (flag4=.f.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.货主==allt(thisform.pageframe1.page1.text2.value)
endif
if reccount()=0
messagebox("这个货主没有查验记录",0,"查询信息")
endif
if (flag1=.f.) and (flag2=.f.) and (flag3=.t.) and (flag4=.f.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue)
endif
if reccount()=0
messagebox("这个代理公司没有查验记录",0,"查询信息")
endif
if (flag1=.f.)and(flag2=.f.)and(flag3=.f.)and(flag4=.t.)
select 查验登记表.报检号,代理公司,货主,输出国家,木包装数量,二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.日期 between cb_date1 and co_date1;

if reccount()=0
messagebox("这个时间段没有查验记录",0,"查询信息")
endif
endif

if (flag1=.f.) and (flag2=.f.) and (flag3=.t.) and (flag4=.t.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and (查验登记表.日期 between cb_date1 and co_date1)
endif
if reccount()=0
messagebox("这个代理公司没有查验记录",0,"查询信息")
endif
if (flag1=.f.) and (flag2=.t.) and (flag3=.t.) and (flag4=.f.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and 查验登记表.货主==allt(thisform.pageframe1.page1.text2.value)
endif
if reccount()=0
messagebox("没有查验记录",0,"查询信息")
endif
if (flag1=.f.) and (flag2=.t.) and (flag3=.f.) and (flag4=.t.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and (查验登记表.日期 between cb_date1 and co_date1)
endif
if reccount()=0
messagebox("没有查验记录",0,"查询信息")
endif

if (flag1=.f.) and (flag2=.t.) and (flag3=.t.) and (flag4=.t.)
select 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where (查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue)) and (查验登记表.日期 between cb_date1 and co_date1);
and (查验登记表.货主==allt(thisform.pageframe1.page1.text2.value))
endif
if reccount()=0
messagebox("这个代理公司没有查验记录",0,"查询信息")
endif

[img=c:\C:\Documents and Settings\Administrator\图片收藏\cx


以上是查询的程序代码,我想使用单个查询或者组合查询均可实现,就是在文本框前加个复选框来实现,可是实际运行时,如果选中某个复选框,如果查询结果没有,他会跳出很多提示:比如这个货主没有查验记录,这个报检号没有查验记录,而明明我选的只有货主一个复选框.
...全文
69 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lc_apple 2009-10-30
  • 打赏
  • 举报
 回复
你的代码有点问题!给你调整一下,你试试
cb_date1=thisform.pageframe1.page1.text3.value
co_date1=thisform.pageframe1.page1.text4.value
flag1=thisform.pageframe1.page1.check1.value
flag2=thisform.pageframe1.page1.check2.value
flag3=thisform.pageframe1.page1.check3.value
flag4=thisform.pageframe1.page1.check4.value
DO case
CASE (flag1=.f.) and (flag2=.f.) and (flag3=.f.) and (flag4=.f.)
MESSAGEBOX("没有填写查询条件",32,"提示")
thisform.pageframe1.page1.text1.setfocus
CASE (flag1=.t.) and (flag2=.f.) and (flag3=.f.) and (flag4=.f.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.报检号==allt(thisform.pageframe1.page1.text1.value)
IF reccount()=0
MESSAGEBOX("这个报检号没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.) and (flag2=.t.) and (flag3=.f.) and (flag4=.f.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.货主==allt(thisform.pageframe1.page1.text2.value)
IF reccount()=0
MESSAGEBOX("这个货主没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.) and (flag2=.f.) and (flag3=.t.) and (flag4=.f.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue)
IF reccount()=0
MESSAGEBOX("这个代理公司没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.)and(flag2=.f.)and(flag3=.f.)and(flag4=.t.)
SELECT 查验登记表.报检号,代理公司,货主,输出国家,木包装数量,二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.日期 between cb_date1 and co_date1;

IF reccount()=0
MESSAGEBOX("这个时间段没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.) and (flag2=.f.) and (flag3=.t.) and (flag4=.t.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and (查验登记表.日期 between cb_date1 and co_date1)
IF reccount()=0
MESSAGEBOX("这个代理公司没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.) and (flag2=.t.) and (flag3=.t.) and (flag4=.f.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and 查验登记表.货主==allt(thisform.pageframe1.page1.text2.value)
IF reccount()=0
MESSAGEBOX("没有查验记录",0,"查询信息")
ENDIF
CASE (flag1=.f.) and (flag2=.t.) and (flag3=.f.) and (flag4=.t.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where 查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue) and (查验登记表.日期 between cb_date1 and co_date1)
IF reccount()=0
MESSAGEBOX("没有查验记录",0,"查询信息")
ENDIF

CASE (flag1=.f.) and (flag2=.t.) and (flag3=.t.) and (flag4=.t.)
SELECT 查验登记表.报检号,查验登记表.代理公司,查验登记表.货主,查验登记表.输出国家,查验登记表.木包装数量,查验登记表.二维码,;
查验登记表.IPPC标识,查验登记表.疫情情况,查验登记表.是否处罚,查验登记表.是否采样,查验登记表.日期;
from 查验登记!查验登记表;
where (查验登记表.代理公司==allt(thisform.pageframe1.page1.combo1.displayvalue)) and (查验登记表.日期 between cb_date1 and co_date1);
and (查验登记表.货主==allt(thisform.pageframe1.page1.text2.value))
IF reccount()=0
MESSAGEBOX("这个代理公司没有查验记录",0,"查询信息")
ENDIF
OTHERWISE
ENDCASE
RETURN
DOOR9876 2009-10-30
  • 打赏
  • 举报
 回复
非常感谢
java源码包---java 源码 大量 实例
　用JAVA编写的指针式圆形电子钟，效果图如下所示，其实代码很简单，希望对你有帮助。 Message-Driven Bean EJB实例源代码 2个目标文件 摘要:Java源码,初学实例,EJB实例 　Message-Driven Bean EJB实例源代码，演示...
回看JSP——解决提交form表单出现的乱码问题
乱码问题在写web程序时很常见，也很让人头疼，有时候一个疏忽就会出现乱码，接下来我主要讲一下我学到的解决方法。 （一）使用post请求提交表单出现乱码问题 现在有如下的代码，这段代码会使用post方式 提交相应的...
“一套代码，多端运行”靠谱么？
“一套代码，多端运行”，是用人企业和开发者们的共同愿景。用人单位要节省成本，开发者要... （JAVA大佬，客串前端）学习成本低，而且人员成本也低，就这个优点而言，就会有很多对应用要求不苛刻的公司去使用吧；...
微信小程序服务器请求和上传数据，上传图片并展示，提交表单完整实例代码附效果图
微信小程序开发交流qq群 173683895 、 526474645 ；  承接微信小程序开发。扫码加微信。 为了方便大家，下面列出微信请求服务器常用的几种方式，并附上代码和注释。   一： GET请求（最常用的）  wx....
【layui】表单元素radio不显示渲染
最近一直在使用layui，一个对程序员相对...我希望的效果是但是程序运行效果是问题分析：因为这个表单，我是使用laytpl动态插入的，因此表单中radio的效果并没有渲染上，打开调试模式可以看到正常的radio渲染结果，应
VFP

2,749

社区成员

29,139

社区内容

发帖
与我相关
我的任务
社区描述
VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章