Option Strict Off Imports System.IO Public Class 系統編碼規則 Dim RI As Integer = -1 Dim SK As String = "要查找的 KEY" Dim Str As String = Application.StartupPath DIM 對話框(12) As String 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_語言() 語言_dgv.DataSource = Nothing 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 語言_dgv.ColumnHeadersHeight = 25 語言_dgv.AllowUserToAddRows = False For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next If File.Exists(Str + "\LANGUAGE_FILE.csv") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default) Dim line As String = filereader.ReadLine() While Not (line Is Nothing) line = filereader.ReadLine() If line <> Nothing Then line = line.Replace("""", "") If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-155" Or Strings.Left(line, 4) = 介面 Then If 系統語言 = "繁體中文" Then If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0) 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11) If Strings.Mid(line, 13, 300).EndsWith(",") Then 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1) Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If End If ElseIf 系統語言 = "English" Then If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0) 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11) If Strings.Mid(line, 13, 300).EndsWith(",") Then 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1) : Else 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If End If ElseIf 系統語言 = "Indonesian" Then If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0) 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11) If Strings.Mid(line, 13, 300).EndsWith(",") Then 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1) Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If End If End If End If End If End While filereader.Close() End If End Sub Private Sub Set_語言查詢() RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then RI = row.Index : Exit For End If Next End Sub Private Sub 語言轉換讀取() Set_語言() : conn.Close() SK = "H001-155" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString ': SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString SK = "H706-100" : Set_語言查詢() : ftp_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-101" : Set_語言查詢() : FTP地址_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-102" : Set_語言查詢() : FTP刪除_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-103" : Set_語言查詢() : FTP修改_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-104" : Set_語言查詢() : FTP新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-105" : Set_語言查詢() : FTP實體_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-106" : Set_語言查詢() : 上下午_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-107" : Set_語言查詢() : 天氣_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-108" : Set_語言查詢() : 天氣刪除_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-109" : Set_語言查詢() : 天氣修改_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-110" : Set_語言查詢() : 天氣新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-111" : Set_語言查詢() : 未使用的編碼原則_tab.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-112" : Set_語言查詢() : 全改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-113" : Set_語言查詢() : 全部取消_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-114" : Set_語言查詢() : 全部選則_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-115" : Set_語言查詢() : 地區_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-116" : Set_語言查詢() : 年份_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-117" : Set_語言查詢() : 年份刪除_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-118" : Set_語言查詢() : 年份修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-119" : Set_語言查詢() : 年份新增_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-120" : Set_語言查詢() : 刪除料號_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-121" : Set_語言查詢() : 找不到_gp.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-122" : Set_語言查詢() : 系統除錯_tab.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-123" : Set_語言查詢() : 品項刪除_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-124" : Set_語言查詢() : 品項修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-125" : Set_語言查詢() : 品項清單_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-126" : Set_語言查詢() : 品項新增_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-127" : Set_語言查詢() : 修正料號_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-128" : Set_語言查詢() : 修正料號_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-129" : Set_語言查詢() : 倉名編號_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-130" : Set_語言查詢() : 倉儲_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-131" : Set_語言查詢() : 時段_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-132" : Set_語言查詢() : 時間_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-133" : Set_語言查詢() : 時間刪除_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-134" : Set_語言查詢() : 時間修改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-135" : Set_語言查詢() : 時間新增_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-136" : Set_語言查詢() : 氣候_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-137" : Set_語言查詢() : 密碼_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-138" : Set_語言查詢() : 帳號_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-139" : Set_語言查詢() : 控制表刪除_bt.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-140" : Set_語言查詢() : 表頭(164) = 語言_dgv(1, RI).Value.ToString : SK = "H706-141" : Set_語言查詢() : 表頭(168) = 語言_dgv(1, RI).Value.ToString SK = "H706-142" : Set_語言查詢() : 表頭(166) = 語言_dgv(1, RI).Value.ToString : SK = "H706-143" : Set_語言查詢() : 表頭(165) = 語言_dgv(1, RI).Value.ToString SK = "H706-144" : Set_語言查詢() : 表頭(170) = 語言_dgv(1, RI).Value.ToString : SK = "H706-145" : Set_語言查詢() : 表頭(169) = 語言_dgv(1, RI).Value.ToString SK = "H706-146" : Set_語言查詢() : 表頭(167) = 語言_dgv(1, RI).Value.ToString : SK = "H706-147" : Set_語言查詢() : 表頭(163) = 語言_dgv(1, RI).Value.ToString SK = "H706-148" : Set_語言查詢() : 表頭(70) = 語言_dgv(1, RI).Value.ToString : SK = "H706-149" : Set_語言查詢() : 表頭(69) = 語言_dgv(1, RI).Value.ToString SK = "H706-150" : Set_語言查詢() : 表頭(174) = 語言_dgv(1, RI).Value.ToString : SK = "H706-151" : Set_語言查詢() : 表頭(68) = 語言_dgv(1, RI).Value.ToString SK = "H706-152" : Set_語言查詢() : 表頭(77) = 語言_dgv(1, RI).Value.ToString : SK = "H706-153" : Set_語言查詢() : 表頭(171) = 語言_dgv(1, RI).Value.ToString SK = "H706-154" : Set_語言查詢() : 表頭(173) = 語言_dgv(1, RI).Value.ToString : SK = "H706-155" : Set_語言查詢() : 表頭(137) = 語言_dgv(1, RI).Value.ToString SK = "H706-156" : Set_語言查詢() : 表頭(2) = 語言_dgv(1, RI).Value.ToString : SK = "H706-157" : Set_語言查詢() : 表頭(49) = 語言_dgv(1, RI).Value.ToString SK = "H706-158" : Set_語言查詢() : 表頭(172) = 語言_dgv(1, RI).Value.ToString : SK = "H706-159" : Set_語言查詢() : 表頭(44) = 語言_dgv(1, RI).Value.ToString SK = "H706-160" : Set_語言查詢() : 單改_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-161" : Set_語言查詢() : 報表_gp.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-162" : Set_語言查詢() : 無明細_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-163" : Set_語言查詢() : 資料流水號_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "H706-164" : Set_語言查詢() : 零用金_gp.Text = 語言_dgv(1, RI).Value.ToString : SK = "H706-165" : Set_語言查詢() : 語言_lb.Text = 語言_dgv(1, RI).Value.ToString SK = "G000-118" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "G000-120" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString SK = "G000-119" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "G000-121" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString SK = "H706-166" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H706-167" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString SK = "G000-124" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H706-168" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString SK = "H706-169" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "H706-170" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString SK = "H706-171" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H706-172" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString SK = "H706-173" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString 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_語言() : 語言轉換讀取() : 顯示說明(999, False) 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 : MyMod.虛擬桌面開啟() 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() : MGB(對話框(0), 1) : conn.Close() : dr.Close() End Sub Private Sub SET_修改按鈕程式共用1() cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : MGB(對話框(2), 1) 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 MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MGB(對話框(1), 1) 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 : MGB(對話框(3), 1) Else : 式共用3() : SQL_年份新增查詢() : CmdSet_For_dr() If dr.Read() Then : MGB(對話框(8), 1) : 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 : MGB(對話框(3), 1) Else : INB(對話框(7)) : PA = 訊息回應 If PA = "" Then : MGB(對話框(5), 1) : 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 : MGB(對話框(3), 1) Else : 式共用3() : SQL_FTP新增查詢() : CmdSet_For_dr() If dr.Read() Then : MGB(對話框(8), 1) : 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 : MGB(對話框(4), 1) : Else SQL_天氣控制_新增查詢() If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() Else : PA = 天氣_tb.Text : PA1 = 系統語言_cb.Text : PA2 = 編碼_tb.Text : SQL_天氣控制_新增() : conn.Close() : MGB(對話框(0), 1) 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 : MGB(對話框(4), 1) : Else PA = 天氣_tb.Text : PA1 = 天氣1_tb.Text If PA = "" And PA1 = "" Then : MGB(對話框(5), 1) : 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 : MGB(對話框(3), 1) : Else MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : SQL_天氣控制_刪除() : conn.Close() : Set_天氣控制() : 天氣_tb.Text = "" : MGB(對話框(1), 1) : 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 : MGB(對話框(4), 1) : Else SQL_時間控制_新增查詢() If dr.Read() Then : MGB(對話框(8), 1) : conn.Close() : dr.Close() Else : PA = 上下午_tb.Text : PA1 = 時段_cb.Text : SQL_時間控制_新增() : conn.Close() : MGB(對話框(0), 1) 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 : MGB(對話框(4), 1) : 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 : MGB(對話框(3), 1) Else : MGB(對話框(6), 2) If 訊息回應 = "YES" Then : SQL_時間控制_刪除() : conn.Close() : Set_時間控制() : 上下午_tb.Text = "" : 時段_cb.Text = "" : MGB(對話框(1), 1) : 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 : MGB(對話框(3), 1) Else : PA = 資料流水號_tb.Text : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改() End If : MGB(對話框(2), 1) : Set_明細表除錯() End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 全改_bt.Click If 倉名編號_tb.Text = "" Or 資料流水號_tb.Text = "" Then : MGB(對話框(3), 1) Else : For i As Integer = 0 To 明細表_dgv.Rows.Count - 1 : PA = 明細表_dgv(2, i).Value.ToString : PA1 = 倉名編號_tb.Text : SQL_明細表除錯_修改() : Next End If : MGB(對話框(2), 1) : 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 : MGB(對話框(3), 1) : Else PA = InputBox(對話框(9)) : PA1 = InputBox(對話框(10)) : PA2 = InputBox(對話框(11)) : PA3 = InputBox(對話框(12)) If PA = "" Then : MGB(對話框(5), 1) : 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 : MGB(對話框(2), 1) : 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 : MGB(對話框(1), 1) : 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 : MGB(對話框(1), 1) : Set_請購控制表除錯() End Sub End Class