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 重新讀取_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 For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1 PA = 資料庫清單1_dgv(0, I).Value.ToString : 圖片庫 = PA : SQL_連線字串_圖片資料庫() : SQL_主資料庫LOG檔案截斷() Next 重新讀取_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