TBeUserList
TBeUserList
Klasse zur Darstellung / Auswahl von BE-Benutzern in einer Mehrfach-Auswahlliste.
Allgemeine-Eigenschaften
Eigenschaft | Beschreibung | ||||||||
---|---|---|---|---|---|---|---|---|---|
HightlightColor | Farbe der Hervorhebung ( bei ShowUserLogged = true) | ||||||||
ShowUserLogged | aktuell angemeldete Benutzer farbig hervorheben | ||||||||
SortBy() | steuert die Sortierung der Liste
| ||||||||
CheckedAsStrRückgabe:C | der ausgewählten Benutzer als String im Format "065/066/067" |
Aktive-Eigenschaften (Methoden)
Eigenschaft | Beschreibung |
---|---|
ExecRefresh | User-Liste befüllen |
Beispiel
CODE
| oForm, oUserList, oDBUserList, oUserCombo, oMemTable, oMemField, oMemDS |
oForm := CreateObject('TFormEx'),
oForm.OrigCapt := 'TBeUserList / TBeDBUserList / TBeUserCombo',
oForm.Width := 400,
oForm.Height := 260,
// Datenbank-unabhängige User-Controls =========================================
// User-Liste
oUserList := CreateObject('TBeUserList',,oForm,oForm),
oUserList.Top := 10,
oUserList.Left := 10,
oUserList.Width := 160,
oUserList.Height := 150,
oUserList.HightlightColor := cllime, // Farbe der Hervorhebung
oUserList.ShowUserLogged := true, // angemeldete User hervorheben
oUserList.ExecRefresh, // User-Liste füllen
// User-Combo
oUserCombo := CreateObject('TBeUserCombo',,oForm,oForm),
oUserCombo.Left := 10,
oUserCombo.Top := 180,
oUserCombo.Width := 160,
oUserCombo.ExecRefresh, // User-Combo füllen
// Datenbank-gebundene User-Controls ===========================================
oMemTable := CreateObject('TMemCalcTable'), // Datenbank für Dummy-Programm
oMemField := CollAdd( oMemTable.FieldsDefinition ),
oMemField.Name := 'USERS',
oMemField.DataType := 1, // Character
oMemField.Size := 30,
oMemTable.Active := true,
dbappend(oMemTable),
oMemTable:USERS := c_usr + '/',
dbpost(oMemTable),
writeln(AllTrim(oMemTable:USERS)),
oMemDS := CreateObject('TDataSourceEx'),
oMemDS.DataSet := oMemTable,
// User-Liste
oDBUserList := CreateObject('TBeDBUserList',,oForm,oForm),
oDBUserList.Top := 10,
oDBUserList.Left := 210,
oDBUserList.Width := 160,
oDBUserList.Height := 150,
oDBUserList.DataSource := oMemDS,
oDBUserList.DataField := 'USERS',
oDBUserList.ExecRefresh,
dbrefresh(oMemTable),
// Eine TBeUserCombo mit Datenbank-Anbindung gibt es momentan nicht.
ShowModal(oForm),
// Rückgabe der Selektion
{oUserList.CheckedAsStr, oUserCombo.Value, AllTrim(oMemTable:USERS)}