HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
İzle 4
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Değişiklik İstekleri 0 Sürümler 0 Wiki Aktivite
Açıklama Yok
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 İşlemeler
1 Dal
Ağaç: ffdb5b9c73
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'ffdb5b9c73'den
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/物料請採購/供應商管理.vb

供應商管理.vb 29KB
Geçmiş Ham

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310 
  1. Option Strict Off

  2. Imports System.IO

  3. Public Class 供應商管理

  4.     Dim RI As Integer = -1

  5.     Dim SK As String = "要查找的 KEY"

  6.     Dim Str As String = Application.StartupPath

  7.     Dim 對話框(12) As String

  8.     Private Sub 讀取供應商料表()

  9.         Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear()

  10.         廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  11.         廠商清單_dgv.ColumnHeadersHeight = 25 : 廠商清單_dgv.AllowUserToAddRows = False : 廠商清單_dgv.RowTemplate.Height = 35

  12. 

  13.         SQL_建築物料供應商資料管理_清單()

  14.         列印用SQL = SQL1 : da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0)

  15. 

  16.         廠商清單_dgv.Columns(0).FillWeight = 80 : 廠商清單_dgv.Columns(1).FillWeight = 150 : 廠商清單_dgv.Columns(2).FillWeight = 200

  17.         廠商清單_dgv.Columns(3).FillWeight = 400 : 廠商清單_dgv.Columns(4).FillWeight = 120 : 廠商清單_dgv.Columns(5).Visible = False

  18.         廠商清單_dgv.Columns(6).Visible = False : 廠商清單_dgv.Columns(7).FillWeight = 120 : 廠商清單_dgv.Columns(8).Visible = False

  19.         廠商清單_dgv.Columns(9).Visible = False : 廠商清單_dgv.Columns(10).FillWeight = 120 : 廠商清單_dgv.Columns(11).FillWeight = 120

  20.         廠商清單_dgv.Columns(12).Visible = False

  21.         廠商清單_dgv.Columns(13).Visible = False : 廠商清單_dgv.Columns(14).Visible = False : 廠商清單_dgv.Columns(15).Visible = False

  22.         廠商清單_dgv.Columns(16).Visible = False : 廠商清單_dgv.Columns(17).Visible = False : 廠商清單_dgv.Columns(18).Visible = False

  23.         廠商清單_dgv.Columns(19).Visible = False : 廠商清單_dgv.Columns(20).Visible = False : 廠商清單_dgv.Columns(21).Visible = False

  24.         廠商清單_dgv.Columns(22).Visible = False : 廠商清單_dgv.Columns(23).Visible = False : 廠商清單_dgv.Columns(24).Visible = False

  25.         廠商清單_dgv.Columns(25).Visible = False : 廠商清單_dgv.Columns(26).Visible = False

  26. 

  27.         For I As Integer = 0 To 廠商清單_dgv.Columns.Count - 1 : 廠商清單_dgv.Columns(I).ReadOnly = True : Next

  28.     End Sub

  29.     Private Sub 格式設定1()

  30.         供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True

  31.         If 深色風格 = False Then

  32.             簡稱_lb.ForeColor = Color.Black : 公司名_ib.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black : 傳真1_lb.ForeColor = Color.Black

  33.         Else

  34.             簡稱_lb.ForeColor = Color.White : 公司名_ib.ForeColor = Color.White : 公司地址_lb.ForeColor = Color.White : 公司電話1_lb.ForeColor = Color.White : 傳真1_lb.ForeColor = Color.White

  35.         End If

  36.     End Sub

  37.     Private Sub 格式設定2()

  38.         If 深色風格 = False Then

  39.             簡稱_lb.ForeColor = Color.Red : 公司名_ib.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red : 傳真1_lb.ForeColor = Color.Red

  40.         Else

  41.             簡稱_lb.ForeColor = Color.LightPink : 公司名_ib.ForeColor = Color.LightPink : 公司地址_lb.ForeColor = Color.LightPink

  42.             公司電話1_lb.ForeColor = Color.LightPink : 傳真1_lb.ForeColor = Color.LightPink

  43.         End If

  44.     End Sub

  45.     Private Sub Set_語言()

  46.         語言_dgv.DataSource = Nothing

  47.         語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  48.         語言_dgv.ColumnHeadersHeight = 25

  49.         語言_dgv.AllowUserToAddRows = False

  50.         For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next

  51.         If File.Exists(Str + "\LANGUAGE_FILE.csv") Then

  52.             Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)

  53.             Dim line As String = filereader.ReadLine()

  54.             While Not (line Is Nothing)

  55.                 line = filereader.ReadLine()

  56.                 If line <> Nothing Then

  57.                     line = line.Replace("""", "")

  58.                     If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-167" Or Strings.Left(line, 4) = 介面 Then

  59.                         If 系統語言 = "繁體中文" Then

  60.                             If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)

  61.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  62.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  63.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  64.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  65.                             End If

  66.                         ElseIf 系統語言 = "English" Then

  67.                             If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)

  68.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  69.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  70.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  71.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  72.                             End If

  73.                         ElseIf 系統語言 = "Indonesian" Then

  74.                             If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)

  75.                                 語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)

  76.                                 If Strings.Mid(line, 13, 300).EndsWith(",") Then

  77.                                     語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)

  78.                                 Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If

  79.                             End If

  80.                         End If

  81.                     End If

  82.                 End If

  83.             End While

  84.             filereader.Close()

  85.         End If

  86.     End Sub

  87.     Private Sub Set_語言查詢()

  88.         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows

  89.             If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then

  90.                 RI = row.Index : Exit For

  91.             End If

  92.         Next

  93.     End Sub

  94.     Private Sub 語言轉換讀取()

  95.         Set_語言()

  96.         SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString

  97.         SK = "H299-100" : Set_語言查詢() : 公司名_ib.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-101" : Set_語言查詢() : 公司地址_lb.Text = 語言_dgv(1, RI).Value.ToString

  98.         SK = "H299-102" : Set_語言查詢() : 公司電話1_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-103" : Set_語言查詢() : 公司電話2_lb.Text = 語言_dgv(1, RI).Value.ToString

  99.         SK = "H299-104" : Set_語言查詢() : 公司電話3_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-105" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString

  100.         SK = "H299-106" : Set_語言查詢() : 供應商編號_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-107" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString

  101.         SK = "H299-108" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "H299-109" : Set_語言查詢() : 表頭(51) = 語言_dgv(1, RI).Value.ToString

  102.         SK = "H299-110" : Set_語言查詢() : 表頭(53) = 語言_dgv(1, RI).Value.ToString : SK = "H299-111" : Set_語言查詢() : 表頭(54) = 語言_dgv(1, RI).Value.ToString

  103.         SK = "H299-112" : Set_語言查詢() : 表頭(55) = 語言_dgv(1, RI).Value.ToString : SK = "H299-113" : Set_語言查詢() : 表頭(52) = 語言_dgv(1, RI).Value.ToString

  104.         SK = "H299-114" : Set_語言查詢() : 表頭(56) = 語言_dgv(1, RI).Value.ToString : SK = "H299-115" : Set_語言查詢() : 表頭(57) = 語言_dgv(1, RI).Value.ToString

  105.         SK = "H299-116" : Set_語言查詢() : 表頭(58) = 語言_dgv(1, RI).Value.ToString : SK = "H299-117" : Set_語言查詢() : 表頭(49) = 語言_dgv(1, RI).Value.ToString

  106.         SK = "H299-118" : Set_語言查詢() : 表頭(59) = 語言_dgv(1, RI).Value.ToString : SK = "H299-119" : Set_語言查詢() : 表頭(60) = 語言_dgv(1, RI).Value.ToString

  107.         SK = "H299-120" : Set_語言查詢() : 表頭(61) = 語言_dgv(1, RI).Value.ToString : SK = "H299-121" : Set_語言查詢() : 表頭(50) = 語言_dgv(1, RI).Value.ToString

  108.         SK = "H299-122" : Set_語言查詢() : 傳真1_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-123" : Set_語言查詢() : 傳真2_lb.Text = 語言_dgv(1, RI).Value.ToString

  109.         SK = "H299-124" : Set_語言查詢() : 傳真3_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-125" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString

  110.         SK = "H299-126" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H299-127" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString

  111.         SK = "H299-128" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "H299-129" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString

  112.         SK = "H299-130" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H299-131" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString

  113.         SK = "H299-132" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString : SK = "H299-133" : Set_語言查詢() : 聯繫人1_lb.Text = 語言_dgv(1, RI).Value.ToString

  114.         SK = "H299-134" : Set_語言查詢() : 聯繫人2_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-135" : Set_語言查詢() : 聯繫人3_lb.Text = 語言_dgv(1, RI).Value.ToString

  115.         SK = "H299-136" : Set_語言查詢() : 聯繫人信箱1_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-137" : Set_語言查詢() : 聯繫人信箱2_lb.Text = 語言_dgv(1, RI).Value.ToString

  116.         SK = "H299-138" : Set_語言查詢() : 聯繫人信箱3_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-139" : Set_語言查詢() : 聯繫人電話1_lb.Text = 語言_dgv(1, RI).Value.ToString

  117.         SK = "H299-140" : Set_語言查詢() : 聯繫人電話2_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-141" : Set_語言查詢() : 聯繫人電話3_lb.Text = 語言_dgv(1, RI).Value.ToString

  118.         SK = "H299-142" : Set_語言查詢() : 聯繫人職稱1_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-143" : Set_語言查詢() : 聯繫人職稱2_lb.Text = 語言_dgv(1, RI).Value.ToString

  119.         SK = "H299-144" : Set_語言查詢() : 聯繫人職稱3_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H299-145" : Set_語言查詢() : 簡稱_lb.Text = 語言_dgv(1, RI).Value.ToString

  120.         SK = "H299-146" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString

  121. 

  122.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  123.         Me.Text = 系統語言字典("H001-167-" & 語言)

  124.         支付對象_lb.Text = 系統語言字典("H314-105-" & 語言) : 銀行名稱_lb.Text = 系統語言字典("H314-115-" & 語言) : 銀行帳號_lb.Text = 系統語言字典("H314-114-" & 語言)

  125.         銀行支行_lb.Text = 系統語言字典("H314-116-" & 語言) : 對話框(12) = 系統語言字典("H299-147-" & 語言)

  126. 

  127.     End Sub

  128.     Private Sub 類別管理_bt_MouseEnter(sender As Object, e As EventArgs) Handles 類別管理_bt.MouseEnter

  129.         ToolTip1.SetToolTip(Me.類別管理_bt, 對話框(6))

  130.     End Sub

  131.     Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter

  132.         ToolTip1.SetToolTip(Me.查詢_bt, 對話框(7))

  133.     End Sub

  134.     Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter

  135.         ToolTip1.SetToolTip(Me.新增_bt, 對話框(8))

  136.     End Sub

  137.     Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter

  138.         ToolTip1.SetToolTip(Me.確認新增_bt, 對話框(9))

  139.     End Sub

  140.     Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter

  141.         ToolTip1.SetToolTip(Me.修改_bt, 對話框(10))

  142.     End Sub

  143.     Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter

  144.         ToolTip1.SetToolTip(Me.刪除_bt, 對話框(11))

  145.     End Sub

  146.     Private Sub 類別管理_cb_下拉表單資料載入()

  147.         SQL_供應商類別_下拉清單() : 類別管理_cb.Items.Clear()

  148.         While (dr.Read()) : 類別管理_cb.Items.Add(dr("類別")) : End While : conn.Close()

  149.     End Sub

  150.     Private Sub 供應商管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  151.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  152.         風格() : H(299) = True : 介面 = "H299" : 語言轉換讀取() : PA = "" : Panel1.SendToBack() : 顯示說明(999, True)

  153.         If CC(12) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If

  154.         If CC(13) = False Then : 刪除_bt.Enabled = False : End If

  155.         清單字體大小調整()

  156.     End Sub

  157.     Private Sub 供應商管理_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  158.         格式設定1() : 讀取供應商料表() : 類別管理_cb_下拉表單資料載入()

  159.     End Sub

  160.     Private Sub 供應商管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  161.         清單字體大小調整()

  162.     End Sub

  163.     Private Sub 清單字體大小調整()

  164.         MyMod.清單字體大小調整()

  165.         廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  166.     End Sub

  167.     Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  168.         H(299) = False : MyMod.虛擬桌面開啟()

  169.     End Sub

  170.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  171.         介面 = "H299" : 語言轉換讀取() : 讀取供應商料表() : 類別管理_cb_下拉表單資料載入()

  172.     End Sub

  173.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  174.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  175.     End Sub

  176.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  177.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  178.     End Sub

  179.     Private Sub 廠商清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 廠商清單_dgv.CellClick

  180.         If e.RowIndex = -1 Then : Else

  181.             供應商編號_tb.Text = 廠商清單_dgv(0, e.RowIndex).Value.ToString : 供應商簡稱_tb.Text = 廠商清單_dgv(22, e.RowIndex).Value.ToString

  182.             公司名_tb.Text = 廠商清單_dgv(2, e.RowIndex).Value.ToString : 地址_tb.Text = 廠商清單_dgv(3, e.RowIndex).Value.ToString

  183.             電話1_tb.Text = 廠商清單_dgv(4, e.RowIndex).Value.ToString : 電話2_tb.Text = 廠商清單_dgv(5, e.RowIndex).Value.ToString

  184.             電話3_tb.Text = 廠商清單_dgv(6, e.RowIndex).Value.ToString : 傳真1_tb.Text = 廠商清單_dgv(7, e.RowIndex).Value.ToString

  185.             傳真2_tb.Text = 廠商清單_dgv(8, e.RowIndex).Value.ToString : 傳真3_tb.Text = 廠商清單_dgv(9, e.RowIndex).Value.ToString

  186.             聯繫人1_tb.Text = 廠商清單_dgv(10, e.RowIndex).Value.ToString : 聯繫人2_tb.Text = 廠商清單_dgv(11, e.RowIndex).Value.ToString

  187.             聯繫人3_tb.Text = 廠商清單_dgv(12, e.RowIndex).Value.ToString : 職稱1_tb.Text = 廠商清單_dgv(13, e.RowIndex).Value.ToString

  188.             職稱2_tb.Text = 廠商清單_dgv(14, e.RowIndex).Value.ToString : 職稱3_tb.Text = 廠商清單_dgv(15, e.RowIndex).Value.ToString

  189.             聯繫電話1_tb.Text = 廠商清單_dgv(16, e.RowIndex).Value.ToString : 聯繫電話2_tb.Text = 廠商清單_dgv(17, e.RowIndex).Value.ToString

  190.             聯繫電話3_tb.Text = 廠商清單_dgv(18, e.RowIndex).Value.ToString : 信箱1_tb.Text = 廠商清單_dgv(19, e.RowIndex).Value.ToString

  191.             信箱2_tb.Text = 廠商清單_dgv(20, e.RowIndex).Value.ToString : 信箱3_tb.Text = 廠商清單_dgv(21, e.RowIndex).Value.ToString

  192.             支付對象_tb.Text = 廠商清單_dgv(23, e.RowIndex).Value.ToString : 銀行名稱_tb.Text = 廠商清單_dgv(24, e.RowIndex).Value.ToString

  193.             銀行帳號_tb.Text = 廠商清單_dgv(25, e.RowIndex).Value.ToString : 銀行支行_tb.Text = 廠商清單_dgv(26, e.RowIndex).Value.ToString

  194.             If 廠商清單_dgv(1, e.RowIndex).Value.ToString = "" Then : 類別管理_cb_下拉表單資料載入() : Else : 類別管理_cb.Text = 廠商清單_dgv(1, e.RowIndex).Value.ToString : End If

  195.         End If

  196.     End Sub

  197.     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click

  198.         供應商簡稱_tb.Text = "" : 公司名_tb.Text = "" : 地址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = "" : 電話3_tb.Text = "" : 傳真1_tb.Text = ""

  199.         傳真2_tb.Text = "" : 傳真3_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫人3_tb.Text = "" : 職稱1_tb.Text = "" : 職稱2_tb.Text = ""

  200.         職稱3_tb.Text = "" : 聯繫電話1_tb.Text = "" : 聯繫電話2_tb.Text = "" : 聯繫電話3_tb.Text = "" : 信箱1_tb.Text = "" : 信箱2_tb.Text = "" : 信箱3_tb.Text = ""

  201. 

  202.         SQL_建築物料供應商資料管理_最後一筆資料()

  203.         If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "DS000" : End If : conn.Close()

  204.         Dim NUM1 As Integer = Double.Parse(Strings.Right(供應商編號_tb.Text, 3)) + 1

  205.         If NUM1 < 10 Then : 供應商編號_tb.Text = "DS" & "00" & NUM1

  206.         ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "DS" & "0" & NUM1

  207.         ElseIf NUM1 > 99 Then : 供應商編號_tb.Text = "DS" & NUM1 : End If : 格式設定2() : 確認新增_bt.Enabled = True : 新增_bt.Enabled = False

  208.     End Sub

  209.     Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click

  210.         If 供應商簡稱_tb.Text = "" Or 公司名_tb.Text = "" Or 地址_tb.Text = "" Or 電話1_tb.Text = "" Or 傳真1_tb.Text = "" Then : MGB(對話框(0), 1)

  211.         Else : SQL_供應商資料表_新增() : conn.Close() : MGB(對話框(1), 1) : 格式設定1() : 讀取供應商料表() : End If

  212.     End Sub

  213.     Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click

  214.         For i As Integer = 0 To 廠商清單_dgv.Rows.Count - 1

  215.             If 供應商編號_tb.Text = 廠商清單_dgv.Rows(i).Cells(0).Value.ToString Then

  216.                 If 廠商清單_dgv.Rows(i).Cells(23).Value.ToString = "" Or 廠商清單_dgv.Rows(i).Cells(24).Value.ToString = "" Or 廠商清單_dgv.Rows(i).Cells(25).Value.ToString = "" Or

  217.                     廠商清單_dgv.Rows(i).Cells(26).Value.ToString = "" Then

  218.                     SQL_供應商資料表_修改() : conn.Close() : MGB(對話框(2), 1) : 讀取供應商料表()

  219.                 Else

  220.                     SQL_供應商資料表_修改_改() : conn.Close() : MGB(對話框(12), 1) : MGB(對話框(2), 1) : 讀取供應商料表()

  221.                     If 登入人IP = 測試IP Then : Else : LIN訊息通知("CC213", "LIN HSING HAO") : LIN訊息通知("CC213", "李協叡") : End If

  222.                 End If

  223.                 Exit For

  224.             End If

  225.         Next

  226.     End Sub

  227.     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click

  228.         MGB(對話框(3), 2) : If 訊息回應 = "YES" Then : SQL_供應商資料表_刪除() : conn.Close() : MGB(對話框(4), 1) : 讀取供應商料表() : End If

  229.     End Sub

  230.     Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click

  231.         INB(對話框(5)) : PA = 訊息回應 : 讀取供應商料表() : PA = ""

  232.     End Sub

  233.     Private Sub 類別管理_bt_Click_1(sender As Object, e As EventArgs) Handles 類別管理_bt.Click

  234.         供應商類別管理.ShowDialog() : 供應商類別管理.BringToFront() : 類別管理_cb_下拉表單資料載入()

  235.     End Sub

  236.     Private Sub 類別管理_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 類別管理_cb.SelectedIndexChanged

  237.         PA20 = 類別管理_cb.Text : SQL_供應商類別管理_查詢() : If dr.Read() Then : 供應商簡稱_tb.Text = dr("編碼").ToString : Else : 供應商簡稱_tb.Text = "" : End If

  238.     End Sub

  239. 

  240.     Private Sub 風格()

  241.         If 深色風格 = False Then

  242.             Me.BackColor = SystemColors.Control

  243.             '----------------黑-------------------------------------------

  244.             簡稱_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black : 傳真1_lb.ForeColor = Color.Black

  245.             公司名_ib.ForeColor = Color.Black : 支付對象_lb.ForeColor = Color.Black : 銀行名稱_lb.ForeColor = Color.Black : 銀行帳號_lb.ForeColor = Color.Black

  246.             銀行支行_lb.ForeColor = Color.Black

  247.             '----------------紅-------------------------------------------

  248.             供應商編號_lb.ForeColor = Color.Red

  249.             '----------------綠-------------------------------------------

  250.             聯繫人1_lb.ForeColor = Color.Green : 聯繫人職稱1_lb.ForeColor = Color.Green : 聯繫人電話1_lb.ForeColor = Color.Green : 聯繫人信箱1_lb.ForeColor = Color.Green

  251.             '----------------藍-------------------------------------------

  252.             聯繫人2_lb.ForeColor = Color.Blue : 聯繫人職稱2_lb.ForeColor = Color.Blue : 聯繫人電話2_lb.ForeColor = Color.Blue : 聯繫人信箱2_lb.ForeColor = Color.Blue

  253.             '----------------紫-------------------------------------------

  254.             聯繫人3_lb.ForeColor = Color.Purple : 聯繫人職稱3_lb.ForeColor = Color.Purple : 聯繫人電話3_lb.ForeColor = Color.Purple : 聯繫人信箱3_lb.ForeColor = Color.Purple

  255. 

  256.             供應商編號_tb.BackColor = Color.White : 供應商編號_tb.ForeColor = Color.Black : 地址_tb.BackColor = Color.White : 地址_tb.ForeColor = Color.Black

  257.             電話1_tb.BackColor = Color.White : 電話1_tb.ForeColor = Color.Black : 傳真1_tb.BackColor = Color.White : 傳真1_tb.ForeColor = Color.Black

  258.             公司名_tb.BackColor = Color.White : 公司名_tb.ForeColor = Color.Black : 聯繫人1_tb.BackColor = Color.White : 聯繫人1_tb.ForeColor = Color.Black

  259.             聯繫人2_tb.BackColor = Color.White : 聯繫人2_tb.ForeColor = Color.Black : 聯繫人3_tb.BackColor = Color.White : 聯繫人3_tb.ForeColor = Color.Black

  260.             職稱1_tb.BackColor = Color.White : 職稱1_tb.ForeColor = Color.Black : 職稱2_tb.BackColor = Color.White : 職稱2_tb.ForeColor = Color.Black

  261.             職稱3_tb.BackColor = Color.White : 職稱3_tb.ForeColor = Color.Black : 聯繫電話1_tb.BackColor = Color.White : 聯繫電話1_tb.ForeColor = Color.Black

  262.             聯繫電話2_tb.BackColor = Color.White : 聯繫電話2_tb.ForeColor = Color.Black : 聯繫電話3_tb.BackColor = Color.White : 聯繫電話3_tb.ForeColor = Color.Black

  263.             信箱1_tb.BackColor = Color.White : 信箱1_tb.ForeColor = Color.Black : 信箱2_tb.BackColor = Color.White : 信箱2_tb.ForeColor = Color.Black

  264.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 信箱3_tb.BackColor = Color.White : 信箱3_tb.ForeColor = Color.Black

  265.             R_bt.BackColor = Color.White : R_bt.ForeColor = Color.Black : 支付對象_tb.BackColor = Color.White : 支付對象_tb.ForeColor = Color.Black

  266.             銀行名稱_tb.BackColor = Color.White : 銀行名稱_tb.ForeColor = Color.Black : 銀行帳號_tb.BackColor = Color.White : 銀行帳號_tb.ForeColor = Color.Black

  267.             銀行支行_tb.BackColor = Color.White : 銀行支行_tb.ForeColor = Color.Black

  268. 

  269.             類別管理_bt.BackColor = Color.White : 查詢_bt.BackColor = Color.White : 新增_bt.BackColor = Color.White : 確認新增_bt.BackColor = Color.White

  270.             修改_bt.BackColor = Color.White : 刪除_bt.BackColor = Color.White

  271. 

  272.             廠商清單_dgv.EnableHeadersVisualStyles = True : 廠商清單_dgv.BackgroundColor = Color.White : 廠商清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  273.             廠商清單_dgv.DefaultCellStyle.BackColor = Color.White : 廠商清單_dgv.DefaultCellStyle.ForeColor = Color.Black

  274.         Else

  275.             Me.BackColor = Color.Black

  276.             '----------------黑-------------------------------------------

  277.             簡稱_lb.ForeColor = Color.White : 公司地址_lb.ForeColor = Color.White : 公司電話1_lb.ForeColor = Color.White : 傳真1_lb.ForeColor = Color.White

  278.             公司名_ib.ForeColor = Color.White : 支付對象_lb.ForeColor = Color.White : 銀行名稱_lb.ForeColor = Color.White : 銀行帳號_lb.ForeColor = Color.White

  279.             銀行支行_lb.ForeColor = Color.White

  280.             '----------------紅-------------------------------------------

  281.             供應商編號_lb.ForeColor = Color.LightPink

  282.             '----------------綠-------------------------------------------

  283.             聯繫人1_lb.ForeColor = Color.LightGreen : 聯繫人職稱1_lb.ForeColor = Color.LightGreen : 聯繫人電話1_lb.ForeColor = Color.LightGreen : 聯繫人信箱1_lb.ForeColor = Color.LightGreen

  284.             '----------------藍-------------------------------------------

  285.             聯繫人2_lb.ForeColor = Color.LightBlue : 聯繫人職稱2_lb.ForeColor = Color.LightBlue : 聯繫人電話2_lb.ForeColor = Color.LightBlue : 聯繫人信箱2_lb.ForeColor = Color.LightBlue

  286.             '----------------紫-------------------------------------------

  287.             聯繫人3_lb.ForeColor = Color.Violet : 聯繫人職稱3_lb.ForeColor = Color.Violet : 聯繫人電話3_lb.ForeColor = Color.Violet : 聯繫人信箱3_lb.ForeColor = Color.Violet

  288. 

  289.             供應商編號_tb.BackColor = Color.DimGray : 供應商編號_tb.ForeColor = Color.White : 地址_tb.BackColor = Color.DimGray : 地址_tb.ForeColor = Color.White

  290.             電話1_tb.BackColor = Color.DimGray : 電話1_tb.ForeColor = Color.White : 傳真1_tb.BackColor = Color.DimGray : 傳真1_tb.ForeColor = Color.White

  291.             公司名_tb.BackColor = Color.DimGray : 公司名_tb.ForeColor = Color.White : 聯繫人1_tb.BackColor = Color.DimGray : 聯繫人1_tb.ForeColor = Color.White

  292.             聯繫人2_tb.BackColor = Color.DimGray : 聯繫人2_tb.ForeColor = Color.White : 聯繫人3_tb.BackColor = Color.DimGray : 聯繫人3_tb.ForeColor = Color.White

  293.             職稱1_tb.BackColor = Color.DimGray : 職稱1_tb.ForeColor = Color.White : 職稱2_tb.BackColor = Color.DimGray : 職稱2_tb.ForeColor = Color.White

  294.             職稱3_tb.BackColor = Color.DimGray : 職稱3_tb.ForeColor = Color.White : 聯繫電話1_tb.BackColor = Color.DimGray : 聯繫電話1_tb.ForeColor = Color.White

  295.             聯繫電話2_tb.BackColor = Color.DimGray : 聯繫電話2_tb.ForeColor = Color.White : 聯繫電話3_tb.BackColor = Color.DimGray : 聯繫電話3_tb.ForeColor = Color.White

  296.             信箱1_tb.BackColor = Color.DimGray : 信箱1_tb.ForeColor = Color.White : 信箱2_tb.BackColor = Color.DimGray : 信箱2_tb.ForeColor = Color.White

  297.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 信箱3_tb.BackColor = Color.DimGray : 信箱3_tb.ForeColor = Color.White

  298.             R_bt.BackColor = Color.DimGray : R_bt.ForeColor = Color.White : 支付對象_tb.BackColor = Color.DimGray : 支付對象_tb.ForeColor = Color.White

  299.             銀行名稱_tb.BackColor = Color.DimGray : 銀行名稱_tb.ForeColor = Color.White : 銀行帳號_tb.BackColor = Color.DimGray : 銀行帳號_tb.ForeColor = Color.White

  300.             銀行支行_tb.BackColor = Color.DimGray : 銀行支行_tb.ForeColor = Color.White

  301. 

  302.             類別管理_bt.BackColor = Color.DimGray : 查詢_bt.BackColor = Color.DimGray : 新增_bt.BackColor = Color.DimGray : 確認新增_bt.BackColor = Color.DimGray

  303.             修改_bt.BackColor = Color.DimGray : 刪除_bt.BackColor = Color.DimGray

  304. 

  305.             廠商清單_dgv.EnableHeadersVisualStyles = False : 廠商清單_dgv.BackgroundColor = Color.DimGray : 廠商清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  306.             廠商清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black

  307.             廠商清單_dgv.DefaultCellStyle.BackColor = Color.Black : 廠商清單_dgv.DefaultCellStyle.ForeColor = Color.White

  308.         End If

  309.     End Sub

  310. End Class