paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 14:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add NewIsNull to TDAWhereClauseBuilder

Browse Source
This commit is contained in:
michael 2020-09-12 08:31:58 +00:00
parent 48a57fc9f1
commit e507e6a21a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/dataabstract/dadataset.pas
View File

@ -45,6 +45,7 @@ Type
class function NewNull: TDAExpression;
class function NewIsNotNull: TDAExpression; overload;
class function NewIsNotNull(const aTableName,aFieldName: string): TDAExpression; overload;
class function NewIsNull(const aTableName,aFieldName: string): TDAExpression; overload;
class function NewMacro(const aName: string): TDAExpression; overload;
class function NewMacro(const aName: string; const aValues: array of TDAExpression): TDAExpression; overload;
class function NewBetweenExpression(aExpression, aLower, aUpper: TDAExpression): TDAExpression; overload;
@ -317,6 +318,12 @@ begin
Result:=NewBinaryExpression(NewField(aTableName,aFieldName),NewIsNotNull,dboEqual);
end;
class function TDAWhereClauseBuilder.NewIsNull(const aTableName,
aFieldName: string): TDAExpression;
begin
Result:=NewBinaryExpression(NewField(aTableName,aFieldName),TDANullExpression.new,dboEqual);
end;
class function TDAWhereClauseBuilder.NewMacro(const aName: string): TDAExpression;
begin
Result:=TDAMacroExpression.New(aName);