LISTING PROGRAM Formlogin
Kasus mengenai penggajian karyawan/pegawai,, untuk mengetahui soal nya klik diSINI
Public Class Formlogin
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If username.Text = "Dedi Muhardi" And password.Text = "0911085" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("maaf saudara, password yang anda masukkan tidak di temukan")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
LISTING PROGRAM menuutama
Public Class menuutama
Private Sub gajipegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pegawai.Click
gajipegawai.Show()
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
LISTING PROGRAM gajipegawai
Public Class gajipegawai
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nip.Items.Add("B10")
nip.Items.Add("B11")
nip.Items.Add("B12")
jabatan.Items.Add("mandor")
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staff")
status.Items.Add("Belum Menikah")
status.Items.Add("menikah")
jalem.Items.Add("1")
jalem.Items.Add("2")
jalem.Items.Add("3")
jalem.Items.Add("4")
jalem.Items.Add("5")
jalem.Items.Add("6")
jalem.Items.Add("7")
jalem.Items.Add("8")
jalem.Items.Add("9")
jalem.Items.Add("10")
jalem.Items.Add("11")
jalem.Items.Add("12")
jalem.Items.Add("13")
jalem.Items.Add("14")
jalem.Items.Add("15")
jalem.Items.Add("16")
jalem.Items.Add("17")
jalem.Items.Add("18")
jalem.Items.Add("19")
jalem.Items.Add("20")
jalem.Items.Add("21")
jalem.Items.Add("22")
jalem.Items.Add("23")
jalem.Items.Add("24")
End Sub