mORMot Open Source

lvStatement := Self.fProps.NewThreadSafeStatementPrepared
      (aSQL, false);

unit UserDataUnit;
/// it's a good practice to put all data definition into a stand-alone unit
// - this unit will be shared between client and server

interface

uses
  mORMot;

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


  // EDIT FILTERSETTINGS = UTF8STRING

  TSQLUserRecord = class(TSQLRecord)
  private
    // NUMBER
    fRECEIVERID, fAPPLICATIONS, fUSERRIGHTS, fUSERFUNCTIONS, fDEFAULTMEDIAID,
      fSTARTMEDIAID, fLEVELSMEDIAMENU, fSTARTINCOMINGID, fLEVELSINCOMINGMENU,
      fSTARTDOCUMENTID, fLEVELSDOCUMENTMENU, fSTARTCATEGORYID,
      fLEVELSCATEGORYMENU, fSTARTPROGRAMID, fSTARTPROGRAMMENU,
      fLEVELSPROGRAMMENU, fLEVELSCONTACTMENU: Integer;
    // VARCHAR2(60 CHAR)
    fUSERNAME, fUPASSWORD: UTF8String;
    // NUMBER
    fCAPACITY_MA, fCAPACITY_DI, fCAPACITY_WO, fCAPACITY_DO, fCAPACITY_VR,
      fCAPACITY_ZA, fCAPACITY_ZO, fDEFAULTPOOL, fPRIVATEPOOL, fALLOWEDMEDIA,
      fISACTIVE: Integer;
    // Date
    fMODIFIED: TDate;
    // NUMBER(1,0)
    fDELETED: Integer;
    // NUMBER
    fDEFFOLDERID: Integer;
    // VARCHAR2(60 CHAR)
    fEMAILADDRESS: UTF8String;
    // VARCHAR2(120 CHAR)
    fHOMEPAGE: UTF8String;
    // VARCHAR2(255 CHAR)
    fCONNECTMESSAGE: UTF8String;
    // NUMBER
    fDEFLOCATIONID, fUSEROPTIONS: Integer;
    // NUMBER(38,0)
    fRECEIVERRIGHTS, fMESSAGERIGHTS, fFILERIGHTS, fTASKRIGHTS: Integer;
    // CLOB
    fFILTERSETTINGS: UTF8String;
    // NUMBER
    fDELETEDBY, fMESSAGELIMIT: Integer;
    // NUMBER(38,0)
    fEXPORT_SELECT: Integer;
    // TIMESTAMP (6)
    fOUTLOOK2CS, fCS2OUTLOOK: TTime;
    // NUMBER(1,0)
    fSHOWAGENDAREJECT, fNOTIFYTASKCREATOR: Integer;
    // DATE
    fLASTPASSWORDCHANGE: TDate;
    // VARCHAR2(60 CHAR)
    fMD5PASSWORD: UTF8String;
    // VARCHAR(30 CHAR)
    fPINCODE: UTF8String;
    // VARCHAR(60 CHAR)
    fCOOKIE: UTF8String;
  published
    property RECEIVERID: Integer read fRECEIVERID write fRECEIVERID;
    property APPLICATIONS: Integer read fAPPLICATIONS write fAPPLICATIONS;
    property USERRIGHTS: Integer read fUSERRIGHTS write fUSERRIGHTS;
    property USERFUNCTIONS: Integer read fDEFAULTMEDIAID write fDEFAULTMEDIAID;
    property STARTMEDIAID: Integer read fSTARTMEDIAID write fSTARTMEDIAID;
    property LEVELSMEDIAMENU: Integer read fLEVELSMEDIAMENU
      write fLEVELSMEDIAMENU;
    property STARTINCOMINGID: Integer read fSTARTINCOMINGID
      write fSTARTINCOMINGID;
    property LEVELSINCOMINGMENU: Integer read fLEVELSINCOMINGMENU
      write fLEVELSINCOMINGMENU;
    property STARTDOCUMENTID: Integer read fSTARTDOCUMENTID
      write fSTARTDOCUMENTID;
    property LEVELSDOCUMENTMENU: Integer read fLEVELSDOCUMENTMENU
      write fLEVELSDOCUMENTMENU;
    property STARTCATEGORYID: Integer read fSTARTCATEGORYID
      write fSTARTCATEGORYID;
    property LEVELSCATEGORYMENU: Integer read fLEVELSCATEGORYMENU
      write fLEVELSCATEGORYMENU;
    property STARTPROGRAMID: Integer read fSTARTPROGRAMID write fSTARTPROGRAMID;
    property STARTPROGRAMMENU: Integer read fSTARTPROGRAMMENU
      write fSTARTPROGRAMMENU;
    property LEVELSPROGRAMMENU: Integer read fLEVELSPROGRAMMENU
      write fLEVELSPROGRAMMENU;
    property LEVELSCONTACTMENU: Integer read fLEVELSCONTACTMENU
      write fLEVELSCONTACTMENU;

    property USERNAME: UTF8String read fUSERNAME write fUSERNAME;
    property UPASSWORD: UTF8String read fUPASSWORD write fUPASSWORD;

    property CAPACITY_MA: Integer read fCAPACITY_MA write fCAPACITY_MA;
    property CAPACITY_DI: Integer read fCAPACITY_DI write fCAPACITY_DI;
    property CAPACITY_WO: Integer read fCAPACITY_WO write fCAPACITY_WO;
    property CAPACITY_DO: Integer read fCAPACITY_DO write fCAPACITY_DO;
    property CAPACITY_VR: Integer read fCAPACITY_VR write fCAPACITY_VR;
    property CAPACITY_ZA: Integer read fCAPACITY_ZA write fCAPACITY_ZA;
    property CAPACITY_ZO: Integer read fCAPACITY_ZO write fCAPACITY_ZO;
    property DEFAULTPOOL: Integer read fDEFAULTPOOL write fDEFAULTPOOL;
    property PRIVATEPOOL: Integer read fPRIVATEPOOL write fPRIVATEPOOL;
    property ALLOWEDMEDIA: Integer read fALLOWEDMEDIA write fALLOWEDMEDIA;
    property ISACTIVE: Integer read fISACTIVE write fISACTIVE;

    property MODIFIED: TDate read fMODIFIED write fMODIFIED;
    property DELETED: Integer read fDELETED write fDELETED;
    property DEFFOLDERID: Integer read fDEFFOLDERID write fDEFFOLDERID;
    property EMAILADDRESS: UTF8String read fEMAILADDRESS write fEMAILADDRESS;
    property HOMEPAGE: UTF8String read fHOMEPAGE write fHOMEPAGE;
    property CONNECTMESSAGE: UTF8String read fCONNECTMESSAGE
      write fCONNECTMESSAGE;

    property DEFLOCATIONID: Integer read fDEFLOCATIONID write fDEFLOCATIONID;
    property USEROPTIONS: Integer read fUSEROPTIONS write fUSEROPTIONS;

    property RECEIVERRIGHTS: Integer read fRECEIVERRIGHTS write fRECEIVERRIGHTS;
    property MESSAGERIGHTS: Integer read fMESSAGERIGHTS write fMESSAGERIGHTS;
    property FILERIGHTS: Integer read fFILERIGHTS write fFILERIGHTS;
    property TASKRIGHTS: Integer read fTASKRIGHTS write fTASKRIGHTS;

    property FILTERSETTINGS: UTF8String read fFILTERSETTINGS
      write fFILTERSETTINGS;
    property DELETEDBY: Integer read fDELETEDBY write fDELETEDBY;
    property MESSAGELIMIT: Integer read fMESSAGELIMIT write fMESSAGELIMIT;
    property EXPORT_SELECT: Integer read fEXPORT_SELECT write fEXPORT_SELECT;

    property OUTLOOK2CS: TTime read fOUTLOOK2CS write fOUTLOOK2CS;
    property CS2OUTLOOK: TTime read fCS2OUTLOOK write fCS2OUTLOOK;

    property SHOWAGENDAREJECT: Integer read fSHOWAGENDAREJECT
      write fSHOWAGENDAREJECT;
    property NOTIFYTASKCREATOR: Integer read fNOTIFYTASKCREATOR
      write fNOTIFYTASKCREATOR;
    PRoperty LASTPASSWORDCHANGE: TDate read fLASTPASSWORDCHANGE
      write fLASTPASSWORDCHANGE;
    property MD5PASSWORD: UTF8String read fMD5PASSWORD write fMD5PASSWORD;
    property PINCODE: UTF8String read fPINCODE write fPINCODE;
    property COOKIE: UTF8String read fCOOKIE write fCOOKIE;

  end;

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

