cusu.l

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

# 29dec07abu
# (c) Software Lab. Alexander Burger

(must "Customer/Supplier" Customer)

(menu
   (ifn *ID
      (prog
         (<h3> NIL ,"Select" " " ,"Customer/Supplier")
         (form 'dialog (choCuSu T)) )
      (<h3> NIL ,"Customer/Supplier")
      (form NIL
         (<h2> NIL (<id> (: nr) " -- " (: nm)))
         (panel T ,"Customer/Supplier No. @1" '(may Delete) '(choCuSu T) 'nr '+CuSu)
         (<tab>
            (,"Name"
               (<grid> 2
                  ,"Number" (gui '(+E/R +NumField) '(nr : home obj) 10)
                  ,"Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Name" 40)
                  ,"Name 2" (gui '(+E/R +TextField) '(nm2 : home obj) 40) ) )
            (,"Address"
               (<grid> 2
                  ,"Street" (gui '(+E/R +TextField) '(str : home obj) 40)
                  NIL NIL
                  ,"Zip" (gui '(+E/R +TextField) '(plz : home obj) 10)
                  ,"City" (gui '(+E/R +TextField) '(ort : home obj) 40)
                  ,"Country" (gui '(+E/R +TextField) '(cty : home obj) 40) ) )
            (,"Contact"
               (<grid> 2
                  ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
                  ,"Fax" (gui '(+E/R +TelField) '(fax : home obj) 40)
                  ,"Mobile" (gui '(+E/R +TelField) '(mob : home obj) 40)
                  ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) ) )
            (,"Memo"
               (gui '(+BlobField) '(txt : home obj) 60 8) ) )
         (<spread> NIL (editButton T)) ) ) )

# vi:et:ts=3:sw=3