1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "User Administration" UserAdmin)
(menu ,"User Administration"
(idForm ,"User" ,"Users" 'nm '+User T '(may Delete) '((: nm))
(<grid> 2
,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
,"Password"
(gui '(+Tip +Able +E/R +Fmt +TextField)
'(and (may Password) (val> This))
'(may Password)
'(pw : home obj)
'((V) (and V "****"))
'((V) (if (= V "****") (: home obj pw) V))
30 )
,"Role"
(gui '(+Able +E/R +Obj +TextField)
'(may RoleAdmin)
'(role : home obj)
'(nm +Role)
T )
,"Full Name" (gui '(+E/R +TextField) '(nam : home obj) 40)
,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) )
(<spread> NIL (editButton T)) ) )
# vi:et:ts=3:sw=3
|
