Option Strict Off Public Class 樣品供應商資料管理 ReadOnly ds As New DataSet : ReadOnly ds8 As New DataSet DIM 對話框(5) As String Private Sub 讀取供應商料表() 廠商清單_dgv.DataSource = Nothing : ds.Clear() 廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 廠商清單_dgv.ColumnHeadersHeight = 25 廠商清單_dgv.AllowUserToAddRows = False 廠商清單_dgv.RowTemplate.Height = 35 SQL_行政物料供應商資料管理_清單() : 列印用SQL = SQL1 da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0) 廠商清單_dgv.Columns(0).FillWeight = 80 : 廠商清單_dgv.Columns(1).FillWeight = 90 : 廠商清單_dgv.Columns(2).FillWeight = 200 : 廠商清單_dgv.Columns(3).FillWeight = 400 廠商清單_dgv.Columns(4).FillWeight = 120 : 廠商清單_dgv.Columns(5).FillWeight = 120 : 廠商清單_dgv.Columns(6).FillWeight = 120 : 廠商清單_dgv.Columns(7).FillWeight = 120 廠商清單_dgv.Columns(8).FillWeight = 120 : 廠商清單_dgv.Columns(9).FillWeight = 120 : 廠商清單_dgv.Columns(10).FillWeight = 120 : 廠商清單_dgv.Columns(11).FillWeight = 120 廠商清單_dgv.Columns(12).FillWeight = 120 廠商清單_dgv.Columns(13).Visible = False : 廠商清單_dgv.Columns(14).Visible = False : 廠商清單_dgv.Columns(15).Visible = False : 廠商清單_dgv.Columns(16).Visible = False 廠商清單_dgv.Columns(17).Visible = False : 廠商清單_dgv.Columns(18).Visible = False : 廠商清單_dgv.Columns(19).Visible = False : 廠商清單_dgv.Columns(20).Visible = False 廠商清單_dgv.Columns(21).Visible = False End Sub Private Sub 格式設定1() 供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True 簡稱_lb.ForeColor = Color.Black : 公司名_ib.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black : 傳真1_lb.ForeColor = Color.Black End Sub Private Sub 格式設定2() 簡稱_lb.ForeColor = Color.Red : 公司名_ib.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red : 傳真1_lb.ForeColor = Color.Red 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() 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 = "供應商編號_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 = "公司電話1_lb" Then : 公司電話1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "公司電話2_lb" Then : 公司電話2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "公司電話3_lb" Then : 公司電話3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "公司名_ib" Then : 公司名_ib.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 = "傳真1_lb" Then : 傳真1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "傳真2_lb" Then : 傳真2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "傳真3_lb" Then : 傳真3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人1_lb" Then : 聯繫人1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人2_lb" Then : 聯繫人2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人3_lb" Then : 聯繫人3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人職稱1_lb" Then : 聯繫人職稱1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人職稱2_lb" Then : 聯繫人職稱2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人職稱3_lb" Then : 聯繫人職稱3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人電話1_lb" Then : 聯繫人電話1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人電話2_lb" Then : 聯繫人電話2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人電話3_lb" Then : 聯繫人電話3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人信箱1_lb" Then : 聯繫人信箱1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人信箱2_lb" Then : 聯繫人信箱2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯繫人信箱3_lb" Then : 聯繫人信箱3_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 = "清單_dgv_編碼" Then : 表頭(49) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_簡稱" Then : 表頭(50) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_公司名" Then : 表頭(51) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_地址" Then : 表頭(52) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_公司電話1" Then : 表頭(53) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_公司電話2" Then : 表頭(54) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_公司電話3" Then : 表頭(55) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_傳真1" Then : 表頭(56) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_傳真2" Then : 表頭(57) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_傳真3" Then : 表頭(58) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_聯繫人1" Then : 表頭(59) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_聯繫人2" Then : 表頭(60) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_聯繫人3" Then : 表頭(61) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub 行政物料供應商管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 介面 = "行政物料供應商管理" : 語言轉換讀取() : PA = "" 格式設定1() : 讀取供應商料表() If CC(12) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If If CC(13) = False Then : 刪除_bt.Enabled = False : End If If CC(14) = False Then '列印成EXCEL_bt.Enabled = False : End If 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 DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 廠商清單_dgv.CellClick If e.RowIndex = -1 Then : Else 供應商編號_tb.Text = 廠商清單_dgv(0, e.RowIndex).Value.ToString : 供應商簡稱_tb.Text = 廠商清單_dgv(1, e.RowIndex).Value.ToString 公司名_tb.Text = 廠商清單_dgv(2, e.RowIndex).Value.ToString : 地址_tb.Text = 廠商清單_dgv(3, e.RowIndex).Value.ToString 電話1_tb.Text = 廠商清單_dgv(4, e.RowIndex).Value.ToString : 電話2_tb.Text = 廠商清單_dgv(5, e.RowIndex).Value.ToString 電話3_tb.Text = 廠商清單_dgv(6, e.RowIndex).Value.ToString : 傳真1_tb.Text = 廠商清單_dgv(7, e.RowIndex).Value.ToString 傳真2_tb.Text = 廠商清單_dgv(8, e.RowIndex).Value.ToString : 傳真3_tb.Text = 廠商清單_dgv(9, e.RowIndex).Value.ToString 聯繫人1_tb.Text = 廠商清單_dgv(10, e.RowIndex).Value.ToString : 聯繫人2_tb.Text = 廠商清單_dgv(11, e.RowIndex).Value.ToString 聯繫人3_tb.Text = 廠商清單_dgv(12, e.RowIndex).Value.ToString : 職稱1_tb.Text = 廠商清單_dgv(13, e.RowIndex).Value.ToString 職稱2_tb.Text = 廠商清單_dgv(14, e.RowIndex).Value.ToString : 職稱3_tb.Text = 廠商清單_dgv(15, e.RowIndex).Value.ToString 聯繫電話1_tb.Text = 廠商清單_dgv(16, e.RowIndex).Value.ToString : 聯繫電話2_tb.Text = 廠商清單_dgv(17, e.RowIndex).Value.ToString 聯繫電話3_tb.Text = 廠商清單_dgv(18, e.RowIndex).Value.ToString : 信箱1_tb.Text = 廠商清單_dgv(19, e.RowIndex).Value.ToString 信箱2_tb.Text = 廠商清單_dgv(20, e.RowIndex).Value.ToString : 信箱3_tb.Text = 廠商清單_dgv(21, e.RowIndex).Value.ToString End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click 供應商簡稱_tb.Text = "" : 公司名_tb.Text = "" : 地址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = "" : 電話3_tb.Text = "" : 傳真1_tb.Text = "" 傳真2_tb.Text = "" : 傳真3_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫人3_tb.Text = "" : 職稱1_tb.Text = "" : 職稱2_tb.Text = "" 職稱3_tb.Text = "" : 聯繫電話1_tb.Text = "" : 聯繫電話2_tb.Text = "" : 聯繫電話3_tb.Text = "" : 信箱1_tb.Text = "" : 信箱2_tb.Text = "" : 信箱3_tb.Text = "" SQL_行政物料供應商資料管理_最後一筆資料() If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "AM20191212-0000" : End If conn.Close() Dim NUM1 As Integer NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 4)) + 1 If NUM1 < 10 Then : 供應商編號_tb.Text = "AM" & "000" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "AM" & "00" & NUM1 ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "AM" & "0" & NUM1 ElseIf NUM1 > 999 Then : 供應商編號_tb.Text = "AM" & NUM1 : End If 格式設定2() 確認新增_bt.Enabled = True : 新增_bt.Enabled = False End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click If 供應商簡稱_tb.Text = "" Or 公司名_tb.Text = "" Or 地址_tb.Text = "" Or 電話1_tb.Text = "" Or 傳真1_tb.Text = "" Then MGB(對話框(0), 1) Else SQL_供應商資料表_新增() : conn.Close() : MGB(對話框(1), 1) : 格式設定1() : 讀取供應商料表() End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click SQL_供應商資料表_修改() : conn.Close() : MGB(對話框(2), 1) : 讀取供應商料表() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click If conn.State = ConnectionState.Closed Then : conn.Open() : End If MGB(對話框(3),2) If 訊息回應 = "YES" Then SQL_供應商資料表_刪除() : conn.Close() : MGB(對話框(4), 1) : 讀取供應商料表() End If End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click INB(對話框(5)) : PA = 訊息回應 : 讀取供應商料表() : PA = "" End Sub End Class