SL42Saqn

1'Faith Hinojosa : Word Match system - login and register - admin code
2
3CREATE TABLE IF NOT EXISTS `users` (
4`user_id` int(11) NOT NULL AUTO_INCREMENT,
5`user_name` varchar(40) NOT NULL,
6`user_username` varchar(40) NOT NULL,
7`user_pass` varchar(90) NOT NULL,
8`user_type` varchar(20) NOT NULL,
9PRIMARY KEY (`user_id`)
10) ENGINE=InnoDB;
11
12 
13'SET THE CONNECTION BETWEEN VISUAL BASIC AND MYSQL DATABASE
14Dim con As MySqlConnection = New MySqlConnection("server=localhost; user id=root; password=; database=fgroup")
15'A SET OF COMMAND IN MYSQL
16Dim cmd As New MySqlCommand
17'SET A CLASS THAT SERVES AS THE BRIDGE BETWEEN A DATASET AND DATABASE FOR SAVING AND RETRIEVING DATA.
18Dim da As New MySqlDataAdapter
19'SET A CLASS THAT CONSISTS SPECIFIC TABLE IN THE DATABASE
20Dim dt As New DataTable
21Dim sqlQuery As String
22Dim result As Integer
23
24
25
26'SET THE CONNECTION BETWEEN VISUAL BASIC AND MYSQL DATABASE
27Dim con As MySqlConnection = New MySqlConnection("server=localhost; user id=root; password=; database=dbuser")
28'A SET OF COMMAND IN MYSQL
29Dim cmd As New MySqlCommand
30'SET A CLASS THAT SERVES AS THE BRIDGE BETWEEN A DATASET AND DATABASE FOR SAVING AND RETRIEVING DATA.
31Dim da As New MySqlDataAdapter
32'SET A CLASS THAT CONSISTS SPECIFIC TABLE IN THE DATABASE
33Dim dt As New DataTable
34Dim sqlQuery As String
35Dim result As Integer
36
37
38
39
40
41   Private Sub register(ByVal sqlQuery As String)
42        Try
43            'OPENING THE CONNECTION
44            con.Open()
45            'HOLDS THE DATA TO BE EXECUTED
46            With cmd
47                .Connection = con
48                .CommandText = sqlQuery
49            End With
50            'EXECUTE THE DATA
51            result = cmd.ExecuteNonQuery
52            'CHECKING IF THE DATA HAS BEEN EXECUTED OR NOT
53            If result > 0 Then
54                MsgBox("User has been registered.")
55            Else
56                MsgBox("Failed to register the user.")
57            End If
58            con.Close()
59        Catch ex As Exception
60            MsgBox(ex.Message)
61        End Try
62    End Sub
63
64
65
66  Private Sub login(ByVal sqlQuery As String)
67        Try
68            con.Open()
69            With cmd
70                .Connection = con
71                .CommandText = sqlQuery
72            End With
73            'FILLING THE DATA IN A SPECIFIC TABLE OF THE DATABASE
74            da.SelectCommand = cmd
75            dt = New DataTable
76            da.Fill(dt)
77            'DECLARING AN INTEGER TO SET THE MAXROWS OF THE TABLE
78            Dim maxrow As Integer = dt.Rows.Count
79            'CHECKING IF THE DATA IS EXIST IN THE ROW OF THE TABLE
80            If maxrow > 0 Then
81                MsgBox("Welcome " & dt.Rows(0).Item(4) & " Start playing word match!")
82            Else
83                MsgBox("Account does not exist. Please register to play after.")
84            End If
85        Catch ex As Exception
86            MsgBox(ex.Message)
87        End Try
88        con.Close()
89    End Sub
90
91
92
93
94    Private Sub btnreg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreg.Click
95        sqlQuery = "INSERT INTO users ( `user_name`, `user_username`, `user_pass`, `user_type`)" & _
96        "VALUES ('" & txtname.Text & "','" & txtusername.Text & "','" & txtpassword.Text & "','" & cbotype.Text & "')"
97        register(sqlQuery)
98    End Sub
99
100
101
102  Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
103        sqlQuery = "SELECT * FROM users WHERE user_username ='" & txtuname.Text & "' AND user_pass = '" & txtpass.Text & "'"
104        login(sqlQuery)
105    End Sub