ผมใช้ Visual Studio 2010 นะครับ อันดับแรกเลยเปิดโปรแกรมแล้วเลือก New Project
1. เลือก Windows Form Application
2. เปลี่ยนชื่อ ในที่นี้ผมตั้งว่า Login นะครับ
แล้วก็จะได้ Form มา 1 Form ครับ
ทำการออกแบบหน้า Login ครับ โดยมี RadioButton เป็นตัวเลือกผู้ใช้ครับ
ที่ Properties ของ RadioEutton1 เราต้องกำหนด Checked ให้เป็น True นะครับ เพื่อจะได้ Focus ตอนเข้ามา ทำแค่อันเดียวนะครับ
สำหรับ Label4 นั้น เรามีไว้เพื่อแสดงตัวหนังสือว่า "รหัสผ่านผิด" ครับ แต่ว่าเราไม่ยากให้แสดง Label4 ก็ต้องทำการลบออกครับ
นี่ครับ ลบออกเลย ไม่ต้องใช่อาไร
สำหรับ TextBox ที่เป็น PassWord นั้น ให้เรากำหนดค่าดังในรูปครับ จะกำหนดเป็น - * / อาไรก็ได้นะครับ เพื่อไม่ให้คนอื่นเห็น PassWord ของเรา
ส่วน Database นั้น ผมตั้งชื่อว่า Login มี 2 tbl นะครับ เพราะว่าเราใช้ 2 User
นี่ครับ มี 2 tbl แล้วอย่าลืมใส่ UserName และ PassWord ข้างในนะครับ สำหรับ tbl_user1 นั้น UserName ผมใส่ naja และ PassWord ใส่ 1234 tbl_user2 UserName ใส่ admin PassWord ใส่ 1234
สำหรับ vb ในหน้า Form Login นั้น ให้ใส่โค๊ดดังต่อไปนี้ครับ และอย่าลืมเปลี่ยน ตรงลูกศรชี้นะครับ เปลี่ยนตาม database ของ คุณ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim connection As New SqlClient.SqlConnectionDim command As New SqlClient.SqlCommandDim adapter As New SqlClient.SqlDataAdapterDim dataset As New DataSetIf RadioButton1.Checked = True Then
connection.ConnectionString = (
command.CommandText = "Data Source=ADMIN-A7F653320\SQLEXPRESS;Initial Catalog=login;Integrated Security=True")" SELECT * FROM [tbl_User1] WHERE Username = '" & TextBox1.Text & "'AND Password= '" & TextBox2.Text & "';"connection.Open()
command.Connection = connection
adapter.SelectCommand = command
adapter.Fill(dataset,
"0")Dim count = dataset.Tables(0).Rows.CountIf count > 0 Then
Form2.ShowDialog()Me.Close()ElseLabel4.Text = "รหัสผ่านผิด"End IfElseconnection.ConnectionString = (
command.CommandText = "Data Source=ADMIN-A7F653320\SQLEXPRESS;Initial Catalog=login;Integrated Security=True")" SELECT * FROM [tbl_User2] WHERE Username = '" & TextBox1.Text & "'AND Password= '" & TextBox2.Text & "';"connection.Open()
command.Connection = connection
adapter.SelectCommand = command
adapter.Fill(dataset,
"0")Dim count = dataset.Tables(0).Rows.CountIf count > 0 Then
Form3.ShowDialog()Me.Close()ElseLabel4.Text = "รหัสผ่านผิด"End IfEnd If
EndEnd Sub Class
Save แล้ว run ครับ ถ้ารหัสผ่านผิดหรือเลือกผู้ใช้งานผิด จะขึ้นดังรูปครับ
ในที่นี้ผมได้สร้าง Form2 ขึ้นมาสำหรับผู้ใช้ทั่วไปนะครับ ถ้ารหัสผ่านถูกก็จะแสดงในหน้านี้ครับ
อันนี้สำหรับหน้า Admin ครับ
เป็นไงครับ ไม่ยากเลยใช่ไหมครับสำหรับการสร้างหน้า Login 2 User ใน vb.net เราสามารถที่จะนำโค๊ดไปดัดแปลงทำอย่างอื่นได้อีกด้วยนะครับ สำหรับวันนี้ก็ขอจบบทความเพียงเท่านี้ก่อนนะครับ หวังว่าคงเป็นประโยชน์ไม่มากก็น้อยสำหรับท่านผู้อ่านนะครับ แล้วพบกันใหม่กับบทความต่อไปครับ ....สวัสดีคร้าบบ..........TvT...
ความคิดเห็นนี้ถูกผู้เขียนลบ
ตอบลบสวัสดีค่ะขอถามหน่อยนะค่ะ ต้องการศึกษาค่ะ ถ้าใช้ฐานข้อมูล access ต้องเขียนยังไงหรอค่ะ ช่วยตอบหน่อย
ตอบลบรบกวนตอบหน่อยคะว่าในส่วน Database นี่สร้างขึ้นมาอย่างไรคะ แล้ว Server คืออะไรคะ รบกวนตอบด้วยคะ
ตอบลบADMIN-A7F653320 ตรงนี้คืออะไรคะ ไม่เข้าใจอะคะ
ตอบลบเป็นชื่อ ADMIN-A7F653320 เครื่องของเราหรือชื่อเครือง Server ครับ
ลบขอโค้ดที่ใ้ชฐานข้อมูล access หน่อยครับ
ตอบลบถ้าต้องการใช้ Username กับ Password จากฐานข้อมูล access ต้องเขียนยังไงหรอค่ะ รบกวนด้วยค่ะ
ตอบลบ