説明なし
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

原代碼存放區.vb 3.3KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. Option Strict Off
  2. Public Class 原代碼存放區
  3. Private ReadOnly ds As New DataSet
  4. Private Sub Set_使用者清單()
  5. DataGridView1.DataSource = Nothing : ds.Clear()
  6. DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  7. DataGridView1.ColumnHeadersHeight = 25
  8. DataGridView1.AllowUserToAddRows = False
  9. ConnOpen()
  10. SQL1 = "SELECT 對應客戶, 檔案名稱 FROM 原代碼管理"
  11. CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
  12. End Sub
  13. Private Sub Set_grid()
  14. DataGridView1.Columns(0).Width = 100 : DataGridView1.Columns(1).Width = 200
  15. End Sub
  16. Private Sub 原代碼存放區_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  17. Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  18. Set_使用者清單()
  19. Target1 = Target & AA(2) & "/"
  20. WebBrowser1.Url = New Uri(Target1)
  21. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
  22. WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
  23. End If
  24. End Sub
  25. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  26. timeNow = 0
  27. GCM_ERP_SYS.Timer1.Enabled = False
  28. GCM_ERP_SYS.Timer1.Enabled = True
  29. End Sub
  30. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  31. timeNow = 0
  32. GCM_ERP_SYS.Timer1.Enabled = False
  33. GCM_ERP_SYS.Timer1.Enabled = True
  34. End Sub
  35. Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
  36. If e.RowIndex = -1 Then : Else
  37. TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(1, e.RowIndex).Value.ToString
  38. End If
  39. End Sub
  40. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  41. ConnOpen()
  42. SQL1 = "INSERT INTO 原代碼管理 (對應客戶, 檔案名稱) " &
  43. "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "')"
  44. CmdSet_For_dr()
  45. conn.Close()
  46. Set_使用者清單()
  47. End Sub
  48. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  49. ConnOpen()
  50. SQL1 = "UPDATE 原代碼管理 SET 檔案名稱 = N'" & TextBox2.Text & "' WHERE (對應客戶 = N'" & TextBox1.Text & "')"
  51. CmdSet_For_dr()
  52. conn.Close()
  53. Set_使用者清單()
  54. End Sub
  55. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  56. SQL1 = "DELETE FROM 原代碼管理 WHERE (對應客戶 = N'" & TextBox1.Text & "')"
  57. cmd.CommandText = SQL1 : cmd.Connection = conn
  58. ConnOpen()
  59. Dim aa As MsgBoxResult
  60. aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
  61. If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : End If
  62. conn.Close()
  63. Set_使用者清單()
  64. End Sub
  65. Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
  66. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
  67. WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
  68. End If
  69. End Sub
  70. End Class