implementation

function CreateSampleModel: TSQLModel;
begin
  result := TSQLModel.Create([TSQLUserRecord]);
end;

end.

program ServerProject;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  mORMot,
  mORMotSQLite3,
  SynDBOracle,
  SynDB,
  UserDataUnit in 'UserDataUnit.pas';

var
  Model: TSQLModel;
  Connection: TSQLDBOracleConnection;
  Rows: ISQLDBRows;
  Result: UTF8String;
  User: Variant;

begin
  try
    Connection := TSQLDBOracleConnection.Create
      (TSQLDBOracleConnectionProperties.Create('SQL', 'devdb', 'dev', 'mmp'));
    Writeln('Connected to Oracle Database.');
    Connection.Properties.ThreadSafeConnection;
    Model := CreateSampleModel;
    try
      Rows := Connection.Properties.Execute
        ('SELECT * FROM USERS WHERE USERNAME<>?', ['PCMASTERRACE'], @User);
      Result := Rows.FetchAllAsJSON(false);
    finally
      Model.Free;
    end;
    { TODO -oUser -cConsole Main : Insert code here }

  finally
    Connection.Free;
  end;

end.

aModel := CreateSampleModel;

function CreateSampleModel: TSQLModel;
begin
  result := TSQLModel.Create([TSQLUserRecord]);
end;

constructor TThread.Create(CreateSuspended: Boolean);
begin
  IsMultiThread := true; // for FastMM4 locking, e.g.
  inherited Create;
  FSuspended := CreateSuspended;
  FCreateSuspended := CreateSuspended;
  FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), CREATE_SUSPENDED, FThreadID);        <-- This line
  if FHandle = 0 then
    raise Exception.Create(SysErrorMessage(GetLastError));
  SetThreadPriority(FHandle, THREAD_PRIORITY_NORMAL);
end;