运行时出错

NaiTea

.版本 2
.支持库 eDB
.程序集 窗口程序集_窗口3
.子程序 _按钮2_被单击
_启动窗口.打开数据库 ()
_启动窗口.记录集1.打开 (“客户登录”, 2, )
.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“请输入手机号！”, 0, “提示”, )
    编辑框1.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (编辑框2.内容 ＝ “”)
    信息框 (“请输入密码！”, 0, “提示”, )
    编辑框2.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“请输入确认密码！”, 0, “提示”, )
    编辑框3.获取焦点 ()
    返回 ()
.如果真结束
.如果 (编辑框2.内容 ＝ 编辑框3.内容)
    .如果 (_启动窗口.记录集1.查找 (“手机号='” ＋ 编辑框1.内容 ＋ “'”, 0))
        信息框 (“用户名已经存在！”, 0, “提示”)
    .否则
        写入 ()
    .如果结束
.否则
    信息框 (“两次输入的密码不一致！”, 0, “提示”)
    编辑框3.获取焦点 ()
    返回 ()
.如果结束


.子程序 写入
.局部变量 写手机, 文本型
.局部变量 密码, 文本型
_启动窗口.打开数据库 ()
_启动窗口.记录集1.打开 (“客户登录”, 2, )
写手机 ＝ “insert into 客户登录 (手机号,密码) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “  ' )”
.如果 (_启动窗口.数据库连接1.执行SQL (写手机) ＝ 假)
    信息框 (“zc失败！请检查数据库的连接！”, #信息图标, “提示”)
.否则
    信息框 (“用户zc成功！”, #信息图标, “提示”)
    _按钮1_被单击 ()
    _启动窗口.记录集1.关闭 ()
    销毁 ()
.如果结束

.子程序 打开数据库
_启动窗口.打开数据库 ()
_启动窗口.记录集1.打开 (“客户登录”, 2, )
_启动窗口.记录集1.到首记录 ()
.子程序 _窗口3_创建完毕

麻烦各位大哥帮我看看出什么问题了。謝謝了


补充内容 (2018-6-30 05:22):
按重复zc过得也显示zc成功，而不会显示已存在。

补充内容 (2018-6-30 06:07):
登录没有问题，就是zc成功之后就出现这个问题，球大神解答

Troubled

Troubled

看看什么地方运行的代码还没运行完就销毁窗口了。

NaiTea

箐幽 发表于 2018-6-30 06:21

把_按钮1_被单击删除？

Troubled

NaiTea 发表于 2018-6-30 07:07
把_按钮1_被单击删除？

你看看按钮1_被单击 里面有什么代码运行的。