100分求动态查询模块，不够另外开贴给分！！！

[steven_1983]

100分求动态查询模块，不够另外开贴给分！！！100分求动态查询模块，不够另外开贴给分！！！
QQ:101022104

[hongqi162]

也是就是动态的组合查询条件，就是麻烦点，需要考虑的东西太多了

[jianke5555]

我有万能查询控件特别好用.

[bloom2009]

我给公司做的不能对外开放.我下午做个类似的完成动态查询的小程序给你.大约明天早上就发过你,再联系

[steven_1983]

万分感谢～～

[flashtong]

还是在存储过程中写查询代码,调用的好
如

Create proc OQ_GetOrderInfoTable
@Feilds varchar(1000) = '*',
@table varchar(1000) = '*',
@Where varchar(1000) = 'where 1=1'
as

declare @tempSQL nvarchar(4000)
----------------------
--省略
----------------------
EXECUTE sp_executesql @tempSQL

这样感觉比在delphi里面写好点

[delphidj]

编写一个from，将主窗口的query引用进来，再使用查询既可

[bloom2009]

ADOQuery1要通过ADO连接组件连到数据库里,加个按钮,按钮的单击事件:
with self.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' select * from table1 where rake like :a and name like :b and product like :c ');
parameters.ParamByName('a').Value:='%'+Trim(edit1.Text)+'%';
parameters.ParamByName('b').Value:='%'+Trim(edit2.Text)+'%';
parameters.ParamByName('c').Value:='%'+Trim(edit3.Text)+'%';
Open;
database.ADO_CLIENT.first;
end;

[bloom2009]

假如查空出错的话,可以先判断edit是否为空,修改代码:
with self.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' select * from table1 where 1=1');
if Trim(edit1.Text)<>'' then
begin
SQL.Add(' and rake like :a' );
parameters.ParamByName('a').Value:='%'+Trim(edit1.Text)+'%';
end;
if Trim(edit2.Text)<>'' then
begin
SQL.Add(' and name like :b ');
parameters.ParamByName('b').Value:='%'+Trim(edit2.Text)+'%';
end;
if Trim(edit3.Text)<>'' then
begin
SQL.Add(' and product like :c' );
parameters.ParamByName('c').Value:='%'+Trim(edit3.Text)+'%';
end;
Open;
self.ADOQuery1.first;
end;

哈哈,我刚改造出来一个类似的,还挺好使,应该对楼主也有用吧.
第一条回复有个地方忘了修改,就是最后database.ADO_CLIENT.first;哈哈,那是我的代码里的,我是给把程序的数据连接和查询之类的组件都放在了名为database的数据模块里了.

[steven_1983]

楼上的朋友可以把你的模块加数据库备份打包发给我一下吗？万分感谢！！！

email: [e-mail]
[e-mail]

QQ:101022104

[steven_1983]

“bloom2009”这位朋友，给我写好了吗？

[steven_1983]

还没有哈～～初学Delphi，现在急需参考这方面得代码！！！急啊～～～

是男是女你先猜猜呢？？呵呵

[steven_1983]

自己顶

[踢踏]

还没搞定啊？
顺便问下：楼主是男性还是女性，1983出生的？