Health Organizer Code

+ hor_components: THorDBLookupComboBox.TransferTheValues: chooses if to show or not TfrmSearchResults.lblMaxReached
+ hor_components: THorDBLookupComboBox.Create: the Style is forced to csDropDownList
+ hor_components: added procedure THorDataModule.HorWhereAdd(var _Where: string; const _Condition: string):
// Sets/appends inside the _Where a SQL "Where" statement with the given
// condition (if somethig else is already present inside the _Where, the
// condition will be appendend in AND)
+ hor_components: added function THorDataModule.HorCreateSqlConditionDate(const _FieldName, _Operator: string; const _Value: TDateTime): string;:
// Returns a sql condition for the given fieldname, compare operator and
// value like Birth_Day>to_date('2024-02-18','yyyy-mm-dd')
+ hor_components: added THorDBLookupComboBoxPerson: ready to use DB Lookup ComboBox to look for a person with dedicated custom filters
+ hor_components: added the IHorEditForm interface:
// The essential methods I need to know to be able to create a new record of
// data via the THorDBLookupComboBox* components
+ hor_components: added procedure THorDBLookupComboBox.HorHideProperties;
+ hor_components: added procedure THorDBLookupComboBox.HorUnlistPublishedProperty(ComponentClass: TPersistentClass; const PropertyName: String);
+ hor_components: THorDBLookupComboBox.Create: calls HorHideProperties if we are in design
+ hor_components: THorDBLookupComboBox: hides the Style property
+ hor_components: THorDBLookupComboBox.Create: initializes FHorMaxEntries and FHorTimeoutStartSearch
+ hor_components: THorDefaultData.Create: initializes FMaxEntries
+ hor_components: THorDBLookupComboBox.Create: sets the timer event
+ hor_components: added procedure THorDBLookupComboBox.HorOpenListQuery;
- hor_components: THorDBLookupComboBox.PrepareQueryData: it was not assigning the calculated SQL to the query
- hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: fixed the limit on the records to extract and also the variable containig that limit
- hor_components: THorDBLookupComboBox.PrepareQueryData: fixed the limit on the records to extract
+ hor_components: added function THorDBLookupComboBox.HorDoubleQuoteIfNecessary(const _Text: string ): string;
+ hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: uses HorDoubleQuoteIfNecessary for the field names
+ hor_components: THorDBLookupComboBox.PrepareQueryData: uses HorDoubleQuoteIfNecessary for the field names
+ hor_components: added procedure TfrmSearchResults.FrameExit(Sender: TObject); to hide the form
- hor_components: THorDBLookupComboBox.ShowTheValues: fixed the parent of the results
+ hor_components: THorDBLookupComboBox.ShowTheValues: selects the first item when it appears
+ hor_components: THorDBLookupComboBoxPerson.OnHorAddPerson: hides the results, not the lookup
+ hor_components: added procedure TfrmSearchResults.dbllbSearchDblClick(Sender: TObject);
+ hor_components: TfrmSearchResults: it is hidden at the beginning
+ hor_components: TfrmSearchResults: added a frame to get a border all around
* hor_components: renamed horfrmsearchresults.pas unit into hor_frmsearchresults.pas
+ added TFrmEditPersonsInterface derived from IHorEditForm interface
+ added function TfrmEditBase.getLastID: integer;
+ added procedure TfrmDataBase.HorAskOurLookupComboboxesToOpenListQuery( const _DataSource: TDataSource; _This: TControl);
+ added procedure TfrmDataBase.dsDataStateChange(Sender: TObject): calls HorAskOurLookupComboboxesToOpenListQuery when the dataset is browsing, editing or inserting
- TfrmEditBase.ChangeTransaction: removed
+ TfrmDataBase.ChangeTransaction: changes the transaction on all the queries using tData
+ TfrmEditStandard.bbCancelClick: due to the fact the transaction could be replaced, it uses the qData.Transaction instead of tData
+ TfrmEditStandard.Save: due to the fact the transaction could be replaced, it uses the qData.Transaction instead of tData