Cara Membuat Form Login sederhana menggunakan Visual Basic 2010

1. Buat databasenya dulu untuk login, disini saya menggunakan Microsoft SQL Server 2008 R2.

Lihat aja gambar dibawah ini.

2. Buat form loginnya, disini saya menggunakan visual studio 2010

Didalam form ada:

- 3 Label

- 2 Textbox

- 2 Button

Lihat gambar dibawah ini, mau di edit atau modifikasi juga boleh asalkan koding koneksi kedatabase SQL Servernya connect dan pada tombol button loginnya tidak error.

Berikut kodingnya

    Imports System.Data.SqlClient
Public Class Form1
    Dim str As String = "Data Source=ASUS_PC;Initial Catalog=login;Integrated Security=True"
    Dim koneksi As New SqlConnection(str)
    Dim ctrl As String
    Sub bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        Button1.Enabled = False
        TextBox1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (TextBox1.Text = "") Or (TextBox2.Text = "") Then
            MsgBox("lengkapi data")
            bersih()
            Exit Sub
        Else
        Dim cmd As SqlCommand
            Dim sql = "SELECT username,password from login where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
        koneksi.Open()
        cmd = New SqlCommand(sql, koneksi)
        Dim dr As SqlDataReader = cmd.ExecuteReader
        Try
            If dr.Read = False Then
                MessageBox.Show("data tidak valid")
                bersih()
            Else
                MessageBox.Show("login sukses")
                menuutama.Show()
                Me.Hide()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        If koneksi.state <> ConnectionState.Closed Then
            koneksi.close()
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

Sebelum setan menggoda anda untuk berpikir COPAS sebaiknya budidayakan ijin dulu, dan jika ada yang error ya koment aja di bawah. HEHEH....

Semoga berhasil......!!!

Tweet

Subscribe to receive free email updates: