mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
95 lines
2.5 KiB
ObjectPascal
95 lines
2.5 KiB
ObjectPascal
unit MainDataModuleUnit;
|
|
|
|
interface
|
|
|
|
uses System.SysUtils,
|
|
System.Classes,
|
|
Data.DB,
|
|
Data.SqlExpr,
|
|
|
|
{$IF CompilerVersion <= 27}
|
|
|
|
Data.DBXJSON,
|
|
|
|
{$ELSE}
|
|
|
|
System.JSON,
|
|
|
|
{$ENDIF}
|
|
|
|
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.Comp.Client,
|
|
FireDAC.Stan.Param,
|
|
FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Phys.IBBase,
|
|
FireDAC.Phys.FB,
|
|
WinesBO, FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait;
|
|
|
|
type
|
|
TWineCellarDataModule = class(TDataModule)
|
|
Connection: TFDConnection;
|
|
qryWines: TFDQuery;
|
|
updWines: TFDUpdateSQL;
|
|
FDPhysFBDriverLink1: TFDPhysFBDriverLink;
|
|
procedure ConnectionBeforeConnect(Sender: TObject);
|
|
|
|
public
|
|
function GetWineById(id: Integer): TDataSet;
|
|
function FindWines(Search: string): TDataSet;
|
|
procedure AddWine(AWine: TWine);
|
|
procedure UpdateWine(AWine: TWine);
|
|
procedure DeleteWine(id: Integer);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
System.StrUtils,
|
|
Data.DBXCommon,
|
|
MVCFramework.FireDAC.Utils;
|
|
|
|
{ TCellarSM }
|
|
|
|
procedure TWineCellarDataModule.AddWine(AWine: TWine);
|
|
begin
|
|
TFireDACUtils.ObjectToParameters(updWines.Commands[arInsert].Params, AWine, 'NEW_');
|
|
updWines.Commands[arInsert].Execute;
|
|
end;
|
|
|
|
procedure TWineCellarDataModule.DeleteWine(id: Integer);
|
|
begin
|
|
updWines.Commands[arDelete].ParamByName('OLD_ID').AsInteger := id;
|
|
updWines.Commands[arDelete].Execute;
|
|
end;
|
|
|
|
procedure TWineCellarDataModule.ConnectionBeforeConnect(Sender: TObject);
|
|
begin
|
|
// if you are using firebird 2.5, uses the file WINES_FB25.FDB
|
|
Connection.Params.Values['Database'] := ExtractFilePath(ParamStr(0)) + '..\..\WINES_FB30.FDB';
|
|
end;
|
|
|
|
function TWineCellarDataModule.FindWines(Search: string): TDataSet;
|
|
begin
|
|
if Search.IsEmpty then
|
|
qryWines.Open('SELECT * FROM wine')
|
|
else
|
|
qryWines.Open('SELECT * FROM wine where NAME CONTAINING ?', [Search]);
|
|
Result := qryWines;
|
|
end;
|
|
|
|
function TWineCellarDataModule.GetWineById(id: Integer): TDataSet;
|
|
begin
|
|
qryWines.Open('SELECT * FROM wine where id = ?', [id]);
|
|
Result := qryWines;
|
|
end;
|
|
|
|
procedure TWineCellarDataModule.UpdateWine(AWine: TWine);
|
|
begin
|
|
TFireDACUtils.ObjectToParameters(updWines.Commands[arUpdate].Params, AWine, 'NEW_');
|
|
updWines.Commands[arUpdate].Params.ParamByName('OLD_ID').AsInteger := AWine.id;
|
|
updWines.Commands[arUpdate].Execute;
|
|
end;
|
|
|
|
end.
|