Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-16 00:05:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Updated Angular2 sample

Browse Source
This commit is contained in:
Daniele Teti 2017-04-30 00:05:21 +02:00
parent 4e366e5a53
commit 2acaf20731
5 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
samples/angular2/CUSTOMERS.FDB → samples/angular2/CUSTOMERS_FB25.FDB
View File

Binary file not shown.

BIN
samples/angular2/CUSTOMERS_FB30.FDB Normal file
View File

Binary file not shown.

5
samples/angular2/dmvcframeworkserver/CustomersControllerU.pas
View File

@ -31,9 +31,12 @@ type
implementation implementation
uses
MVCFramework.Serializer.Commons;
procedure TCustomersController.GetCustomer(const ID: UInt64); procedure TCustomersController.GetCustomer(const ID: UInt64);
begin begin
Render(GetDAL.GetCustomerById(ID), true, true); Render(GetDAL.GetCustomerById(ID), true, dstSingleRecord);
end; end;
procedure TCustomersController.GetCustomers; procedure TCustomersController.GetCustomers;

6
samples/angular2/dmvcframeworkserver/CustomersTDGU.pas
View File

@ -32,7 +32,8 @@ const
{ %CLASSGROUP 'Vcl.Controls.TControl' } { %CLASSGROUP 'Vcl.Controls.TControl' }
{$R *.dfm} {$R *.dfm}
{ TDataModule1 } { TDataModule1 }
procedure TCustomersTDG.DataModuleCreate(Sender: TObject); procedure TCustomersTDG.DataModuleCreate(Sender: TObject);
@ -68,7 +69,8 @@ var
begin begin
lParams := TStringList.Create; lParams := TStringList.Create;
try try
lParams.Add('Database=' + ExtractFilePath(GetModuleName(HInstance)) + '\CUSTOMERS.FDB'); // Use CUSTOMERS_FB25.FDB is you are using firebird 2.5
lParams.Add('Database=' + ExtractFilePath(GetModuleName(HInstance)) + '\CUSTOMERS_FB30.FDB');
lParams.Add('Protocol=TCPIP'); lParams.Add('Protocol=TCPIP');
lParams.Add('Server=localhost'); lParams.Add('Server=localhost');
lParams.Add('User_Name=sysdba'); lParams.Add('User_Name=sysdba');

BIN
samples/angular2/fbclient.dll Normal file
View File

Binary file not shown.