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

* Extended example based on pas2js test sample

Browse Source 
git-svn-id: trunk@40768 -
This commit is contained in:
michael 2019-01-05 12:29:45 +00:00
parent 1e9e87175e
commit 1378f55f6d
1 changed files with 238 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

290
packages/fcl-db/tests/testjsondataset.pp
View File

@ -1,80 +1,106 @@
program testjsondataset;
program devds;
{$DEFINE TESTCALCFIELDS}
{$DEFINE TESTLOOKUPFIELDS}
uses sysutils, db, jsonparser, fpjson,fpjsondataset, extjsdataset;
uses variants, varutils, sysutils, db, fpjson , fpjsondataset, ExtJSDataset, types;
Type
{ TApp }
TApp = Class(TObject)
Procedure DumpRecord(DS : TDataset);
Procedure DumpRecords(DS : TDataset);
Procedure Run;
private
DS : TExtJSJSONObjectDataSet;
DC : TExtJSJSONObjectDataSet;
Procedure DumpRecord(aDS : TDataset);
Procedure DumpRecords(aDS : TDataset);
procedure CreateDataset;
procedure DoCalcFields(DataSet: TDataSet);
procedure TestAppend;
procedure TestBookMark;
procedure TestDataLinkActiveRecord;
procedure TestDataLinkEdit;
procedure TestEdit;
procedure TestInsert;
procedure TestLocate;
procedure TestLookup;
procedure TestNavigation;
Public
Procedure Run;
end;
Procedure TApp.DumpRecord(DS : TDataset);
//Var
// F : TField;
Procedure TApp.DumpRecord(aDS : TDataset);
begin
// For F in DS.Fields do
// Write(F.Name,' : ',F.IsNull,' ');
// WriteLn;
Writeln(
{$IFDEF TESTCALCFIELDS}
'Full name: ',DS.FieldByName('fullname').AsString,
'Full name: ',aDS.FieldByName('fullname').AsString,
{$ENDIF}
'First name: ',aDS.FieldByName('firstname').AsString,
', Last name:', aDS.FieldByName('lastname').AsString,
', Children:', aDS.FieldByName('children').AsInteger,
', Birthday:', aDS.FieldByName('birthday').AsString,
', Weight:', aDS.FieldByName('weight').AsFloat,
', Business:', aDS.FieldByName('business').AsBoolean,
', Country:', aDS.FieldByName('Country').AsString
{$IFDEF TESTLOOKUPFIELDS}
,', CountryName:', aDS.FieldByName('CountryName').AsString
{$ENDIF}
'First name: ',DS.FieldByName('firstname').AsString,
', Last name: ', DS.FieldByName('lastname').AsString,
', Children: ', DS.FieldByName('children').AsInteger,
', Birthday: ', DS.FieldByName('birthday').AsString
);
end;
Procedure TApp.DumpRecords(DS : TDataset);
Procedure TApp.DumpRecords(aDS : TDataset);
begin
While not DS.EOF do
While not aDS.EOF do
begin
Write(DS.RecNo,': ');
DumpRecord(DS);
DS.Next;
DumpRecord(aDS);
aDS.Next;
end;
end;
Procedure TApp.Run;
Procedure TApp.CreateDataset;
Var
DS : TExtJSJSONObjectDataSet;
B : TBookmark;
t: TDataLink;
DSS : TDatasource;
{$IFDEF TESTCALCFIELDS}
Var
F : TField;
{$ENDIF}
begin
Writeln('Creating dataset');
DS:=TExtJSJSONObjectDataSet.Create(Nil);
DS.MetaData:=GetJSON(' { "fields" : [ {"name": "firstname", "maxLen" : 100}, {"name": "lastname","maxLen" : 100}, '+
' { "name" : "children", "type": "int" }, '+
' { "name" : "birthday", "type": "date", "dateFormat": "yyyy\"-\"mm\"-\"dd" } ]}') as TJSONObject;
DS.Rows:=GetJSON('[{"firstname" : "Michael", "lastname" : "Van Canneyt", "children" : 2, "birthday": "1970-07-07" },'+
' {"firstname" : "Mattias", "lastname" : "Gaertner", "children" : 0, "birthday" : "1970-07-08" }, '+
' {"firstname" : "Bruno", "lastname" : "Fierens", "children" : 3, "birthday" : "1970-07-09" },'+
' {"firstname" : "Detlef", "lastname" : "Overbeek", "children" : 2, "birthday" : "1950-07-08" }'+
' ]') as TJSONarray;
DS.MetaData:=GetJSON('{ "fields" : [ '+
' { "name": "firstname"}, '+
' { "name": "lastname"}, '+
' { "name" : "children", "type": "int" }, '+
' { "name" : "birthday", "type": "date", "dateFormat": "yyyy\"-\"mm\"-\"dd" }, '+
' { "name" : "country", "type": "string", "maxLen" : 2 }, '+
' { "name" : "business", "type": "boolean" }, '+
' { "name" : "weight", "type": "float" } '+
']}') as TJSONObject;
DS.Rows:=GetJSON('[{"firstname" : "Michael", "lastname" : "Van Canneyt", "children" : 2, "birthday": "1970-07-07", "business" : false, "weight": 75.5, "country": "BE" },'+
' {"firstname" : "Mattias", "lastname" : "Gaertner", "children" : 0, "birthday" : "1970-07-08", "business" : false, "weight": 76.2, "country": "DE" }, '+
' {"firstname" : "Bruno", "lastname" : "Fierens", "children" : 3, "birthday" : "1970-07-09", "business" : true, "weight": 77.3, "country": "BE" },'+
' {"firstname" : "Detlef", "lastname" : "Overbeek", "children" : 2, "birthday" : "1950-07-08", "business" : true, "weight": 78.8, "country": "NL" }'+
' ]') as TJSONArray;
DC:=TExtJSJSONObjectDataSet.Create(Nil);
DC.MetaData:=GetJSON('{ "fields" : [ '+
' { "name": "code"}, '+
' { "name": "name"} '+
']} ') as TJSONObject;
DC.Rows:=GetJSON('[{"code" : "BE", "name" : "Belgium" }, '+
' {"code" : "DE", "name" : "Germany" }, '+
' {"code" : "NL", "name" : "Netherlands" }, '+
' {"code" : "FR", "name" : "France" }, '+
' {"code" : "UK", "name" : "United Kingdom" } '+
' ]') as TJSONArray;
{$IFDEF TESTCALCFIELDS}
F:=TStringField.Create(DS);
F.FieldKind:=fkCalculated;
F.Size:=200;
F.FieldName:='fullname';
F.FieldName:='FullName';
F.Dataset:=DS;
F:=TStringField.Create(DS);
F.FieldKind:=fkData;
@ -90,15 +116,40 @@ begin
F.FieldKind:=fkData;
F.FieldName:='children';
F.Dataset:=DS;
F:=TJSONDateField.Create(DS);
TJSONDateField(F).DateFormat:='yyyy"-"mm"-"dd';
F:=TDateField.Create(DS);
F.FieldKind:=fkData;
F.FieldName:='birthday';
F.Dataset:=DS;
F:=TBooleanField.Create(DS);
F.FieldKind:=fkData;
F.FieldName:='business';
F.Dataset:=DS;
F:=TFloatField.Create(DS);
F.FieldKind:=fkData;
F.FieldName:='weight';
F.Dataset:=DS;
F:=TStringField.Create(DS);
F.FieldKind:=fkData;
F.Size:=2;
F.FieldName:='country';
F.Dataset:=DS;
{$IFDEF TESTLOOKUPFIELDS}
F:=TStringField.Create(DS);
F.FieldKind:=fkLookup;
F.LookupDataSet:=DC;
F.KeyFields:='country';
F.LookupKeyFields:='code';
F.LookupResultField:='name';
F.FieldName:='CountryName';
F.Dataset:=DS;
{$ENDIF}
DS.OnCalcFields:=@DoCalcFields;
{$ENDIF}
DS.Open;
end;
Procedure TApp.TestNavigation;
begin
Writeln('All records');
DumpRecords(DS);
Writeln('First record (expect Michael.)');
@ -113,16 +164,17 @@ begin
DumpRecord(DS);
DS.Prior;
end;
end;
Procedure TApp.TestAppend;
begin
DS.Append;
Writeln('Dumping record after APPEND (expect empty)');
Writeln('Modified before dump (expect False): ',DS.Modified);
Writeln('Modified before (expect False): ',DS.Modified);
DumpRecord(DS);
DS.FieldByName('firstname').AsString:='Florian';
Write('Old value of field first name (expect null): ');
if DS.FieldByName('firstname').OldValue=Null then
Writeln('Null')
else
Writeln(DS.FieldByName('firstname').OldValue);
Writeln('Old value of field first name (expect null): ', DS.FieldByName('firstname').OldValue);
DS.FieldByName('lastname').AsString:='Klaempfl';
DS.FieldByName('children').AsInteger:=1;
DS.FieldByName('birthday').AsDateTime:=EncodeDate(1980,5,4);
@ -135,6 +187,11 @@ begin
Writeln('Jump to first (expect Michael)');
DS.First;
DumpRecord(DS);
end;
Procedure TApp.TestEdit;
begin
DS.Edit;
Writeln('Dumping record after EDIT');
Writeln('Modified before (expect False): ',DS.Modified);
@ -167,6 +224,14 @@ begin
Writeln('Jump to first and dumping all records (expect Dolores first)');
DS.First;
DumpRecords(DS);
end;
Procedure TApp.TestBookMark;
var
B : TBookmark;
begin
Writeln('Jump to first (expect Dolores)');
DS.First;
DumpRecord(DS);
@ -181,9 +246,13 @@ begin
DS.Delete;
DumpRecord(DS);
Writeln('Setting Bookmark (expect Detlef)');
Writeln('BM value: ',PNativeInt(B)^);
DS.BookMark:=B;
DumpRecord(DS);
end;
Procedure TApp.TestInsert;
begin
Writeln('Jump to second (expect Bruno)');
DS.First;
DS.Next;
@ -205,12 +274,22 @@ begin
Writeln('Jump to first and dumping all records (expect Mattias first, then Felicity)');
DS.First;
DumpRecords(DS);
end;
Procedure TApp.TestDataLinkEdit;
var
t: TDataLink;
DSS : TDatasource;
begin
Writeln('Jump to first before edit');
DS.First;
DSS:=TDatasource.Create(Nil);
DSS.DataSet:=DS;
DSS:=Nil;
t:=TDataLink.Create;
try
DSS:=TDatasource.Create(Nil);
DSS.DataSet:=DS;
Writeln('Buffercount');
t.BufferCount := 10;
t.DataSource := DSS;
@ -230,9 +309,22 @@ begin
t.ActiveRecord := 0;
Finally
t.Free;
dss.free;
end;
end;
Procedure TApp.TestDataLinkActiveRecord;
var
t: TDataLink;
DSS : TDatasource;
begin
DSS:=Nil;
t:=TDataLink.Create;
try
DSS.DataSet:=DS;
DSS.DataSet:=DS;
t.DataSource := DSS;
DS.Last;
Writeln('Last record :',DS.RecNo);
@ -247,13 +339,107 @@ begin
t.ActiveRecord := 0;
Finally
t.Free;
dss.Free;
end;
end;
Procedure TApp.TestLocate;
Var
V : Variant;
begin
DS.First;
Writeln('Locating 3 children (expect true, Bruno): ',DS.Locate('Children',3,[]));
DumpRecord(DS);
DS.First;
v:=VarArrayCreate([0,0],varVariant);
V[0]:=3;
Writeln('Locating 3 children using array (expect true, Bruno): ',DS.Locate('Children',V,[]));
DumpRecord(DS);
DS.First;
Writeln('Locating 4 children (expect false): ',DS.Locate('Children',4,[]));
DS.First;
Writeln('Locating first name Detlef (expect true): ',DS.Locate('Firstname','Detlef',[]));
DumpRecord(DS);
DS.First;
Writeln('Locating first name detlef (expect false): ',DS.Locate('Firstname','detlef',[]));
DS.First;
Writeln('Locating first name detlef (loCaseInsensitive, expect true): ',DS.Locate('Firstname','detlef',[loCaseInsensitive]));
DumpRecord(DS);
DS.First;
Writeln('Locating first name Det (expect false): ',DS.Locate('Firstname','Det',[]));
DS.First;
Writeln('Locating first name Det (loPartialKey,expect true): ',DS.Locate('Firstname','Det',[loPartialKey]));
DumpRecord(DS);
DS.First;
Writeln('Locating first name det (loPartialKey, expect false): ',DS.Locate('Firstname','det',[loPartialKey]));
DS.First;
Writeln('Locating first name det (loCaseInsensitive,loPartialKey, expect true): ',DS.Locate('Firstname','det',[loCaseInsensitive,loPartialKey]));
DumpRecord(DS);
v:=VarArrayCreate([0,1],varVariant);
V[0]:=3;
V[1]:='Detlef';
DS.First;
Writeln('Locating first name Detlef & children 3 ( expect false): ',DS.Locate('Children;Firstname',v,[]));
V[0]:=2;
V[1]:='Detlef';
DS.First;
Writeln('Locating first name Detlef & children 2 ( expect true): ',DS.Locate('Children;Firstname',v,[]));
DS.First;
Writeln('Locating birthday (expect true, Bruno): ',DS.Locate('BirthDay',EncodeDate(1970,07,09),[]));
DS.First;
Writeln('Locating business (expect true, Bruno): ',DS.Locate('business',true,[]));
DumpRecord(DS);
DS.First;
Writeln('Deleting first');
DS.Delete;
Writeln('Locating weight (expect true, bruno): ',DS.Locate('weight',77.3,[]));
DumpRecord(DS);
end;
procedure TApp.TestLookup;
begin
DS.First;
Writeln('Locating weight (expect true, detlef overbeek): ',DS.Lookup('weight',78.8,'fullname'));
Writeln('Still on Michael:');
DumpRecord(DS);
DS.First;
Writeln('Locating birthday (expect true, Bruno): ',DS.Lookup('BirthDay',EncodeDate(1970,07,09),'firstname'));
Writeln('Still on Michael:');
DumpRecord(DS);
end;
Procedure TApp.Run;
begin
try
CreateDataset;
Writeln('Opening dataset');
DC.Open;
DS.Open;
// TestLocate;
TestLookup;
exit;
TestNavigation;
TestAppend;
TestEdit;
TestBookmark;
TestInsert;
TestDataLinkEdit;
TestDataLinkActiveRecord;
except
On E : Exception do
Writeln('!! Caught Exception ',E.ClassName,' : ',E.Message);
end;
end;
procedure TApp.DoCalcFields(DataSet: TDataSet);
begin
Writeln('In calcfields callback');
// Writeln('In callback');
Dataset.FieldByName('FullName').AsString:= Dataset.FieldByName('firstName').AsString+' '+Dataset.FieldByName('lastname').AsString;
end;