摘要：
type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOConnection; LoginUser: TLoginUser;end; var G_PShareObjectRecord: PShareObjectRecord;//... 阅读全文
