HX-PGS-ERP-SYS-SIU/09、資料庫系統管理/系統通用變數管理.vb

Option Strict Off
Imports System.IO
Imports System.Windows.Forms.DataVisualization.Charting

Public Class 系統通用變數管理
    ReadOnly ds4 As New DataSet
    Dim GGHH As Integer : Dim FFGG As Integer
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim 對話框(4) As String
    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 ds9 As New DataSet : 工程圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
        工程圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        工程圖片資料庫管理_dgv.ColumnHeadersHeight = 25 : 工程圖片資料庫管理_dgv.AllowUserToAddRows = False
        SQL_工程圖片資料庫管理查詢() : da.Fill(ds9) : 工程圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
        工程圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 工程圖片資料庫管理_dgv.Columns(1).FillWeight = 50
    End Sub
    Private Sub Set_工程文件資料庫狀態()
        Dim ds9 As New DataSet : 工程文件資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
        工程文件資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        工程文件資料庫管理_dgv.ColumnHeadersHeight = 25 : 工程文件資料庫管理_dgv.AllowUserToAddRows = False
        SQL_工程文件資料庫管理查詢() : da.Fill(ds9) : 工程文件資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
        工程文件資料庫管理_dgv.Columns(0).FillWeight = 100 : 工程文件資料庫管理_dgv.Columns(1).FillWeight = 50
    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 = 表頭(164) : Col.Name = "容量" : Col.DataPropertyName = 表頭(164)
        伺服器狀態_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub Set_系統使用情況1()
        Dim ds8 As New DataSet : 使用情況_dgv.DataSource = Nothing : ds8.Clear()
        使用情況_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        使用情況_dgv.ColumnHeadersHeight = 25 : 使用情況_dgv.AllowUserToAddRows = False
        If 含設計_cb.Checked = False Then : BL = False : Else : BL = True : End If
        SQL_系統使用情況1() : da.Fill(ds8) : 使用情況_dgv.DataSource = ds8.Tables(0) : conn.Close()
        使用情況_dgv.Columns(0).FillWeight = 50 : 使用情況_dgv.Columns(2).FillWeight = 30 : 使用情況_dgv.Columns(3).FillWeight = 35
        For I As Integer = 0 To 使用情況_dgv.Rows.Count - 1
            If Strings.Left(使用情況_dgv.Rows(I).Cells(0).Value.ToString, 1) = "H" Then : 使用情況_dgv.Rows(I).Cells(0).Value = "PC-ERP"
            ElseIf Strings.Left(使用情況_dgv.Rows(I).Cells(0).Value.ToString, 1) = "A" Then : 使用情況_dgv.Rows(I).Cells(0).Value = "APP-ERP"
            End If
        Next
    End Sub
    Private Sub Set_系統使用情況2()
        Dim ds8 As New DataSet : 詳細情況_dgv.DataSource = Nothing : ds8.Clear()
        詳細情況_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        詳細情況_dgv.ColumnHeadersHeight = 25 : 詳細情況_dgv.AllowUserToAddRows = False
        If 含設計_cb.Checked = False Then : BL = False : Else : BL = True : End If
        SQL_系統使用情況2() : da.Fill(ds8) : 詳細情況_dgv.DataSource = ds8.Tables(0) : conn.Close()
        詳細情況_dgv.Columns(0).FillWeight = 250
    End Sub
    Private Sub 語言轉換讀取()
        Me.Text = 系統語言字典("H001-152-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 圖片資料庫名稱_lb.Text = 系統語言字典("H704-128-" & 語言)
        第二段閒置時間_lb.Text = 系統語言字典("H704-126-" & 語言) : 密碼重設天數_lb.Text = 系統語言字典("H704-124-" & 語言) : 第一段閒置時間_lb.Text = 系統語言字典("H704-125-" & 語言)
        重新讀取_bt.Text = 系統語言字典("H704-121-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H704-120-" & 語言) : 秒2_lb.Text = 系統語言字典("H704-119-" & 語言)
        秒1_lb.Text = 系統語言字典("H704-118-" & 語言) : 是否可用_ch.Text = 系統語言字典("H704-117-" & 語言) : 建築採購簽核二級金額基數_lb.Text = 系統語言字典("H704-116-" & 語言)
        系統閒置時間控制_gb.Text = 系統語言字典("H704-115-" & 語言) : 伺服器_lb.Text = 系統語言字典("H704-109-" & 語言) : 行政採購簽核二級金額基數_lb.Text = 系統語言字典("H704-108-" & 語言)
        比例3_lb.Text = 系統語言字典("H704-107-" & 語言) : 比例2_lb.Text = 系統語言字典("H704-106-" & 語言) : 特別功能_bt.Text = 系統語言字典("H704-105-" & 語言)
        比例1_lb.Text = 系統語言字典("H704-105-" & 語言) : 文件資料庫名稱_lb.Text = 系統語言字典("H704-103-" & 語言) : 天_lb.Text = 系統語言字典("H704-102-" & 語言)
        系統通用變數_tab.Text = 系統語言字典("H704-131-" & 語言) : 系統使用統計_tab.Text = 系統語言字典("H704-132-" & 語言)
        表頭(165) = 系統語言字典("H704-100-" & 語言) : 表頭(166) = 系統語言字典("H704-101-" & 語言) : 表頭(160) = 系統語言字典("H704-110-" & 語言)
        表頭(161) = 系統語言字典("H704-111-" & 語言) : 表頭(164) = 系統語言字典("H704-112-" & 語言) : 表頭(163) = 系統語言字典("H704-113-" & 語言)
        表頭(162) = 系統語言字典("H704-114-" & 語言) : 對話框(0) = 系統語言字典("G000-119-" & 語言) : 對話框(1) = 系統語言字典("H704-130-" & 語言)
        對話框(2) = 系統語言字典("G000-110-" & 語言) : 對話框(3) = 系統語言字典("G000-170-" & 語言)
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, 對話框(2))
    End Sub
    Private Sub 閒置時間修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 閒置時間修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.閒置時間修改_bt, 對話框(2))
    End Sub
    Private Sub 圖片資料庫管理修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖片資料庫管理修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.圖片資料庫管理修改_bt, 對話框(2))
    End Sub
    Private Sub 文件資料庫管理修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 文件資料庫管理修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.文件資料庫管理修改_bt, 對話框(2))
    End Sub
    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '------DGV清單進度條參數設定--------------------------------------------------------------------------
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(704) = True : 介面 = "H704" : 語言轉換讀取() : 顯示說明(999, False)
        密碼重設天數_tb.Text = 密碼時限 : Panel3.SendToBack() : 首次開啟 = True
        系統通用變數管理_Size() : 年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1
    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("行政採購二級") : 建築簽核_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清單() : Set_工程圖片資料庫狀態() : Set_工程文件資料庫狀態() : Set_系統使用情況1() : 彙總()
        SQL_系統閒置時間設定讀取()
        If dr.Read() Then : 時間1_tb.Text = dr("timeExit") : 時間2_tb.Text = dr("timeExit2") : End If : conn.Close()
        GGHH = Val(時間1_tb.Text) : FFGG = Val(時間2_tb.Text) : 首次開啟 = False
    End Sub
    Private Sub 系統通用變數管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        系統通用變數管理_Size()
    End Sub
    Private Sub 系統通用變數管理_Size()
        MyMod.清單字體大小調整()
        使用情況_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        詳細情況_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        伺服器狀態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        工程圖片資料庫管理_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        工程文件資料庫管理_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 建築物料請購單生成_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(704) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H704" : 語言轉換讀取() : Set_伺服器狀態() : Set_工程圖片資料庫狀態() : Set_工程文件資料庫狀態()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 使用情況_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 使用情況_dgv.CellClick
        If e.RowIndex = -1 Then : Else : PA20 = 使用情況_dgv(3, e.RowIndex).Value.ToString : Set_系統使用情況2() : 彙總1() : End If
    End Sub
    Private Sub 工程圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 工程圖片資料庫管理_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片資料庫名稱_tb.Text = 工程圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : 是否可用_ch.Checked = 工程圖片資料庫管理_dgv(1, e.RowIndex).Value
        End If
    End Sub
    Private Sub 工程文件資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 工程文件資料庫管理_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            文件資料庫名稱_tb.Text = 工程文件資料庫管理_dgv(0, e.RowIndex).Value.ToString : 是否可用1_ch.Checked = 工程文件資料庫管理_dgv(1, e.RowIndex).Value
        End If
    End Sub
    Private Sub 伺服器狀態_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 伺服器狀態_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片資料庫名稱_tb.Text = 伺服器狀態_dgv(0, e.RowIndex).Value.ToString : 文件資料庫名稱_tb.Text = 伺服器狀態_dgv(0, e.RowIndex).Value.ToString
            是否可用_ch.Checked = False : 是否可用1_ch.Checked = False
        End If
    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 年份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份2_cb.SelectedIndexChanged
        If 首次開啟 = False Then : 重新讀取1_bt.PerformClick() : End If
    End Sub
    Private Sub 年份2_cb_Click(sender As Object, e As EventArgs) Handles 年份2_cb.Click
        CB選擇清單(年份2_cb, 年份2_cb.Text)
    End Sub
    Private Sub 月份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份2_cb.SelectedIndexChanged
        If 首次開啟 = False Then : 重新讀取1_bt.PerformClick() : End If
    End Sub
    Private Sub 月份2_cb_Click(sender As Object, e As EventArgs) Handles 月份2_cb.Click
        CB選擇清單(月份2_cb, 月份2_cb.Text)
    End Sub
    Private Sub 重新讀取1_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取1_bt.Click
        Set_系統使用情況1() : 詳細情況_dgv.DataSource = Nothing : 彙總()
    End Sub
    Private Sub 閒置時間修改_bt_Click(sender As Object, e As EventArgs) Handles 閒置時間修改_bt.Click
        PA1 = GGHH : PA2 = FFGG : SQL_系統閒置時間設定修改() : conn.Close()
        GGHH = Val(時間1_tb.Text) : FFGG = Val(時間2_tb.Text) : timeExit = GGHH : timeExit2 = FFGG : MGB(對話框(0), 1)
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_系統預測值修改()
        密碼時限 = 密碼重設天數_tb.Text : 行政採購簽核級別基數 = NUP_2.Value : 建築採購簽核級別基數 = NUP_1.Value
        比例1 = NUP_3.Value : 比例2 = NUP_4.Value : 比例3 = NUP_5.Value : 分母 = MAX_nud.Value : MGB(對話框(0), 1)
    End Sub
    Private Sub 特別功能_bt_Click_2(sender As Object, e As EventArgs) Handles 特別功能_bt.Click
        MGB(對話框(3), 1)
    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
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        分母 = MAX_nud.Value : 工程圖庫限制 = MAX_nud.Value : Set_伺服器狀態() : 修改_bt.PerformClick()
    End Sub
    Private Sub 圖片資料庫管理修改_bt_Click(sender As Object, e As EventArgs) Handles 圖片資料庫管理修改_bt.Click
        SQL_工程圖片資料庫管理查詢1()
        If dr.Read() Then : SQL_工程圖片資料庫管理查詢修改() : Else : SQL_工程圖片資料庫管理查詢新增() : End If : Set_工程圖片資料庫狀態() : MGB(對話框(0), 1)
    End Sub
    Private Sub 文件資料庫管理修改_bt_Click(sender As Object, e As EventArgs) Handles 文件資料庫管理修改_bt.Click
        SQL_工程文件資料庫管理查詢1()
        If dr.Read() Then : SQL_工程文件資料庫管理查詢修改() : Else : SQL_工程文件資料庫管理查詢新增() : End If : Set_工程文件資料庫狀態() : MGB(對話框(0), 1)
    End Sub
    Private Sub 彙總()
        Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0) : Chart1.Series.Clear()
        Chart1.ChartAreas(0).AxisX.Minimum = 0
        Chart1.ChartAreas(0).AxisX.CustomLabels.Clear() ' 清除现有的自定义标签
        Chart1.Series.Add("介面") : Chart1.Series("介面").ChartType = SeriesChartType.Line
        Chart1.Series.Add("介面.") : Chart1.Series("介面.").ChartType = SeriesChartType.Column
        Dim DF As Integer
        If 使用情況_dgv.Rows.Count > 8 Then : DF = 8 : Else : DF = 使用情況_dgv.Rows.Count - 1 : End If
        For i As Integer = 0 To DF
            Chart1.Series("介面.").Points.AddXY(使用情況_dgv.Rows(i).Cells("功能介面").Value.ToString, CLng(使用情況_dgv.Rows(i).Cells("使用次數").Value.ToString))
            Chart1.Series("介面").Points.AddXY(使用情況_dgv.Rows(i).Cells("功能介面").Value.ToString, CLng(使用情況_dgv.Rows(i).Cells("使用次數").Value.ToString))
        Next
    End Sub
    Private Sub 彙總1()
        Chart2.ChartAreas.Clear() : Chart2.ChartAreas.Add(0) : Chart2.Series.Clear()
        Chart2.ChartAreas(0).AxisX.Minimum = 0
        Chart2.ChartAreas(0).AxisX.CustomLabels.Clear() ' 清除现有的自定义标签
        Chart2.Series.Add("使用者") : Chart2.Series("使用者").ChartType = SeriesChartType.Line
        Chart2.Series.Add("使用者.") : Chart2.Series("使用者.").ChartType = SeriesChartType.Column
        Dim DF As Integer
        If 詳細情況_dgv.Rows.Count > 8 Then : DF = 8 : Else : DF = 詳細情況_dgv.Rows.Count - 1 : End If
        For i As Integer = 0 To DF
            Chart2.Series("使用者.").Points.AddXY(詳細情況_dgv.Rows(i).Cells("使用者").Value.ToString, CLng(詳細情況_dgv.Rows(i).Cells("使用次數").Value.ToString))
            Chart2.Series("使用者").Points.AddXY(詳細情況_dgv.Rows(i).Cells("使用者").Value.ToString, CLng(詳細情況_dgv.Rows(i).Cells("使用次數").Value.ToString))
        Next
    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
    End Sub

    Private Sub 含設計_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 含設計_cb.CheckedChanged
        Set_系統使用情況1() : If PA20 <> "" Then : Set_系統使用情況2() : End If : 彙總1()
    End Sub
End Class