Sistem Informasi Pembayaran Tagihan Pemakaian Air pada PDAM Medan

Kasusnya dalam dillihat disin

Listing Program :

1.     Menu Login

Sub ClearForm()
User.Text = “”
Pass.Text = “”
User.Focus()
End Sub

Sub CekLogin()
If User.Text = “” And Pass.Text = “” Then
MsgBox(“Maaf, tidak boleh kosong”)
Else
If User.Text = “Jun” And Pass.Text = “Gulo” Then
MenuUtama.Show()
Me.Hide()
ClearForm()
Else
MsgBox(“Kombinasi Username dan Password anda belum tepat”, MsgBoxStyle.Information, “Gagal”)
End If
End If
End Sub

Private Sub Pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pass.KeyPress
If e.KeyChar = Chr(13) Then
CekLogin()
End If
End Sub

Private Sub B_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Login.Click
CekLogin()
End Sub

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

2.     Menu Utama
Private Sub MenuUtama_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Form2.Show()
End Sub

Private Sub MenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
ToolStripComboBox1.Text = “Pilih Transaksi Anda”
With ToolStripComboBox1
.Items.Add(“Form Pembayaran”)
End With
End Sub

Private Sub FormPembelianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormPembelianToolStripMenuItem.Click
Tagihan_PDAM.Show()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripStatusLabel2.Text = Microsoft.VisualBasic.Right(ToolStripStatusLabel2.Text, Microsoft.VisualBasic.Len(ToolStripStatusLabel2.Text) – 1) + Microsoft.VisualBasic.Left(ToolStripStatusLabel2.Text, 1)
ToolStripStatusLabel3.Text = Format(“Tanggal” & ” ” & Date.Today & ”    ” & “Jam” & ” ” & TimeOfDay)
End Sub

Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.Click
Select Case ToolStripComboBox1.Items.Count
Case 1
Tagihan_PDAM.Show()
End Select
End Sub

3.     Form Pembayaran Tagihan

Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RancangTabel()
AddKodePelanggan()
End Sub

Sub AddKodePelanggan()
For i = 1 To 2
Kode.Items.Add(“TOK” & “-” & “MED” & “-” & i & “00”)
Kode.Items.Add(“TOK” & “-” & “BEL” & “-” & i & “00”)
Kode.Items.Add(“TOK” & “-” & “TEM” & “-” & i & “00”)
Kode.Items.Add(“TOK” & “-” & “MAR” & “-” & i & “00”)
Kode.Items.Add(“TOK” & “-” & “BIN” & “-” & i & “00”)
Kode.Items.Add(“TOK” & “-” & “PAK” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “MED” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “BEL” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “TEM” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “MAR” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “BIN” & “-” & i & “00”)
Kode.Items.Add(“PAB” & “-” & “PAK” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “MED” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “BEL” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “TEM” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “MAR” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “BIN” & “-” & i & “00”)
Kode.Items.Add(“RUM” & “-” & “PAK” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “MED” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “BEL” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “TEM” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “MAR” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “BIN” & “-” & i & “00”)
Kode.Items.Add(“SWA” & “-” & “PAK” & “-” & i & “00”)
Next
End Sub

Sub ClearForm()
Kode.Text = “”
Urut.Text = “”
Daerah.Text = “”
Tipe.Text = “”
Beban.Text = “”
Harga.Text = “”
Jumlah.Text = “”
Tagihan.Text = “”
Total.Text = “”
Kode.Focus()
RubahTombol(False, False, True, False)
End Sub

Sub RubahTombol(ByVal B0 As Boolean, ByVal B1 As Boolean, ByVal B2 As Boolean, ByVal B3 As Boolean)
B_Simpan.Enabled = B0
B_Batal.Enabled = B1
B_Hps_1.Enabled = B2
B_Keluar.Enabled = B3
End Sub

Sub RancangTabel()
With LV
.Columns.Add(“Kode”, 80, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 60, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 70, HorizontalAlignment.Center)
.Columns.Add(“Tipe Pelanggan”, 90, HorizontalAlignment.Center)
.Columns.Add(“Beban”, 65, HorizontalAlignment.Right)
.Columns.Add(“Harga/M3”, 65, HorizontalAlignment.Right)
.Columns.Add(“Jumlah”, 65, HorizontalAlignment.Center)
.Columns.Add(“Tagihan”, 70, HorizontalAlignment.Right)
.Columns.Add(“Pajak”, 40, HorizontalAlignment.Center)
.Columns.Add(“Total Bayar”, 80, HorizontalAlignment.Right)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub

Sub MasukTabel()
Dim lst As New ListViewItem
With lst
.Text = Kode.Text
.SubItems.Add(Urut.Text)
.SubItems.Add(Daerah.Text)
.SubItems.Add(Tipe.Text)
.SubItems.Add(Beban.Text)
.SubItems.Add(Harga.Text)
.SubItems.Add(Jumlah.Text)
.SubItems.Add(Tagihan.Text)
.SubItems.Add(“1 %”)
.SubItems.Add(Total.Text)
End With
LV.Items.Add(lst)
End Sub

Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Dim tp As String
Dim drh As String
Dim urt As String
tp = Microsoft.VisualBasic.Left(Kode.Text, 3)
drh = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)
urt = Microsoft.VisualBasic.Right(Kode.Text, 3)
If tp = “TOK” Then
Tipe.Text = “TOKO”
Beban.Text = “25000”
Harga.Text = “300”
If urt = “001” Then
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
Else
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
End If
ElseIf tp = “RUM” Then
Tipe.Text = “Rumah”
Beban.Text = “15000”
Harga.Text = “100”
If urt = “001” Then
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
Else
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
End If
ElseIf tp = “SWA” Then
Tipe.Text = “Swalayan”
Beban.Text = “10000”
Harga.Text = “200”
If urt = “001” Then
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
Else
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
End If
ElseIf tp = “PAB” Then
Tipe.Text = “Pabrik”
Beban.Text = “250000”
Harga.Text = “500”
If urt = “001” Then
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
Else
Urut.Text = urt
If drh = “MED” Then
Daerah.Text = “Medan”
ElseIf drh = “BEL” Then
Daerah.Text = “Belawan”
ElseIf drh = “TEM” Then
Daerah.Text = “Aksara”
ElseIf drh = “MAR” Then
Daerah.Text = “Maredal”
ElseIf drh = “BIN” Then
Daerah.Text = “Binjai”
ElseIf drh = “PAK” Then
Daerah.Text = “Lubuk Pakam”
End If
End If
End If
Jumlah.Focus()
RubahTombol(True, True, True, True)
End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
If e.KeyChar = Chr(13) Then
Dim Ttl As Long
Dim T As Long
Dim pajak As Long
T = Val(Beban.Text + (Harga.Text * Jumlah.Text))
Tagihan.Text = Format(T, “###,###,###”)
pajak = 0.01 * T
Ttl = T + Val(pajak)
Total.Text = Format(Ttl, “###,###,###”)
End If
End Sub

Private Sub B_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Simpan.Click
MasukTabel()
ClearForm()
End Sub

Private Sub B_Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Batal.Click
ClearForm()
End Sub

Private Sub B_Hps_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Hps_1.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Pilih terlebih dahulu baris data yang akan dihapus”, MsgBoxStyle.Information, “Perhatikan !”)
End If
End Sub

Private Sub B_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Keluar.Click
Me.Close()
End Sub

Tampilan Program :

1.     Login

2.    Menu Utama

3.    Tagihan PDAM

Sekian, Terima Kasih.

Posted in: Program VB 6.0 & VB.NET 2008