TCbFullTextSearch
TCbFullTextSearch
Diese Klasse dient als Rückgabe der Funktion FullTextSearchDocking.
Eigenschaften
Eigenschaft | Beschreibung |
---|---|
Value:C | String - Array in dem das ID-Feld der Tabelle und der Wert des ausgewählten Datensatzes enthalten ist. Read-Only |
MaskID:N | Gibt die verwendete Masken-ID zurück. |
Caption:C | Caption des Dockings. |
MainTable:O | Die Tabelle, die durchsucht wird |
ShowSyncMasterData:L | Checkbox, um Stammdaten zu synchronisieren auch anzeigen |
ShowContactsCheckBox:L | Checkbox, um Kontakte auch zu suchen anzeigen |
SearchContacts:L | Kontakte mitsuchen (Checkbox angehakt?) |
VersionFilterVisible:L | Versionsfilter anzeigen |
VersionFilterEnabled:L | Versionsfilter umschaltbar machen |
Verfügbare Ereignisse
Ereignis | Beschreibung |
---|---|
BeforeSearch | Vor der Volltextsuche |
OnGoToSelected | Beim Springen auf einen ausgewählten Datensatz |
Beispiel
| oForm, oDab000, oFullTextSearchDocking |
function BeforeSearch( Sender )
meld(Sender.SqlStatement)
end,
oForm := CreateObject('TFormEx', 'TFormEx'),
oDab000 := BeOpen(waDab000),
startseq
oFullTextSearchDocking := FullTextSearchDocking(oForm, oDab000),
oFullTextSearchDocking.CbHelper.CbManualDock(oForm),
AssignEvent(oFullTextSearchDocking, 'BeforeSearch', 'BeforeSearch'),
oFullTextSearchDocking.Caption := 'Caption',
Show(oFullTextSearchDocking),
writeln(oFullTextSearchDocking.MaskID),
writeln(oFullTextSearchDocking.Value),
// Um Filter von der MainTable in der Suche zu aktualisieren
// muss man die Tabelle neu setzen
oFullTextSearchDocking.MainTable := oDAB000,
ShowModal(oForm),
always
BeClose(oDab000),
stopseq