Jawaban soal no3 (Usri Sagala)

Jawaban soal no3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM ……………….. (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program Login:


Public Class Login

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
           If username.Text = "Yusri" And password.Text = "tikus" Then
                    Menu_Utama.Show()
                    Me.Hide()
           Else
                    MsgBox("Username/Password salah!!!")
                    username.Text = ""
                    password.Text = ""
            End If
End Sub

End Class



Hasil Program Login:

Listing Program Menu Utama:


Imports System.Windows.Forms

Public Class Menu_Utama

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
          End

End Sub

Private Sub PDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAMToolStripMenuItem.Click
             Tagihan_PDAM.Show()

End Sub
End Class