viewonline.prg

来自「foxpro连接sqlserver的例子」· PRG 代码 · 共 19 行

*-- 查看在线人：

showwait("正在读取在线名单...")
lcUserOnline = ""
sele locks
scan
	if	!lock()
		lcUserOnline	= lcUserOnline + allt(UserName) + chr(13)
	endif
endscan
unlock
UserLogin()

showwait("")

messagebox("当前在线名单如下：" + chr(13) + ;
		repl("=",20) + chr(13) + ;
		lcUserOnline + ;
		repl("=",20) ,64,"报告")