使用ADO控件打造另类的聊天室

这个是我开始接触编程时的想法，想通过仅用数据库，不采用sock来实现一个简单的在局域网内的聊天室，我想这个想法很多人都有过。这个程序本身没什么价值，只是一来把自己当初的设计与大家分享，二来是有鉴于网上对ADO控件的使用这方面的介绍不是很多，自己算是抛砖引玉吧。

言归正传，首先用access建立一个数据库chat，接着建两张表格：

content（name（文本），time（时间），content（文本））
online(name（文本）)

设计：

登陆模块：

选择服务器，也就是网上的共享数据库；

输入用户名；

刷新模块：负责刷新显示在线用户，聊天内容（用一个定时器）。

应用模块：用户的聊天内容的发送，及退出时的提示及相关工作。

运行效果如下，详情可以查看源代码，里面有详细的注释。