type Tqq=record
  ip:string;
  nc:string;//呢称 
  id:integer;
end;
  id唯一
  登陆后纪录ip 给对方显示nc(纪录ip;id 因为一个呢称 可能有多个任用