GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/09-資料庫系統管理/系統通用變數管理.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統通用變數管理
    Dim GGHH As Integer : Dim FFGG As Integer
    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 = 表頭(164) : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
        伺服器狀態_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        SQL_系統閒置時間設定()
        If dr.Read() Then : TextBox2.Text = dr("timeExit") : TextBox1.Text = dr("timeExit2") : End If : conn.Close()
        GGHH = Val(TextBox2.Text) : FFGG = Val(TextBox1.Text)
        TextBox3.Text = 密碼時限
        分母 = MAX_nud.Value : 工程圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
        Set_伺服器1清單()
    End Sub
    Private Sub 系統通用變數管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        '介面_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '控件_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '介面1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '控件1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '內容1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '內容_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        伺服器狀態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        工程圖片資料庫管理_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        工程文件資料庫管理_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_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
            圖片資料庫名稱_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 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        PA1 = TextBox2.Text : PA2 = TextBox1.Text : PA3 = GGHH : PA4 = FFGG
        SQL_系統閒置時間設定修改()
        GGHH = Val(TextBox2.Text) : FFGG = Val(TextBox1.Text) : timeExit = GGHH : timeExit2 = FFGG
        MsgBox("修改完畢")
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        分母 = MAX_nud.Value : 工程圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
    End Sub
End Class