Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

供應商_一般物料.vb 7.5KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109
  1. Option Strict Off
  2. Public Class 供應商_一般物料
  3. Private ReadOnly ds As New DataSet
  4. Private Sub 讀取供應商料表()
  5. 明細_dgv.DataSource = Nothing : ds.Clear()
  6. 明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  7. 明細_dgv.ColumnHeadersHeight = 25
  8. 明細_dgv.AllowUserToAddRows = False
  9. SQL_讀取供應商料表清單()
  10. 列印用SQL = SQL1
  11. da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
  12. End Sub
  13. Private Sub Set_grid()
  14. 明細_dgv.Columns(0).FillWeight = 80 : 明細_dgv.Columns(1).FillWeight = 90 : 明細_dgv.Columns(2).FillWeight = 200
  15. 明細_dgv.Columns(3).FillWeight = 400 : 明細_dgv.Columns(4).FillWeight = 120 : 明細_dgv.Columns(5).FillWeight = 120
  16. 明細_dgv.Columns(6).FillWeight = 120 : 明細_dgv.Columns(7).FillWeight = 120 : 明細_dgv.Columns(8).FillWeight = 120
  17. 明細_dgv.Columns(9).FillWeight = 120 : 明細_dgv.Columns(10).FillWeight = 120 : 明細_dgv.Columns(11).FillWeight = 120
  18. 明細_dgv.Columns(12).FillWeight = 120
  19. 明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False
  20. 明細_dgv.Columns(16).Visible = False : 明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False
  21. 明細_dgv.Columns(19).Visible = False : 明細_dgv.Columns(20).Visible = False : 明細_dgv.Columns(21).Visible = False
  22. End Sub
  23. Private Sub 格式設定1()
  24. 供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True
  25. 供應商簡稱_lb.ForeColor = Color.Black : 公司名_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black : 公司傳真1_lb.ForeColor = Color.Black
  26. End Sub
  27. Private Sub 格式設定2()
  28. 供應商簡稱_lb.ForeColor = Color.Red : 公司名_lb.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red : 公司傳真1_lb.ForeColor = Color.Red
  29. End Sub
  30. Private Sub Set_日期格式轉換()
  31. DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss")
  32. End Sub
  33. Private Sub 供應商_一般物料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  34. Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  35. 格式設定1() : 讀取供應商料表() : Set_grid()
  36. If CC(6) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If
  37. If CC(7) = False Then : 刪除_bt.Enabled = False : End If
  38. If CC(8) = False Then : 列印成EXCEL_bt.Enabled = False : End If
  39. End Sub
  40. Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
  41. If e.RowIndex = -1 Then : Else
  42. 供應商編號_tb.Text = 明細_dgv(0, e.RowIndex).Value.ToString : 供應商簡稱_tb.Text = 明細_dgv(1, e.RowIndex).Value.ToString
  43. 公司名_tb.Text = 明細_dgv(2, e.RowIndex).Value.ToString : 公司地址_tb.Text = 明細_dgv(3, e.RowIndex).Value.ToString
  44. 公司電話1_tb.Text = 明細_dgv(4, e.RowIndex).Value.ToString : 公司電話2_tb.Text = 明細_dgv(5, e.RowIndex).Value.ToString
  45. 公司電話3_tb.Text = 明細_dgv(6, e.RowIndex).Value.ToString : 公司傳真1_tb.Text = 明細_dgv(7, e.RowIndex).Value.ToString
  46. 公司傳真2_tb.Text = 明細_dgv(8, e.RowIndex).Value.ToString : 公司傳真3_tb.Text = 明細_dgv(9, e.RowIndex).Value.ToString
  47. 聯繫人1_tb.Text = 明細_dgv(10, e.RowIndex).Value.ToString : 聯繫人2_tb.Text = 明細_dgv(11, e.RowIndex).Value.ToString
  48. 聯繫人3_tb.Text = 明細_dgv(12, e.RowIndex).Value.ToString : 聯繫人1職稱_tb.Text = 明細_dgv(13, e.RowIndex).Value.ToString
  49. 聯繫人2職稱_tb.Text = 明細_dgv(14, e.RowIndex).Value.ToString : 聯繫人3職稱_tb.Text = 明細_dgv(15, e.RowIndex).Value.ToString
  50. 聯繫人1電話_tb.Text = 明細_dgv(16, e.RowIndex).Value.ToString : 聯繫人2電話_tb.Text = 明細_dgv(17, e.RowIndex).Value.ToString
  51. 聯繫人3電話_tb.Text = 明細_dgv(18, e.RowIndex).Value.ToString : 聯繫人1信箱_tb.Text = 明細_dgv(19, e.RowIndex).Value.ToString
  52. 聯繫人2信箱_tb.Text = 明細_dgv(20, e.RowIndex).Value.ToString : 聯繫人3信箱_tb.Text = 明細_dgv(21, e.RowIndex).Value.ToString
  53. End If
  54. End Sub
  55. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
  56. 供應商簡稱_tb.Text = "" : 公司名_tb.Text = "" : 公司地址_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 公司電話3_tb.Text = ""
  57. 公司傳真1_tb.Text = "" : 公司傳真2_tb.Text = "" : 公司傳真3_tb.Text = "" : 聯繫人1電話_tb.Text = "" : 聯繫人2電話_tb.Text = ""
  58. 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫人3_tb.Text = "" : 聯繫人1職稱_tb.Text = "" : 聯繫人2職稱_tb.Text = "" : 聯繫人3職稱_tb.Text = ""
  59. 聯繫人3電話_tb.Text = "" : 聯繫人1信箱_tb.Text = "" : 聯繫人2信箱_tb.Text = "" : 聯繫人3信箱_tb.Text = ""
  60. SQL_查詢最後一碼()
  61. If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "CU0000" : End If
  62. conn.Close()
  63. Dim NUM1 As Integer
  64. NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 4)) + 1
  65. If NUM1 < 10 Then : 供應商編號_tb.Text = "CU" & "000" & NUM1
  66. ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CU" & "00" & NUM1
  67. ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CU" & "0" & NUM1
  68. ElseIf NUM1 > 999 Then : 供應商編號_tb.Text = "CU" & NUM1
  69. End If
  70. 格式設定2()
  71. 確認新增_bt.Enabled = True : 新增_bt.Enabled = False
  72. End Sub
  73. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
  74. If 供應商簡稱_tb.Text = "" Or 公司名_tb.Text = "" Or 公司地址_tb.Text = "" Or 公司電話1_tb.Text = "" Or 公司傳真1_tb.Text = "" Then
  75. MsgBox("紅色字體處為必填項,不可空白")
  76. Else
  77. SQL_新增供應商清單_一般物料()
  78. conn.Close()
  79. MsgBox("新增完成")
  80. 格式設定1()
  81. 讀取供應商料表() : Set_grid()
  82. End If
  83. End Sub
  84. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
  85. SQL_更改供應商清單_一般物料()
  86. conn.Close()
  87. Set_日期格式轉換()
  88. MsgBox("修改完成")
  89. 讀取供應商料表() : Set_grid()
  90. End Sub
  91. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
  92. SQL_刪除供應商清單() : conn.Close()
  93. Dim aa As MsgBoxResult
  94. aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
  95. If aa = MsgBoxResult.Ok Then
  96. Set_日期格式轉換()
  97. MsgBox("刪除完成")
  98. 讀取供應商料表() : Set_grid()
  99. End If
  100. End Sub
  101. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
  102. PA = InputBox("請輸入要查詢的供應商資料") : 讀取供應商料表() : Set_grid() : PA = ""
  103. End Sub
  104. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
  105. 列印_供應商資料表.Show()
  106. End Sub
  107. End Class