01.Imports System.Data.SqlClient
02.Public Class Form1
03. Public employee_ID As String
04. Dim AddItemValue As New List(Of keypair)
05. Dim AddItemDate As New List(Of keypair)
06. Dim gender As String
07.
08.
09.
10.
11.
12. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
13. setddgender()
14.
15. End Sub
16.
17. Private Sub setddGender()
18. AddItemValue.Add(New keypair("ชาย", "M"))
19. AddItemValue.Add(New keypair("หญิง", "F"))
20.
21. For Each AddItemValues As keypair In AddItemValue
22. ComboBox1.Items.Add(AddItemValues.Name)
23. Next
24. End Sub
25.
26. Private Sub ctrecord_Click(sender As Object, e As EventArgs) Handles ctrecord.Click
27. Dim Con As New conn()
28. Dim strCon As New SqlConnection(Con.strConn)
29. strCon.Open()
30. Dim start_Date As String
31.
32.
33.
34.
35.
36. If Len(DateTimePicker1.Text.Trim) > 0 Then
37. start_Date = DateTimePicker1.Value.ToString().Substring(6, 4) + "/" + DateTimePicker1.Value.ToString().Substring(3, 2) + "/" + DateTimePicker1.Value.ToString().Substring(0, 2)
38. Else
39. start_Date = DBNull.Value.ToString
40. End If
41.
42.
43. Dim Conm As New SqlCommand("insemployee_data", strCon)
44. Conm.CommandType = CommandType.StoredProcedure
45. Conm.Parameters.Add("@employee", SqlDbType.VarChar, 50).Value = TextBox1.Text.Trim
46. Conm.Parameters.Add("@name", SqlDbType.VarChar, 100).Value = TextBox2.Text.Trim
47. Conm.Parameters.Add("@startdate", SqlDbType.VarChar).Value = DateTimePicker1
48. Conm.Parameters.Add("@department", SqlDbType.VarChar, 50).Value = TextBox3.Text.Trim
49. Conm.Parameters.Add("@sex", SqlDbType.VarChar, 50).Value = ComboBox1
50. Conm.Parameters.Add("@phon", SqlDbType.VarChar, 50).Value = TextBox4.Text.Trim
51.
52.
53. Conm.ExecuteNonQuery()
54. strCon.Close()
55. clear_text()
56. viewemployee.Show()
57. End Sub
58. Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
59. Dim SelectedText As String = ComboBox1.Items(ComboBox1.SelectedIndex).ToString
60. For Each AddItemValues As keypair In AddItemValue
61. If SelectedText = AddItemValues.Name Then
62. gender = AddItemValues.KeyName
63.
64. End If
65. Next
66. End Sub
67. Private Sub clear_text()
68. TextBox1.Text = ""
69. TextBox2.Text = ""
70. TextBox3.Text = ""
71. TextBox4.Text = ""
72. DateTimePicker1.Text = ""
73. ComboBox1.Text = ""
74.
75. End Sub
76.
77. Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
78. viewemployee.Show()
79.
80. End Sub
81.
82. Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
83.
84. End Sub
85.End Class
Load balance : Server 02
