viewonline.prg

foxpro连接sqlserver的例子

*-- 查看在线人：

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,"报告")