Joni Suprihanto

Public class loginform1
if usernametextbox.text = "Spiderman"And password textbox.text = " merah " Then MDI Parent1
show()...fungsinya menjalankan form
Me.visible = false
else
MsgBox("Login gagal silahkan ulangi lagi")
end if
end sub
private sub cancel.click...
Me.close () menutup form
end sub

Insert
Call Koneksi ()
Tampil.Connection=Database
Tampil.CommandType=CommandType.text
Tampil.Commandtext="Insert into jurusan_ (kdjur,nmjur)values('"&textbox1.text&"'"&textbox2.text&"')"
Tampil.Executenonquery ()
Call kosong ()...