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