Buat desaign form deperti diatas, kemudian double klik button login, lalu isikan listing program dibawah ini :
Imports System.Data.OleDb
Public Class Login
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = " Select * from [User] where UserId='" & TxtUser.Text & "' and Password='" & TxtPassword.Text & "'"
Dim dr As OleDbDataReader = New OleDbCommand(sql, cn).ExecuteReader
If dr.HasRows Then
MenuUtama2.Show()
Me.Close()
Else
MsgBox("Login Gagal")
TxtUser.Text = ""
TxtPassword.Text = ""
TxtUser.Focus()
End If
dr.Close()
End Sub.
ardianto damanik
ardianto damanik
Belum ada tanggapan untuk "Membuat Form Login dengan Koneksi Modul."
Posting Komentar