网络聊天室带Mysql数据库

易语言 2020-02-13 14:47:37

网络聊天室带Mysql数据库

.如果真 (取记录集行数 (查找记录 (句柄, “room”, “mac”, “mac='” + MAC + “'”, “mac asc”)) = 0)
.如果真 (输入框 (“请输入一个昵称”, , 文本_取随机汉字 (4, ), 昵称, , ) = 假)
返回 ()
.如果真结束
提交语句 = “INSERT INTO `room` (`ID`, `name`, `mac`, `txt`) VALUES (NULL, '” + 编码_BASE64编码 (到字节集 (昵称)) + “', '” + MAC + “', '')”
执行SQL语句 (句柄, 提交语句)

执行SQL语句 (句柄, #聊天查询)
记录集 = 取记录集 (句柄)
编辑框2.内容 = “”
.计次循环首 (取记录集行数 (记录集), )
读字段值 (记录集, “name”, name)
读字段值 (记录集, “txt”, txt)
内容 = 内容 + 到文本 (编码_BASE64解码 (name)) + “:” + #换行符 + 到文本 (编码_BASE64解码 (txt)) + #换行符
到下一行 (记录集)
.计次循环尾 ()