type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOC