BeforeConnectOuterDataSource事件:

\'通用-根据是否开发状态以及内网和外网登录时服务器地址IP的不同,选择不同的连接字符串
Dim i As Integer=1 \'外部数据源
If i=1 Or e.ProjectFile<> dpath & pfile Then \'这是开发时项目文件名
    Dim a As Boolean
    For i =1 To 5 \'ping5次
        a=Network.Ping(IP1,500) \'ping内网,每次500毫秒
        If a Then \'如果ping通就退出for循环
            Exit For
        End If
    Next
    If a Then \'如果内网Ping通,则用内网地址
        IPa=IP1
    Else \'否则用外网地址
        IPa=IP2
    End If
    本句自己完善，原文贴不上：连接字符串 e.C & IPa
End If

发布项目按钮：

\'通用-发布项目,上传升级文件
Syscmd.Project.PublishProject()\'发布项目
Dim zip As New zipFile\'以下创建升级文件
Dim zFile As String = dpath & datafile
If FileSys.FileExists(zfile) Then \'如果升级文件已经存在
    FileSys.deletefile(zfile,2,2) \'则删除
End If
zip.Create(zFile) \'创建空文件
\'zip.AddFolder(dpath & "publish\\project") \'添加project目录下的全部文件
\'zip.AddFolder(dpath & "publish\\project\\Attachments") \'添加Attachments目录下的全部模板文件
\'zip.AddFolder(dpath & "publish\\project\\Images") \'添加Images目录下的全部图标文件
zip.AddFile(dpath & "publish\\project\\" & pname & ".FoxEx",pname & ".FoxEx") \'或只更新项目主文件
zip.AddFile(dpath & "publish\\project\\" & pname & ".chm",pname & ".chm") \'帮助文件没变可以不更新
zip.Close()
Dim ftp1 As new ftpclient
ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数
ftp1.host=ipa \'设置单位ftp服务器地址
ftp1.Account = ftpaccount \'设置ftp登录用户名
ftp1.password = ftppassword \'设置ftp登录密码
ftp1.upload(dpath & datafile,upath & datafile,True) \'上传升级文件
FileSys.CopyDirectory(dpath & "Publish", "e:\\" & pname & "\\数据文件",True)\'拷贝项目文件到E盘

生成下发文件按钮：

Dim zfile As String = "e:\\" & pname & ".rar" \'将要生成的压缩文件
If FileSys.FileExists(zfile) Then \'如果压缩文件已经存在
    FileSys.deletefile(zfile,2,2) \'则删除
End If
Dim Proc As New Process
Proc.File = "winrar.exe"
Proc.Arguments = " a -ibck " & zfile & " E:\\" & pname
Proc.Start
Proc.WaitForexit
Proc.Arguments = " a -ibck " & zfile & " E:\\系统安装和登录说明.doc"
Proc.Start

开发系统版本升级后发布项目按钮：

\'通用-发布项目,上传升级文件
Syscmd.Project.PublishProject()\'发布项目
Dim zip As New zipFile\'以下创建升级文件
Dim zFile As String = dpath & datafile \'以下创建升级文件
If FileSys.FileExists(zfile) Then \'如果升级文件已经存在
    FileSys.deletefile(zfile,2,2) \'则删除
End If
zip.Create(zFile) \'创建空文件
zip.addfile(dpath & bname)
Dim Multi As String = FileSys.ReadAllText(dpath & bname, Encoding.Default)
Dim Values(),name As String
Dim m,n As Integer
Values = Multi.split(vbcr)
For Index As Integer = 1 To Values.Length - 3
    m=Instrrev(Values(Index)," ")
    n=Instrrev(Values(Index),"\\project\\")
    name=mid(Values(Index),n+9,m-n-9)
    zip.addfile(dpath & "publish\\" & name)
Next
zip.addfile(dpath & "publish\\project\\" & pname & ".foxex") \'或只更新项目主文件
\'zip.addfile(dpath & "publish\\project\\" & pname & ".chm") \'帮助文件没变可以不更新
zip.Close()
Dim ftp1 As new ftpclient
ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数
ftp1.host=ipa \'设置单位ftp服务器地址
ftp1.Account = ftpaccount \'设置ftp登录用户名
ftp1.password = ftppassword \'设置ftp登录密码
ftp1.upload(dpath & datafile,upath & datafile,True) \'上传升级文件
FileSys.CopyDirectory(dpath & "Publish", "e:\\" & pname & "\\数据文件",True)\'拷贝项目文件到E盘

AfterOpenProject事件:

If ProjectFile<>dpath & pfile Then \'这是项目开发文件名

    Dim ftp1 As new ftpclient
    ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数
    ftp1.host=ipa \'设置单位ftp服务器地址
    ftp1.Account = ftpAccount \'设置ftp登录用户名
    ftp1.password = ftppassword \'设置ftp登录密码
    Dim s1 As Date=ftp1.GetFileDate(upath & datafile) \'服务器上升级文件的日期时间
    Dim s2 As Integer=ftp1.GetFilesize(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) \'删除升级文件
        If s2<2000000 then\'升级文件小于2Mb,属于一般性版本升级
            Syscmd.Project.Open(ProjectFile) \'重新打开项目
        Else           
            Dim s As String = rpath & "\\" & bname
            Dim Proc As New Process \'定义一个新的Process
            Proc.File = s \'指定要打开的文件
            Proc.Verb = "Open" \'指定动作
            Proc.Start()
            proc.WaitForExit
        End If
    Else
        Forms("用户登录").Open()
    End If
Else
    Forms("用户登录").Open()
End If

沙发

这厉害，收藏研究。

好帖子，学习

等狐爸解决系统升级需要重新发布的问题