Option Strict Off Public Class 系統編碼規則 Private Sub Set_零用金品項() '舊會計_dgv.DataSource = Nothing : ds.Clear() : 舊會計_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing '舊會計_dgv.ColumnHeadersHeight = 25 : 舊會計_dgv.AllowUserToAddRows = False 'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If 'SQL1 = "SELECT 品項 FROM 零用金支付品項" 'cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 舊會計_dgv.DataSource = ds.Tables(0) : conn.Close() '舊會計_dgv.Columns(0).FillWeight = 413 End Sub Private Sub Set_年度清單() Dim ds6 As New DataSet 年份_dgv.DataSource = Nothing : ds6.Clear() 年份_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 年份_dgv.ColumnHeadersHeight = 25 年份_dgv.AllowUserToAddRows = False SQL_年份() da.Fill(ds6) : 年份_dgv.DataSource = ds6.Tables(0) : conn.Close() 年份_dgv.Columns(0).FillWeight = 100 End Sub Private Sub Set_FTP位置() Dim ds9 As New DataSet FTP_dgv.DataSource = Nothing : ds9.Clear() FTP_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing FTP_dgv.ColumnHeadersHeight = 25 FTP_dgv.AllowUserToAddRows = False SQL_FTP位置() da.Fill(ds9) : FTP_dgv.DataSource = ds9.Tables(0) : conn.Close() FTP_dgv.Columns(0).FillWeight = 235 : FTP_dgv.Columns(1).FillWeight = 100 : FTP_dgv.Columns(2).FillWeight = 100 : FTP_dgv.Columns(3).FillWeight = 100 FTP_dgv.Columns(4).FillWeight = 150 End Sub Private Sub Set_倉儲明細除錯() Dim ds As New DataSet 倉儲明細表_dgv.DataSource = Nothing : ds.Clear() 倉儲明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 倉儲明細表_dgv.ColumnHeadersHeight = 25 倉儲明細表_dgv.AllowUserToAddRows = False SQL_倉儲明細表除錯() da.Fill(ds) : 倉儲明細表_dgv.DataSource = ds.Tables(0) : conn.Close() 倉儲明細表_dgv.Columns(0).FillWeight = 35 : 倉儲明細表_dgv.Columns(1).FillWeight = 100 : 倉儲明細表_dgv.Columns(2).Visible = False For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 倉儲明細表_dgv(0, i).Value = False Next End Sub '------------------------------------------------------------------------------------------------------- Private Sub Set_倉儲分區控制表除錯() Dim ds7 As New DataSet 控制表_dgv.DataSource = Nothing : ds7.Clear() 控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 控制表_dgv.ColumnHeadersHeight = 25 控制表_dgv.AllowUserToAddRows = False SQL_倉儲控制表除錯() da.Fill(ds7) : 控制表_dgv.DataSource = ds7.Tables(0) : conn.Close() 控制表_dgv.Columns(0).FillWeight = 15 : 控制表_dgv.Columns(1).FillWeight = 30 : 控制表_dgv.Columns(2).FillWeight = 35 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() 明細表_dgv.Columns(0).FillWeight = 45 : 明細表_dgv.Columns(1).Visible = False : 明細表_dgv.Columns(2).FillWeight = 50 : 明細表_dgv.Columns(3).FillWeight = 60 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 SQL_請購單除錯() da.Fill(ds3) : 請購單控制表_dgv.DataSource = ds3.Tables(0) : conn.Close() 請購單控制表_dgv.Columns(0).FillWeight = 30 End Sub Private Sub Set_天氣控制() Dim ds10 As New DataSet 天氣_dgv.DataSource = Nothing : ds10.Clear() 天氣_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 天氣_dgv.ColumnHeadersHeight = 25 天氣_dgv.AllowUserToAddRows = False SQL_天氣控制() da.Fill(ds10) : 天氣_dgv.DataSource = ds10.Tables(0) : conn.Close() 天氣_dgv.Columns(1).FillWeight = 20 : 天氣_dgv.Columns(2).FillWeight = 20 : 天氣_dgv.Columns(0).FillWeight = 40 End Sub Private Sub Set_時間控制() Dim ds11 As New DataSet 時間_dgv.DataSource = Nothing : ds11.Clear() 時間_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 時間_dgv.ColumnHeadersHeight = 25 時間_dgv.AllowUserToAddRows = False SQL_時間控制() da.Fill(ds11) : 時間_dgv.DataSource = ds11.Tables(0) : conn.Close() 時間_dgv.Columns(0).FillWeight = 30 : 時間_dgv.Columns(1).FillWeight = 30 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() 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 = "編碼原則1_tab" Then : 編碼原則1_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 = "系統除錯_tab" Then : 系統除錯_tab.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 = "年份修改_bt" Then : 年份修改_bt.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 = "FTP地址_lb" Then : FTP地址_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 = "FTP實體_lb" Then : FTP實體_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "FTP新增_bt" Then : FTP新增_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "FTP修改_bt" Then : FTP修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "FTP刪除_bt" Then : FTP刪除_bt.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 = "天氣新增_bt" Then : 天氣新增_bt.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 = "天氣刪除_bt" Then : 天氣刪除_bt.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 = "時間新增_bt" Then : 時間新增_bt.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 = "時間刪除_bt" Then : 時間刪除_bt.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 = "品項修改_bt" Then : 品項修改_bt.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 = "修正料號_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 = "刪除料號_bt" Then : 刪除料號_bt.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 = "全部取消_bt" Then : 全部取消_bt.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 = "倉名編號_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 = "單改_bt" Then : 單改_bt.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 : 表頭(163) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_FTP地址" Then : 表頭(164) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_FTP帳號" Then : 表頭(165) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_FTP密碼" Then : 表頭(166) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_地區" Then : 表頭(167) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_FTP物理位置" Then : 表頭(168) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_天氣" Then : 表頭(169) = 語言_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 : 表頭(49) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_上下午" Then : 表頭(170) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_時段" Then : 表頭(171) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_選擇" Then : 表頭(44) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號" Then : 表頭(77) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_請購單號" Then : 表頭(172) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉級" Then : 表頭(68) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉名編號" Then : 表頭(69) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉名" Then : 表頭(70) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_資料流水號" Then : 表頭(137) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_執行單號" Then : 表頭(173) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉名編號1" Then : 表頭(174) = 語言_dgv("內容", i).Value.ToString : End If '---------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "報表_gp" Then : 報表_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "ftp_gp" Then : ftp_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "氣候_gp" Then : 氣候_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "時間_gp" Then : 時間_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金_gp" Then : 零用金_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "倉儲_gp" Then : 倉儲_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "無明細_gp" Then : 無明細_gp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "找不到_gp" Then : 找不到_gp.Text = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub 系統編碼規則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True H(706) = True : 介面 = "H706" : Set_語言() : 語言轉換讀取() Set_年度清單() : Set_FTP位置() : Set_倉儲明細除錯() : Set_請購控制表除錯() : Set_倉儲分區控制表除錯() : Set_明細表除錯() Set_天氣控制() : Set_時間控制() End Sub Private Sub 系統編碼規則_1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed H(706) = False : MyModule1.虛擬桌面開啟() End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H706" : 語言轉換讀取() : Set_年度清單() : Set_FTP位置() : Set_倉儲明細除錯() : Set_請購控制表除錯() : Set_倉儲分區控制表除錯() : 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 天氣_dgv(2, e.RowIndex).Value.ToString <> 天氣_dgv(2, 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 時間_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(1, e.RowIndex).Value.ToString <> 時間_dgv(1, 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 舊會計_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 舊會計_dgv.CellClick If e.RowIndex = -1 Then : Else TextBox20.Text = 舊會計_dgv(0, e.RowIndex).Value.ToString 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 End If End Sub Private Sub FTP_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles FTP_dgv.CellClick If e.RowIndex = -1 Then : Else FTP地址_tb.Text = FTP_dgv(0, e.RowIndex).Value.ToString : 帳號_tb.Text = FTP_dgv(1, e.RowIndex).Value.ToString 密碼_tb.Text = FTP_dgv(2, e.RowIndex).Value.ToString : 地區_tb.Text = FTP_dgv(3, e.RowIndex).Value.ToString FTP實體_tb.Text = FTP_dgv(4, e.RowIndex).Value.ToString 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 If 倉儲明細表_dgv(0, e.RowIndex).Value = True Then 倉儲明細表_dgv(0, e.RowIndex).Value = False Else 倉儲明細表_dgv(0, e.RowIndex).Value = True End If End If End Sub Private Sub 全部選則_bt_Click(sender As Object, e As EventArgs) Handles 全部選則_bt.Click For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 : 倉儲明細表_dgv(0, i).Value = True : Next End Sub Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 : 倉儲明細表_dgv(0, i).Value = False : Next End Sub Private Sub SET_新增按鈕程式共用2() cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If conn.Close() : dr.Close() End Sub Private Sub SET_修改按鈕程式共用1() cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If conn.Close() End Sub Private Sub SET_刪除按鈕程式共用1() cmd.CommandText = SQL1 : cmd.Connection = conn If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If Dim SS As String If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : End If conn.Close() 式共用1() End Sub Private Sub 式共用1() Set_年度清單() : Set_零用金品項() : Set_FTP位置() : PA = "" End Sub Private Sub 式共用2() conn.Close() : dr.Close() If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If End Sub Private Sub 式共用3() If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : 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("Informasi yang dimasukkan salah!!") : End If Else 式共用3() : SQL_年份新增查詢() : CmdSet_For_dr() If dr.Read() Then If 系統語言 = "繁體中文" Then : MsgBox("資料重複，請從新輸入或檢查!!") : Else : MsgBox("Informasi digandakan, silakan masukkan kembali atau periksa!!") : End If conn.Close() : dr.Close() Else 式共用2() : SQL_年份新增() : SET_新增按鈕程式共用2() End If End If : 式共用1() End Sub Private Sub 年份修改_bt_Click(sender As Object, e As EventArgs) Handles 年份修改_bt.Click If 年份_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else If 系統語言 = "繁體中文" Then : PA = InputBox("請輸入要修改的內容") : Else : PA = InputBox("Silakan masukkan konten yang akan dimodifikasi") : End If If PA = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有輸入修改內容!!") : Else : MsgBox("Tidak ada pengeditan yang dimasukkan!!") : End If Else 式共用3() : SQL_年份修改() : SET_修改按鈕程式共用1() End If End If : 式共用1() End Sub Private Sub 年份刪除_bt_Click(sender As Object, e As EventArgs) Handles 年份刪除_bt.Click SQL_年份刪除() : SET_刪除按鈕程式共用1() End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub FTP新增_bt_Click(sender As Object, e As EventArgs) Handles FTP新增_bt.Click If 地區_tb.Text = "" Or FTP地址_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else 式共用3() : SQL_FTP新增查詢() : CmdSet_For_dr() If dr.Read() Then If 系統語言 = "繁體中文" Then : MsgBox("資料重複，請從新輸入或檢查!!") : Else : MsgBox("Informasi digandakan, silakan masukkan kembali atau periksa!!") : End If conn.Close() : dr.Close() Else 式共用2() : SQL_FTP新增() : SET_新增按鈕程式共用2() End If End If : 式共用1() End Sub '----------------------------------------------------------------------沒有倉級的除錯 Private Sub 明細表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細表_dgv.CellClick If e.RowIndex = -1 Then : Else 資料流水號_tb.Text = 明細表_dgv(2, e.RowIndex).Value.ToString End If End Sub Private Sub 控制表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick If e.RowIndex = -1 Then : Else 倉名編號_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString End If End Sub Private Sub 天氣_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 天氣_dgv.CellClick If e.RowIndex = -1 Then : Else 天氣_tb.Text = 天氣_dgv(0, e.RowIndex).Value.ToString : 天氣1_tb.Text = 天氣_dgv(0, e.RowIndex).Value.ToString 系統語言_cb.Text = 天氣_dgv(1, e.RowIndex).Value.ToString : 編碼_tb.Text = 天氣_dgv(2, e.RowIndex).Value.ToString End If End Sub Private Sub 時間_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 時間_dgv.CellClick If e.RowIndex = -1 Then : Else 上下午_tb.Text = 時間_dgv(0, e.RowIndex).Value.ToString 時段_cb.Text = 時間_dgv(1, e.RowIndex).Value.ToString End If End Sub Private Sub 天氣新增_bt_Click(sender As Object, e As EventArgs) Handles 天氣新增_bt.Click If 天氣_tb.Text = " " And 系統語言_cb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("不得為空白!!") : Else : MsgBox("Wajib diisi!!") : End If Else SQL_天氣控制_新增查詢() If dr.Read() Then If 系統語言 = "繁體中文" Then : MsgBox("資料重複，請從新輸入或檢查!!") : Else : MsgBox("Informasi digandakan, silakan masukkan kembali atau periksa!!") : End If conn.Close() : dr.Close() Else PA = 天氣_tb.Text : PA1 = 系統語言_cb.Text : PA2 = 編碼_tb.Text : SQL_天氣控制_新增() : conn.Close() If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If End If Set_天氣控制() : 天氣_tb.Text = "" End If End Sub Private Sub 天氣修改_bt_Click(sender As Object, e As EventArgs) Handles 天氣修改_bt.Click If 天氣_tb.Text = " " Or 系統語言_cb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("不得為空白!!") : Else : MsgBox("Wajib diisi!!") : End If Else PA = 天氣_tb.Text : PA1 = 天氣1_tb.Text If PA = "" And PA1 = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有輸入修改內容!!") : Else : MsgBox("Tidak ada pengeditan yang dimasukkan!!") : End If Else SQL_天氣控制_修改() : conn.Close() : Set_天氣控制() : 天氣_tb.Text = "" End If End If End Sub Private Sub 天氣刪除_bt_Click(sender As Object, e As EventArgs) Handles 天氣刪除_bt.Click If 天氣_tb.Text = "" And 系統語言_cb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else Dim SS As String If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If Dim aa1 As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then SQL_天氣控制_刪除() : conn.Close() : Set_天氣控制() : 天氣_tb.Text = "" If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If End If End If End Sub Private Sub 時間新增_bt_Click(sender As Object, e As EventArgs) Handles 時間新增_bt.Click If 上下午_tb.Text = "" Or 時段_cb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("不得為空白!!") : Else : MsgBox("Wajib diisi!!") : End If Else SQL_時間控制_新增查詢() If dr.Read() Then If 系統語言 = "繁體中文" Then : MsgBox("資料重複，請從新輸入或檢查!!") : Else : MsgBox("Informasi digandakan, silakan masukkan kembali atau periksa!!") : End If conn.Close() : dr.Close() Else PA = 上下午_tb.Text : PA1 = 時段_cb.Text : SQL_時間控制_新增() : conn.Close() If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If End If Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = "" 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("Wajib diisi!!") : End If Else PA = InputBox("請輸入要修改的時間") SQL_時間控制_修改() : conn.Close() : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = "" 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("Informasi yang dimasukkan salah!!") : End If Else Dim SS As String If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If Dim aa1 As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then SQL_時間控制_刪除() : conn.Close() : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = "" If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If End If End If End Sub Private Sub 修正_bt_Click(sender As Object, e As EventArgs) Handles 單改_bt.Click If 倉名編號_tb.Text = "" Or 資料流水號_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else PA = 資料流水號_tb.Text : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改() End If If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If : Set_明細表除錯() End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 全改_bt.Click If 倉名編號_tb.Text = "" Or 資料流水號_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else For i As Integer = 0 To 明細表_dgv.Rows.Count - 1 PA = 明細表_dgv(2, i).Value.ToString : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改() Next End If If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If : Set_明細表除錯() End Sub '------------------------------------------------------------------------------------- Private Sub FTP修改_bt_Click(sender As Object, e As EventArgs) Handles FTP修改_bt.Click If 地區_tb.Text = "" Or FTP地址_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If Else If 系統語言 = "繁體中文" Then PA = InputBox("請輸入要修改的FTP地址") : PA1 = InputBox("請輸入要修改的FTP帳號") PA2 = InputBox("請輸入要修改的FTP密碼") : PA3 = InputBox("請輸入要修改的FTP物理位置") Else PA = InputBox("Silakan masukkan alamat FTP yang akan diubah") : PA1 = InputBox("Silakan masukkan akun FTP yang akan dimodifikasi") PA2 = InputBox("Silakan masukkan kata sandi FTP untuk dimodifikasi") : PA3 = InputBox("Silakan masukkan lokasi fisik FTP yang akan dimodifikasi") End If If PA = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有輸入修改內容!!") : Else : MsgBox("Tidak ada pengeditan yang dimasukkan!!") : End If Else 式共用3() : SQL_FTP修改() : SET_修改按鈕程式共用1() End If End If : 式共用1() PA = "" : PA1 = "" : PA2 = "" : PA3 = "" End Sub Private Sub FTP刪除_bt_Click(sender As Object, e As EventArgs) Handles FTP刪除_bt.Click SQL_FTP刪除() : SET_刪除按鈕程式共用1() End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 修正料號_bt_Click(sender As Object, e As EventArgs) Handles 修正料號_bt.Click For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 If 倉儲明細表_dgv(0, i).Value = True Then PA = 倉儲明細表_dgv(1, i).Value.ToString : PA1 = 修正料號_tb.Text : SQL_倉儲明細表除錯_修改() End If Next : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If : Set_倉儲明細除錯() End Sub Private Sub 刪除料號_bt_Click(sender As Object, e As EventArgs) Handles 刪除料號_bt.Click For i As Integer = 0 To 倉儲明細表_dgv.Rows.Count - 1 If 倉儲明細表_dgv(0, i).Value = True Then PA = 倉儲明細表_dgv(1, i).Value.ToString : SQL_倉儲明細表除錯_刪除() End If Next : If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : Set_倉儲明細除錯() End Sub Private Sub 控制表刪除_bt_Click(sender As Object, e As EventArgs) Handles 控制表刪除_bt.Click For i As Integer = 0 To 請購單控制表_dgv.Rows.Count - 1 PA = 請購單控制表_dgv(0, i).Value.ToString : SQL_請購控制表除錯_刪除() Next : If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : Set_請購控制表除錯() End Sub End Class