主题：3次输入错误后，保存项目数据并关闭项目？

解密窗口的BeforeClose事件：（不知道哪里出问题了，不管密码是否正确，都是直接退出系统了？）

Dim fdr = DataTables("密码记录表").find("用户名 ='" & User.Name & "' and 加密日期 <= #" & Date.now & "#", "加密日期 desc")

Dim pwd As String = GetConfigValue(user.name & "密码", "")

If pwd <> fdr("密码") Then

    MainTable = Tables("表A")

    Forms("解密窗口").Show

    If vars("exit") = True Then

        msgbox("出错超过3次,保存并退出当前系统...")

        systemready = False

        Syscmd.Project.Exit(True)

        systemready = True

    Else

        msgbox("密码不正确,请重试")

        e.cancel = True

    End If

Else

    MainTable = Tables("表B")

    SaveConfigValue(user.name & "密码", pwd)

End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加密实例.rar