unit MainFormU; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait, Data.DB, FireDAC.Comp.Client, MVCFramework.Nullables; type TMainForm = class(TForm) btnCRUD: TButton; btnSelect: TButton; Memo1: TMemo; btnRelations: TButton; btnInheritance: TButton; btnValidation: TButton; btnMultiThreading: TButton; btnRQL: TButton; btnTransientFields: TButton; FDConnection1: TFDConnection; btnNullTest: TButton; btnCRUDNoAutoInc: TButton; btnCRUDWithStringPKs: TButton; btnWithSpaces: TButton; btnCountWithRQL: TButton; btnReadAndWriteOnly: TButton; btnClientGeneratedPK: TButton; btnAttributes: TButton; procedure btnCRUDClick(Sender: TObject); procedure btnInheritanceClick(Sender: TObject); procedure btnMultiThreadingClick(Sender: TObject); procedure btnRelationsClick(Sender: TObject); procedure btnRQLClick(Sender: TObject); procedure btnSelectClick(Sender: TObject); procedure btnValidationClick(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure btnTransientFieldsClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure btnNullablesClick(Sender: TObject); procedure btnNullTestClick(Sender: TObject); procedure btnCRUDNoAutoIncClick(Sender: TObject); procedure btnCRUDWithStringPKsClick(Sender: TObject); procedure btnWithSpacesClick(Sender: TObject); procedure btnCountWithRQLClick(Sender: TObject); procedure btnReadAndWriteOnlyClick(Sender: TObject); procedure btnClientGeneratedPKClick(Sender: TObject); procedure btnAttributesClick(Sender: TObject); private procedure Log(const Value: string); procedure LoadCustomers; public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} uses MVCFramework.ActiveRecord, EntitiesU, System.Threading, System.Generics.Collections, MVCFramework.DataSet.Utils, MVCFramework.RQL.Parser, System.Math, FDConnectionConfigU, EngineChoiceFormU; const Cities: array [0 .. 4] of string = ('Rome', 'New York', 'London', 'Melbourne', 'Berlin'); CompanySuffix: array [0 .. 5] of string = ('Corp.', 'Inc.', 'Ltd.', 'Srl', 'SPA', 'doo'); Stuff: array [0 .. 4] of string = ('Burger', 'GAS', 'Motors', 'House', 'Boats'); procedure TMainForm.btnAttributesClick(Sender: TObject); var lCustomer: TCustomer; lID: Integer; begin Log('** Dynamic Properties Access'); lCustomer := TCustomer.Create; try lCustomer.Attributes['CompanyName'] := 'Google Inc.'; lCustomer.Attributes['City'] := 'Montain View, CA'; lCustomer.Attributes['Note'] := 'Hello there!'; lCustomer.Attributes['Code'] := 'XX123'; lCustomer.Attributes['Rating'] := 3; lCustomer.Insert; lID := lCustomer.ID; Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert('Google Inc.' = lCustomer.Attributes['CompanyName'].AsType().Value); Assert('Montain View, CA' = lCustomer.Attributes['City'].AsString); Assert('XX123' = lCustomer.Attributes['Code'].AsType().Value); Assert('Hello there!' = lCustomer.Attributes['Note'].AsString); lCustomer.Update; Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TCustomer.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; end; procedure TMainForm.btnClientGeneratedPKClick(Sender: TObject); var lCustomer: TCustomerPlainWithClientPK; begin Log('** OnBeforeInsert and SetPK'); lCustomer := TCustomerPlainWithClientPK.Create(); try lCustomer.Store; finally lCustomer.Free; end; end; procedure TMainForm.btnCountWithRQLClick(Sender: TObject); var lRQL: string; lCustomer: TCustomer; I: Integer; begin Log('** TMVCActiveRecord.Count(RQL) [Just uses Filter]'); TMVCActiveRecord.DeleteAll(TCustomer); for I := 1 to 30 do begin lCustomer := TCustomer.Create; try lCustomer.Code := Format('%5.5d', [TThread.CurrentThread.ThreadID, I]); lCustomer.City := Cities[Random(high(Cities) + 1)]; lCustomer.CompanyName := Format('%s %s %s', [lCustomer.City, Stuff[Random(high(Stuff) + 1)], CompanySuffix[Random(high(CompanySuffix) + 1)]]); lCustomer.Note := lCustomer.CompanyName + ' is from ' + lCustomer.City; lCustomer.Insert; finally lCustomer.Free; end; end; lRQL := 'contains(city,"e")'; Log(lRQL + ' => ' + TMVCActiveRecord.Count(lRQL).ToString); lRQL := 'contains(city,"e");sort(+city)'; Log(lRQL + ' => ' + TMVCActiveRecord.Count(lRQL).ToString); lRQL := 'contains(city,"e");limit(1,1)'; Log(lRQL + ' => ' + TMVCActiveRecord.Count(lRQL).ToString); lRQL := 'contains(city,"e");sort(+city);limit(1,1)'; Log(lRQL + ' => ' + TMVCActiveRecord.Count(lRQL).ToString); lRQL := 'contains(city,"e");sort(+city);limit(0,5)'; Log(lRQL + ' => ' + TMVCActiveRecord.Count(lRQL).ToString); end; procedure TMainForm.btnCRUDClick(Sender: TObject); var lCustomer: TCustomer; lID: Integer; begin Log('** Simple CRUD test'); Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomer.ClassName); lCustomer := TCustomer.Create; try Log('Entity ' + TCustomer.ClassName + ' is mapped to table ' + lCustomer.TableName); lCustomer.CompanyName := 'Google Inc.'; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.Insert; lID := lCustomer.ID; Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(not lCustomer.Code.HasValue); lCustomer.Code.Value := '5678'; lCustomer.Note := lCustomer.Note + sLineBreak + 'Code changed to 5678'; lCustomer.Update; Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TCustomer.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try lCustomer.Delete; Log('Just deleted Customer ' + lID.ToString); finally lCustomer.Free; end; end; procedure TMainForm.btnCRUDNoAutoIncClick(Sender: TObject); var lCustomer: TCustomerPlain; lID: Integer; I: Integer; begin Log('** Simple CRUD (no autoinc) test'); Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerPlain.ClassName); TMVCActiveRecord.DeleteAll(TCustomerPlain); Log('Deleting all entities ' + TCustomerPlain.ClassName); for I := 1 to 100 do begin lCustomer := TCustomerPlain.Create; try lCustomer.ID := I; // just for test!! case I mod 3 of 0: lCustomer.CompanyName := 'Google Inc.'; 1: lCustomer.CompanyName := 'bit Time Professionals'; 2: lCustomer.CompanyName := 'Walt Disney Corp.'; end; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.CreationTime := Time; lCustomer.CreationDate := Date; lCustomer.Insert; lID := lCustomer.ID; Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; end; Log('Now there are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerPlain.ClassName); TMVCActiveRecord.DeleteRQL(TCustomerPlain, 'lt(id,90)'); lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(not lCustomer.Code.HasValue); lCustomer.Code.Value := '5678'; lCustomer.Note := lCustomer.Note + sLineBreak + 'Code changed to 5678'; lCustomer.Update; Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TCustomerPlain.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try lCustomer.Delete; Log('Just deleted Customer ' + lID.ToString); finally lCustomer.Free; end; end; procedure TMainForm.btnCRUDWithStringPKsClick(Sender: TObject); var lCustomer: TCustomerWithCode; lCode: string; I: Integer; begin Log('** Simple CRUD (with string pks) test'); Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerWithCode.ClassName); TMVCActiveRecord.DeleteAll(TCustomerWithCode); Log('Deleting all entities ' + TCustomerWithCode.ClassName); for I := 1 to 100 do begin lCustomer := TCustomerWithCode.Create; try lCustomer.Code := I.ToString.PadLeft(4, '0'); // just for test!! case I mod 3 of 0: lCustomer.CompanyName := 'Google Inc.'; 1: lCustomer.CompanyName := 'bit Time Professionals'; 2: lCustomer.CompanyName := 'Walt Disney Corp.'; end; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.Insert; lCode := lCustomer.Code.Value; Log('Just inserted Customer ' + lCode); finally lCustomer.Free; end; end; Log('Now there are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerPlain.ClassName); TMVCActiveRecord.DeleteRQL(TCustomerWithCode, 'lt(code,"0090")'); lCustomer := TMVCActiveRecord.GetByPK(lCode); try Assert(lCustomer.Code.HasValue); lCustomer.Note := lCustomer.Note + sLineBreak + 'Note changed!'; lCustomer.Update; Log('Just updated Customer ' + lCode); finally lCustomer.Free; end; lCustomer := TCustomerWithCode.Create; try lCustomer.LoadByPK(lCode); lCustomer.CompanyName := 'My New Company!'; lCustomer.Update; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lCode); try lCustomer.Delete; Log('Just deleted Customer ' + lCode); finally lCustomer.Free; end; end; procedure TMainForm.btnInheritanceClick(Sender: TObject); var lCustomerEx: TCustomerEx; begin Log('** Inheritace test'); lCustomerEx := TCustomerEx.Create; try lCustomerEx.LoadByPK(1); finally lCustomerEx.Free; end; end; procedure TMainForm.btnMultiThreadingClick(Sender: TObject); var lTasks: TArray; lProc: TProc; lConnParams: string; begin Log('** Multithreading test'); TMVCActiveRecord.DeleteRQL(TCustomer, 'in(City,["Rome","New York","London","Melbourne","Berlin"])'); lConnParams := FDConnection1.Params.Text; lProc := procedure var lConn: TFDConnection; lCustomer: TCustomer; I: Integer; begin lConn := TFDConnection.Create(nil); try lConn.ConnectionDefName := CON_DEF_NAME; ActiveRecordConnectionsRegistry.AddConnection('default', lConn, True); lConn.Params.Text := lConnParams; lConn.Open; for I := 1 to 30 do begin lCustomer := TCustomer.Create; try lCustomer.Code := Format('%5.5d', [TThread.CurrentThread.ThreadID, I]); lCustomer.City := Cities[Random(high(Cities) + 1)]; lCustomer.CompanyName := Format('%s %s %s', [lCustomer.City, Stuff[Random(high(Stuff) + 1)], CompanySuffix[Random(high(CompanySuffix) + 1)]]); lCustomer.Note := lCustomer.CompanyName + ' is from ' + lCustomer.City; lCustomer.Insert; finally lCustomer.Free; end; end; finally ActiveRecordConnectionsRegistry.RemoveConnection('default'); end; end; lTasks := [TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc), TTask.Run(lProc)]; TTask.WaitForAll(lTasks); ShowMessage('Just inserted ' + TMVCActiveRecord.Count(TCustomer, 'in(City,["Rome","New York","London","Melbourne","Berlin"])').ToString + ' records'); end; procedure TMainForm.btnNullablesClick(Sender: TObject); var lCustomer: TCustomer; lID: Integer; begin Log('** Nullables Test'); Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomer.ClassName); lCustomer := TCustomer.Create; try lCustomer.CompanyName := 'Google Inc.'; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.Insert; lID := lCustomer.ID; Assert(not lCustomer.Code.HasValue); Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(not lCustomer.Code.HasValue); Assert(not lCustomer.Rating.HasValue); Assert(lCustomer.Rating.ValueOrDefault = 0); lCustomer.Code.Value := '5678'; lCustomer.Rating.Value := 3; Assert(lCustomer.Code.HasValue); lCustomer.Note := lCustomer.Note + sLineBreak + 'Code changed to 5678'; lCustomer.Update; Assert(lCustomer.Code.HasValue); Assert(lCustomer.Rating.HasValue); Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(lCustomer.Code.HasValue); Assert(lCustomer.Rating.HasValue); Assert(lCustomer.Code.ValueOrDefault = '5678'); Assert(lCustomer.Rating.ValueOrDefault = 3); finally lCustomer.Free; end; lCustomer := TCustomer.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; end; procedure TMainForm.btnNullTestClick(Sender: TObject); var lTest: TNullablesTest; lCustomer: TCustomer; lID: Integer; begin Log('** Nullables Test'); TMVCActiveRecord.DeleteAll(TNullablesTest); lTest := TNullablesTest.Create(); try lTest.f_int2 := 2; lTest.f_int4 := 4; lTest.f_int8 := 8; with TStreamWriter.Create(lTest.f_blob) do try write('Hello World'); finally Free; end; lTest.Insert; Log('Inserting nulls'); finally lTest.Free; end; Log('Loading records with nulls'); lTest := TMVCActiveRecord.GetFirstByWhere('f_int2 = ?', [2]); try Assert(lTest.f_int2.HasValue); Assert(lTest.f_int4.HasValue); Assert(lTest.f_int8.HasValue); Assert(not lTest.f_string.HasValue); Assert(not lTest.f_bool.HasValue); Assert(not lTest.f_date.HasValue); Assert(not lTest.f_time.HasValue); Assert(not lTest.f_datetime.HasValue); Assert(not lTest.f_float4.HasValue); Assert(not lTest.f_float8.HasValue); Assert(not lTest.f_bool.HasValue); Assert(Assigned(lTest)); lTest.f_int2 := lTest.f_int2.Value + 2; lTest.f_int4 := lTest.f_int4.Value + 4; lTest.f_int8 := lTest.f_int8.Value + 8; lTest.f_blob.Size := 0; lTest.Update; finally lTest.Free; end; lTest := TMVCActiveRecord.GetFirstByWhere('f_int2 = ?', [4]); try Assert(lTest.f_int2.ValueOrDefault = 4); Assert(lTest.f_int4.ValueOrDefault = 8); Assert(lTest.f_int8.ValueOrDefault = 16); Assert(not lTest.f_string.HasValue); Assert(not lTest.f_bool.HasValue); Assert(not lTest.f_date.HasValue); Assert(not lTest.f_time.HasValue); Assert(not lTest.f_datetime.HasValue); Assert(not lTest.f_float4.HasValue); Assert(not lTest.f_float8.HasValue); Assert(not lTest.f_bool.HasValue); Assert(lTest.f_blob.Size = 0, 'Blob contains a value when should not'); TMVCActiveRecord.DeleteRQL(TNullablesTest, 'eq(f_int2,4)'); finally lTest.Free; end; Assert(TMVCActiveRecord.GetFirstByWhere('f_int2 = 4', [], False) = nil); lTest := TNullablesTest.Create; try lTest.f_int2 := 2; lTest.f_int4 := 4; lTest.f_int8 := 8; lTest.f_string := 'Hello World'; lTest.f_bool := True; lTest.f_date := EncodeDate(2020, 02, 01); lTest.f_time := EncodeTime(12, 24, 36, 0); lTest.f_datetime := Now; lTest.f_float4 := 1234.5678; lTest.f_float8 := 12345678901234567890.0123456789; lTest.f_currency := 1234567890.1234; lTest.Insert; finally lTest.Free; end; Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomer.ClassName); lCustomer := TCustomer.Create; try lCustomer.CompanyName := 'Google Inc.'; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.Insert; lID := lCustomer.ID; Assert(not lCustomer.Code.HasValue); Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(not lCustomer.Code.HasValue); Assert(not lCustomer.Rating.HasValue); Assert(lCustomer.Rating.ValueOrDefault = 0); lCustomer.Code.Value := '5678'; lCustomer.Rating.Value := 3; Assert(lCustomer.Code.HasValue); lCustomer.Note := lCustomer.Note + sLineBreak + 'Code changed to 5678'; lCustomer.Update; Assert(lCustomer.Code.HasValue); Assert(lCustomer.Rating.HasValue); Log('Just updated Customer ' + lID.ToString + ' with nulls'); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(lCustomer.Code.HasValue); Assert(lCustomer.Rating.HasValue); Assert(lCustomer.Code.ValueOrDefault = '5678'); Assert(lCustomer.Rating.ValueOrDefault = 3); finally lCustomer.Free; end; lCustomer := TCustomer.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; end; procedure TMainForm.btnReadAndWriteOnlyClick(Sender: TObject); var lArtWO, lArtWO2: TArticleWithWriteOnlyFields; lArtRO: TArticleWithReadOnlyFields; lID: NullableInt32; lArt: TArticle; begin lArtWO := TArticleWithWriteOnlyFields.Create(); try lArtWO.Description := 'Description1'; lArtWO.Price := 12; lArtWO.Insert; Log('Stored TArticleWithWriteOnlyFields'); lID := lArtWO.ID; lArt := TMVCActiveRecord.GetByPK(lID); try Assert(lArtWO.Description = lArt.Description); Assert(lArtWO.Price = lArt.Price); Log('Check Stored version of TArticleWithWriteOnlyFields'); Log('Reading data using TArticleWithReadOnlyFields'); lArtRO := TMVCActiveRecord.GetByPK(lID); try Assert(lArtRO.Description = lArt.Description); Assert(lArtRO.Price = lArt.Price); Log('Check Read data of TArticleWithWriteOnlyFields using TArticleWithReadOnlyFields'); finally lArtRO.Free; end; Log('Reading data using TArticleWithWriteOnlyFields (???)'); lArtWO2 := TMVCActiveRecord.GetByPK(lID); try Assert(lArtWO2.ID.ValueOrDefault = lID.ValueOrDefault); Assert(lArtWO2.Description = ''); Assert(lArtWO2.Price = 0); finally lArtWO2.Free; end; finally lArt.Free; end; lArtRO := TArticleWithReadOnlyFields.Create(); try lArtRO.Description := 'Description1'; lArtRO.Price := 12; ShowMessage('Now an exception will be raised...'); lArtRO.Insert; // exception here :-) finally lArtRO.Free; end; finally lArtWO.Free; end; end; procedure TMainForm.btnRelationsClick(Sender: TObject); var lCustomer: TCustomerEx; lOrder: TOrder; lOrderRows: TObjectList; lOrderRow: TOrderDetail; lOrderDetail: TOrderDetail; I: Integer; j: Integer; begin Log('** Relations test'); TMVCActiveRecord.DeleteAll(TCustomerEx); lCustomer := TCustomerEx.Create; try lCustomer.Code := '001'; lCustomer.CompanyName := 'Google Inc.'; lCustomer.Insert; for I := 1 to 3 do begin lCustomer.Orders.Add(TOrder.Create); lCustomer.Orders.Last.CustomerID := lCustomer.ID; lCustomer.Orders.Last.OrderDate := EncodeDate(2018, 5 + I, 20 + I); lCustomer.Orders.Last.Total := I * 3; lCustomer.Orders.Last.Insert; for j := 1 to 4 do begin lOrderDetail := TOrderDetail.Create; try lOrderDetail.OrderID := lCustomer.Orders.Last.ID; lOrderDetail.ArticleID := j; lOrderDetail.Price := Random(j * 10); lOrderDetail.Discount := j; lOrderDetail.Quantity := j * 2; lOrderDetail.Description := 'MY PRODUCT ' + I.ToString + '/' + j.ToString; lOrderDetail.Total := j * j * j; lOrderDetail.Insert; finally lOrderDetail.Free; end; end; end; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetOneByWhere('Code = ?', ['001']); try Log(lCustomer.CompanyName); for lOrder in lCustomer.Orders do begin Log(Format(' %5.5d - %s - %m', [lOrder.ID, datetostr(lOrder.OrderDate), lOrder.Total])); lOrderRows := TMVCActiveRecord.Where('id_order = ?', [lOrder.ID]); try for lOrderRow in lOrderRows do begin Log(Format(' %-20s - %4d - %m', [lOrderRow.Description, lOrderRow.Quantity, lOrder.Total])); end; Log(''); finally lOrderRows.Free; end; end; finally lCustomer.Free; end; end; procedure TMainForm.btnRQLClick(Sender: TObject); var lList: TMVCActiveRecordList; lItem: TMVCActiveRecord; lCustomer: TCustomer; lCustList: TObjectList; const cRQL1 = 'in(City,["Rome","London"]);sort(+code);limit(0,50)'; cRQL2 = 'and(eq(City,"Rome"),or(contains(CompanyName,"GAS"),contains(CompanyName,"Motors")))'; begin LoadCustomers; Log('** RQL Queries Test'); Log('>> RQL Query (1) - ' + cRQL1); lList := TMVCActiveRecord.SelectRQL(TCustomer, cRQL1, 20); try Log(lList.Count.ToString + ' record/s found'); for lItem in lList do begin lCustomer := TCustomer(lItem); Log(Format('%5s - %s (%s)', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault, lCustomer.City])); end; finally lList.Free; end; Log('>> RQL Query (2) - ' + cRQL2); lCustList := TMVCActiveRecord.SelectRQL(cRQL2, 20); try Log(lCustList.Count.ToString + ' record/s found'); for lCustomer in lCustList do begin Log(Format('%5s - %s (%s)', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault, lCustomer.City])); end; finally lCustList.Free; end; Log('**RQL Query (3) - ' + cRQL2); lList := TMVCActiveRecord.SelectRQL(TCustomer, cRQL2, 20); try Log(lList.Count.ToString + ' record/s found'); for lItem in lList do begin lCustomer := TCustomer(lItem); Log(Format('%5s - %s (%s)', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault, lCustomer.City])); end; finally lList.Free; end; end; procedure TMainForm.btnSelectClick(Sender: TObject); var lCustomers: TObjectList; lCustomer: TCustomer; lDS: TDataSet; lID: NullableInt64; begin Log('** Query SQL'); // Bypassing the RQL parser you can use DBMS-specific features or just joining your tables. // This is just a sample, you can do the "select" also using the RQL engine if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'firebird' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description CONTAINING ?', ['google']) else if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'mysql' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description LIKE ''%google%''', []) else if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'postgresql' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description ILIKE ''%google%''', []) else if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'sqlite' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description LIKE ''%google%''', []) else if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'interbase' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description LIKE ''%google%''', []) else if ActiveRecordConnectionsRegistry.GetCurrentBackend = 'mssql' then lCustomers := TMVCActiveRecord.Select ('SELECT * FROM customers WHERE description LIKE ''%google%''', []) else raise Exception.Create('Unsupported backend: ' + ActiveRecordConnectionsRegistry.GetCurrentBackend); try for lCustomer in lCustomers do begin Log(Format('%4d - %8.5s - %s', [lCustomer.ID.ValueOrDefault, lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault])); end; finally lCustomers.Free; end; LoadCustomers; Log('** Query SQL returning DataSet'); lDS := TMVCActiveRecord.SelectDataSet('SELECT * FROM customers', []); try while not lDS.Eof do begin Log(Format('%8.5s - %s', [lDS.FieldByName('code').AsString, lDS.FieldByName('description') .AsString])); lDS.Next; end; finally lDS.Free; end; lDS := TMVCActiveRecord.SelectDataSet ('SELECT * FROM orders o join customers c on c.id = o.id_customer where o.order_date >= ?', [Date - 5000], [ftDate]); try while not lDS.Eof do begin Log(Format('OrderDate: %12s - Customer: %s', [datetostr(lDS.FieldByName('order_date').AsDateTime), lDS.FieldByName('description') .AsString])); lDS.Next; end; finally lDS.Free; end; lDS := TMVCActiveRecord.SelectDataSet ('SELECT * FROM orders o left join customers c on c.id = o.id_customer where o.order_date >= ? and c.id > ?', [Date - 5000, 1], [ftDate]); try while not lDS.Eof do begin Log(Format('OrderDate: %12s - Customer: %s', [datetostr(lDS.FieldByName('order_date').AsDateTime), lDS.FieldByName('description') .AsString])); lDS.Next; end; finally lDS.Free; end; Log('** GetFirstByWhere'); lCustomer := TMVCActiveRecord.GetFirstByWhere('id > ?', [1]); try Log(Format('%8.5s - %s', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault])); lID := lCustomer.ID; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetFirstByWhere('id > ?', [1], [ftInteger]); try Log(Format('%8.5s - %s', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault])); lID := lCustomer.ID; finally lCustomer.Free; end; Log('** GetOneByWhere'); lCustomer := TMVCActiveRecord.GetOneByWhere('id = ?', [lID.Value]); try Log(Format('%8.5s - %s', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault])); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetOneByWhere('id = ?', [lID.Value], [ftInteger]); try Log(Format('%8.5s - %s', [lCustomer.Code.ValueOrDefault, lCustomer.CompanyName.ValueOrDefault])); finally lCustomer.Free; end; end; procedure TMainForm.btnTransientFieldsClick(Sender: TObject); var lCustomer: TCustomerWithTransient; lID: Integer; begin Log('** CRUD test with transient fields'); lCustomer := TCustomerWithTransient.Create; try { 'Code' will not be persisted because defined as 'transient' } lCustomer.Code := '1234'; lCustomer.CompanyName := 'Google Inc.'; lCustomer.City := 'Montain View, CA'; lCustomer.Insert; lID := lCustomer.ID; Log('Just inserted "transient" Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try lCustomer.CompanyName := lCustomer.CompanyName + ' changed!'; lCustomer.Code := 'this code will not be saved'; lCustomer.Update; Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try lCustomer.Delete; Log('Just deleted "transient" Customer ' + lID.ToString); finally lCustomer.Free; end; end; procedure TMainForm.btnValidationClick(Sender: TObject); var lCustomer: TCustomerWithLogic; lID: Integer; begin Log('** Validation test (some exceptions will be raised)'); lCustomer := TCustomerWithLogic.Create; try lCustomer.Code := '1234'; lCustomer.CompanyName := 'bit Time Professionals'; lCustomer.City := 'Rome'; lCustomer.Insert; lID := lCustomer.ID; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try Log(lCustomer.CompanyName + ' => IsLocatedInRome: ' + BoolToStr(lCustomer.IsLocatedInRome, True)); lCustomer.Code := ''; lCustomer.Update; // raise exception finally lCustomer.Free; end; end; procedure TMainForm.btnWithSpacesClick(Sender: TObject); var lCustomer: TCustomerWithSpaces; lID: Integer; I: Integer; begin Log('** Simple CRUD (table and fields with spaces) test'); Log('There are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerWithSpaces.ClassName); TMVCActiveRecord.DeleteAll(TCustomerWithSpaces); Log('Deleting all entities ' + TCustomerWithSpaces.ClassName); for I := 1 to 100 do begin lCustomer := TCustomerWithSpaces.Create; try lCustomer.ID := I; // just for test!! case I mod 3 of 0: lCustomer.CompanyName := 'Google Inc.'; 1: lCustomer.CompanyName := 'bit Time Professionals'; 2: lCustomer.CompanyName := 'Walt Disney Corp.'; end; lCustomer.City := 'Montain View, CA'; lCustomer.Note := 'Hello there!'; lCustomer.Insert; lID := lCustomer.ID; Log('Just inserted Customer ' + lID.ToString); finally lCustomer.Free; end; end; Log('Now there are ' + TMVCActiveRecord.Count().ToString + ' row/s for entity ' + TCustomerWithSpaces.ClassName); TMVCActiveRecord.DeleteRQL(TCustomerWithSpaces, 'lt(id,90)'); lCustomer := TMVCActiveRecord.GetByPK(lID); try Assert(not lCustomer.Code.HasValue); lCustomer.Code.Value := '5678'; lCustomer.Note := lCustomer.Note + sLineBreak + 'Code changed to 5678'; lCustomer.Update; Log('Just updated Customer ' + lID.ToString); finally lCustomer.Free; end; lCustomer := TCustomerWithSpaces.Create; try lCustomer.LoadByPK(lID); lCustomer.Code.Value := '9012'; lCustomer.Update; finally lCustomer.Free; end; lCustomer := TMVCActiveRecord.GetByPK(lID); try lCustomer.Delete; Log('Just deleted Customer ' + lID.ToString); finally lCustomer.Free; end; end; procedure TMainForm.FormDestroy(Sender: TObject); begin ActiveRecordConnectionsRegistry.RemoveDefaultConnection; end; procedure TMainForm.FormShow(Sender: TObject); begin case TEngineChoiceForm.Execute of TRDBMSEngine.PostgreSQL: begin FDConnectionConfigU.CreatePostgresqlPrivateConnDef(True); end; TRDBMSEngine.Firebird: begin FDConnectionConfigU.CreateFirebirdPrivateConnDef(True); end; TRDBMSEngine.Interbase: begin FDConnectionConfigU.CreateInterbasePrivateConnDef(True); end; TRDBMSEngine.MySQL: begin FDConnectionConfigU.CreateMySQLPrivateConnDef(True); end; TRDBMSEngine.MariaDB: begin FDConnectionConfigU.CreateMySQLPrivateConnDef(True); end; TRDBMSEngine.SQLite: begin FDConnectionConfigU.CreateSqlitePrivateConnDef(True); end; TRDBMSEngine.MSSQLServer: begin FDConnectionConfigU.CreateMSSQLServerPrivateConnDef(True); end; else raise Exception.Create('Unknown RDBMS'); end; FDConnection1.Params.Clear; FDConnection1.ConnectionDefName := FDConnectionConfigU.CON_DEF_NAME; FDConnection1.Connected := True; ActiveRecordConnectionsRegistry.AddDefaultConnection(FDConnection1); Caption := Caption + ' (Curr Backend: ' + ActiveRecordConnectionsRegistry.GetCurrentBackend + ')'; {$IFDEF USE_SEQUENCES} Caption := Caption + ' USE_SEQUENCES'; {$ELSE} Caption := Caption + ' WITHOUT SEQUENCES'; {$ENDIF} btnWithSpaces.Enabled := ActiveRecordConnectionsRegistry.GetCurrentBackend = 'postgresql'; end; procedure TMainForm.LoadCustomers; var lCustomer: TCustomer; I: Integer; begin TMVCActiveRecord.DeleteAll(TCustomer); for I := 1 to 50 do begin lCustomer := TCustomer.Create; try lCustomer.CompanyName := Stuff[Random(4)] + ' ' + CompanySuffix[Random(5)]; lCustomer.Code := Random(100).ToString.PadLeft(5, '0'); lCustomer.City := Cities[Random(4)]; lCustomer.Rating := Random(5); lCustomer.Note := Stuff[Random(4)]; lCustomer.Insert; finally lCustomer.Free; end; end; end; procedure TMainForm.Log(const Value: string); begin Memo1.Lines.Add(Value); Memo1.Update; end; end.