GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/資料庫系統管理/系統通用變數管理.vb

Public Class 系統通用變數管理
    Private Sub Set_伺服器狀態()
        Dim ds8 As New DataSet : 伺服器狀態_dgv.DataSource = Nothing : ds8.Clear()
        伺服器狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        伺服器狀態_dgv.ColumnHeadersHeight = 25
        伺服器狀態_dgv.AllowUserToAddRows = False
        Label2.Text = "主計算伺服器 : " & 登入人IP4
        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 = 100 : 伺服器狀態_dgv.Columns(1).FillWeight = 200
        伺服器狀態_dgv.Columns(2).FillWeight = 50 : 伺服器狀態_dgv.Columns(3).FillWeight = 50
        伺服器狀態_dgv.Columns(4).Visible = False
    End Sub
    Private Sub Set_進度條顯示()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 130,
            .DataPropertyName = "容量"
        }
        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
        伺服器狀態_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub Set_備份伺服器狀態()
        Dim ds8 As New DataSet : 伺服器狀態1_dgv.DataSource = Nothing : ds8.Clear()
        伺服器狀態1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        伺服器狀態1_dgv.ColumnHeadersHeight = 25
        伺服器狀態1_dgv.AllowUserToAddRows = False
        Label3.Text = "備份算伺服器 : " & 登入人IP5
        SQL_備份資料庫狀態()
        da.Fill(ds8) : 伺服器狀態1_dgv.DataSource = ds8.Tables(0) : conn.Close()
        Set_進度條顯示1()
        伺服器狀態1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
        伺服器狀態1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態1_dgv.Columns(0).FillWeight = 100 : 伺服器狀態1_dgv.Columns(1).FillWeight = 200
        伺服器狀態1_dgv.Columns(2).FillWeight = 50 : 伺服器狀態1_dgv.Columns(3).FillWeight = 50
        伺服器狀態1_dgv.Columns(4).Visible = False
    End Sub
    Private Sub Set_進度條顯示1()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 130,
            .DataPropertyName = "容量"
        }
        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
        伺服器狀態1_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub Set_主伺服器狀態()
        Dim ds8 As New DataSet : 伺服器狀態2_dgv.DataSource = Nothing : ds8.Clear()
        伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        伺服器狀態2_dgv.ColumnHeadersHeight = 25
        伺服器狀態2_dgv.AllowUserToAddRows = False
        Label1.Text = "主伺服器 : " & 登入人IP_備用
        SQL_主資料庫狀態()
        da.Fill(ds8) : 伺服器狀態2_dgv.DataSource = ds8.Tables(0) : conn.Close()
        Set_進度條顯示2()
        伺服器狀態2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
        伺服器狀態2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        伺服器狀態2_dgv.Columns(0).FillWeight = 100 : 伺服器狀態2_dgv.Columns(1).FillWeight = 200
        伺服器狀態2_dgv.Columns(2).FillWeight = 50 : 伺服器狀態2_dgv.Columns(3).FillWeight = 50
        伺服器狀態2_dgv.Columns(4).Visible = False
    End Sub
    Private Sub Set_進度條顯示2()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 130,
            .DataPropertyName = "容量"
        }
        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
        伺服器狀態2_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub Set_伺服器1清單()
        Dim ds8 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds8.Clear()
        資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        資料庫清單1_dgv.ColumnHeadersHeight = 25
        資料庫清單1_dgv.AllowUserToAddRows = False
        SQL_伺服器1清單()
        da.Fill(ds8) : 資料庫清單1_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_伺服器2清單()
        Dim ds8 As New DataSet : 資料庫清單2_dgv.DataSource = Nothing : ds8.Clear()
        資料庫清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        資料庫清單2_dgv.ColumnHeadersHeight = 25
        資料庫清單2_dgv.AllowUserToAddRows = False
        SQL_伺服器2清單()
        da.Fill(ds8) : 資料庫清單2_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_伺服器3清單()
        Dim ds8 As New DataSet : 資料庫清單3_dgv.DataSource = Nothing : ds8.Clear()
        資料庫清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        資料庫清單3_dgv.ColumnHeadersHeight = 25
        資料庫清單3_dgv.AllowUserToAddRows = False
        SQL_伺服器3清單()
        da.Fill(ds8) : 資料庫清單3_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If 不用WEB = True Then
            Me.MdiParent = GA_ERP_SYS_Old : Me.WindowState = 2 : Me.AutoScroll = True
        Else
            Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        End If
        重新讀取_bt.PerformClick()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        登入人IP4 = "106.1.49.218,4567" : 業務帳號2 = "B70340" : 業務密碼2 = "Lee0911274990"
        登入人IP5 = "106.1.49.218,2433" : 業務帳號3 = "B70340" : 業務密碼3 = "Lee0911274990"
        子SQL名稱2 = "GA-000" : 子SQL名稱3 = "GA-000"
        SQL_連線字串_備份1() : SQL_連線字串_備份2()
        Set_伺服器狀態() : Set_備份伺服器狀態() : Set_主伺服器狀態() : Set_伺服器1清單() : Set_伺服器2清單() : Set_伺服器3清單()
    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_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態1_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 伺服器狀態1_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 伺服器狀態1_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態1_dgv(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(伺服器狀態1_dgv.RowHeadersVisible, 伺服器狀態1_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 伺服器狀態1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 伺服器狀態2_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態2_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 伺服器狀態2_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 伺服器狀態2_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態2_dgv(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(伺服器狀態2_dgv.RowHeadersVisible, 伺服器狀態2_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 伺服器狀態2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態2_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub LOG檔截斷_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷_bt.Click
        For I As Integer = 0 To 資料庫清單3_dgv.Rows.Count - 1
            PA = 資料庫清單3_dgv(0, I).Value.ToString : 子SQL名稱3 = 資料庫清單3_dgv(0, I).Value.ToString
            SQL_連線字串_備份2() : SQL_備份資料庫LOG檔案截斷()
        Next
        重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
    End Sub
    Private Sub LOG檔截斷1_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷1_bt.Click
        For I As Integer = 0 To 資料庫清單2_dgv.Rows.Count - 1
            PA = 資料庫清單2_dgv(0, I).Value.ToString : 子SQL名稱2 = 資料庫清單2_dgv(0, I).Value.ToString
            SQL_連線字串_備份1() : SQL_計算資料庫LOG檔案截斷()
        Next
        重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
    End Sub
    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
        For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
            PA = 資料庫清單1_dgv(0, I).Value.ToString : SQL_主資料庫LOG檔案截斷()
        Next
        重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
    End Sub
End Class