Cara Membuat Form Login di Vb Net dengan Database sql Server

Bagikan :

Tweet

Buat teman-teman yang sedang mencari tutorial tentang Cara Membuat Form Login di Vb Net dengan Database sql Server, Berikut ini langkah dalam Menciptakan Form Login di Vb.Net dgn database Sql server 2005 ialah yang merupakan berikut. Pastikan Vb.Net & SQL server nya telah terinstal di pc. Buka sql server 2005, seandainya belum mengetahui Cara menciptakan database Sql Server silakan baca lebih-lebih dulu artikel Kiat Menciptakan Database Sql Server. 

Kurang lebih seperti di bawah ini penampakan form login yg nantinya dapat dibuat

Buatlah Project baru bersama dua buah form & satu module. Segera saja kita bikin form perdana, di properties tukar bersama flogin & text nya pindai bersama login. Tampilanya seperti kepada gambar di atas di atas. Setelah Itu klik dua kali terhadap button login & ketikan koding di bawah ini.

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class flogin
Private Sub flogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
txtuser.Focus()
End Sub
Private Sub flogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buka()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Sql, user, pass As String
user = txtuser.Text
pass = txtpass.Text
koneksi.Close()
Call buka()
'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
Sql = "SELECT * FROM tbuser WHERE username='" + user + "' AND pass='" + pass + "'"
cmd = New SqlCommand(Sql, koneksi)
baca = cmd.ExecuteReader()
If baca.HasRows = True Then
Form1.Show()
Me.Hide()
Else
'Munculkan messagebox pesan salah
MessageBox.Show("Kombinasi Username dan Password Salah", "Konfirmasi",
MessageBoxButtons.OK, MessageBoxIcon.Error)
txtuser.Focus()
End If
txtuser.Text = ""
txtpass.Text = ""
baca.Close()
cmd.Dispose()
End Sub

Setelah Itu kita bikin form yg ke dua merupakan form Menu penting, yg nantinya dapat kita panggil sesudah login berhasil, telah tahu kan trik menciptakan menu utama. Sesudah selesai menciptakan Form Menuutama kita lanjut ke berikutnya adalah menciptakan module. Tentu tahu kan fungsinya, fungsi module merupakan menghubungkan database SQL server 2005 ke VB net. Kita serentak add module nya adalah klik kanan kepada project kita memilih add setelah itu klik module & klik add setelah itu ketikan koding di bawah ini.


Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
Public koneksi As SqlConnection
Public data As DataSet
Public baca As SqlDataReader
Public adaptor As SqlDataAdapter
Public cmd As SqlCommand
Public ass As DataTable
Public str, sql As String
Public Sub buka()
str = "Data Source=raden-PC\SQLEXPRESS;Initial Catalog=dbremot;Persist Security Info=True;UID=sa;PWD=remot1234"
koneksi = New SqlConnection(str)
Try
If koneksi.State = ConnectionState.Closed Then
koneksi.Open()
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Module

Form Login Di Vb net bersama database SQL server 2005 sudah selesai kita untuk, waktu ini tinggal di running programnya. Masukan username & kata sandi pas bersama database yg kita bikin tadi.

Sekian anjuran dari aku mudah-mudahan berguna. Teruslah semengat & janganlah sempat menyerah.
terimakasih.

Tag : vb