GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/09.資料庫系統管理/系統執行檔版本管理.vb

Option Strict Off
Imports System.Data.SqlClient
Imports System.Net
Imports System.IO
Public Class 系統執行檔版本管理
    Private Sub Set_伺服器狀態()
        Dim ds7 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds7.Clear()
        資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        資料庫清單1_dgv.ColumnHeadersHeight = 25 : 資料庫清單1_dgv.AllowUserToAddRows = False
        SQL_伺服器2清單()
        da.Fill(ds7) : 資料庫清單1_dgv.DataSource = ds7.Tables(0) : conn.Close()
        For i As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
            PA50 = 資料庫清單1_dgv.Rows(i).Cells(0).Value.ToString : SQL_連線字串_版本SQL()
            SQL_系統認證版本號查詢1()
            If dr.Read() Then
                資料庫清單1_dgv.Rows(i).Cells(1).Value = dr("系統認證版本號").ToString
                資料庫清單1_dgv.Rows(i).Cells(2).Value = dr("手機認證版本號").ToString
                資料庫清單1_dgv.Rows(i).Cells(3).Value = dr("IOS認證版本號").ToString
                資料庫清單1_dgv.Rows(i).Cells(4).Value = dr("IOS送審版本號").ToString
            End If
        Next
    End Sub
    Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        TextBox3.Visible = False : TextBox1.Visible = False : Panel1.SendToBack()
        Set_伺服器狀態()
        SQL_系統認證版本號查詢()
        If dr.Read() Then
            資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 小更1.Text = dr("小更新1").ToString : 小更2.Text = dr("小更新2").ToString
            小更3.Text = dr("小更新3").ToString : 中更1.Text = dr("中更新1").ToString : 中更2.Text = dr("中更新2").ToString
            版本號_tb.Text = dr("系統認證版本號") : 小更4.Text = dr("小更新4").ToString : 小更5.Text = dr("小更新5").ToString
            中更3.Text = dr("中更新3").ToString : 中更4.Text = dr("中更新4").ToString : 中更5.Text = dr("中更新5").ToString
            版本號1_tb.Text = dr("手機認證版本號") : 版本號2_tb.Text = dr("IOS認證版本號") : 版本號3_tb.Text = dr("IOS送審版本號")
        End If : conn.Close()
        Target1 = Target & AA(0) & "/" : Target2 = Target & AA(1) & "/"
        WebBrowser1.Url = New Uri(Target1)
        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 Button1.Click
        For i As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
            PA50 = 資料庫清單1_dgv.Rows(i).Cells(0).Value.ToString : SQL_連線字串_版本SQL()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString4 : conn.Open() : End If
            SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 版本號_tb.Text & "', 手機認證版本號 = N'" & 版本號1_tb.Text & "', 
                IOS認證版本號 = N'" & 版本號2_tb.Text & "', IOS送審版本號 = N'" & 版本號3_tb.Text & "' 
                WHERE (系統認證版本號 = N'" & Strings.Right(資料庫版本號_lb.Text, 10) & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        Next

        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        If dr.Read() Then
            資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號")
            版本號_tb.Text = dr("系統認證版本號")
        End If : conn.Close() : If 系統語言 = "繁體中文" Then : 通知訊息 = "修改完成!!" : Else : 通知訊息 = "Modifikasi selesai!!" : End If : 訊息類型 = "1"
        Set_伺服器狀態() : 通知視窗.ShowDialog()
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox4.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
                TextBox4.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        Dim STR2 As Integer = 0
        TextBox3.Text = TextBox4.Text
        If TextBox4.Text = "" Then
        Else
            For i As Integer = 0 To 9999
                Dim STR1 As Integer = Strings.Len(TextBox3.Text)
                If Strings.Right((TextBox3.Text), 1) <> "\" Then
                    STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then
                        TextBox3.Text = ""
                        TextBox4.Text = ""
                        i = 9999
                    Else
                        TextBox3.Text = Strings.Left((TextBox3.Text), STR1)
                    End If
                Else
                    TextBox3.Text = Strings.Right((TextBox4.Text), STR2)
                    TextBox4.Text = TextBox3.Text
                    i = 9999
                End If
            Next
        End If
    End Sub
    Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox4.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            TextBox4.AppendText(file + Environment.NewLine)
        Next
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If TextBox4.Text = "" Then
            If 系統語言 = "繁體中文" Then : 通知訊息 = "請準備檔案!!" : Else : 通知訊息 = "Mohon siapkan berkas!!" : End If : 訊息類型 = "1" : 通知視窗.ShowDialog()
        Else
            Dim clsRequest12 As FtpWebRequest = DirectCast(WebRequest.Create(Target & AA(0) & "/" & TextBox4.Text), FtpWebRequest)
            TextBox1.Text = FolderBrowserDialog1.SelectedPath & "\" & TextBox4.Text
            clsRequest12.Credentials = New NetworkCredential(FTP帳號, FTP密碼)
            clsRequest12.Method = WebRequestMethods.Ftp.UploadFile
            ' read in file...
            Dim bFile12() As Byte = File.ReadAllBytes(TextBox1.Text)

            ' upload file...
            Dim clsStream12 As Stream = clsRequest12.GetRequestStream()
            clsStream12.Write(bFile12, 0, bFile12.Length)
            clsStream12.Close()
            clsStream12.Dispose()
            TextBox4.Text = ""
            WebBrowser1.Refresh()
        End If
    End Sub
End Class