E
eighteenzl
Unregistered / Unconfirmed
GUEST, unregistred user!
各位我想做一个多功能查询.这里是一个供查询时调用的多方面查询的相关代码.;
现在在 ADOQry_main.SQL.Text:=selectSQL;就出了错.不知道为什么?请多指教!
if selectSQL<>'' then
begin
selectSQL:='Select * from 员工基础信息表';
ADOQry_main.DestroyComponents;
ADOQry_main.Close;
ADOQry_main.SQL.Clear;
ADOQry_main.SQL.Text:=selectSQL;
// ADOQry_main.open;
if trim(Condition)<>'' then
begin
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+condition+'and'+ConditionUserDefine;
end
else
ADOQry_main.SQL.Text:=selectSQL+'where'+condition;
end
else
begin
if trim(ConditionUserDefine)<>'' then
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+ConditionUserDefine;
If trim(GroupByFields)<>'' then
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+'Grod by'+GroupByFields;
Screen.Cursor:=CrSQLWait;
ADOQry_main.open;
Screen.Cursor:=CrDefault;
ADOQry_main.Sort:=orderByFields; //设置排序属性
ADOQry_main.EnableControls;
end;
现在在 ADOQry_main.SQL.Text:=selectSQL;就出了错.不知道为什么?请多指教!
if selectSQL<>'' then
begin
selectSQL:='Select * from 员工基础信息表';
ADOQry_main.DestroyComponents;
ADOQry_main.Close;
ADOQry_main.SQL.Clear;
ADOQry_main.SQL.Text:=selectSQL;
// ADOQry_main.open;
if trim(Condition)<>'' then
begin
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+condition+'and'+ConditionUserDefine;
end
else
ADOQry_main.SQL.Text:=selectSQL+'where'+condition;
end
else
begin
if trim(ConditionUserDefine)<>'' then
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+ConditionUserDefine;
If trim(GroupByFields)<>'' then
ADOQry_main.SQL.Text:=ADOQry_main.SQL.Text+'where'+'Grod by'+GroupByFields;
Screen.Cursor:=CrSQLWait;
ADOQry_main.open;
Screen.Cursor:=CrDefault;
ADOQry_main.Sort:=orderByFields; //设置排序属性
ADOQry_main.EnableControls;
end;