Baca : Source Code Login Form dengan SQL server
Login Form MD5 Password dengan MySQL Database
Hari ini kita akan mencoba membuat aplikasi sederhana login user juga namun dengan menambahkan form untuk registrasi user, login dan registrasi ini memiliki akses level yang berbeda dan bisa di sesuaikan saat di form pendaftaran. langsung saja kita coding ya.
1. Membuat Database SQL Server
Buatlah sebuah database di SQL server dengan nama "Login_db" atau bisa disesuaikan dengan kebutuhan. dan buat table baru dengan nama "user" dan field nya terdiri dari "id_user,email,password,level". atau kamu bisa mengeksekusi perintah berikut :CREATE TABLE [dbo].[users](Kamu bisa menyesuaikan sesuai kebutuhan saja.
[id_user] [int] IDENTITY(1,1) NOT NULL,
[email] [varchar](255) NOT NULL,
[password] [varchar](255) NULL,
[level] [varchar](255) NULL,
PRIMARY KEY CLUSTERED
(
[id_user] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
2. Membuat Project Baru dan Form Login
Buatlah project baru di Visual studio 2015 dan pada Form1.vb rename menjadi "FrmLogin.vb" serta desain tampilan FrmLogin.vb menjadi seperti tampilan dibawah ini :
3. Membuat Form Sign Up
Buatlah Form baru dengan nama "FrmSignUp.vb" serta desain tampilan seperti dibawah ini :
4. Membuat Module Connection (SQL Server)
Untuk membuat koneksi ke database SQL Server, mari kita membuat module baru dan beri nama "ModuleConnection.vb" dan tuliskan seluruh code dibawah ini :Imports System.Data.SqlClientSesuaikan dengan server yang kamu gunakan.
Module ModuleConnection
Public connection As SqlConnection ' declaration our connection
' function fo connection
Sub OpenConnection()
Try
' function for connection
' Before create a connection, you must have a database (Sql Server)
' i was create a database in my SQL Server,
' so just create a database and a user table.
' in user table create field id_user(Use auto increment)
' email and level. lets see my database
connection = New SqlConnection("Data Source=DESKTOP-5VBP3C9\SQLEXPRESS;Initial Catalog=crud_sqlserver;Integrated Security=True")
If connection.State = ConnectionState.Closed Then
connection.Open() ' open the connection
End If
Catch ex As Exception
' if failed
MsgBox("Failed to connect, Error at " & ex.ToString)
End Try
End Sub
End Module
5. Source Code Form Login (FrmLogin.vb)
Imports System.Data.SqlClient ' import namespace
Public Class FrmLogin
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenConnection() ' open our connection
Dim dr As SqlDataReader
Dim cmd As SqlCommand
Dim sql As String
cmd = New SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = connection ' our connection
sql = "select * from users where email='" & TextBox1.Text & "' and password=CONVERT(NVARCHAR(32),HashBytes('MD5','" & TextBox2.Text & "'),2)"
' the query above will read a MD5 password format.
' im soryy
cmd.CommandText = sql
dr = cmd.ExecuteReader()
If dr.HasRows Then
dr.Read() ' read all data from database
If dr.Item("level") = 1 Then
' show new form for our Administrators
' but i just show the message for administrator account
MsgBox("Welcome Administrator")
ElseIf dr.Item("level") = 2
' its for user account
MsgBox("Wellcome User")
ElseIf dr.Item("level") = 3
' its for another level access
MsgBox("Wellcome Other")
End If
Else ' if dataread not same with username or password inthe textbox
MsgBox("Access denied")
End If
connection.Close() ' close connection
cmd.Dispose()
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' show the registrations form
FRMsignup.Show()
End Sub
End Class
6. Source Code Form Registration (FrmSignUp.vb)
Imports System.Data.SqlClient ' import namespace
Public Class FRMsignup
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim TypeUser As String
Dim Level As Integer
TypeUser = ComboBox1.Text
If TypeUser = "Administrator" Then
Level = 1
ElseIf TypeUser = "User"
Level = 2
ElseIf TypeUser = "Other"
Level = 3
' create other level access here
End If
Dim sql As String = "insert into users(email,password,level)values('" & TextBox1.Text & "',CONVERT(NVARCHAR(32),HashBytes('MD5','" & TextBox2.Text & "'),2)," & Level & ")"
' SHITT, I FORGED IT
' execute to database
SignUp(sql)
MsgBox("Sign Up Success !") ' show message
End Sub
' create function for register
Private Sub SignUp(ByVal sql As String)
Dim cmd As New SqlCommand
OpenConnection() ' open our connection
Try
cmd.Connection = connection ' our connection
cmd.CommandType = CommandType.Text
cmd.CommandText = sql
cmd.ExecuteNonQuery()
cmd.Dispose()
connection.Close() ' close our connection
Catch ex As Exception
MsgBox("Failed " & ex.ToString) ' if failed
End Try
End Sub
Private Sub FRMsignup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Text = "Administrator"
End Sub
End Class
Jika tutorial Cara Membuat Login & Registration Form with SQL Server diatas masih kurang jelas, silahkan lihat video tutorialnya berikut ini :
Video tutorial Login & Registration Form with SQL Server
Download Database Project Form SignUp & Login SQL Server
Download Source Code Project Form SignUp & Login SQL Server
Jangan lupa share dan subscribe jika bermanfaat. terima kasih.