Welcome
Guest
, you are in:
<root>
•
Anmelden
CP Wiki
Navigation
¶
CP Solutions
Startseite
domizil+
Startseite
Administration
Administration
Neue Seite
Alle Seiten
Kategorien
Navigations-Pfade
Datei Manager
Neuer Benutzer
Suche im wiki
»
Zurück
function SelectRecord2
Modified on 05/10/2009 15:26
by
CPARAS
Categorized as
Plattform
'''netFrame Syntax:'''{BR}{BR} '''function''' SelectRecord2(aTable: TRPCTable; aSearchString, aSearchFields, aShowFields: string; aPreSelectField, aPreSelectString: string): Integer{BR} {BR} '''Beschreibung''':{BR} SelectRecord2() gibt einen einfachen Listendialog aus aus dem eine Auswahl getroffen werden kann.{BR} Nachdem eine Auswahl getroffen worden ist, ist der aktuelle Datensatz in der Table auf die Auswahl positioniert worden.{BR} {BR} '''Parameter:'''{BR} *aTable: Die Tabelle die als Grundlage für die Auswahl dient{BR} *aSearchString: Suchtext nach dem die Datenmenge durchsucht werden soll{BR} *aSearchFields: Suchfelder in denen gesucht werden soll{BR} *aShowFields: Welche Felder sollten im Darstellungesgitter angezeigt werden. Bitte beachten sie hier die Syntax (Feldname;Überschrift;Breite im Grid){BR} *aPreSelectField: Über welches Feld soll eine Vorpositionierung stattfinden {BR} *aPreSelectString: Nach welchen Eintrag soll in dem aPreSelectField gesucht werden {BR} *Result: Gibt den Wert mrOK zurück falls der Benutzer eine Auswahl getroffen hat{BR} {BR} '''Tipps'''{BR} Nur wenn ein Eintrag in den Übergabeparamtern aSearchString und aSearchFields gemacht worden ist,{BR} wird eine Suche durchgeführt.{BR} Falls etwas gefunden wurde, wird die Datenmenge auf das Suchergebnis eingeschränkt.{BR} Mit der Auswahlbox "Alle anzeigen" kann jetzt trotzdem auf alle Datensätze zugegriffen werden.{BR} Die Auswahlbox ist nur aktiv falls eine Suche erfolgreich war in der Table.{BR} {BR} '''Beispiel:'''{BR} <code pascal> procedure selectTimeType(aSearchString: string); begin if trim(aSearchString) = '' then begin TimeTypeID := ''; TimeTypeNumber := ''; LookUpTimeType.Text := ''; TimeTypeText := ''; end else if SelectRecord2(TableTimeType, aSearchString, 'LU_NUMBER;LU_NAME', 'LU_NUMBER;Number;60;LU_NAME;Name;400', 'LU_NUMBER', LookUpTimeType.Text) = mrOK then begin TimeTypeID := TableTimeType.fieldByName('LU_ID').asString; TimeTypeNumber := TableTimeType.fieldByName('LU_NUMBER').asString; LookUpTimeType.Text := TimeTypeNumber; TimeTypeText := TableTimeType.fieldByName('LU_NAME').asString; end; end; </code>
ScrewTurn Wiki
version 3.0.1.400. Some of the icons created by
FamFamFam
.