mORMot Open Source

unit uModel;

interface
uses
  Classes, SynCommons,  mORMot,  mORMotHttpServer;

type
  TDateTermoprAll = (NoTest, Nastrk, Termo0, Termo8, Termo16, Termo24, Termo36, Termo48, Termo72, KoeffDSP, KoeffHTML, Test);
  TDateTermopr = Nastrk..Test;

const
//  Data name Blob field in DB
  strDateTermopr : array[TDateTermopr] of ShortString = ('Otchety_nastrk', 'Otchety_termo0', 'Otchety_termo8',
                                                         'Otchety_termo16','Otchety_termo24','Otchety_termo36',
                                                         'Otchety_termo48','Otchety_termo72','Otchety_Koeff','Otchety_HtmKoeff','Otchety_Test');
type
  /// here we declare the class containing the data
  // - it just has to inherits from TSQLRecord, and the published
  // properties will be used for the ORM (and all SQL creation)
  // - the beginning of the class name must be 'TSQL' for proper table naming
  // in client/server environnment

    TDataReport = class(TPersistent)
    private
      fHref     : RawUTF8;
      fReport   : RawUTF8;
      fResult   : RawUTF8;
      fDateTest : RawUTF8;
    public
      procedure Clear;
    published
      property Href     : RawUTF8       read fHref         write fHref;
      property Report   : RawUTF8       read fReport       write fReport;
      property Result   : RawUTF8       read fResult       write fResult;
      property DateTest : RawUTF8       read fDateTest     write fDateTest;
    end;

  TSQLRecordZakaz = class(TSQLRecord)
  private
    fNomerZakaza      : RawUTF8;
    fZakazchik        : RawUTF8;
    fVypolnen         : Boolean;
    FTimeVypoln       : TDateTime;
  published
    property NomerZakaza      : RawUTF8     read fNomerZakaza       write fNomerZakaza;
    property Zakazchik        : RawUTF8     read fZakazchik         write fZakazchik;
    property Vypolnen         : Boolean     read fVypolnen          write fVypolnen;
    property TimeVypoln       : TDateTime   read FTimeVypoln        write FTimeVypoln;
  end;

  TSQLRecordTip = class(TSQLRecord)
  private
    fNameTipoisp          : RawUTF8;
  published
    property NameTipoisp          : RawUTF8           read fNameTipoisp           write fNameTipoisp;
  end;

  TSQLRecordDevice = class(TSQLRecord)
  private
    fIDZakaza         : TSQLRecordZakaz;
    fIDTipoisp        : TSQLRecordTip;
    fSerNomer         : RawUTF8;

    fOtchety_nastrk     : TDataReport;
    fOtchety_termo0     : TDataReport;
    fOtchety_termo8     : TDataReport;
    fOtchety_termo16    : TDataReport;
    fOtchety_termo24    : TDataReport;
    fOtchety_termo36    : TDataReport;
    fOtchety_termo48    : TDataReport;
    fOtchety_termo72    : TDataReport;
    fOtchety_Koeff      : TDataReport;
    fOtchety_HtmKoeff   : TDataReport;
    fOtchety_Test       : TDataReport;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property IDZakaza         : TSQLRecordZakaz   read fIDZakaza          write fIDZakaza;
    property IDTipoisp        : TSQLRecordTip     read fIDTipoisp         write fIDTipoisp;
    property SerNomer         : RawUTF8           read fSerNomer          write fSerNomer;

    property Otchety_nastrk     : TDataReport read fOtchety_nastrk  write fOtchety_nastrk;
    property Otchety_termo0     : TDataReport read fOtchety_termo0  write fOtchety_termo0;
    property Otchety_termo8     : TDataReport read fOtchety_termo8  write fOtchety_termo8;
    property Otchety_termo16    : TDataReport read fOtchety_termo16 write fOtchety_termo16;
    property Otchety_termo24    : TDataReport read fOtchety_termo24 write fOtchety_termo24;
    property Otchety_termo36    : TDataReport read fOtchety_termo36 write fOtchety_termo36;
    property Otchety_termo48    : TDataReport read fOtchety_termo48 write fOtchety_termo48;
    property Otchety_termo72    : TDataReport read fOtchety_termo72 write fOtchety_termo72;
    property Otchety_Koeff      : TDataReport read fOtchety_Koeff   write fOtchety_Koeff;
    property Otchety_HtmKoeff   : TDataReport read fOtchety_HtmKoeff write fOtchety_HtmKoeff;
    property Otchety_Test       : TDataReport read fOtchety_Test    write fOtchety_Test;
  end;

