GCM-SQL-MGMT-LEEHSIEHJUI/GCM-SQL-MGMT/GCM_SQL_MGMT.vb

Public Class GCM_SQL_MGMT
    Private Sub Set_伺服器狀態()
        Dim ds8 As New DataSet : 伺服器狀態_dgv.DataSource = Nothing : ds8.Clear()
        伺服器狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        伺服器狀態_dgv.ColumnHeadersHeight = 25
        伺服器狀態_dgv.AllowUserToAddRows = False
        SQL_資料庫狀態()
        da.Fill(ds8) : 伺服器狀態_dgv.DataSource = ds8.Tables(0) : conn.Close()
        Set_進度條顯示()
        伺服器狀態_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
        伺服器狀態_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態_dgv.Columns(0).FillWeight = 120 : 伺服器狀態_dgv.Columns(1).FillWeight = 180
        伺服器狀態_dgv.Columns(2).FillWeight = 55 : 伺服器狀態_dgv.Columns(3).FillWeight = 70
        伺服器狀態_dgv.Columns(4).Visible = False

        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_伺服器1清單()
        da.Fill(ds7) : 資料庫清單1_dgv.DataSource = ds7.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_資料庫狀態()
        Dim 啟動 As Boolean = False
        If 選擇_tb.Text = "天盾國際管理系統資料庫" Then : SQL_連線字串_圖片資料庫() : SQL_圖片資料庫管理查詢() : 啟動 = True
        ElseIf 選擇_tb.Text = "METO-MES-SYS" Then : SQL_連線字串_圖片資料庫() : SQL_圖片資料庫管理查詢() : 啟動 = True
        ElseIf 選擇_tb.Text = "OW-MSN" Then : SQL_連線字串_圖片資料庫() : SQL_圖片資料庫管理查詢() : 啟動 = True
        ElseIf 選擇_tb.Text = "Huang_PH_SYS" Then : SQL_連線字串_圖片資料庫() : SQL_圖片資料庫管理查詢() : 啟動 = True
        ElseIf 選擇_tb.Text = "PROJECT-SYS" Then : SQL_連線字串_圖片資料庫() : SQL_工程圖片資料庫管理查詢() : 啟動 = True
        ElseIf 選擇_tb.Text = "Sh-To-PROJECT-SYS" Then : SQL_連線字串_圖片資料庫() : SQL_工程圖片資料庫管理查詢() : 啟動 = True
        End If
        If 啟動 = True Then
            Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
            圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            圖片資料庫管理_dgv.ColumnHeadersHeight = 25
            圖片資料庫管理_dgv.AllowUserToAddRows = False

            da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
            圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).FillWeight = 30
        Else : 圖片資料庫管理_dgv.DataSource = Nothing : End If

        啟動 = False
        If 選擇_tb.Text = "PROJECT-SYS" Then : SQL_連線字串_圖片資料庫() : SQL_工程文件資料庫管理查詢() : 啟動 = True
        End If
        If 啟動 = True Then
            Dim ds8 As New DataSet : 文件資料庫管理_dgv.DataSource = Nothing : ds8.Clear()
            文件資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            文件資料庫管理_dgv.ColumnHeadersHeight = 25
            文件資料庫管理_dgv.AllowUserToAddRows = False

            da.Fill(ds8) : 文件資料庫管理_dgv.DataSource = ds8.Tables(0) : conn.Close()
            文件資料庫管理_dgv.Columns(0).FillWeight = 100 : 文件資料庫管理_dgv.Columns(1).FillWeight = 30
        Else : 文件資料庫管理_dgv.DataSource = Nothing : End If
    End Sub
    Private Sub Set_進度條顯示()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 100,
            .DataPropertyName = "容量"
        }
        Col.HeaderText = "使用容量" : Col.Name = "容量" : Col.DataPropertyName = "使用容量"
        伺服器狀態_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub GCM_SQL_MGMT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub GCM_SQL_MGMT_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        重新讀取_bt.PerformClick()
    End Sub
    Private Sub 資料庫_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 資料庫_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            地點_tb.Text = 資料庫_dgv.Rows(e.RowIndex).Cells("地點").Value.ToString : IP_tb.Text = 資料庫_dgv.Rows(e.RowIndex).Cells("位置").Value.ToString
            資料庫_tb.Text = 資料庫_dgv.Rows(e.RowIndex).Cells("代表庫").Value.ToString : 帳號_tb.Text = 資料庫_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
            密碼_tb.Text = 資料庫_dgv.Rows(e.RowIndex).Cells("密碼").Value.ToString : 可執行_cb.Checked = 資料庫_dgv.Rows(e.RowIndex).Cells("可執行").Value
            If 可執行_cb.Checked = True Then
                SQL_連線字串_資料庫() : 分母 = MAX_nud.Value : 圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
            Else
                伺服器狀態_dgv.DataSource = Nothing : 圖片資料庫管理_dgv.DataSource = Nothing
                圖片資料庫管理_dgv.DataSource = Nothing : 文件資料庫管理_dgv.DataSource = Nothing
            End If
        End If
    End Sub
    Private Sub 伺服器狀態_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 伺服器狀態_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選擇_tb.Text = 伺服器狀態_dgv(0, e.RowIndex).Value.ToString : Set_資料庫狀態() : End If
    End Sub
    Private Sub 圖片資料庫管理_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
        圖片資料庫名稱_tb.Text = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : 是否可用_ch.Checked = 圖片資料庫管理_dgv(1, e.RowIndex).Value
    End Sub
    Private Sub 文件資料庫管理_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 文件資料庫管理_dgv.CellClick
        文件資料庫名稱_tb.Text = 文件資料庫管理_dgv(0, e.RowIndex).Value.ToString : 是否可用1_ch.Checked = 文件資料庫管理_dgv(1, e.RowIndex).Value
    End Sub
    Private Sub 伺服器狀態_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 伺服器狀態_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 伺服器狀態_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態_dgv(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(伺服器狀態_dgv.RowHeadersVisible, 伺服器狀態_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 伺服器狀態_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 資料庫清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 資料庫清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            選擇_tb.Text = 資料庫清單1_dgv(0, e.RowIndex).Value.ToString : Set_資料庫狀態()
        End If
    End Sub
    Private Sub 圖片資料庫管理修改_bt_Click(sender As Object, e As EventArgs) Handles 圖片資料庫管理修改_bt.Click
        Dim 啟動 As Boolean = False
        If 選擇_tb.Text = "天盾國際管理系統資料庫" Then : SQL_連線字串_圖片資料庫()
            SQL_圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_圖片資料庫管理查詢修改() : Else : SQL_圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("修改完成!!!")
        ElseIf 選擇_tb.Text = "METO-MES-SYS" Then : SQL_連線字串_圖片資料庫()
            SQL_圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_圖片資料庫管理查詢修改() : Else : SQL_圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("修改完成!!!")
        ElseIf 選擇_tb.Text = "OW-MSN" Then : SQL_連線字串_圖片資料庫()
            SQL_圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_圖片資料庫管理查詢修改() : Else : SQL_圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("修改完成!!!")
        ElseIf 選擇_tb.Text = "Huang_PH_SYS" Then : SQL_連線字串_圖片資料庫()
            SQL_圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_圖片資料庫管理查詢修改() : Else : SQL_圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("修改完成!!!")
        ElseIf 選擇_tb.Text = "PROJECT-SYS" Then : SQL_連線字串_圖片資料庫()
            SQL_工程圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_工程圖片資料庫管理查詢修改() : Else : SQL_工程圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("存檔完成!!")
        ElseIf 選擇_tb.Text = "Sh-To-PROJECT-SYS" Then : SQL_連線字串_圖片資料庫()
            SQL_工程圖片資料庫管理查詢1()
            If dr.Read() Then : SQL_工程圖片資料庫管理查詢修改() : Else : SQL_工程圖片資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("存檔完成!!")
        End If
    End Sub
    Private Sub 文件資料庫管理修改_bt_Click(sender As Object, e As EventArgs) Handles 文件資料庫管理修改_bt.Click
        Dim 啟動 As Boolean = False
        If 選擇_tb.Text = "PROJECT-SYS" Then : SQL_連線字串_圖片資料庫()
            SQL_工程文件資料庫管理查詢1()
            If dr.Read() Then : SQL_工程文件資料庫管理查詢修改() : Else : SQL_工程文件資料庫管理查詢新增() : End If : Set_資料庫狀態() : MsgBox("存檔完成!!")
        End If
    End Sub
    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
        Try
            SQL_連線字串_圖片資料庫() : PA = 選擇_tb.Text : SQL_主資料庫LOG檔案截斷() : 重新讀取_bt.PerformClick()
            SQL_連線字串_圖片資料庫() : 分母 = MAX_nud.Value : 圖庫限制 = MAX_nud.Value : Set_伺服器狀態() : MsgBox("伺服器截斷完成!!!")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        資料庫_dgv.DataSource = Nothing
        資料庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        資料庫_dgv.ColumnHeadersHeight = 25 : 資料庫_dgv.AllowUserToAddRows = False
        資料庫_dgv.Columns(0).FillWeight = 30 : 資料庫_dgv.Columns(1).FillWeight = 100 : 資料庫_dgv.Columns(2).FillWeight = 50
        資料庫_dgv.Columns(3).FillWeight = 30 : 資料庫_dgv.Columns(4).Visible = False : 資料庫_dgv.Columns(5).Visible = False
        For i As Integer = 0 To 資料庫_dgv.Rows.Count - 1 : 資料庫_dgv.Rows.RemoveAt(0) : Next

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "中國-巨益" : 資料庫_dgv.Rows(0).Cells("位置").Value = "m192.168.10.5,1433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "METO-MES-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 0
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "中國-天盾" : 資料庫_dgv.Rows(0).Cells("位置").Value = "192.168.0.107,1433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "天盾國際管理系統資料庫" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 0
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "美國-租任" : 資料庫_dgv.Rows(0).Cells("位置").Value = "mssql-147629-0.cloudclusters.net,12711"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "GF01-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 0
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "印尼-鴻時" : 資料庫_dgv.Rows(0).Cells("位置").Value = "36.64.59.26,2433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "HX-GPS-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-華燊" : 資料庫_dgv.Rows(0).Cells("位置").Value = "61.216.22.26,2433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "WS-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-雅邸" : 資料庫_dgv.Rows(0).Cells("位置").Value = "180.218.213.39,4567"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "YD-SERVER" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-井富" : 資料庫_dgv.Rows(0).Cells("位置").Value = "118.163.161.249,2433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "OW-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-順通" : 資料庫_dgv.Rows(0).Cells("位置").Value = "210.61.41.234,4567"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "Sh-To-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-電控" : 資料庫_dgv.Rows(0).Cells("位置").Value = "106.1.49.218,2433"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "GCM-SCADA" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-GA" : 資料庫_dgv.Rows(0).Cells("位置").Value = "106.1.49.218,4567"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "GA-LOG-DB" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-麟洛" : 資料庫_dgv.Rows(0).Cells("位置").Value = "106.1.48.106,4567"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "Huang_PH_SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "Lee0911274990"

        資料庫_dgv.Rows.Insert(0)
        資料庫_dgv.Rows(0).Cells("地點").Value = "台灣-萬丹" : 資料庫_dgv.Rows(0).Cells("位置").Value = "180.177.181.162,5264"
        資料庫_dgv.Rows(0).Cells("代表庫").Value = "BIFENG-ERP-SYS" : 資料庫_dgv.Rows(0).Cells("可執行").Value = 1
        資料庫_dgv.Rows(0).Cells("帳號").Value = "b70340" : 資料庫_dgv.Rows(0).Cells("密碼").Value = "0911274990"
    End Sub
End Class