Public Class Form2 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load BackColor = Color.LightGray End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ClassSiswa.namadatabase = "KPIRWAN" Dim caridata As SqlClient.SqlDataReader caridata = ClassSiswa.CariDataPengguna(ClassSiswa.opencon, TextBox1.Text, TextBox2.Text) If Not caridata.Read Then MsgBox("Nama dan Sandi Tidak Terdaftar") Else Me.Hide() Form1.Show() End If ClassSiswa.closecon() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)