主题：代码疑问

Dim b1 As String =Tables("客户端版本号")(0)("客户端版本号")
Dim b2 As String =Tables("服务器版本号")(0)("服务器版本号")
If b1 <> b2 Then
    MessageBox.Show("系统有更新,请更新文件!!", "提示")
    Forms("登陆窗口").Close()
    Forms("软件更新").OPEN()
End If

 

"服务器版本号" 与 "客户端版本号" 我改成一模一样的,也会 得到 MessageBox.Show("系统有更新,请更新文件!!", "提示") 这个提示,,改成不一样的,也会有提示.

If b1 <> b2 Then搞不懂这个怎么失效了.

 

版本号 列都是 字符型, 长度都是10

 

求解,,杂回事呢?

 

Tables("客户端版本号")(0)("客户端版本号")  在 客户端版本号 中输入 10 个 C
Tables("服务器版本号")(0)("服务器版本号")  在 服务器版本号 中输入 10 个 C
If b1 <> b2 Then  判断成功

 

 

Tables("客户端版本号")(0)("客户端版本号")  在 客户端版本号 中输入 1 个 C
Tables("服务器版本号")(0)("服务器版本号")  在 服务器版本号 中输入 1 个 C
If b1 <> b2 Then  判断不成功

 

不知道杂回事...求解...

谢谢,程版

原来如此啊

没有发布成系统时,测试登录窗口没有问题.

发布成系统后,又和一楼一模一样.......

 

登录窗口 AfterLoad 代码

 

Dim cmd As New SQLCommand
Dim dt As datatable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users} where [设备清单]= 'Y' "
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
Forms("登陆窗口").Controls("PassWord").Select() '返回窗口中 TB1控件
Dim b1 As String =Tables("客户端版本号")(0)("客户端版本号")
Dim b2 As String =Tables("服务器版本号")(0)("服务器版本号")
If b1 = b2 Then
MessageBox.Show("不需要!!", "提示")
Else
    Dim Proc As New Process
    MessageBox.Show("系统有更新,请更新文件!!", "提示")
    Forms("登陆窗口").Close()
    Forms("软件更新").OPEN()
End If

系統更新，應該是整個文件更新吧．test.Table　這只是單單一個文件，例：如果我的菜單發生變化．等等之類的更新．．

 

整個系統更新，應該是複製整個文件夾吧．

C版是這樣的嗎？還是只需要更新一個文件

C版

你看我升級按鈕的代碼

FileSys.CopyDirectory ("\\192.168.1.2\系统文件更新\其它\自动升级程序", "D:\零时文件\其它\自动升级程序", True ) '复制服务器发布的文件夹到客户端指定文件夹并覆盖原文件夹.
FileSys.MoveDirectory("D:\零时文件\其它\自动升级程序", "D:\零时文件\其它\自动升级程序二",FileSys.GetFileInfo(ProjectFile).Name,True)
Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\零时文件\其它\自动升级程序二\自动升级程序\wyq.exe" '指定文件路径
Proc.Start()'打开文件
Syscmd.Project.Exit(False)

 

測試的時候，能夠檢測到文件是否需要更新，只是更新按鈕代碼出問題

提示錯誤

 

 

此主题相关图片如下：01.png

啊．．．

借助setup2go　軟件 基本上實現自動更新功能了

 

我是這樣做的，

把程序製作成為EXE安裝文件．　這樣更新的時候只要從服務器中複製下來，然後執行安裝就可以了．

 

在做成EXE安裝程序的時候，有兩個地方一定要先上

 　1.程序自動安裝，不用要人工操作

此主题相关图片如下：02.png

　2.安裝後，自動運行

此主题相关图片如下：01.png

 

登錄窗口
 

此主题相关图片如下：03.png

 

登錄窗口　AFTERLOAD　事件代碼
Dim cmd As New SQLCommand
Dim dt As datatable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users} where [设备清单]= 'Y' "
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
Forms("登陆窗口").Controls("PassWord").Select() '返回窗口中 TB1控件
Dim b1 As String =Tables("客户端版本号")(0)("客户端版本号")
Dim b2 As String =Tables("服务器版本号")(0)("服务器版本号")
If b1 = b2 Then
Else
    Dim Proc As New Process
    MessageBox.Show("系统有更新,请更新文件!!", "提示")
    Forms("登陆窗口").Close()
    Forms("软件更新").OPEN()
End If

確認升級按鈕代碼

If FileSys.FileExists("\\192.168.1.2\系统文件更新\其它\自动升级程序.exe") Then
    Network.DownloadFile("\\192.168.1.2\系统文件更新\其它\自动升级程序.exe","d:\零时文件\自动升级程序二\自动升级程序.exe","wyq","wyq7758520",True, 100000, True) '复制服务器发布的文件夹到客户端指定文件夹并覆盖原文件夹
    Dim Proc As New Process '定义一个新的Process
    Proc.File = "d:\零时文件\自动升级程序二\自动升级程序.exe" '指定文件路径
    Proc.Start()'打开文件
    Syscmd.Project.Exit(False)
    e.Form.TimerEnabled = False
Else
    Messagebox.Show("更新文件不存在或已经被删除!请联系管理员!","提示")
End If

 

 

呵，做成EXE文件，基本上可以，，　這種辦法可能很笨，我實在想不出了．．

 

求更簡易的辦法．．．．．．．．．．

試過，解压替换原文件的时候，提示错误，，，程序正在运行．．无法进行操作．．．．