if ComboBox1.Text='全部' then
begin
SQL.Add('select * from rszx where xl like:xl1 and mm like:mm1 and xm like:xm1 and zy like:zy1 and sf like:sf1 and yx like:yx1');
Parameters.ParamValues['xl1']:='%'+xledit.text+'%';
Parameters.ParamValues['xm1']:='%'+xmedit.text+'%';
Parameters.ParamValues['mm1']:='%'+mmedit.text+'%';
Parameters.ParamValues['zy1']:='%'+zyedit.text+'%';
Parameters.ParamValues['sf1']:='%'+sfedit.text+'%';
Parameters.ParamValues['yx1']:='%'+yxedit.text+'%';
end
else
begin
SQL.Add('select * from rszx where dw like:dw1 and xl like:xl1 and mm like:mm1 and xm like:xm1 and zy like:zy1 and sf like:sf1 and yx like:yx1');
Parameters.ParamValues['dw1']:='%'+combobox1.text+'%';
Parameters.ParamValues['xl1']:='%'+xledit.text+'%';
Parameters.ParamValues['xm1']:='%'+xmedit.text+'%';
Parameters.ParamValues['mm1']:='%'+mmedit.text+'%';
Parameters.ParamValues['zy1']:='%'+zyedit.text+'%';
Parameters.ParamValues['sf1']:='%'+sfedit.text+'%';
Parameters.ParamValues['yx1']:='%'+yxedit.text+'%';
end;
这个是代码,就是在用COMBOBOX1进行选择进行查询时,不能全部列出与COMBOBOX1相符合的数据,请高手解决,同时希望各位高手能提供简单的多条件查询的代码.
begin
SQL.Add('select * from rszx where xl like:xl1 and mm like:mm1 and xm like:xm1 and zy like:zy1 and sf like:sf1 and yx like:yx1');
Parameters.ParamValues['xl1']:='%'+xledit.text+'%';
Parameters.ParamValues['xm1']:='%'+xmedit.text+'%';
Parameters.ParamValues['mm1']:='%'+mmedit.text+'%';
Parameters.ParamValues['zy1']:='%'+zyedit.text+'%';
Parameters.ParamValues['sf1']:='%'+sfedit.text+'%';
Parameters.ParamValues['yx1']:='%'+yxedit.text+'%';
end
else
begin
SQL.Add('select * from rszx where dw like:dw1 and xl like:xl1 and mm like:mm1 and xm like:xm1 and zy like:zy1 and sf like:sf1 and yx like:yx1');
Parameters.ParamValues['dw1']:='%'+combobox1.text+'%';
Parameters.ParamValues['xl1']:='%'+xledit.text+'%';
Parameters.ParamValues['xm1']:='%'+xmedit.text+'%';
Parameters.ParamValues['mm1']:='%'+mmedit.text+'%';
Parameters.ParamValues['zy1']:='%'+zyedit.text+'%';
Parameters.ParamValues['sf1']:='%'+sfedit.text+'%';
Parameters.ParamValues['yx1']:='%'+yxedit.text+'%';
end;
这个是代码,就是在用COMBOBOX1进行选择进行查询时,不能全部列出与COMBOBOX1相符合的数据,请高手解决,同时希望各位高手能提供简单的多条件查询的代码.
解决方案 »
- Dll子窗体如何加载皮肤!主窗体用了皮肤控件!
- delphi用什么方法或控件在窗体上,打开word和xls文档??
- 关于打印,就两个字段的内容,但是用D6自带的QuickRep打印,怎么能设置能让他在A4纸,横着打印?
- 文本文件in.txt中有若干网站域名,如何得到对应的IP地址,并将其输出到out.txt中,谢谢!
- 小问题?!~~~
- 有没有兄弟熟悉财务?
- 关于屏幕保护程序的问题?
- 请问如何知道桌面发生变化,如更换了桌面图片
- 关联表中,数据怎么不能马上更新?
- DBGrid的OnEnter事件有什么意思!主要用来做什么??看的例子大多是连接DataSoure!还有就是一个DateNavigator连接两个DbGrid??????
- 如何用文件存取文件
- 急!DBGrid中无法显示查询的内容!
Parameters.ParamValues['xl1']:=''%'+xledit.text+'%''';