[VB.NET] การทำระบบเข้าสู่การใช้งาน (Users Login) ด้วยการใช้โครงสร้าง หรือ Structure

admin

การเข้าสู่ระบบ (Users Login) ก็เพื่อป้องกันผู้ที่ไม่มีสิทธิ (Unauthorized) ในการใช้งานเข้าถึงโปรแกรม นอกไปจากนี้ยังหมายถึงการจำกัดสิทธิ (Rights) ของผู้ใช้งาน (Users) แต่ละคนด้วย โดยข้อมูลของผู้ใช้งานแต่ละคนก็จะถูกจัดเก็บเอาไว้ในตารางข้อมูล ซึ่งจะมีการเรียกใช้งานอยู่บ่อยครั้ง ดังนั้นเพื่อความสะดวกเราจึงต้องควรนำข้อมูลของผู้ใช้งาน มาจัดเก็บเอาไว้ในตัวแปรเพื่อเรียกใช้งาน ตัวแปรที่แอดมินหมายถึงนี้ก็คือ ตัวแปรแบบโครงสร้าง หรือ Structure

สำหรับโค้ดการเข้าสู่ระบบ (Users Login) ด้วย VB6 คลิ๊กอ่านได้ที่นี่

Structures หรือโครงสร้างข้อมูล คือประเภทข้อมูลประเภทหนึ่งในภาษา Visual Basic ที่สามารถมีสมาชิกภายในตัวของมันได้ ลักษณะโครงสร้างของ Structure นั้นจะคล้ายกับคลาส แต่สิ่งที่แตกต่างกันคือ Structure เป็นตัวแปรแบบ Valued type ในขณะที่คลาสเป็นแบบ Reference type ซึ่งเป็นประเภทข้อมูลที่อ้างถึงที่อยู่ของออบเจ็คที่อยู่ในหน่วยความจำแทน

การประกาศตัวแปรแบบโครงสร้าง

1. Private Structure ชื่อโครงสร้าง
   
2.     ประกาศตัวแปร
   
3.     ประกาศตัวแปร
   
4. End Structure

คัดลอกไปที่คลิปบอร์ด

เมื่อนำมาใช้งานจริงด้วยการกำหนด UDT (Users-Defined Type)

1.     ' User-defined Types (UDTs)
   
2.     Public Structure USER_INFO
   
3.         ' Primary Key of User
   
4.         Dim USER_USERPK As Integer
   
5.         ' UserID
   
6.         Dim USER_USERID As String
   
7.         ' Password
   
8.         Dim USER_PASSWORD As String
   
9.         ' Administrator is True
   
10.         Dim USER_ISADMIN As Boolean
    
11.         ' Completename
    
12.         Dim USER_COMPLETENAME As String
    
13.         ' Time Stamp
    
14.         Dim USER_TIMELOGIN As Date
    
15.     End Structure

คัดลอกไปที่คลิปบอร์ด

การเรียกใช้งาน

1.     ' USER_INFO is a template, It can not be stored data.
   
2.     ' Assign a variable to a Data Structure (UDTs)
   
3.     ' Run through the series via CurrUser.
   
4.     Public CurrUser As USER_INFO
   
5.     ' Example:
   
6.     ' CurrUser.USER_USERID ... Keep UserName string
   
7.     ' CurrUser.USER_ISADMIN ... Keep status true/false

คัดลอกไปที่คลิปบอร์ด

โครงสร้าง USER_INFO เป็นเพียงต้นแบบ ดังนั้นหากเราต้องการเข้าถึงตัวแปร USER_INFO เราจะต้องเรียกผ่านตัวแปรโครงสร้างอีกที ในที่นี้คือ CurrUser เช่น CurrUser.USER_USERID

มาดูโค้ดส่วนของการทำ Users Login และการเก็บข้อมูลเอาไว้ในตัวแปรแบบโครงสร้าง (frmLogin.vb)

1.     Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
   
2.         Dim Cmd As New OleDbCommand("SELECT * FROM tblUser WHERE " & _
   
3.                                     " [UserID] = UID AND [Password] = PWD ", Conn)
   