/// an easy way to create a database model for client and server
function CreateSampleModel: TSQLModel;

var Model:TSQLModel;
    Database:TSQLRest;
    Server: TSQLHttpServer;
    
implementation

function CreateSampleModel: TSQLModel;
begin
  result := TSQLModel.Create([TSQLRecordZakaz,TSQLRecordTip,TSQLRecordDevice]);
end;

{ TSQLRecordDevice }

constructor TSQLRecordDevice.Create;
begin
  inherited;
  fOtchety_nastrk:=TDataReport.Create;
  fOtchety_termo0:=TDataReport.Create;
  fOtchety_termo8:=TDataReport.Create;
  fOtchety_termo16:=TDataReport.Create;
  fOtchety_termo24:=TDataReport.Create;
  fOtchety_termo36:=TDataReport.Create;
  fOtchety_termo48:=TDataReport.Create;
  fOtchety_termo72:=TDataReport.Create;
  fOtchety_Koeff:=TDataReport.Create;
  fOtchety_HtmKoeff:=TDataReport.Create;
  fOtchety_Test:=TDataReport.Create;
end;

destructor TSQLRecordDevice.Destroy;
begin
  fOtchety_nastrk.Free;
  fOtchety_termo0.Free;
  fOtchety_termo8.Free;
  fOtchety_termo16.Free;
  fOtchety_termo24.Free;
  fOtchety_termo36.Free;
  fOtchety_termo48.Free;
  fOtchety_termo72.Free;
  fOtchety_Koeff.Free;
  fOtchety_HtmKoeff.Free;
  fOtchety_Test.Free;
  inherited;
end;

{ TDataOtchet }

procedure TDataReport.Clear;
begin
  fHref:='';
  fReport:='';
  fResult:='';
  fDateTest:='';
end;

end.

program pServer;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  mORMot,
  SynSQlite3,
  DB,
  SynDBVCL,
  SynDBSQLite3,
  SynDB,
  SynSQlite3Static,
  mORMotSQLite3,
  mORMotHttpServer,
  Classes,
  Forms,
  uModel in 'uModel.pas';

begin
  Model := CreateSampleModel;
  try
    Database := TSQLRestServerDB.Create(Model, ChangeFileExt(Application.ExeName,'.db'));
    if not Assigned(Database) then raise Exception.Create('Error connect or create db');
    try
      TSQLRestServerDB(Database).CreateMissingTables(0);
      TSQLRestServerDB(Database).NoAJAXJSON:=False;

      Server := TSQLHttpServer.Create('777',[TSQLRestServerDB(Database)],'+',{useHttpSocket}useHttpApiRegisteringURI,32,secNone,'report');
      Server.AccessControlAllowOrigin := '*'; // allow cross-site AJAX queries

      write('Press [Enter] to close the server.');
      Readln;
    finally
      Database.Free;
    end;
  finally
    Model.Free;
  end;
end.

program pClient;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  StrUtils,
  SynCommons,
  mORMot,
  mORMotSQLite3,
  mORMotHttpClient,
  uModel;


