Membuat Form Login dengan Koneksi Modul.

Membuat Form Login dengan Koneksi Modul.

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


Postingan terkait:

Belum ada tanggapan untuk "Membuat Form Login dengan Koneksi Modul."

Posting Komentar

MGID