易语言edb服务器问题 新手求助

深红色的眼瞳

可以正常zc   但是 我在继续点一下 还能zc这个账号    ！！！  再点击一下就出现代码错误了   

无语啊~~~研究半天了    来个大佬帮我改进下啊  

深红色的眼瞳

Christmas 发表于 2018-11-25 11:24
这两行写错地方了，换个地方就好了

.版本 2

大哥  我又来了      为什么只能登陆第一个账号   后面的不行了？？？？？

Christmas

1111111111111111111111111

Christmas

这两行写错地方了，换个地方就好了

.版本 2

            时间 ＝ 增减时间 (取现行时间 (), #小时, 到整数 (读 (“时间”)) ＋ 到整数 (zc送时.内容))
            时间1 ＝ 增减时间 (取现行时间 (), #小时, 到整数 (读 (“时间”)) ＋ 到整数 (到数值 (zc送时.内容) × 24))


补充内容 (2018-11-25 11:46):
或者放到计次循环尾巴外面那里

深红色的眼瞳

Christmas 发表于 2018-11-25 11:24
这两行写错地方了，换个地方就好了

.版本 2

为什么  zc码删除了 还能用那个zc码  继续zc

用户名已更换

深红色的眼瞳 发表于 2018-11-25 12:21
为什么  zc码删除了 还能用那个zc码  继续zc

对比 逻辑有问题啊，既然数据都没有了，那对比的结果肯定为空，你自己看看是不是哪里写错了，导致返回不是空或者返回空结果后，继续执行命令了

Christmas

深红色的眼瞳 发表于 2018-11-25 12:21
为什么  zc码删除了 还能用那个zc码  继续zc

我是随便换了个位置，只是想告诉你，两个时间的赋值在那里不行。

如果你说zc码已经用过了不能再用，那好，你把时间的赋值，挪到计次循环之后，等计次循环都循环完了，证明zc码没有用过，再赋值时间，这个总行吧。

深红色的眼瞳

Christmas 发表于 2018-11-25 12:41
我是随便换了个位置，只是想告诉你，两个时间的赋值在那里不行。

如果你说zc码已经用过了不能再用，那 ...

.版本 2
.支持库 spec

.子程序 _服务器1_数据到达
.局部变量 数据, 字节集
.局部变量 IP, 文本型
.局部变量 数组, 文本型, , "20"
.局部变量 时间, 日期时间型
.局部变量 j, 整数型
.局部变量 时间1, 日期时间型

IP ＝ 服务器1.取回客户 ()
数据 ＝ 服务器1.取回数据 ()
数组 ＝ 分割文本 (到文本 (数据), “|”, )
.判断开始 (取字节集数据 (取字节集左边 (数据, 5), #文本型, ) ＝ “ASD01”)
    打开 (取运行目录 () ＋ “/admin.edb”, “用户”, , , , , )
    打开 (取运行目录 () ＋ “/zhucema.edb”, “zc码”, , , , , )
    调试输出 (置当前库 (“zc码”))
    到首记录 ()
    .计次循环首 (取记录数 (), j)
        跳到 (j)
        调试输出 (读 (“卡号”), 数组 [2])
        调试输出 (取错误码 (), 取错误信息 ())
        .如果真 (读 (“卡号”) ＝ 数组 [2])
            时间 ＝ 增减时间 (取现行时间 (), #小时, 到整数 (读 (“时间”)) ＋ 到整数 (zc送时.内容))
            时间1 ＝ 增减时间 (取现行时间 (), #小时, 到整数 (读 (“时间”)) ＋ 到整数 (到数值 (zc送时.内容) × 24))
            删除 ()
            彻底删除 ()
            读取zc码 ()
            置当前库 (“用户”)
            加空记录 ()
            写 (“用户名”, 到文本 (数组 [3]))
            写 (“密码”, 到文本 (数组 [4]))
            写 (“类型”, 到文本 (j))
            写 (“zc时间”, 到文本 (取现行时间 ()))
            写 (“状态”, “离线”)
            .判断开始 (送时单位.现行选中项 ＝ 0)
                写 (“到期时间”, 到文本 (时间))
            .默认
                写 (“到期时间”, 到文本 (时间1))
            .判断结束
            读取用户 ()
            关闭 (“用户”)
            关闭 (“zc码”)
            返回 ()
        .如果真结束

    .计次循环尾 ()
    信息框 (“1111111111111111111”, 0, , )
.默认



看看 行不行

深红色的眼瞳

用户名已更换 发表于 2018-11-25 12:29
对比 逻辑有问题啊，既然数据都没有了，那对比的结果肯定为空，你自己看看是不是哪里写错了，导致返回不 ...

我研究研究

Christmas

看看这个是不是你想要的