Health Organizer Code

+ TRestoreJob.CheckIntegrity: checks that a database connection and a transaction are available and active
- TRestoreJob.CheckIntegrity: closes the query after each count
+ Added TRestoreDoneEvent: the event to call when a successfull restore was done
+ Added procedure TfrmDbConnect.OnRestoreDone(_Sender: TObject; const _ServerHost: string; const _ServerPort: integer; const _UserName, _Password, _Database: string): is called when a successfull restore thread ends and tries to connect to the restores database
+ TfrmRestore: added FOnRestoreDone member variable
+ Added procedure TfrmRestore.MsgEvents_ThreadDone(var Msg: TLMessage) for the message HORMSG_DONE: calls the FOnRestoreDone if set
+ TRestoreJob.Execute: post the HORMSG_DONE message to the father form when successfully done
* constDefaultDataDatabaseSuffix moved from hor_dbopen inside hor_database
+ TRestoreJob.Restore: deletes and creates also the database with the default data (but no default data is restored of course. The backup is generated only of the user data, not the default one)
+ TfrmDbConnect.btnNextClick: closes the current database connection before to start a restore
You can restore a backup! :)