TBeUserList

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