main.bak

学生课绩管理系统

set default to "c:\foxTest\"
use "c:\foxTest\users.dbf"
public sMsg,sLoginRet

  do form login.scx
  login.visible=.F.
  if sLoginRet != "ok"
    do form prompt.scx
  else
    do form query.scx
  endif
quit()