Skip to main content
Skip table of contents

TBeUserList

TBeUserList

Klasse zur Darstellung / Auswahl von BE-Benutzern in einer Mehrfach-Auswahlliste.

Allgemeine-Eigenschaften

EigenschaftBeschreibung

HightlightColor

Farbe der Hervorhebung ( bei ShowUserLogged = true)
ShowUserLoggedaktuell angemeldete Benutzer farbig hervorheben
SortBy()

steuert die Sortierung der Liste

ParameterBeschreibung
0Benutzer-Nummer
1ausgewählt / nicht ausgewählt
2Benutzer-Name
CheckedAsStrRückgabe:Cder ausgewählten Benutzer als String im Format "065/066/067"

Aktive-Eigenschaften (Methoden)

EigenschaftBeschreibung

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)}

Weitere Verknüpfungen


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.