paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 00:08:43 +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
Wheres = [flWhereKey];
Colons = Wheres + [flInsertParams];
Colons = Wheres + [flInsertParams,flUpdate];
UseEqual = Wheres+[flUpdate];
Var
@ -1178,16 +1178,29 @@ Var
begin
Result:=aSQL;
// from tables %FULLWHERE%
if (aWhere<>'') then
S:='WHERE '+aWhere
else
S:='';
Result:=StringReplace(Result,'%FULLWHERE%',S,[rfReplaceAll]);
// from tables WHERE %REQUIREDWHERE%
if (aWhere<>'') then
S:=aWhere
else
S:='(1=0)';
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
S:='('+aWhere+')'
else