pdms管理员常用切换用户的FORM插件

admin

根据个人体会作了个切换用户的FORM



setup form !!relogin
  !!relogin.CALLBACK = '!THIS.INIT()'
  path down
  title 'LOGIN'
  option .user     'USER:    '    width 10
  text   .password 'PASSWORD:'    width 10 is string
  option .mdb      'MDB:     '    width 10
  button .LOGIN  'LOGIN'    CALLBACK '!THIS.LOGIN()'
  PATH RIGHT
  Button .button2 'CANCEL' AT XMAX FORM - SIZE CANCEL
exit  

DEFINE METHOD .LOGIN()
   MDB UP
   !USER = !THIS.USER.DTEXT[!THIS.USER.VAL]
   !PASSWORD = !THIS.PASSWORD.VAL
   !UANDP = !USER + '/' + !PASSWORD
   !MDBNAME  = !THIS.MDB.DTEXT[!THIS.MDB.VAL]
   USER $!UANDP
   HANDLE ANY
     !!ALERT.MESSAGE('密码错误')
     EXIT
     RETURN
   ENDHANDLE
   /$!MDBNAME
   EXIT
   KILL !!relogin
ENDMETHOD

DEFINE METHOD .INIT()
  VAR !USERS COLL ALL USER
  VAR !USERNAMES EVALUATE NAMN FOR ALL FROM !USERS
  !THIS.USER.DTEXT = !USERNAMES
  VAR !MDBS COLL ALL MDB
  VAR !MDBNAMES EVALUATE NAMN FOR ALL FROM !MDBS
  !THIS.MDB.DTEXT = !MDBNAMES
ENDMETHOD

fcxh1111

不知道怎么用，求解答

那个傻瓜

KEY COMMAND:
MDB UPDATE
USER [USERNAME]/[PASSWORD]
/[MDB]
EXIT