Option Strict Off
Public Class 系統執行檔版本管理
    Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        SQL_查詢系統認證版本號()
        If dr.Read() Then
            資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號")
            版本號_tb.Text = dr("系統認證版本號")
        End If : conn.Close()
        Target1 = Target & AA(0) & "/"
        Target2 = Target & AA(2) & "/"
        WebBrowser1.Url = New Uri(Target1) : WebBrowser3.Url = New Uri(Target2)
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_修改版本號管理() : conn.Close()
        SQL_修改系統認證版本號()
        If dr.Read() Then
            資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號")
            版本號_tb.Text = dr("系統認證版本號")
        End If : conn.Close()
        MsgBox("修改完成")
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
End Class