易语言远程数据库操作例子

本易语言例程源码是易语言论坛用户编写的教程，属于易语言数据库类教程。
本易语言例程还使用到易语言远程服务支持库和扩展界面支持库。

.判断 (消息类型 ＝ 1) ' 客户断开
离线用户名 ＝ 用户列表框.取标题 (用户列表框.查找表项数值 (, 客户句柄), ) ' 或得当前离线帐户名
用户列表框.删除表项 (用户列表框.查找表项数值 (, 客户句柄)) ' 客户断开并清除在线列表
记录集.打开 (“users”, #数据表名)
记录集.查找 (“name='” ＋ 离线用户名 ＋ “'”, 1)
记录集.写整数 (“zt”, 0)
记录集.更新 ()
记录集.关闭 ()
.判断 (消息类型 ＝ 2) ' 数据到达
服务端.取请求文本 (消息地址, 请求代码, 请求信息) ' 取消息封包内容
.判断开始 (请求信息 ＝ “” 或 取文本右边 (请求信息, 4) ≠ “7788”) ' 判断是否为正确的封包
服务端.断开连接 (客户句柄)
用户列表框.删除表项 (用户列表框.查找表项数值 (, 客户句柄))
.判断 (取文本左边 (请求信息, 2) ＝ “dl”) ' 用户登陆消息封包
详细请求信息 ＝ 分割文本 (请求信息, “,”, )
.判断开始 (取数组成员数 (详细请求信息) ≠ 4)
返回 ()
.默认
记录集.打开 (“users”, #数据表名)
.判断开始 (记录集.查找 (“name='” ＋ 详细请求信息 [2] ＋ “'”, 1) ＝ 假)
服务端.发送文本 (客户句柄, “dl0”) ' 帐户不存在
记录集.关闭 ()
.默认
记录集.读文本 (“pass”, 数据库密码) ' 用户存在验证密码
.判断开始 (详细请求信息 [3] ≠ 数据库密码)
服务端.发送文本 (客户句柄, “dl1”) ' 帐户密码错误
记录集.关闭 ()
.默认
记录集.读整数 (“zt”, 数据库状态) ' 密码正确验证状态
.判断开始 (数据库状态 ＝ 0)
服务端.发送文本 (客户句柄, “dl2”) ' 帐户登陆成功
用户列表框.置标题 (用户列表框.查找表项数值 (, 客户句柄), 0, 详细请求信息 [2])
用户列表框.置标题 (用户列表框.查找表项数值 (, 客户句柄), 1, 详细请求信息 [3])
记录集.写整数 (“zt”, 1)
记录集.更新 ()
记录集.关闭 ()
.判断 (数据库状态 ＝ 1)
服务端.发送文本 (客户句柄, “dl3”) ' 帐户已经登陆
记录集.关闭 ()
.判断 (数据库状态 ＝ 2)
服务端.发送文本 (客户句柄, “dl4”) ' 帐户被锁定
记录集.关闭 ()
.默认
返回 ()