4. 
   
5.         Dim UserIDParam As New OleDbParameter("UID", Me.txtUserID.Text)
   
6.         Dim PasswordParam As New OleDbParameter("PWD", Me.txtPassword.Text)
   
7. 
   
8.         Cmd.Parameters.Add(UserIDParam)
   
9.         Cmd.Parameters.Add(PasswordParam)
   
10.         '//
    
11.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
12.         Dim Reader As OleDbDataReader = Cmd.ExecuteReader()
    
13.         ' Found data
    
14.         If Reader.HasRows Then
    
15.             Do While Reader.Read()
    
16.                 With CurrUser
    
17.                     '/ Read values in each columns.
    
18.                     .USER_USERPK = Reader.GetInt32(0)   '/ Primary Key
    
19.                     .USER_USERID = Reader.GetString(1)  '/ UserID
    
20.                     .USER_PASSWORD = Reader.GetString(2)    '/ Password
    
21.                     .USER_COMPLETENAME = Reader(3)
    
22.                     .USER_TIMELOGIN = Now() '/ Time Stamp
    
23.                     ' True = Admin
    
24.                     .USER_ISADMIN = Reader.GetBoolean(4)
    
25.                 End With
    
26.             Loop
    
27.             ' Show status
    
28.             If CurrUser.USER_ISADMIN Then
    
29.                 MessageBox.Show("You are logged in : Admin")
    
30.             Else
    
31.                 MessageBox.Show("You are logged in : User")
    
32.             End If
    
33.             Reader.Close()
    
34.             Cmd.Connection.Close()
    
35.             Me.Close()
    
36.         Else
    
37.             MessageBox.Show("Enter your User Name, Password is incorrect.")
    
38.             txtUserID.Focus()
    
39.             Reader.Close()
    
40.             Cmd.Connection.Close()
    
41.         End If
    
42.     End Sub

คัดลอกไปที่คลิปบอร์ด

นั่นคือเมื่อเราสามารถเข้าสู่ระบบเรียบร้อย ก็จะนำข้อมูลผู้ใช้งานแต่ละคนมาเก็บเอาไว้ในตัวแปรแบบโครงสร้าง เช่น CurrUser.USER_USERID = Reader.GetString(1)

มาดูวิธีการเรียกใช้งานตัวแปรแบบโครงสร้าง (frmMain.vb)

1.     Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
   
2.         '/ Admin authorized only.
   
3.         If CurrUser.USER_ISADMIN Then
   
4.             '// Select all records.
   
5.             Dim Cmd As New OleDbCommand("SELECT * FROM tblUser", Conn)
   
6.             Cmd.Connection.Open()
   
7.             Dim Reader As OleDbDataReader = Cmd.ExecuteReader()
   
8.             Dim UserInfo As String = ""
   
9.             If Reader.HasRows Then
   
10.                 Do While Reader.Read()
    
11.                     UserInfo = UserInfo & "User ID: " & Reader.GetString(1) & " - Password: " & Reader.GetString(2) & vbCrLf
    
12.                 Loop
    
13.             End If
    
14.             Reader.Close()
    
15.             ' Get info from UDTs Or any other information you want.
    
16.             UserInfo = UserInfo & "Date-Time login : " & CurrUser.USER_TIMELOGIN
    
17.             ' Show detail all users
    
18.             MessageBox.Show(UserInfo)
    
19.         Else
    
20.             ' Normal Users can't view data.
    
21.             MessageBox.Show("For Authorized only.")
    
22.         End If
    
23.     End Sub

คัดลอกไปที่คลิปบอร์ด

ในบรรทัดคำสั่ง If CurrUser.USER_ISADMIN Then ก็คือการอ้างถึงค่า (Value) ที่อยู่ในตัวแปรแบบโครงสร้าง โดยที่เราไม่ต้องไปเรียกมาจากตารางข้อมูลใหม่ให้เสียเวลานั่นเอง

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่

MMEE007

ขอบคุณคัพ