\'下面是用到的全局代码

Public pname As String="项目管理系统" \'项目名称

Public rpath As String="d:\\" & pname & "\\数据文件\\project" \'项目文件运行路径

Public upath As String="\\项目管理系统\\数据文件\\" \'服务器上的项目文件升级路径和备份路径

Public datafile As String = pname & ".zip" \'包含最新升级数据的文件名

\'下面是AfterOpenProject事件中自动静默下载升级文件并更新的代码

Dim ftp1 As new ftpclient

ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数

ftp1.host=IPa \'设置单位ftp服务器地址，IPa为全局代码

ftp1.Account = ftpAccount \'设置ftp登录用户名，ftpAccount为全局代码

ftp1.password = ftppassword \'设置ftp登录密码，ftppassword为全局代码

Dim s1 As Date=ftp1.GetFileDate(upath & datafile) \'获取服务器上升级文件的日期时间

If s1>publishdate Then \'如果较现在版本的日期时间新则下载并升级

    Dim s3 As String = upath & datafile \'服务器上升级文件中包含升级内容的文件

    Dim s4 As String = rpath & "\\" & datafile \'准备保存在客户端的包含升级内容的文件

    ftp1.download(s3,s4,False) \'静默下载并另存

    Dim zip As New zipFile

    zip.Open(s4) \'打开升级文件

    zip.Extractall(rpath) \'全部解压到客户端运行文件夹

    zip.Close() \'关闭升级文件

    FileSys.deleteFile(s4,2,2) \'删除升级文件

    Syscmd.Project.Open(ProjectFile) \'重新打开项目

End If

Forms("用户登录").Open()

求助：上述代码怎么看都应该只出现一次登录界面，为何会出现3次呢？

Public pname As String="项目管理系统" \'项目名称
Public rpath As String="d:\\" & pname & "\\数据文件\\project" \'项目文件运行路径
Public upath As String="\\项目管理系统\\数据文件\\" \'服务器上的项目文件升级路径和备份路径
Public datafile As String = pname & ".zip" \'包含最新升级数据的文件名

为什么不应该执行？ 代码是按顺序执行的。

按我说的改吧。