paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better code documentation for processql, add %OPTIONALWHERE%

Browse Source 
git-svn-id: trunk@42299 -
This commit is contained in:
michael 2019-06-27 16:13:55 +00:00
parent 2aaae5353e
commit 67b711013f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-web/src/restbridge/sqldbrestschema.pp
View File

@ -1079,7 +1079,7 @@ Const
Const Const
Wheres = [flWhereKey]; Wheres = [flWhereKey];
Colons = Wheres + [flInsertParams]; Colons = Wheres + [flInsertParams,flUpdate];
UseEqual = Wheres+[flUpdate]; UseEqual = Wheres+[flUpdate];
Var Var
@ -1178,16 +1178,29 @@ Var
begin begin
Result:=aSQL; Result:=aSQL;
// from tables %FULLWHERE%
if (aWhere<>'') then if (aWhere<>'') then
S:='WHERE '+aWhere S:='WHERE '+aWhere
else else
S:=''; S:='';
Result:=StringReplace(Result,'%FULLWHERE%',S,[rfReplaceAll]); Result:=StringReplace(Result,'%FULLWHERE%',S,[rfReplaceAll]);
// from tables WHERE %REQUIREDWHERE%
if (aWhere<>'') then if (aWhere<>'') then
S:=aWhere S:=aWhere
else else
S:='(1=0)'; S:='(1=0)';
Result:=StringReplace(Result,'%REQUIREDWHERE%',S,[rfReplaceAll]); Result:=StringReplace(Result,'%REQUIREDWHERE%',S,[rfReplaceAll]);
// from tables WHERE X=Y %OPTIONALWHERE%
if (aWhere<>'') then
S:='AND ('+aWhere+')'
else
S:='';
Result:=StringReplace(Result,'%OPTIONALWHERE%',S,[rfReplaceAll]);
// from tables WHERE X=Y AND %WHERE%
if (aWhere<>'') then if (aWhere<>'') then
S:='('+aWhere+')' S:='('+aWhere+')'
else else