2456
社区成员
在线等候,高手请进
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
这段查询语句中的Where语句我想要他在满足rq这个条件的同时也满足sqbh应该如何来写
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
这段查询语句中的Where语句我想要他在满足rq这个条件的同时也满足sqbh应该如何来写
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yexiaozi2004 2005-01-01
谢谢大家
- 打赏
- 举报
ChinaEinstein 2005-01-01
哇, 看问题这会就有人回答了,还挺快的呢
- 打赏
- 举报
ChinaEinstein 2005-01-01
这要就可以了.呵呵..用AND连一下
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
- 打赏
- 举报
vpoor 2005-01-01
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+''''); //这里
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+''''); //这里
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
- 打赏
- 举报
Kshape 2005-01-01
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
修改为：
adoquery1.SQL.Add('where rq='''+edit1.text+'''+ and sqbh=.....');
省略号处加上你自己的条件就可以啦
修改为：
adoquery1.SQL.Add('where rq='''+edit1.text+'''+ and sqbh=.....');
省略号处加上你自己的条件就可以啦
- 打赏
- 举报
stan001140 2005-01-01
就是把vpoor的那句添在你主句下面啊！
- 打赏
- 举报
yexiaozi2004 2005-01-01
能写完整来吗
就是在adoquery1.SQL.Add('where rq='''+edit1.text+'''')中写完整来吗
怎么来连上你写的and
就是在adoquery1.SQL.Add('where rq='''+edit1.text+'''')中写完整来吗
怎么来连上你写的and
- 打赏
- 举报
vpoor 2005-01-01
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');
- 打赏
- 举报
Linux操作系统基础教程 系统，因此不需要先安装 DOS 或其他的操作系统（MS Windows, OS2, MINIX..）就可以进 行直接的安装。 Linux的最早起源是在1991年10月5日由一位芬兰的大学生Linux Torvalds (Torvalds@kruuna.helsinki.fi)写了 Linux...
蓝屏代码大全 还请高手指点站长一二) 0X000006B 因为代用的磁盘尚未插入，所以程序已经停止 0X000006C 磁盘正在使用中或被锁定 0X000006F 文件名太长 0X0000070 硬盘空间不足 0X000007F 找不到指定的程序 0X...
高手在民间！明知广告却让人欲罢不能的营销手段 知识源于生活中的实践，很多真理也源于生活，在之前很多朋友总是询问我为何写不出好的文章，而笔者的回答则是没有更好总结生活的点点滴滴，正所谓高手在民间，好的推广营销思路往往被人们用于生活的实践中，下面一起...
写给小白看的线程和进程，高手勿入 不同的空间若能容纳的工人也不一样，就好比厕所一次只能一个人进厕所，当后面来的人，注意到厕所门已经关闭，就知道里面有人，就只能等候前一个人用完，他才能用。 厕所里面的人，为了防止他人再次进入厕所，就会把...
交易高手的终极感悟《上》 人性喜欢齐全而厌恶残缺，请试一下，信手画一个圆而留下一点缺口不画完，是不是没有把那个缺口完全补上的话心中就隐隐有点不舒服的感觉。主观上的这种“求全”意愿或许构成了人们对自身目标追求动力的一部分，但有...
高手必备：简明批处理教程---转 WAIT 启动应用程序并等候它结束 parameters 这些为传送到命令/程序的参数 执行的应用程序是 32-位 GUI 应用程序时，CMD.EXE 不等应用程序终止就返回命令提示。如果在命令脚本内执行，该新行为则不会发生。 ...
庄股高手和你谈选股绝招（1） 庄股高手和你谈选股绝招（1）洞悉成交量变化1、成交量的圆弧底当成交量的底部出现的时候，往往就是股价的底部也出现了。成交量底部的研判是依据过去的底部来做标准的。当股价从高位往下滑落后，成交量逐步减至过去的...
【杂谈】斯科特与阿蒙森的南极点竞赛 ”人们开始将信将疑，直到他把探险队里的科学家送上邮船，让他们在旧金山等候他的“先锋”号时，才疑窦顿消。 1910 年8 月9 日，“先锋”号从挪威出发。它先向南航行，这是很自然的，因为当时巴拿马运河还在...
单核工作法图解：事多到事少，拖延变高效 内容简介 拖延症严重，难以完成工作？ 自己的时间管理方法太复杂，难以坚持使用？ 开会和午休经常破坏自己的番茄钟？...全书分为6章，从削减待办任务、现在专注一件事、永不拖延、循序渐进、简化协作和给创意...
【转载文章】批处理经典入门教程！(从不懂到高手)____附加我的学习笔记 批处理的定义，至今我也没能给出一个合适的----众多高手们也都没给出----反正我不知道----看了我也不一定信服----我是个菜鸟，当然就更不用说了；但我想总结出一个“比较合适的”，而且我也相信自己可以把它解释的很...
RTSP 协议 请查看最新版本的"Internet正式协议标准"（STD 1）了解本协议的标准化进程和状态。本备忘录的传播不受限制。 版权声明： 版权为The Internet Society 所有。所有权利保留。 摘要： 实时流...
【面试频道-银行篇】摩根斯坦利在线测评 摩根斯坦利在线测评（10.20） - [ 笔试面试 ] 版权声明 ：转载时请以超链接形式标明文章原始出处和作者信息及 本声明 http://shijuanfeng.blogbus.com/logs/169021661.html 本文答案皆系作者...
感谢折磨你的人[一] 看在上帝的份儿上，请原谅我的无知，请把那枚铜钱还给我吧！唉，我把它给了您，真是不好意思，哎呀，我的天，我是在做什么呢？” 旅者听见太太的呼喊声，便转过身，笑着说：“您不必感到不安，您没做错任何事...
《那些年啊，那些事——一个程序员的奋斗史》三 只见老师在黑板上洋洋洒洒地写了几道题，然后面向同学，说到：“请懂的同学上来解答一下这问题！” 段伏枥一听，来劲了，大喊：“董德同学，上！”因为“董德”和“懂的”同音，刹那间，教室沸腾了，...
WEB开发文档2 总结 转自：http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid...请大虾指教那
基础 高手请进：VC程序控制Excel将某一TextBox或Label或TextFrame的边框颜色设为无，50分 请问BIG5码是如何转换成GB码的？ 如何在一个Service Application中运行另外一个exe文件，且可以显示在桌面上。 怎样调试服务器端...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
