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

Public Class 系統通用變數管理
    ReadOnly 對話框(4) As String

    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        Panel1.Visible = False : 對話框(1) = "LOG檔截斷完成!!"
    End Sub
    Private Sub 系統通用變數管理_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        SQL_系統預設值()
        If dr.Read() Then

            行政簽核_tb.Text = dr("行政採購二級") : 建築簽核_tb.Text = dr("建築採購二級")
            NUP_1.Value = dr("行政採購二級") : NUP_2.Value = dr("建築採購二級")
            NUP_3.Value = dr("比例1") : NUP_4.Value = dr("比例2") : NUP_5.Value = dr("比例3") : MAX_nud.Value = dr("圖片伺服器上限") : 分母 = dr("圖片伺服器上限")
        End If
        Set_伺服器狀態() : Set_伺服器1清單()
        伺服器狀態_dgv.EnableHeadersVisualStyles = True : 伺服器狀態_dgv.BackgroundColor = Color.White : 伺服器狀態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
        伺服器狀態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
        伺服器狀態_dgv.DefaultCellStyle.BackColor = Color.White : 伺服器狀態_dgv.DefaultCellStyle.ForeColor = Color.Black
    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_伺服器狀態()
        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
    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 LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
        Try
            For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
                PA = 資料庫清單1_dgv(0, I).Value.ToString : 圖片庫 = PA : SQL_連線字串_圖片資料庫() : SQL_主資料庫LOG檔案截斷()
            Next
            重新讀取_bt.PerformClick() : MGB(對話框(1), 1)
        Catch ex As Exception : MsgBox(ex.Message) : End Try
        'For i As Integer = 0 To 3
        '    If i = 0 Then
        '        PA = "HX_SCADA" : SQL_主資料庫LOG檔案截斷()
        '    ElseIf i = 1 Then
        '        PA = "2022-HX-SCADA-AREA1" : SQL_主資料庫LOG檔案截斷()
        '    ElseIf i = 2 Then
        '        PA = "2023-HX-SCADA-AREA1" : SQL_主資料庫LOG檔案截斷()
        '    ElseIf i = 3 Then
        '        PA = "2024-HX-SCADA-AREA1" : SQL_主資料庫LOG檔案截斷()
        '    End If
        'Next
        'PA = "GF00-ERP-SYS" : SQL_主資料庫LOG檔案截斷()
        '重新讀取_bt.PerformClick()
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        分母 = MAX_nud.Value : Set_伺服器狀態()
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_系統預測值修改()
        行政採購簽核級別基數 = NUP_2.Value : 建築採購簽核級別基數 = NUP_1.Value
        比例1 = NUP_3.Value : 比例2 = NUP_4.Value : 比例3 = NUP_5.Value : 分母 = MAX_nud.Value
        If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    End Sub
    Private Sub NUP_2_ValueChanged(sender As Object, e As EventArgs) Handles NUP_2.ValueChanged
        建築簽核_tb.Text = NUP_2.Value
    End Sub
    Private Sub NUP_1_ValueChanged(sender As Object, e As EventArgs) Handles NUP_1.ValueChanged
        行政簽核_tb.Text = NUP_1.Value
    End Sub


End Class