yang pertama kita desain form login seperti diatas atau download disini
buatlah database dengan:
Nama Database : db_saya
dan Nama Table :tb_login
teble isi dengan field:
1. Userid -- Varcar(50)
2. Nama -- Varcar(50)
3. pass -- Varcar(50)
dan masukan scrift berikut di atas flogin.vb
Imports System.Data.SqlImports System.Data.SqlClient
di form loadnya isi
Buka() --- ini berfungsi untuk membuka fungsi database
dan buatlah button untuk login dan isikan script berikut :
Dim Sql, user, pass As Stringuser = txtuser.Text---namatexboxpass = txtpass.Text---namatexboxkoneksi.Close() Call buka()
Sql = "SELECT * FROM tb_login WHERE userid='" + user + "' AND pass='" + pass + "'"cmd = New SqlCommand(Sql, koneksi)baca = cmd.ExecuteReader()If baca.HasRows = True ThenForm1.Show()Me.Hide()ElseMessageBox.Show("Kombinasi Username dan Password Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)txtuser.Focus() End If txtuser.Text = ""txtpass.Text = ""
baca.Close()cmd.Dispose()
apabila anda ingin contohnya bisa download disini Trimakasih semoga bermnfaat
EmoticonEmoticon