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