Delphi简单TCP聊天程序（三）：登录注册功能

  对于聊天程序来说，登陆和注册是很重要的，今天我就来讲讲登录和注册功能。

  第一步当然是新建个数据库 。打开Microsoft Access，新建数据库，保存为user.mdb，建表user，新建两个字段Username和Password记录用户名和密码。然后在服务器端中放一个TADOQuery和一个TADOConnection。在FormCreate中连接数据库

const
  dbName = 'user.mdb';
begin
....
  try
    ADOConnection.Close;
    ADOConnection.ConnectionString := 'Provider=Microsoft.JET.OLEDB.4.0;'
                                    + 'Data Source=' + ExtractFilePath(Paramstr(0)) + dbName
                                    + ';Persist Security Info=False';
    ADOConnection.Open();
  except
  end;
end;

客户端在登录时会向服务器端发送CMD_LOGIN命令，所以我们在ServerExecute进行处理

{SQLSearch
----------
功能：查找数据库
参数：
sqlText: SQL语句
sqlConnection:SQL连接
返回值：如果查找到了为真}
function SQLSearch(sqlText: string; sqlConnection: TADOConnection): b