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

1、不理解你的问题【2个以上用户同时对一个表加密时，其中一个加密对话框会失效】，如何测试？需要做到什么效果？

2、你解密成功的时候，记录输入的密码

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

当需要弹出解密之前，先获取值，和表格数据对比，如果相同，则不需要弹出

Dim fdr = DataTables("密码记录表").find("用户名 ='" & User.Name & "' and 加密日期 <= #" & Date.now & "#", "加密日期 desc")
Dim pwd As String = GetConfigValue(user.name & "密码", "")
If pwd <> fdr("密码") Then

    '弹出解密窗口

End If

解密窗口的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

1、需要的时候再解密啊。比如切换到表A，就需要解密啊。

2、你拷贝两份项目到不同的文件夹下再打开测试。

加密按钮

Dim t As Date = Date.Now
Dim dr As Row = Tables("密码记录表").AddNew()
dr("加密日期") = t
dr("密码") = e.Form.Controls("TextBox1").Text
MainTable = Tables("表A")
e.Form.Close