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

* Correct support for datetime fields

Browse Source
This commit is contained in:
michael 2019-10-01 18:28:09 +00:00
parent cc0cee2387
commit 463eae99d9
1 changed files with 23 additions and 0 deletions

23
packages/dataabstract/dadataset.pas
View File

@ -34,6 +34,8 @@ Type
function DataTypeToFieldType(s: String): TFieldType;
procedure SetParams(AValue: TParams);
Protected
function ConvertToDateTime(aField : TField; aValue : JSValue; ARaiseException : Boolean) : TDateTime; override;
function ConvertDateTimeToNative(aField : TField; aValue : TDateTime) : JSValue; override;
Procedure MetaDataToFieldDefs; override;
Public
constructor create(aOwner : TComponent); override;
@ -154,6 +156,9 @@ implementation
uses strutils, sysutils;
resourcestring
SErrInvalidDate = '%s is not a valid date value for %s';
{ TDAConnection }
@ -358,6 +363,23 @@ begin
FParams.Assign(AValue);
end;
function TDADataset.ConvertToDateTime(aField: TField; aValue: JSValue; ARaiseException: Boolean): TDateTime;
begin
Result:=0;
if isDate(aValue) then
Result:=JSDateToDateTime(TJSDate(aValue))
else if isString(aValue) then
Result:=Inherited ConvertToDateTime(afield,aValue,ARaiseException)
else
if aRaiseException then
DatabaseErrorFmt(SErrInvalidDate,[String(aValue),aField.FieldName],Self);
end;
function TDADataset.ConvertDateTimeToNative(aField: TField; aValue: TDateTime): JSValue;
begin
Result:=DateTimeToJSDate(aValue);
end;
procedure TDADataset.MetaDataToFieldDefs;
begin
@ -451,6 +473,7 @@ begin
begin
Result[i].Name:=DADS.Params[i].Name;
Result[i].Value:=DADS.Params[i].Value;
// Writeln('Set param ',Result[i].Name,' to ',Result[i].Value);
end;
end;