Health Organizer Code

* hor_export_medicaldata: renamed TKeyList into TExportKeyList
* hor_export_medicaldata: renamed TThreadError into TExportError
+ hor_export_medicaldata: added TExportProgressBarMax
+ TExportMedicalData: added fOnProgressBarStep, fOnProgressBarMax, FPath variables
+ TExportMedicalData: added OnProgressBarMax property
+ TExportMedicalData: added OnProgressBarStep property
* TExportMedicalData.PB_SetMaxSize: calls OnProgressBarMax if set
* TExportMedicalData.PB_StepIt: calls OnProgressBarStep if set
+ Added procedure TfrmUsbStick_MedicalData.ThreadProgressBarMax(Sender: TObject; const Max: integer)
+ Added procedure TfrmUsbStick_MedicalData.ThreadProgressBarStep(Sender: TObject);
+ TfrmUsbStick_MedicalData.bbtnOkClick: sets also the OnProgressBarMax and OnProgressBarStep
+ TExportMedicalData.Create: added the Path parameter
- TfrmUsbStick_MedicalData.bbtnOkClick: Fixed compilation warning
* TFrmMain: Changed the type of FilesToDeleteOnClose and of FoldersToDeleteOnClose into TStringList
- Removed TfrmMain.DeleteThisFileOnClose
- Removed TfrmMain.DeleteThisFolderOnClose
+ TDocuments: added FFilesToDeleteOnClose and FFoldersToDeleteOnClose variables
+ TDocuments.Create: added the FilesToDeleteOnClose and FoldersToDeleteOnClose parameters
+ Added TDE_Monitors_Intervals:
// Extract the available intervals of date to be used for a
// patient+measurement
+ Added TDE_Monitors_Preparation:
// Calls a function that creates a temporary table with
// the monitor data
+ Added TDE_Monitors_ColumnsCheck:
// Analize the temporary table to show the monitor data
+ Added TDE_Monitors_Data:
// The monitor data
* TfrmMonMeasurementsDrugs: qIntervals is now a local variable of TDE_Monitors_Intervals type
* TfrmMonMeasurementsDrugs: qDataPreparation is now a local variable of TDE_Monitors_Preparation type
* TfrmMonMeasurementsDrugs: qDataColumnsCheck is now a local variable of TDE_Monitors_ColumnsCheck type
+ Added constructor TfrmMonMeasurementsDrugs.Create(TheOwner: TComponent): initializes qIntervals, qDataPreparation, qDataColumnsCheck and sets qData sql from the TDE_Monitors_Data class
+ Added destructor TfrmMonMeasurementsDrugs.Destroy: destroyes qIntervals, qDataPreparation, qDataColumnsCheck
+ TExportMedicalData.Execute: added the qMonitorDataIntervals, qMonitorDataPreparation, qMonitorDataColumnsCheck, qMonitorDataData variables
* TExportMedicalData.Execute: no more access TfrmMonMeasurementsDrugs
+ Added the following messages:
rsMsgMissingMandatoryParameters
rsParExportDatabase
rsParExportDoNotResetFlagToExport
rsParExportForce
rsParExportHost
rsParExportPassword
rsParExportPatient
rsParExportPort
rsParExportUsername
rsParHelp
rsStatusConnectingToDatabase
rsStatusOk
rsStatusError
rsMsgErrorConnectingToTheDatabaseDetails
rsStatusCheckingIfExportNeeded
rsMsgNoSettingsFound
rsQMsgDidYouRunProgramOnce
rsStatusYes
rsStatusNo
rsStatusResettingExportFlag
rsStatusLookingForThePatient
rsStatusOkDetails
rsMsgPatientDetailsNotFound
rsStatusExporting
rsStatusExceptionDetails
rsMsgMissingExportPath
rsMsgLogErrorOf
rsMsgDoneWithErrors
rsStatusLongOperation
rsMsgSelectTheFileToRestoreOrTheFolderWithBackupFiles
rsQMsgAreYouSureWasFolderWithBackupFiles
+ tSettings: added the "NeedExport" field
+ TExportMedicalData.Execute: disables the Synchronize on Console compilation because it is not working neither raising errors
+ TExportMedicalData.ProblemsFilter: handles not assigned fProblems
+ TExportMedicalData.PathologiesFilter: handles not assigned fPathologies
- TDocuments.SaveAttachmentsIntoFolder: avoid to change the mouse cursor when running from console application
+ TUpdateThread.GetStatus: the line 51 of 6th script can be very long (conversion of the files into large objects). Now it reports it as a long operation.
- hor_database: DB_Update: was reporting a failed update as a success
- hor_database: DB_Connect: was reporting a failed user's data database update as a success if the default data database update was fine
+ TFrmBackup: imglImages: added a X icon in the case of failure
+ TFrmBackup: TNotifyDataActions: added ndaErrorStep and ndaFinalizationWithErrors
+ Added procedure TExecuteBackupThread.ErrorStep(const _Step: TNotifyDataSteps);
+ TExecuteBackupThread.AccessMainForm: handles ndaErrorStep and ndaFinalizationWithErrors
+ TExecuteBackupThread.CreateDatabaseDump: calls ErrorStep during an exception
+ TExecuteBackupThread.CompressFiles: calls ErrorStep during an exception
+ TExecuteBackupThread.CreateInformationFile: calls ErrorStep during an exception
+ TExecuteBackupThread.Execute: notified ndaFinalizationWithErrors in the case of errors in the latest steps
- TfrmBackup.FormCreate: no more initializes the lblDone.Caption because it is done inside TExecuteBackupThread.AccessMainForm
* TfrmdpbDatabaseUpdate: lblLongOperation uses the rsStatusLongOperation message
+ TfrmBackup: added lblLongOperation
+ TfrmBackup.FormCreate: initializes lblLongOperation
+ TExecuteBackupThread.AccessMainForm: shows/hides the lblLongOperation label
+ TfrmDbConnect: added the possibility to restore from a folder where you have manually extracted the backup files (I'm having troubles with zip/unzip around 5Gb)
* TfrmRestore.Create: renamed the _FileName into _Name
+ TfrmRestore.Create: added the _IsFileName parameter
* TfrmRestore: renamed FFile into FName
+ TfrmRestore: added FIsFile
* TRestoreJob: renamed FFile into FName
+ TRestoreJob: added FIsFile
+ TRestoreJob.Create: added FIsFile
+ TRestoreJob.UpdateForm: shows/hides the decompress according if we have a file or a directory to work with
+ TRestoreJob.Execute: if we have selected a folder, no decompress step and we don't clean up that folder

It is hard... I'm out of topic, I know, with export program, but I need it.
Then I had troubles (and I still have) with my huge db (around 5Gb of dump) where the zip/unzip don't work. Then I have created a restore from folder so you can manually zip/unzip, but now TSQLScript is not able to work because it tries to load on memory the complete script without success....
I will need to implement a new component like TSQLStreamScript to work reading, when necessary, from a file, but... other work on work...