[摘要]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的“增加”、“删除”，这样用户界面会更友好些。
----利用这种方法来设置查询，条件个数是无限制的，且在屏幕上不会占据太大的空间，程序员实现起来要简单得多了。
……