mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
127 lines
3.0 KiB
ObjectPascal
127 lines
3.0 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;
|
|
function GetAllWines: 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);
|
|
var
|
|
lDBPath: string;
|
|
begin
|
|
// if you are using firebird 2.5, uses the file WINES_FB25.FDB
|
|
if not IsLibrary then
|
|
begin
|
|
// Is compiled as EXE
|
|
Connection.Params.Values['Database'] := ExtractFilePath(ParamStr(0)) + '..\..\WINES_FB30.FDB';
|
|
end
|
|
else
|
|
begin
|
|
// compiled as apache module or isapi
|
|
lDBPath := ExtractFilePath(GetModuleName(HInstance)) + '..\..\winecellarserver\WINES_FB30.FDB';
|
|
if lDBPath.StartsWith('\\?\') then
|
|
lDBPath := lDBPath.Remove(0, 4);
|
|
Connection.Params.Values['Database'] := lDBPath;
|
|
end;
|
|
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.GetAllWines: TDataSet;
|
|
begin
|
|
Result := FindWines('');
|
|
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.
|