WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/11、資料庫管理系統/系統編碼規則_1.vb

Option Strict Off
Public Class 系統編碼規則_1
    Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5 As New DataSet
    Private ReadOnly ds6, ds7, ds8, ds9, ds10, ds11 As New DataSet
    Private ReadOnly ds12 As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String
    Private Sub Set_客戶清單()
        客戶_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 = 100
    End Sub
    Private Sub Set_品牌清單()
        品牌_dgv.DataSource = Nothing : ds12.Clear()
        品牌_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        品牌_dgv.ColumnHeadersHeight = 25 : 品牌_dgv.AllowUserToAddRows = False
        SQL_品牌清單()
        da.Fill(ds12) : 品牌_dgv.DataSource = ds12.Tables(0) : conn.Close()
        品牌_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_縮寫清單()
        縮寫_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(0).FillWeight = 100
    End Sub
    Private Sub Set_帳本清單()
        帳本_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 = 100
    End Sub
    Private Sub Set_部門清單()
        部門_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 = 100
    End Sub
    Private Sub Set_清單2()
        貼標大項_dgv.DataSource = Nothing : ds1.Clear()
        貼標大項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        貼標大項_dgv.ColumnHeadersHeight = 25 : 貼標大項_dgv.AllowUserToAddRows = False
        SQL_貼標對應名稱清單()
        da.Fill(ds1) : 貼標大項_dgv.DataSource = ds1.Tables(0) : conn.Close()
        貼標大項_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_清單1()
        部件大項_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 = 100
    End Sub
    Private Sub Set_職稱清單()
        職稱_dgv.DataSource = Nothing : ds3.Clear()
        職稱_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        職稱_dgv.ColumnHeadersHeight = 25 : 職稱_dgv.AllowUserToAddRows = False
        SQL_METOO職稱()
        da.Fill(ds3) : 職稱_dgv.DataSource = ds3.Tables(0) : conn.Close()
        職稱_dgv.Columns(0).FillWeight = 100
    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()
        請假類別_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_廠商類別()
        廠商類別管理_dgv.DataSource = Nothing : ds5.Clear()
        廠商類別管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        廠商類別管理_dgv.ColumnHeadersHeight = 25 : 廠商類別管理_dgv.AllowUserToAddRows = False
        SQL__廠商類別清單()
        da.Fill(ds5) : 廠商類別管理_dgv.DataSource = ds5.Tables(0) : conn.Close()
        廠商類別管理_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_年度清單()
        報表及對帳單年份_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_模具開發用結構清單()
        模具結構_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 = 100
    End Sub
    Private Sub Set_模具開發用材質清單()
        模具材料_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 = 100
    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 = 30
    End Sub
    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 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 = "使用容量" : Col.Name = "容量" : Col.DataPropertyName = "使用容量"
        伺服器狀態_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub 系統編碼規則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
        WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        SQL_系統預設值()
        If dr.Read() Then
            MAX_nud.Value = dr("圖片伺服器上限") : 分母 = dr("圖片伺服器上限")
        End If
        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
        Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_帳本清單() : Set_縮寫清單() : Set_客戶清單() : Set_品牌清單()
        Set_伺服器狀態() : Set_伺服器1清單() : Set_工程圖片資料庫狀態()
    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 = 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(0, e.RowIndex).Value.ToString : 是否可用_ch.Checked = 圖片資料庫管理_dgv(1, e.RowIndex).Value
        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 資料庫清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 資料庫清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選擇_tb.Text = 資料庫清單1_dgv(0, e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        SQL_系統預測值修改() : 分母 = MAX_nud.Value : 圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
    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_工程圖片資料庫狀態() : MsgBox("修改完成!!!")
    End Sub
    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
        Try
            PA = 選擇_tb.Text : 圖片庫 = PA : SQL_連線字串_圖片資料庫() : SQL_主資料庫LOG檔案截斷()
            重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    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 品牌_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 縮寫_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 帳本_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 帳本_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            帳本編號_tb.Text = 帳本_dgv("編號", e.RowIndex).Value.ToString : 帳本_tb.Text = 帳本_dgv("帳本名稱", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView1_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 DataGridView2_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 DataGridView3_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 DataGridView4_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 DataGridView5_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 DataGridView6_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 DataGridView7_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 DataGridView8_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 DataGridView9_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 SET_新增按鈕程式共用2()
        MsgBox("新增完成")
        conn.Close() : dr.Close()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        MsgBox("修改完成")
        conn.Close() : dr.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : MsgBox("刪除完成") : End If
        conn.Close()
        式共用1()
    End Sub
    Private Sub 式共用1()
        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
        Set_帳本清單() : Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_縮寫清單() : Set_客戶清單() : Set_品牌清單() : PA = ""
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 部件大項分類新增_bt.Click
        If 部件大項分類大項_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無重複部件大項分類()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增部件大項分類()
                SET_新增按鈕程式共用2()
            End If
        End If
        式共用1()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 部件大項分類修改_bt.Click
        If 部件大項分類大項_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改部件大項分類()
                SET_修改按鈕程式共用1()
            End If
        End If
        式共用1()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 部件大項分類刪除_bt.Click
        SQL_刪除部件大項分類()
        SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 貼標對應名稱新增_bt.Click
        If 貼標對應名稱清單_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無重複貼標對應名稱清單()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增貼標對應名稱清單()
                SET_新增按鈕程式共用2()
            End If
        End If
        式共用1()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 貼標對應名稱修改_bt.Click
        If 貼標對應名稱清單_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改貼標對應名稱清單()
                SET_修改按鈕程式共用1()
            End If
        End If
        式共用1()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 貼標對應名稱刪除_bt.Click
        SQL_刪除貼標對應名稱清單()
        SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles 報表及對帳單年份新增_bt.Click
        If 報表及對帳單年份_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複年份清單()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增年份清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles 報表及對帳單年份修改_bt.Click
        If 報表及對帳單年份_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改年份清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles 報表及對帳單年份刪除_bt.Click
        SQL_刪除年份清單() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 部門清單管理新增_bt.Click
        If 部門清單管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複部門()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增METOO部門清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 部門清單管理修改_bt.Click
        If 部門清單管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改METOO部門清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 部門清單管理刪除_bt.Click
        SQL_刪除METOO部門清單() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 職稱清單管理新增_bt.Click
        If 職稱清單管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無重複職稱()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增METOO職稱清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 職稱清單管理修改_bt.Click
        If 職稱清單管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改METOO職稱清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 職稱清單管理刪除_bt.Click
        SQL_刪除METOO職稱清單() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 請假類別管理新增_bt.Click
        If 請假類別管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複請假類別()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增METOO請假類別() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 請假類別管理修改_bt.Click
        If 請假類別管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改METOO請假類別() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles 請假類別管理刪除_bt.Click
        SQL_刪除METOO請假類別() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles 廠商類別管理新增_bt.Click
        If 廠商類別管理類別_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無重複廠商類別()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增廠商類別() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles 廠商類別管理修改_bt.Click
        If 廠商類別管理類別_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改廠商類別() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles 廠商類別管理刪除_bt.Click
        SQL_刪除廠商類別() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles 模具開發用結構新增_bt.Click
        If 模具開發用結構_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複結構()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增模具開發用結構清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles 模具開發用結構修改_bt.Click
        If 模具開發用結構_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改模具開發用結構清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 模具開發用結構刪除_bt.Click
        SQL_刪除模具開發用結構清單() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles 模具開發用材質新增_bt.Click
        If 模具開發用材質_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複材質()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增模具開發用材質清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles 模具開發用材質修改_bt.Click
        If 模具開發用材質_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改模具開發用材質清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles 模具開發用材質刪除_bt.Click
        SQL_刪除模具開發用材質清單() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 帳本_新增_bt_Click(sender As Object, e As EventArgs) Handles 帳本_新增_bt.Click, 貼標對應名稱新增_bt.Click
        PA = InputBox("請輸入要新增的帳本名稱") : SQL_帳本查詢()
        If dr.Read() Then : MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
        Else
            '----------------------自动生成流水号-------------------------------------------------------------------------
            SQL_帳本流水號最後一筆()
            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 3)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
            If EDR < 10 Then : ESTR = "LN" & "00" & EDR
            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "LN" & "0" & EDR
            ElseIf EDR > 99 Then : ESTR = "LN" & EDR : End If : PA1 = ESTR
            SQL_帳本新增() : SET_新增按鈕程式共用2()
        End If : 式共用1()
    End Sub
    Private Sub 帳本_修改_bt_Click(sender As Object, e As EventArgs) Handles 帳本_修改_bt.Click
        If 帳本編號_tb.Text = "" Or 帳本_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的職別")
            If PA = "" Then : MsgBox("沒有輸入修改內容")
            Else : 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 Button29_Click(sender As Object, e As EventArgs) Handles 楦頭縮寫管理新增_bt.Click
        If 楦頭縮寫管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複縮寫()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增楦頭縮寫管理() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles 楦頭縮寫管理修改_bt.Click
        If 楦頭縮寫管理_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改楦頭縮寫管理() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles 楦頭縮寫管理刪除_bt.Click
        SQL_刪除楦頭縮寫管理() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles 客戶清單新增_bt.Click
        If 客戶_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複客戶簡稱()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增客戶控制表() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles 客戶清單修改_bt.Click
        If 客戶_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改客戶控制表() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles 客戶清單刪除_bt.Click
        SQL_刪除客戶控制表() : SET_刪除按鈕程式共用1()
    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles 品牌清單新增_bt.Click
        If 品牌清單_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_有無資料重複CUST()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                SQL_新增MTTOOCUST清單() : SET_新增按鈕程式共用2()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles 品牌清單修改_bt.Click
        If 品牌清單_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容")
            If PA = "" Then
                MsgBox("沒有輸入修改內容")
            Else
                SQL_修改MTTOOCUST清單() : SET_修改按鈕程式共用1()
            End If
        End If : 式共用1()
    End Sub
    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles 品牌清單刪除_bt.Click
        SQL_刪除MTTOOCUST清單() : SET_刪除按鈕程式共用1()
    End Sub
End Class