Public Class 物料供應商 ReadOnly ds8 As New DataSet ReadOnly 對話框(5) As String Private Sub 讀取供應商料表() Dim ds As New DataSet : 廠商清單_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 = 150 : 廠商清單_dgv.Columns(2).FillWeight = 200 廠商清單_dgv.Columns(3).FillWeight = 400 : 廠商清單_dgv.Columns(4).FillWeight = 120 : 廠商清單_dgv.Columns(5).Visible = False 廠商清單_dgv.Columns(6).Visible = False : 廠商清單_dgv.Columns(7).FillWeight = 120 : 廠商清單_dgv.Columns(8).Visible = False 廠商清單_dgv.Columns(9).Visible = False : 廠商清單_dgv.Columns(10).FillWeight = 120 : 廠商清單_dgv.Columns(11).FillWeight = 120 廠商清單_dgv.Columns(12).Visible = False 廠商清單_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 廠商清單_dgv.Columns(22).Visible = False For I As Integer = 0 To 22 廠商清單_dgv.Columns(I).ReadOnly = True Next 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 類別管理_cb_下拉表單資料載入() SQL_供應商類別_下拉清單() : 類別管理_cb.Items.Clear() 類別管理_cb.Items.Add("") While (dr.Read()) : 類別管理_cb.Items.Add(dr("類別")) : End While : conn.Close() End Sub Private Sub 載入系統語言() If 系統語言 = "繁體中文" Then Me.Text = "物料供應商" 供應商編號_lb.Text = "供 應 商 編 號" 簡稱_lb.Text = "供應商類別" 公司電話1_lb.Text = "公司電話1" 公司電話2_lb.Text = "公司電話2" 公司電話3_lb.Text = "公司電話3" 公司名_ib.Text = "公司名稱" 公司地址_lb.Text = "公司地址" 傳真1_lb.Text = "公司傳真1" 傳真2_lb.Text = "公司傳真2" 傳真3_lb.Text = "公司傳真3" 聯繫人1_lb.Text = "聯繫人1" 聯繫人2_lb.Text = "聯繫人2" 聯繫人3_lb.Text = "聯繫人3" 聯繫人職稱1_lb.Text = "聯繫人1職稱" 聯繫人職稱2_lb.Text = "聯繫人2職稱" 聯繫人職稱3_lb.Text = "聯繫人3職稱" 聯繫人電話1_lb.Text = "聯繫人1電話" 聯繫人電話2_lb.Text = "聯繫人2電話" 聯繫人電話3_lb.Text = "聯繫人3電話" 聯繫人信箱1_lb.Text = "聯繫人 1 信箱" 聯繫人信箱2_lb.Text = "聯繫人 2 信箱" 聯繫人信箱3_lb.Text = "聯繫人 3 信箱" 表頭(49) = "編碼." 表頭(50) = "類別." 表頭(51) = "公司名稱." 表頭(52) = "公司地址." 表頭(53) = "公司電話1." 表頭(54) = "公司電話2." 表頭(55) = "公司電話3." 表頭(56) = "公司傳真1." 表頭(57) = "公司傳真2." 表頭(58) = "公司傳真3." 表頭(59) = "聯繫人1." 表頭(60) = "聯繫人2." 表頭(61) = "聯繫人3." 對話框(0) = "紅色字體處為必填項,不可空白" 對話框(1) = "新增完成。" 對話框(2) = "修改完成。" 對話框(3) = "確定要刪除該筆資料?" 對話框(4) = "刪除完成。" 對話框(5) = "請輸入要查詢的供應商資料。" Else Me.Text = "Pemasok Material" 供應商編號_lb.Text = "No. Pemasok." 簡稱_lb.Text = "Kategori Pemasok" 公司電話1_lb.Text = "TEL No.1" 公司電話2_lb.Text = "TEL No.2" 公司電話3_lb.Text = "TEL No.3" 公司名_ib.Text = "Nama Perusahaan" 公司地址_lb.Text = "Alamat Perusahaan" 傳真1_lb.Text = "FAX No.1" 傳真2_lb.Text = "FAX No.2" 傳真3_lb.Text = "FAX No.3" 聯繫人1_lb.Text = "Kontak Orang 1" 聯繫人2_lb.Text = "Kontak oOrang 2" 聯繫人3_lb.Text = "Kontak Orang 3" 聯繫人職稱1_lb.Text = "Posisi 1" 聯繫人職稱2_lb.Text = "Posisi 2" 聯繫人職稱3_lb.Text = "Posisi 3" 聯繫人電話1_lb.Text = "TEL Staf 1" 聯繫人電話2_lb.Text = "TEL Staf 2" 聯繫人電話3_lb.Text = "TEL Staf 3" 聯繫人信箱1_lb.Text = "E-Mail Staf 1" 聯繫人信箱2_lb.Text = "E-Mail Staf 2" 聯繫人信箱3_lb.Text = "E-Mail Staf 3" 查詢_bt.Text = "Cari" 新增_bt.Text = "Siap Menambahkan" 確認新增_bt.Text = "Simpan" 修改_bt.Text = "Simpan Revisi" 刪除_bt.Text = "Hapus" 類別管理_bt.Text = "Manajemen Tipe" 表頭(49) = "NO" 表頭(50) = "Singkatan Pabrikan." 表頭(51) = "Nama Perusahaan" 表頭(52) = "Alamat Perusahaan" 表頭(53) = "TEL No 1" 表頭(54) = "TEL No 2" 表頭(55) = "TEL No 3" 表頭(56) = "FAX No 1" 表頭(57) = "FAX No 2" 表頭(58) = "FAX No 3" 表頭(59) = "Orang1" 表頭(60) = "Orang2" 表頭(61) = "Orang3" 對話框(0) = "Kolom dengan font merah harus diisi, tidak kosong." 對話框(1) = "Penambahan selesai." 對話框(2) = "Modifikasi selesai." 對話框(3) = "Anda yakin ingin menghapus data ini?" 對話框(4) = "Penghapusan selesai." 對話框(5) = "Harap masukkan informasi pemasok untuk di query." End If End Sub Private Sub 物料供應商_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 介面 = "H299" : 載入系統語言() : PA = "" 格式設定1() : 讀取供應商料表() : 類別管理_cb_下拉表單資料載入() 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 MyModule1.清單字體大小調整() End Sub Private Sub 供應商管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged MyModule1.清單字體大小調整() End Sub Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) 廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", ICS_ASMS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H299" : 載入系統語言() 讀取供應商料表() End Sub Private Sub 廠商清單_dgv_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(22, 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 If 廠商清單_dgv(1, e.RowIndex).Value.ToString = "" Then 類別管理_cb_下拉表單資料載入() Else 類別管理_cb.Text = 廠商清單_dgv(1, e.RowIndex).Value.ToString End If End If End Sub Private Sub 新增_bt_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 = "" 類別管理_cb.Text = "" SQL_建築物料供應商資料管理_最後一筆資料() If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "DS000" : End If conn.Close() Dim NUM1 As Integer NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 3)) + 1 If NUM1 < 10 Then : 供應商編號_tb.Text = "DS" & "00" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "DS" & "0" & NUM1 ElseIf NUM1 > 99 Then : 供應商編號_tb.Text = "DS" & NUM1 : End If 格式設定2() 確認新增_bt.Enabled = True : 新增_bt.Enabled = False End Sub Private Sub 確認新增_bt_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 MsgBox(對話框(0)) Else SQL_供應商資料表_新增() : conn.Close() : MsgBox(對話框(1)) : 格式設定1() : 讀取供應商料表() End If End Sub Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click SQL_供應商資料表_修改() : conn.Close() : MsgBox(對話框(2)) : 讀取供應商料表() End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click Dim aa As MsgBoxResult = MsgBox(對話框(3), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_供應商資料表_刪除() : conn.Close() : MsgBox(對話框(4)) : 讀取供應商料表() End If End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click CHB("請輸入要查詢的供應商資料。") : PA = 訊息回應 : 讀取供應商料表() : PA = "" End Sub Private Sub 類別管理_bt_Click_1(sender As Object, e As EventArgs) Handles 類別管理_bt.Click 供應商類別管理.ShowDialog() : 供應商類別管理.BringToFront() : 類別管理_cb_下拉表單資料載入() End Sub Private Sub 類別管理_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 類別管理_cb.SelectedIndexChanged PA20 = 類別管理_cb.Text : SQL_供應商類別管理_查詢() If dr.Read() Then : 供應商簡稱_tb.Text = dr("編碼").ToString : Else : 供應商簡稱_tb.Text = "" : End If End Sub Private Sub 類別管理_bt_MouseEnter(sender As Object, e As EventArgs) Handles 類別管理_bt.MouseEnter ToolTip1.SetToolTip(Me.類別管理_bt, "類別管理") End Sub Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter ToolTip1.SetToolTip(Me.查詢_bt, "查詢") End Sub Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter ToolTip1.SetToolTip(Me.新增_bt, "新增準備") End Sub Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter ToolTip1.SetToolTip(Me.確認新增_bt, "確認新增") End Sub Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter ToolTip1.SetToolTip(Me.修改_bt, "修改存檔") End Sub Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter ToolTip1.SetToolTip(Me.刪除_bt, "刪除") End Sub End Class