写到文件 (取运行目录 () + “\” + 编辑框3.内容 + “.txt”, 到字节集 (编辑框2.内容))
打开 (取运行目录 () + “\加密数据库.edb”, , , , , , )
.如果 (取文本长度 (编辑框2.内容) ≤ 512)
加记录 (编辑框4.内容, 取文本左边 (编辑框2.内容, 512))
.否则
.如果结束
.判断循环首 (取反 (尾记录后 ()))
列表框1.加入项目 (读 (#验证号), )
跳过 (1)
.判断循环尾 ()
.计次循环首 (_启动窗口.列表框1.取项目数 (), )
.如果 (编辑框1.内容 = _启动窗口.列表框1.取项目文本 (_启动窗口.列表框1.现行选中项))
_启动窗口._列表框1_列表项被选择 ()
_启动窗口.编辑框5.内容 = _启动窗口.编辑框6.内容 + _启动窗口.编辑框7.内容 + _启动窗口.编辑框8.内容
跳出循环 ()
.否则
_启动窗口.列表框1.现行选中项 = _启动窗口.列表框1.现行选中项 + 1
.如果结束
.计次循环尾 ()
上一篇 易语言列表框批量删除项目
下一篇 大漠插件后台模拟鼠标键盘操作事例