Cara membuat login di visual basic(net)

Untuk tutorial selanjutnya saya akan membuat sebuah  Proses untuk mengakses progam kita  dengan  memasukkan identitas dari account pengguna dan kata sandi guna mendapatkan hak akses menggunakan progam yang telah kita kasih pengaman. untuk melakukan proses masuk ke progam yang telah kita buat kita  membutuhkan account pengguna  yang digunakan sebagai identitas dan identitas pengguna di ambil dari database yang telah kita hubungkan pada  tutorial sebelum nya.

Untuk selanjut nya kita langsung disain aja di visual basic seperti gambar disain berikut

Di dalam form yang telah kita disain kita cumin membutuhkan 3 label yang ber text

Label1 (Silahkan login disini)

Label2 untuk (Username) dan,

Label3 untuk ( Password)

Selaun label kita juga membutuhkan 2 textbox diman nanti identitas yang ada di dalam database akan kita masukan melalui textbox1 dan textbok2 untuk mengecek apakah data yang kita inputkan di dalam tekxtbox sam dengan data yang ada dalam database dan satu komponen lagi yaitu Tombol Button diman tombol tersebut menjadi kendali apakah berhasil atau gagal.

Kemudian tekan f7 dan masukan script sebagai berikut.

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim mysqlconn As MySqlConnection

    Dim command As MySqlCommand

    Dim reader As MySqlDataReader

Klik 2 kali pada tombol login

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        mysqlconn = New MySqlConnection

        mysqlconn.ConnectionString =

            "server=localhost;userid=root;password=;database=ismail"

        Try

            mysqlconn.Open()

            Dim Query As String

            Query = "select * from ismail.login where username='" & TextBox1.Text & "'and password='" & TextBox2.Text & "'"

            command = New MySqlCommand(Query, mysqlconn)

            reader = command.ExecuteReader

            Dim count As Integer

            count = 0

            While reader.Read

                count = count + 1

            End While

            If count = 1 Then

                MessageBox.Show("data ada dalam database")

                Form2.Show()

                Me.Hide()

            ElseIf count > 1 Then

                MessageBox.Show("data dalam database ada dobel")

            Else

                MessageBox.Show("data tidak ada dalam database")

            End If

            mysqlconn.Close()

        Catch ex As MySqlException

            MessageBox.Show(ex.Message)

        Finally

            mysqlconn.Dispose()

        End Try

    End Sub

End Class

jika berhasil maka akan menuju ke form2.

Untuk database masih sama yaitu dengan nama ismail.

Selamat mencoba semoga bermanfaat.

Tweet

Postingan terkait:

Ditulis Unknown — Monday 20 June 2016 — Add Comment — cara membuat login di visua basic.net, script login visual basic.net