PROGRAM TAGIHAN PDAM DENGAN LOGIN DAN MENU UTAMA

Soal Quiz Online
Jawaban No 3  (Wulan Mega Sari)
PROGRAM TAGIHAN PDAM DENGAN LOGIN DAN MENU UTAMA
'1  FORM LOGIN


Public Class LOGIN
    Private Sub BTNMASUK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMASUK.Click
        If (LCase(TUSERNAME.Text) = "wulan") And (LCase(TPASSWORD.Text) = "1qaz") Then
            MENUUTAMA.Show()
            Me.Hide()
        Else
            MsgBox("Username atau Password Anda, Salah !")
            TUSERNAME.Text = ""
            TPASSWORD.Text = ""
            TUSERNAME.Focus()
        End If

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class

HASIL GAMBAR




'2  FORM MENU UTAMA

 Public Class MENUUTAMA

    Private Sub TAGIHANPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAGIHANPDAMToolStripMenuItem.Click
        BYRTAGIHAN.Show()
    End Sub

    Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click
        End
    End Sub
End Class

HASIL GAMBAR


'3  FORM TAGIHAN

Public Class BYRTAGIHAN
    Dim A1 As String
    Dim A2 As String
    Private Sub BYRTAGIHAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CDAERAH.Items.Add("MEDAN")
        CDAERAH.Items.Add("BELAWAN")
        CDAERAH.Items.Add("AKSARA")
        CDAERAH.Items.Add("MARENDAL")
        CDAERAH.Items.Add("BINJAI")
        CDAERAH.Items.Add("LUBUK PAKAM")
        CTIPE.Items.Add("TOKO")
        CTIPE.Items.Add("RUMAH")
        CTIPE.Items.Add("SWALAYAN")
        CTIPE.Items.Add("PABRIK")
        Call buattabel()
    End Sub

    Private Sub CTIPE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CTIPE.SelectedIndexChanged
        If CTIPE.Text = "TOKO" Then
            A1 = "TOK"
            TBIAYABEBAN.Text = 25000
            THARGA.Text = 300
        ElseIf CTIPE.Text = "RUMAH" Then
            A2 = "RUM"
            TBIAYABEBAN.Text = 15000
            THARGA.Text = 100
        ElseIf CTIPE.Text = "SWALAYAN" Then
            A2 = "SWA"
            TBIAYABEBAN.Text = 10000
            THARGA.Text = 200
        Else
            A2 = "PAB"
            TBIAYABEBAN.Text = 250000
            THARGA.Text = 500
        End If
    End Sub

    Private Sub CDAERAH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDAERAH.SelectedIndexChanged
        If CDAERAH.Text = "MEDAN" Then
            A1 = "MED"
        ElseIf CDAERAH.Text = "BELAWAN" Then
            A1 = "BEL"
        ElseIf CDAERAH.Text = "AKSARA" Then
            A1 = "TEM"
        ElseIf CDAERAH.Text = "MARENDAL" Then
            A1 = "MAR"
        ElseIf CDAERAH.Text = "BINJAI" Then
            A1 = "BIN"
        Else
            A1 = "PAK"
        End If
    End Sub

    Private Sub TNOURUT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TNOURUT.KeyPress
        If e.KeyChar = Chr(13) Then
            TKODEPEL.Text = A2 & "-" & A1 & "-" & TNOURUT.Text
        End If
    End Sub

    Private Sub TPEMAKAIAN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TPEMAKAIAN.KeyPress
        If e.KeyChar = Chr(13) Then
            TTOTALTAGIHAN.Text = TBIAYABEBAN.Text + THARGA.Text * TPEMAKAIAN.Text
            TPAJAK.Text = 0.01 * TTOTALTAGIHAN.Text
            TBAYAR.Text = Val(TTOTALTAGIHAN.Text) + Val(TPAJAK.Text)
        End If
    End Sub

    Sub buattabel()
        With LV
            .Columns.Add("KODE PELANGGAN", 100, HorizontalAlignment.Left)
            .Columns.Add("DAERAH", 100, HorizontalAlignment.Left)
            .Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Left)
            .Columns.Add("NO URUT", 100, HorizontalAlignment.Left)
            .Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Left)
            .Columns.Add("HARGA PER M3", 100, HorizontalAlignment.Left)
            .Columns.Add("PEMAKAIAN PER BULAN", 100, HorizontalAlignment.Left)
            .Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Left)
            .Columns.Add("PAJAK", 100, HorizontalAlignment.Left)
            .Columns.Add("JUMLAH BAYAR", 100, HorizontalAlignment.Left)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = TKODEPEL.Text
            .SubItems.Add(CDAERAH.Text)
            .SubItems.Add(CTIPE.Text)
            .SubItems.Add(TNOURUT.Text)
            .SubItems.Add(TBIAYABEBAN.Text)
            .SubItems.Add(THARGA.Text)
            .SubItems.Add(TPEMAKAIAN.Text)
            .SubItems.Add(TTOTALTAGIHAN.Text)
            .SubItems.Add(TPAJAK.Text)
            .SubItems.Add(TBAYAR.Text)
        End With
        LV.Items.Add(lst)
    End Sub

    Sub clean()
        CDAERAH.Text = ""
        CTIPE.Text = ""
        TNOURUT.Text = ""
        TKODEPEL.Text = ""
        TKODEPEL.Text = ""
        THARGA.Text = ""
        TPEMAKAIAN.Text = ""
        TTOTALTAGIHAN.Text = ""
        TPAJAK.Text = ""
        TBAYAR.Text = ""
    End Sub

    Private Sub BSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSIMPAN.Click
        Call isitabel()
        Call clean()
    End Sub

    Private Sub BHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BHAPUS.Click
        Call clean()
    End Sub

    Private Sub BBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BHAPUSALL.Click
        LV.Items.Clear()
    End Sub

    Private Sub BBERSIHALL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBERSIH.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Anda Belum Memilih Item Yang Akan Di Hapus !")
        End If
    End Sub

    Private Sub BKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKELUAR.Click
        Close()
    End Sub

    Private Sub TPEMAKAIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPEMAKAIAN.TextChanged

    End Sub
End Class

HASIL GAMBAR