1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# 18oct21 Software Lab. Alexander Burger
(must "User Administration" UserAdmin (== *Login *ID))
(menu ,"User Administration"
(idForm ,"User" '(choUser) 'nm '+User
'(or (may UserAdmin) (== *Login (: home obj)))
'(or (may Delete) (== *Login (: home obj)))
'((: nm) )
(<grid> 2
,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
,"Password"
(gui '(+Able +PasswdField)
'(or (may Password) (== *Login (: home obj)))
30 )
,"Role"
(gui '(+Able +E/R +Obj +TextField)
'(may RoleAdmin)
'(role : home obj)
'(nm +Role)
T ) )
(--)
(gui> (: obj) This) ) )
|
