GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/09、資料庫系統管理/系統通用變數管理.vb

Option Strict Off
Imports System.Net
Imports System.IO
Public Class 系統通用變數管理
    ReadOnly ds4 As New DataSet
    Dim GGHH As Integer : Dim FFGG As Integer
    ReadOnly 對話框(4) As String
    Private Sub Set_伺服器1清單()
        Try
            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()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    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_介面()
        Dim ds2 As New DataSet : 介面_dgv.DataSource = Nothing : ds2.Clear()
        介面_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        介面_dgv.ColumnHeadersHeight = 25
        介面_dgv.AllowUserToAddRows = False
        SQL_系統語言控制_介面()
        da.Fill(ds2) : 介面_dgv.DataSource = ds2.Tables(0) : conn.Close()
        介面_dgv.Columns(0).FillWeight = 30 : 介面_dgv.Columns(1).FillWeight = 100
    End Sub
    Private Sub Set_介面1()
        Dim ds5 As New DataSet : 介面1_dgv.DataSource = Nothing : ds5.Clear()
        介面1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        介面1_dgv.ColumnHeadersHeight = 25
        介面1_dgv.AllowUserToAddRows = False
        SQL_系統語言控制_介面()
        da.Fill(ds5) : 介面1_dgv.DataSource = ds5.Tables(0) : conn.Close()
        介面1_dgv.Columns(0).FillWeight = 30 : 介面1_dgv.Columns(1).FillWeight = 100
    End Sub
    Private Sub Set_控件()
        Dim ds1 As New DataSet : 控件_dgv.DataSource = Nothing : ds1.Clear()
        控件_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控件_dgv.ColumnHeadersHeight = 25
        控件_dgv.AllowUserToAddRows = False
        PA = 介面_tb.Text
        SQL_系統語言控制_控件()
        da.Fill(ds1) : 控件_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_控件1()
        Dim ds6 As New DataSet : 控件1_dgv.DataSource = Nothing : ds6.Clear()
        控件1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控件1_dgv.ColumnHeadersHeight = 25
        控件1_dgv.AllowUserToAddRows = False
        PA = 介面1_tb.Text
        SQL_系統語言控制_控件()
        da.Fill(ds6) : 控件1_dgv.DataSource = ds6.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_內容()
        Dim ds3 As New DataSet : 內容_dgv.DataSource = Nothing : ds3.Clear()
        內容_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        內容_dgv.ColumnHeadersHeight = 25
        內容_dgv.AllowUserToAddRows = False
        PA = 介面_tb.Text : PA1 = 控件_tb.Text
        SQL_系統語言控制_內容()
        da.Fill(ds3) : 內容_dgv.DataSource = ds3.Tables(0) : conn.Close()
        內容_dgv.Columns(0).FillWeight = 10 : 內容_dgv.Columns(1).FillWeight = 90
        內容_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        內容_dgv.Columns(0).ReadOnly = True
    End Sub
    Private Sub Set_內容1()
        Dim ds7 As New DataSet : 內容1_dgv.DataSource = Nothing : ds7.Clear()
        內容1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        內容1_dgv.ColumnHeadersHeight = 25
        內容1_dgv.AllowUserToAddRows = False
        PA = 介面1_tb.Text : PA1 = 控件1_tb.Text
        SQL_系統語言控制_內容()
        da.Fill(ds7) : 內容1_dgv.DataSource = ds7.Tables(0) : conn.Close()
        內容1_dgv.Columns(0).FillWeight = 10 : 內容1_dgv.Columns(1).FillWeight = 90
        內容1_dgv.Columns(0).ReadOnly = True : 內容1_dgv.Columns(1).ReadOnly = True
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds4.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "系統通用變數管理" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統介面_lb" Then : 系統介面_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "介面控件_lb" Then : 介面控件_lb.Text = 語言_dgv("內容", i).Value.ToString
                介面控件1_lb.Text = 語言_dgv("內容", i).Value.ToString : 介面控件2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統閒置時間控制_gb" Then : 系統閒置時間控制_gb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "第一段閒置時間_lb" Then : 第一段閒置時間_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "第二段閒置時間_lb" Then : 第二段閒置時間_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "秒1_lb" Then : 秒1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "秒2_lb" Then : 秒2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "密碼重設天數_lb" Then : 密碼重設天數_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "天_lb" Then : 天_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政採購簽核二級金額基數_lb" Then : 行政採購簽核二級金額基數_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築採購簽核二級金額基數_lb" Then : 建築採購簽核二級金額基數_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "重新整理_tsm" Then : 重新整理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "介面_dgv_介面" Then : 表頭(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "控件_dgv_控件" Then : 表頭(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "內容_dgv_語言" Then : 表頭(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "內容_dgv_內容" Then : 表頭(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "檔案名稱_lb" Then : 檔案名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "比例1_lb" Then : 比例1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "比例2_lb" Then : 比例2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "比例3_lb" Then : 比例3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "特別功能_bt" Then : 特別功能_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統通用變數管理_tab" Then : 系統通用變數_tab.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統預言設定_tab" Then : 系統預言設定_tab.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器_lb" Then : 伺服器_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "重新讀取_bt" Then : 重新讀取_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器狀態_dgv_資料庫" Then : 表頭(160) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器狀態_dgv_實體檔案" Then : 表頭(161) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器狀態_dgv_檔案類" Then : 表頭(162) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器狀態_dgv_檔案狀" Then : 表頭(163) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器狀態_dgv_檔案大小" Then : 表頭(164) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "圖片資料庫名稱_lb" Then : 圖片資料庫名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "是否可用_ch" Then : 是否可用_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "是否可用_ch" Then : 是否可用1_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程圖片_dgv_工程圖片資料庫" Then : 表頭(165) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程圖片_dgv_是否鎖定" Then : 表頭(166) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文件資料庫名稱_lb" Then : 文件資料庫名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統介面1_lb" Then : 系統介面1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文字提醒1_lb" Then : 文字提醒1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文字提醒_lb" Then : 文字提醒_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '--------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "語言1_lb" Then : 語言1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "內容設定1_lb" Then : 內容設定1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "語言_lb" Then : 語言_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "內容設定_lb" Then : 內容設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
    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" : 語言轉換讀取()
        介面_tb.Enabled = False : 檔案讀取_tb.Visible = False : 控件_tb.Enabled = False : 語言_tb.Enabled = False : 密碼重設天數_tb.Text = 密碼時限
        介面1_tb.Enabled = False : 控件1_tb.Enabled = False : 語言1_tb.Enabled = False

        MyModule1.清單字體大小調整()
        介面_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)
        介面1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        控件1_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 系統通用變數管理_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_工程文件資料庫狀態()
        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)
        Set_介面() : Set_介面1() : Set_控件() : Set_控件1() : Set_內容() : Set_內容1()

        Target1 = Target & AA(4) & "/"
        FTP資料夾_wb.Url = New Uri(Target1)
        本機資料夾_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
        If gUserName <> "李協叡" Then
            圖檔入系統_bt.Enabled = False : 圖檔修改_bt.Enabled = False
        End If
    End Sub
    Private Sub 系統通用變數管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        介面_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)
        介面1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        控件1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        內容1_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 : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H704" : 語言轉換讀取()
        Set_介面() : Set_介面1() : Set_控件() : Set_控件1() : Set_內容() : Set_內容1() : 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_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 Strings.Left(介面_dgv(0, e.RowIndex).Value.ToString, 2) <> Strings.Left(介面_dgv(0, e.RowIndex + 1).Value.ToString, 2) 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 Strings.Left(介面1_dgv(0, e.RowIndex).Value.ToString, 2) <> Strings.Left(介面1_dgv(0, e.RowIndex + 1).Value.ToString, 2) 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 工程圖片資料庫管理_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_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 介面_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            介面_tb.Text = 介面_dgv(1, e.RowIndex).Value.ToString
            介面2_tb.Text = 介面_dgv(1, e.RowIndex).Value.ToString
            Set_控件() : 圖片載入1()
        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 = 介面_dgv(1, e.RowIndex).Value.ToString
            介面1_tb.Text = 介面1_dgv(1, e.RowIndex).Value.ToString
            Set_控件1() : 圖片載入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 : 控件2_tb.Text = 控件_dgv(0, e.RowIndex).Value.ToString
            語言_tb.Text = "" : 內容設定_tb.Text = ""
            Set_內容()
        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
            控件1_tb.Text = 控件1_dgv(0, e.RowIndex).Value.ToString
            語言1_tb.Text = "" : 內容設定1_tb.Text = ""
            Set_內容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 : 內容設定_tb.Text = 內容_dgv(1, e.RowIndex).Value.ToString
        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
            語言1_tb.Text = 內容1_dgv(0, e.RowIndex).Value.ToString : 內容設定1_tb.Text = 內容1_dgv(1, e.RowIndex).Value.ToString
        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 = GGHH : PA2 = FFGG : SQL_系統閒置時間設定修改() : conn.Close()
        GGHH = Val(時間1_tb.Text) : FFGG = Val(時間2_tb.Text) : timeExit = GGHH : timeExit2 = FFGG
        If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    End Sub
    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
                檔案名稱_tb.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        Dim STR2 As Integer = 0
        檔案讀取_tb.Text = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then
        Else
            For i As Integer = 0 To 9999
                Dim STR1 As Integer = Strings.Len(檔案讀取_tb.Text)
                If Strings.Right((檔案讀取_tb.Text), 1) <> "\" Then
                    STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then
                        檔案讀取_tb.Text = ""
                        檔案名稱_tb.Text = ""
                        i = 9999
                    Else
                        檔案讀取_tb.Text = Strings.Left((檔案讀取_tb.Text), STR1)
                    End If
                Else
                    檔案讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
                    檔案名稱_tb.Text = 檔案讀取_tb.Text
                    i = 9999
                End If
            Next
        End If
    End Sub
    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            檔案名稱_tb.AppendText(file + Environment.NewLine)
        Next
    End Sub
    Private Sub 語言修改_bt_Click(sender As Object, e As EventArgs) Handles 語言修改_bt.Click
        For i As Integer = 0 To 2
            PA20 = 內容_dgv(1, i).Value.ToString : PA21 = 內容_dgv(0, i).Value.ToString : SQL_系統語言控制_內容修改()
        Next : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    End Sub
    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub Update_bt_Click(sender As Object, e As EventArgs) Handles Update_bt.Click
        If 控件_tb.Text = "" Then : Else
            SQL_系統語言控制_修改() : Set_介面() : Set_介面1() : Set_控件() : Set_控件1() : Set_內容() : Set_內容1() : conn.Close()
        End If
    End Sub
    Private Sub 圖片載入1()
        介面_pb.Image = Nothing
        SQL_系統通用變數管理_圖片載入()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            介面_pb.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close()
        介面_pb.SizeMode = 4
    End Sub
    Private Sub 圖檔入系統_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        SQL_系統通用變數管理_圖片載入()
        If dr.Read() Then
            MsgBox(對話框(4))
        Else : conn.Close()
            If 介面_tb.Text = "" Then
                MsgBox(對話框(0))
            Else
                If 檔案名稱_tb.Text = "" Then
                    MsgBox(對話框(1))
                Else
                    SQL_系統通用變數管理_圖片新增() : conn.Close()
                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
                    frq.Credentials = fcr
                    frq.Method = WebRequestMethods.Ftp.DeleteFile
                    frq.UseBinary = True
                    frp = CType(frq.GetResponse, FtpWebResponse)
                    frp.Close()
                    FTP資料夾_wb.Refresh()
                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                    檔案名稱_tb.Text = "" : 圖片載入1()
                End If
            End If
        End If : conn.Close()
    End Sub
    Private Sub 圖檔修改_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔修改_bt.Click
        If 介面_tb.Text = "" Then
            MsgBox(對話框(2))
        Else
            If 檔案名稱_tb.Text = "" Then
                MsgBox(對話框(1))
            Else
                SQL_系統通用變數管理_圖片修改() : conn.Close()
                '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                fcr = New NetworkCredential(FTP帳號, FTP密碼)
                frq.Credentials = fcr
                frq.Method = WebRequestMethods.Ftp.DeleteFile
                frq.UseBinary = True
                frp = CType(frq.GetResponse, FtpWebResponse)
                frp.Close()
                FTP資料夾_wb.Refresh()
                '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                檔案名稱_tb.Text = "" : MsgBox(對話框(3)) : 圖片載入1()
            End If
        End If
    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
        If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    End Sub
    Private Sub 特別功能_bt_Click_2(sender As Object, e As EventArgs) Handles 特別功能_bt.Click
        特別功能.ShowDialog()
    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 Button1_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_工程圖片資料庫狀態()
        If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    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_工程文件資料庫狀態()
        If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
    End Sub
    Private Sub 翻譯_bt_Click(sender As Object, e As EventArgs) Handles 翻譯_bt.Click
        If 內容設定_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有資料!!") : Else : MsgBox("Tidak ada Informasi!!") : End If : Else
            翻譯 = Replace(內容設定_tb.Text, vbCrLf, " ") : MyModule2.執行翻譯() : 等待翻譯_tim.Enabled = True
        End If
    End Sub
    Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick
        Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
        If File.Exists("ch.txt") Then
            等待翻譯_tim.Enabled = False
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 0).Value = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 1).Value = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 2).Value = stringReader : fileReader.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
        ElseIf File.Exists(Str2 & "\ch.txt") Then
            等待翻譯_tim.Enabled = False
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 0).Value = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 1).Value = stringReader : fileReader.Close()
            fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 內容_dgv(1, 2).Value = stringReader : fileReader.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 系統語言 = "繁體中文" Then : MsgBox("開發中!!") : Else : MsgBox("Dalam pengembangan!!") : End If
    End Sub
    Private Sub 圖檔刪除_bt_Click(sender As Object, e As EventArgs) Handles 圖檔刪除_bt.Click
        If 系統語言 = "繁體中文" Then : MsgBox("開發中!!") : Else : MsgBox("Dalam pengembangan!!") : End If
    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()
    End Sub
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
        Set_介面() : Set_介面1() : Set_控件() : Set_控件1() : Set_內容() : Set_內容1()
    End Sub
End Class