主题：死机

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

点击浏览该文件:dl.rar

1、老师这是做的登录窗口，在设计时预览，先用户登录点确定就会定起要重启电脑，每次都这样，这是什么原因。

此主题相关图片如下：p)r6_(kqpmpjm01t)g_(yo.png

1楼的图片是这个

 你的升级代码是不是写错了？

 

 

 

Update的语法：

Syscmd.Project.Update(Prom1, Prom2)

Prom1: 可选参数，逻辑型，没有发现新版本时，是否提示用户。
Prom2: 可选参数，逻辑型，发现新版本时，是否提示用户升级。

例如希望自动升级能够完全"静默"，发现新版本时不提示，自动开始升级，没有发现新版本时也不提示：

Syscmd.Project.Update(False,False)

如果我们在AfterOpenProject下面的代码：

Syscmd.Project.Update(False,False) 
Forms("窗口1").Open() '可能会出错
'后续其它代码

目的是希望打开项目的时候自动升级，然后打开窗口1。
但是上述代码肯定会在升级成功之后提示错误，因为一旦升级成功，Foxtable就会关闭，后面的打开窗口代码就会出错，当然后续其它的代码也一样会出错。
我们可以用下面的代码避免错误：

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    Forms("窗口1").open()
    '后续其它代码
End If

也就是说Update执行后会返回一个逻辑值，如果升级成功，返回True，否则返回False。

总之，如果需要在AfterOpenPoject事件中实现自动升级，那么原有的AfterOpenProject事件代码必须包括在这个判断中，只有没有升级的情况下，才执行原来的代码：

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    '原AfterOpenProject事件代码
End If

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    TableCaptionVisible = False
    Forms("开始").open()
End If
Dim cmd As New SQLCommand
cmd.CSELT * From {用户} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)
Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
Else
    DataTables("用户").loadfilter ="name = '" & _username & "'"
    DataTables("用户").load
End If

 

afterobject事件

全部写在 If 里面

第一个问题解决了，谢谢，第二个问题没找找问题，我又远程升级试了一下，用户登录窗口始终会卡起，取消都点不起，请老师帮查一下，我把整个项目都发给你帮我诊断一下，谢谢

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

点击浏览该文件:2.rar

什么意思

 

登录的用户、单位和密码是什么

刘林，123