user.l

来自「A very small LISP implementation with se」· L 代码 · 共 37 行

# 09sep07abu
# (c) Software Lab. Alexander Burger

(must "User Administration" UserAdmin)

(menu
   (ifn *ID
      (prog
         (<h3> NIL ,"Select" " " ,"User")
         (form 'dialog (choDlg T ,"Users" '(nm +User))) )
      (<h3> NIL ,"User Administration")
      (form NIL
         (<h2> NIL (<id> (: nm)))
         (panel T ,"User '@1'" '(may Delete) '(choDlg T ,"Users" '(nm +User)) 'nm '+User)
         (<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