GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/09、資料庫系統管理/系統編碼規則.vb

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