首页/技术开发/内容

在Delphi中完成多重查询

技术开发2024-02-27 阅读()
[摘要]Or; end else break; Next end; end; //not IsEmpty(筛选)非空 tjQuery.SQL.Add(sFilter); //保存查询条件 end; //处理...
Or;
end
else break;
Next
end;
end; //not IsEmpty(筛选)非空
tjQuery.SQL.Add(sFilter); //保存查询条件
end; //处理筛选条件

----另外,需要进行如下说明:

...
Type
...
procedure MySetDBGrid(sTable:TTable;
tjDBGrid:TDBGrid);
function MyCreate_SQL(sTable,tjTable:
TTable;tjQuery:TQuery):boolean;
private
{ Private declarations }
...

----值得说明的是,⑴为简化程序,逻辑关系只提供了AND 和OR两种,但为了允许用户修改SQL语句,如:在多条件之间增加括号来改变运算顺序等,增加了Memo控件;⑵在实际系统中,为方便用户的操作,可增加几个Button(按钮),功能分别是对Table2的“增加”、“删除”,这样用户界面会更友好些。

----利用这种方法来设置查询,条件个数是无限制的,且在屏幕上不会占据太大的空间,程序员实现起来要简单得多了。

第1页  第2页 

……

相关阅读