procedure CreateRecordDB(sNomerZakaza,stipoisp:string;var iId_BD:TID);
var
  RecordOrder: TSQLRecordZakaz;RecordTip: TSQLRecordTip; RecordDevice: TSQLRecordDevice;
  iId_Order,iId_Tip: integer;
  s:string;
begin
  s:=Database.OneFieldValue(Model['Zakaz'],'ID',Format('NOMERZAKAZA=''%s''',[StringToUTF8(sNomerZakaza)]));
  if not TryStrToInt(s,iId_Order) then
  begin
    RecordOrder:=TSQLRecordZakaz.Create;
    try
      RecordOrder.NomerZakaza:=StringToUTF8(sNomerZakaza);
      RecordOrder.Vypolnen:=False;
      iId_Order := Database.Add(RecordOrder,true);
    finally
      RecordOrder.Free;
    end;
  end else
  begin
    RecordOrder:=TSQLRecordZakaz.Create(DataBase,iId_Order);
    RecordOrder.Vypolnen:=False;
    DataBase.Update(RecordOrder);
  end;

  s:=Database.OneFieldValue(Model['Tip'],'ID',Format('NAMETIPOISP=''%s''',[StringToUTF8(stipoisp)]));
  if not TryStrToInt(s,iId_Tip) then
  begin
    RecordTip:=TSQLRecordTip.Create;
    try
      RecordTip.NameTipoisp:=StringToUTF8(stipoisp);
      iId_Tip := Database.Add(RecordTip,true);
    finally
      RecordTip.Free;
    end;
  end;

  RecordDevice:=TSQLRecordDevice.Create;
  try
    RecordDevice.IDZakaza:=TSQLRecordZakaz(iId_Order);
    RecordDevice.IDTipoisp:=TSQLRecordTip(iId_Tip);
    iId_BD := Database.Add(RecordDevice,true);
  finally
    RecordDevice.Free;
  end;
end;

procedure LoadProtocolToDB(iId_BD:TID;aHTMLString: string; isProverkaSuccess: Boolean; dt: TDateTermoprAll);
var
  rec:TSQLRecordDevice;
  procedure AssignToOtchet(ADataReport:TDataReport);
  begin
    ADataReport.Href:='';// StringToUTF8(dt.sHref);
    ADataReport.Report:=aHTMLString;
    ADataReport.Result:=ifthen(isProverkaSuccess,'Success','Errors');
    ADataReport.DateTest:=DateTimeToStr(Now);
  end;
begin
  if (iId_BD=0) or (aHTMLString='') then Exit;

  rec:=TSQLRecordDevice.Create(Database,iId_BD);
  try
    case dt of
      Nastrk: AssignToOtchet(Rec.Otchety_nastrk);
      Termo0: AssignToOtchet(Rec.Otchety_termo0);
      Termo8: AssignToOtchet(Rec.Otchety_termo8);
      Termo16: AssignToOtchet(Rec.Otchety_termo16);
      Termo24: AssignToOtchet(Rec.Otchety_termo24);
      Termo36: AssignToOtchet(Rec.Otchety_termo36);
      Termo48: AssignToOtchet(Rec.Otchety_termo48);
      Termo72: AssignToOtchet(Rec.Otchety_termo72);
      Test: AssignToOtchet(Rec.Otchety_Test);

      KoeffDSP: AssignToOtchet(Rec.Otchety_Koeff);
      KoeffHTML: AssignToOtchet(Rec.Otchety_HtmKoeff);
    end;
    Database.Update(rec);
  finally
    Rec.free;
  end;
end;

var iId_BD:TID;
begin
  Model := CreateSampleModel;
  try
    Database := TSQLHttpClient.Create('localhost', '777',Model);
    try
      write('Press [Enter] to close the client.');
      CreateRecordDB('123','BE',iId_BD);
      LoadProtocolToDB(iId_BD,'<html></html>',true,Termo0);
      Readln;
    finally
      Database.Free;
    end;
  finally
    Model.Free;
  end;
end.