วันจันทร์ที่ 11 กรกฎาคม พ.ศ. 2554

โค๊ด Login 2 User vb.net อย่างง่าย

     สวัสดีครับท่านผู้อ่านทุกท่าน  วันนี้ผมมีบทความเกี่ยวกับการเขียนโปรแกรมมาฝากครับ  (vb.net) สำหรับวันนี้จะเป็นการนำเสนอการเขียนโค๊ด Login  2 User อย่างง่ายนะครับ ก็เป็นที่แน่นอนอยู่แล้วนะครับว่าการเขียนโปรแกรมนั้นส่วนมากจะมีหน้า Login มาเกี่ยวข้องอย่างแน่นอน  เพื่อที่จะกำหนดสิทธิ์ของผู้ใช้โปรแกรม  โดยส่วนมากนั้นที่ผมเจอจะมี 2 User คือ  ผู้ใช้ทั่วไป  และ  admin  เรามาดูขั้นตอนการออกแบบหน้า Login ก่อนเลยครับ


ผมใช้  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 ของ คุณ

Public Class Form1
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
End
End Sub Class





Save  แล้ว run ครับ  ถ้ารหัสผ่านผิดหรือเลือกผู้ใช้งานผิด จะขึ้นดังรูปครับ




ในที่นี้ผมได้สร้าง Form2 ขึ้นมาสำหรับผู้ใช้ทั่วไปนะครับ  ถ้ารหัสผ่านถูกก็จะแสดงในหน้านี้ครับ


    
อันนี้สำหรับหน้า Admin  ครับ


     เป็นไงครับ  ไม่ยากเลยใช่ไหมครับสำหรับการสร้างหน้า Login  2 User ใน vb.net  เราสามารถที่จะนำโค๊ดไปดัดแปลงทำอย่างอื่นได้อีกด้วยนะครับ  สำหรับวันนี้ก็ขอจบบทความเพียงเท่านี้ก่อนนะครับ  หวังว่าคงเป็นประโยชน์ไม่มากก็น้อยสำหรับท่านผู้อ่านนะครับ แล้วพบกันใหม่กับบทความต่อไปครับ  ....สวัสดีคร้าบบ..........TvT...

7 ความคิดเห็น:

  1. ความคิดเห็นนี้ถูกผู้เขียนลบ

    ตอบลบ
  2. ไม่ระบุชื่อ17 มกราคม 2556 เวลา 19:53

    สวัสดีค่ะขอถามหน่อยนะค่ะ ต้องการศึกษาค่ะ ถ้าใช้ฐานข้อมูล access ต้องเขียนยังไงหรอค่ะ ช่วยตอบหน่อย

    ตอบลบ
  3. รบกวนตอบหน่อยคะว่าในส่วน Database นี่สร้างขึ้นมาอย่างไรคะ แล้ว Server คืออะไรคะ รบกวนตอบด้วยคะ

    ตอบลบ
  4. ADMIN-A7F653320 ตรงนี้คืออะไรคะ ไม่เข้าใจอะคะ

    ตอบลบ
    คำตอบ
    1. เป็นชื่อ ADMIN-A7F653320 เครื่องของเราหรือชื่อเครือง Server ครับ

      ลบ
  5. ขอโค้ดที่ใ้ชฐานข้อมูล access หน่อยครับ

    ตอบลบ
  6. ถ้าต้องการใช้ Username กับ Password จากฐานข้อมูล access ต้องเขียนยังไงหรอค่ะ รบกวนด้วยค่ะ

    ตอบลบ