在线人员如QQ好友列表般的显示

时　间:2011-09-06 00:00:00
作　者:都市侠影   ID：20205  城市：成都
摘　要:在线人员如QQ好友列表般的显示
正　文:

        近日见论坛有人询问如何能做到将在线人员如QQ好友列表般的显示，这个功能私以为华而不实，无非是想获得图形化的显示效果而已。近来成都秋老虎反扑，气温高达35度以上，有老虎在屁股后面追，人的做事效率确实非同一般，终于写下此示例，建议工地多养几只老虎，京沪高铁说不定在秦朝就修好了。但是做好之后数据库肥胖到九十几兆，无奈求助于麦田大师，终于减肥成功，重新做了子窗体。在此向麦田先生致谢。

        这个示例的思路简单但实现较为繁琐，在子窗体上放上一些Image控件和Label控件（一个Image控件和一个Label为一组，将显示用户头像和名称），并将控件信息填入表tbl_Control中。
        如果有用户登录，就在表tbl_Control中找出未被使用且最靠前的一组控件（Image和Label各一个，而且在表中是相邻的），控件未被使用的标志是表中相应控件信息的IsUsed字段值为“否”，找出这组控件之后，首先将这两条控件信息在窗体OnlineBar上的对应控件的可见性设为是，其次设置Image控件的picture属性设为此用户的照片，Label控件的Caption属性设为用户名称,最后在表tbl_Control中将这两个控件信息的IsUsed字段设为是，表明在使用状态了。
        如果有用户注销，首先将此用户联系的Image和Label控件设置为不可见，然后修改表tbl_Control中这两个控件的信息：将IsUsed字段设为否，将RelationUser字段设为“NoUser”。最后为了避免了窗体上因为此用户对应的控件被隐藏而出现空缺，在表tbl_Control中搜寻此用户的后面是否还有正在登录的用户（以CtrlID字段为序，即以子窗体上各控件的上下位置为序），若有，则将最后一位用户调整到刚才被隐藏的两个控件上来。
        示例缺点：
1、大量使用ADO记录集，Recordset对象命名没有规律。
2、有些工作可以编写单独的过程，应该改进。
3、本来用户的登录和注销并不像示例中的窗体上所做的那般无聊，而是用户在各客户端自行登录。不过此示例的重点并不在此，重点在于如何实现将在线人员像QQ好友列表一样显示，如果再添上消息机制，或可做一个数据库系统内部的聊天系统，呵呵。
4、示例中子窗体OnlineBar中的控件都是静态的，在设计阶段都已经设计好，只是显示与不显示罢了，要是做成动态的则更好，用户登录的时候创建控件，用户注销的时候撤销控件，那样就无懈可击了。

示例如下：

点击下载此附件

主界界截图：