Aplikasi Pembayaran Biaya Sekolah Dan SPP (konsultasivb.

com)

Langkah-langkah membuat aplikasi pembayaran biaya sekolah dan SPP adalah

sebagai berikut :

1. Membuat database
2. Membuat tabel-tabel
3. Membuat relasi tabel
4. Membuat project
5. Membuat module koneksi
6. Membuat form login
7. Membuat menu utama
8. Membuat form-form master
9. Membuat form transaksi pembayaran
10. Membuat form transaksi SPP
11. Membuat laporan
12. Dan lain-lain

Coding dan gambar-gambar form dan laporan dapat dilihat pada ilustrasi di
bawah ini :
Module koneksi database

Imports [Link]
Imports [Link]
Imports [Link]

Module Module1

Public Conn As OleDbConnection

Public DA As OleDbDataAdapter
Public DS As DataSet
Public CMD As OleDbCommand
Public DR As OleDbDataReader

Public laporan As New ReportDocument

Public TabelLogon As [Link]
ogOnInfo

Public Sub SetingLaporan()

Dim BacaTabel As [Link]
[Link]
For Each BacaTabel In [Link]
TabelLogon = [Link]
With [Link]
.ServerName = [Link]
& "\[Link]"
.UserID = ""
.Password = ""
.DatabaseName = ""
End With
[Link](TabelLogon)
Next BacaTabel
End Sub

Public Sub Koneksi()

Try
Conn
= NewOleDbConnection("provider=[Link].4.0;
data source=[Link]")
[Link]()
Catch ex As Exception
 MsgBox([Link])
End
End Try
End Sub
End Module

Imports [Link]

Public Class Login

Dim hitung As Integer

Private Sub OK_Click(ByVal sender As [Link],

ByVal e [Link]) Handles [Link]
Call Koneksi()
CMD = New OleDbCommand("select * from tbluser
where nama_user='" & [Link] & "' and
pwd_user='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = False
[Link]()

[Link] = [Link](0)
[Link] = [Link](1)
[Link] =
UCase([Link](3))

Else
MsgBox("Login gagal")
[Link]()
 [Link]()
[Link]()

hitung = hitung + 1
If hitung = 3 Then
MsgBox("Login sudah 3x salah")
End
End If
End If

Call Koneksi()
CMD = New OleDbCommand("select * from
TBLLEMBAGA", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = [Link](0)
Else
MsgBox("Profil lembaga harus segera diisi")
[Link]()
End If
End Sub

Private Sub Cancel_Click(ByVal sender As [Link]

ect, ByVal e As [Link]) Handles [Link]
End
End Sub

Private Sub txtnama_KeyDown(ByVal sender As Object,

ByVal e [Link]) Handles tx
[Link]
If [Link] = [Link] Then
[Link]()
End If
End Sub

Private Sub txtpassword_KeyDown(ByVal sender As Obj

ect, ByVal e As [Link]) Hand
les [Link]
If [Link] = [Link] Then
[Link]()
End If
End Sub
End Class
Imports [Link]

Public Class MasterLembaga

Sub Ketemu()
[Link] = [Link]("Nama_lembaga")
[Link] = [Link]("alamat")
[Link] =
[Link]([Link]("telepon"), 9, 20)
[Link] =
[Link]([Link]("fax"), 5, 20)
 [Link] =
[Link]([Link]("email"), 7, 43)
[Link] =
[Link]([Link]("website"), 9, 41)
[Link]()
End Sub

Sub TampilPerusahaan()
Call Koneksi()
CMD = New OleDbCommand("select * from
TBLLEMBAGA WHERE ID_LEMBAGA='01'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = [Link]("nama_LEMBAGA")
[Link] = [Link]("alamat")
[Link] =
[Link]([Link]("telp"), 9, 20)
[Link] =
[Link]([Link]("fax"), 5, 20)
[Link] =
[Link]([Link]("email"), 7, 50)
[Link] =
[Link]([Link]("website"), 9, 50)
End If
End Sub

Private Sub Masterlembaga_Load(ByVal sender As Syst

[Link], ByVal e As [Link]) Handles MyBase.
Load
Call Koneksi()
Call TampilPerusahaan()
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k

Call Koneksi()
 CMD = New OleDbCommand("select * from
TBLLEMBAGA where id_lembaga='01'", Conn)
DR = [Link]
[Link]()
Try
If Not [Link] Then
Call Koneksi()
Dim simpan As String = "insert into
TBLLEMBAGA values ('01','" & [Link] & "','" &
[Link] & "','" & [Link] & Space(1) &
[Link] & "','" & [Link] & Space(1) &
[Link] & "','" & [Link] & Space(1) &
[Link] & "','" & [Link] & Space(1) &
[Link] & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
MsgBox("Data berhasil disimpan")
[Link]()
Else
Call Koneksi()
Dim edit As String = "update TBLLEMBAGA
set Nama_lembaga='" & [Link] & "',alamat='" &
[Link] & "',telp='" & [Link] & Space(1) &
[Link] & "',fax='" & [Link] & Space(1) &
[Link] & "',email='" & [Link] & Space(1) &
[Link] & "',website='" & [Link] & Space(1)
& [Link] & "' where ID_LEMBAGA='01'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
MsgBox("Data berhasil diedit")
[Link]()
End If

Call Koneksi()
CMD = New OleDbCommand("select * from
TBLLEMBAGA", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] =
[Link](0)
End If

Catch ex As Exception
MsgBox([Link])
 End Try
End Sub

Private Sub TextBox2_LostFocus(ByVal sender As Obje

ct, ByVal e [Link]) Handles [Link]
cus
Call Koneksi()
CMD = New OleDbCommand("select * from
TBLLEMBAGA where ID_LEMBAGA='01", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
Else
Call Ketemu()
End If
End Sub
End Class

Imports [Link]
Public Class MasterUser

Sub Kosongkan()
[Link] = True
[Link]()
[Link]()
[Link] = ""
[Link]()
[Link]()
[Link]()
Call Tampillevel_user()
Call TampilGrid()
End Sub

Sub DataBaru()
[Link]()
[Link] = ""
[Link]()
[Link]()
[Link]()
End Sub

Sub Ketemu()
[Link] = False
[Link] = [Link]("nama_User")
[Link] = [Link]("pwd_User")
[Link] = [Link]("level_user")
[Link]()
End Sub

Sub TampilGrid()
'Call Koneksi()
DA = New OleDbDataAdapter("select * from
tblUser", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
End Sub

Sub Tampillevel_user()
'Call Koneksi()
CMD = New OleDbCommand("select distinct
level_user from tblUser", Conn)
DR = [Link]
 [Link]()
Do While [Link]
[Link]([Link]("level_user"))
Loop
End Sub

Private Sub MasterUser_Load(ByVal sender As System.

Object, ByVale As [Link]) Handles [Link]
[Link] =
[Link]
Call Koneksi()
Call Kosongkan()
End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
Call Kosongkan()
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Obj

ect, ByVal e As [Link]) Handles [Link]
tFocus
[Link] = UCase([Link])
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
CMD = New OleDbCommand("select * from tblUser
where id_user='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
Try
If Not [Link] Then
Dim simpan As String = "insert into
tblUser values ('" & [Link] & "','" &
[Link] & "','" & [Link] & "','" &
[Link] & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
Else
Dim edit As String = "update tblUser
set nama_User='"& [Link] & "',level_user='" &
[Link] & "',pwd_User='"& [Link] & "'
where id_user='" & [Link] & "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
End If
Catch ex As Exception
MsgBox([Link])
End Try
Call Kosongkan()
End Sub

Private Sub DGV_CellMouseClick(ByVal sender As Obje

ct, ByVal e [Link]
eEventArgs) [Link]
On Error Resume Next
[Link] = False
[Link] =
[Link]([Link]).Cells(0).Value
[Link] =
[Link]([Link]).Cells(1).Value
[Link] =
[Link]([Link]).Cells(2).Value
[Link] =
[Link]([Link]).Cells(3).Value
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
'If [Link] = "" Then
' MsgBox("Kode User harus diisi")
' [Link]()
' Exit Sub
'End If
'If [Link]("yakin akan dihapus..?",
"", [Link]) =
[Link] Then
' 'Call Koneksi()
 ' Dim hapus As String = "delete from
tblUser where id_user='" & [Link] & "'"
' CMD = New OleDbCommand(hapus, Conn)
' [Link]()
' Call Kosongkan()
'Else
' Call Kosongkan()
'End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
[Link] = 3
If [Link] = Chr(13) Then
CMD = New OleDbCommand("select * from
tblUser where id_user='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
Call DataBaru()
Else
Call Ketemu()
End If
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub
 Private Sub Combobox1_KeyPress(ByVal sender As Obje
ct, ByVal e [Link]) H
andles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox1_LostFocus(ByVal sender As Obje

ct, ByVal e [Link]) Handles [Link]
cus
'Call Koneksi()
End Sub

Private Sub TextBox6_TextChanged(ByVal sender As Sy

[Link], ByVal e As [Link]) Handles TextB
[Link]
'Call Koneksi()
DA = New OleDbDataAdapter("select * from
tblUser where nama_User like '%" & [Link]
& "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
End Sub
End Class
Imports [Link]

Public Class MasterLevelendidikan

Sub NomorOtomatis()
CMD = New OleDbCommand("select id_pendidikan
from tbllevelpendidikan order by id_pendidikan desc",
Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link] = "01"
Else
[Link] =
Format([Link]([Link]("id_pendidik
an"), 2) + 1, "00")
End If

End Sub

Sub Kosongkan()
[Link] = False
Call NomorOtomatis()
[Link]()
[Link]()
Call TampilGrid()
 [Link]()
End Sub

Sub DataBaru()
[Link]()
[Link]()
Call TampilGrid()
[Link]()
End Sub

Sub Ketemu()
[Link] = False
[Link] = [Link]("level_pendidikan")
[Link]()
End Sub

Sub TampilGrid()
DA = New OleDbDataAdapter("select * from
tbllevelpendidikan", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
End Sub

Sub Kondisiawal()
Call Kosongkan()
End Sub

Sub CariID()
CMD = New OleDbCommand("select * from
tbllevelpendidikan where id_pendidikan='" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
End Sub

Private Sub MasterLevelPendidikan_Load(ByVal sender

[Link], ByVal e As [Link]) Handles M
[Link]
Call Koneksi()
Call Kondisiawal()
'Call NomorOtomatis()
End Sub
 Private Sub Button3_Click(ByVal sender As [Link]
ject, ByVal e As [Link]) Handles [Link]
k
Call Kondisiawal()
Call TampilGrid()
Call Kosongkan()
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k

Call CariID()
Try
If Not [Link] Then
'Call Koneksi()
Dim simpan As String = "insert into
tbllevelpendidikan values ('" & [Link] & "','" &
[Link] + "-" + [Link] & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
Call Kosongkan()
Call TampilGrid()
Else
'Call Koneksi()
Dim edit As String = "update
tbllevelpendidikan set level_pendidikan='" &
[Link] & "' where id_pendidikan='" &
[Link] & "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
'Call Kondisiawal()
Call Kosongkan()
Call TampilGrid()
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
 Private Sub DGV_CellMouseClick(ByVal sender As Obje
ct, ByVal e [Link]
eEventArgs) [Link]
'On Error Resume Next
[Link] = False
[Link] =
[Link]([Link]).Cells(0).Value
Call CariID()
If [Link] Then
Call Ketemu()
End If

End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
'If [Link] = "" Then
' MsgBox("id level harus diisi")
' [Link]()
' Exit Sub
'End If

'Call CariID()
'If Not [Link] Then
' MsgBox("id level tidak terdaftar")
' [Link]()
' Exit Sub
'End If

'If [Link]("yakin akan dihapus..?",

"", [Link]) =
[Link] Then
' 'Call Koneksi()
' Dim hapus As String = "delete from
tbllevelpendidikan where id_pendidikan='" &
[Link] & "'"
' CMD = New OleDbCommand(hapus, Conn)
' [Link]()
' Call Kosongkan()
' Call TampilGrid()
'Else
' Call Kosongkan()
 'End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
[Link] = 5
If [Link] = Chr(13) Then
CMD = New OleDbCommand("select * from
tbllevelpendidikan where id_pendidikan='" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
Call DataBaru()
Else
Call Ketemu()
End If
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox6_TextChanged(ByVal sender As Sy

[Link], ByVal e As [Link]) Handles TextB
[Link]
'Call Koneksi()
DA = New OleDbDataAdapter("select * from
tbllevelpendidikan where id_pendidikan like '%" &
[Link] & "%' or level_pendidikan like '%" &
[Link] & "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
End Sub
End Class
Imports [Link]

Public Class MasterBiaya2

Sub Bersihkan()
[Link] = ""
[Link] = ""
[Link]()
[Link]()
[Link]()
[Link]()
End Sub

Sub TampilLevelpendidikan()
CMD = New OleDbCommand("select * from
TBLlevelpendidikan", Conn)
DR = [Link]
[Link]()
Do While [Link]
[Link]([Link](1))
Loop
End Sub

Sub TotalBiaya()
On Error Resume Next
Dim hitung As Integer
For baris As Integer = 0 To [Link] - 1
 hitung = hitung +
[Link](baris).Cells(2).Value
Next
[Link] = FormatNumber(hitung, 0)
End Sub

Private Sub DGV_CellEndEdit(ByVal sender As Object,

ByVal e [Link]
s) [Link]

'On Error Resume Next

Dim baris As Integer = [Link] - 1
If [Link] = 1 Then
[Link]([Link]).Cells(1).Value =
UCase([Link]([Link]).Cells(1).Value)

CMD = New OleDbCommand("select * from

tblbiayadetail where id_biaya='" &
[Link]([Link]).Cells(0).Value & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
If baris < 10 Then
[Link]([Link]).Cells(0).Value
= [Link] & "0" & baris
[Link] = DGV(2,
[Link])
[Link]("{UP}")
Else
[Link]([Link]).Cells(0).Value
= [Link] & baris
[Link] = DGV(2,
[Link])
[Link]("{UP}")
End If
Else
If baris < 10 Then
[Link] = DGV(2,
[Link])
[Link]("{UP}")
Else
[Link] = DGV(2,
[Link])
[Link]("{UP}")
End If
 End If

End If

If [Link] = 2 Then
Try
[Link] = DGV(1,
[Link])
Catch ex As Exception
MsgBox("Harus angka")
End Try

End If
Call TotalBiaya()
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ck
[Link]()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ick

If [Link] = "" Or [Link]

= "" [Link] = "" Then
MsgBox("data belum lengkap")
Exit Sub
End If

For baris As Integer = 0 To [Link] - 2

CMD = New OleDbCommand("select * from
tblbiayadetail where id_biaya='" &
[Link](baris).Cells(0).Value & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
Dim simpan As String = "insert into
tblbiayadetail values('" &
[Link](baris).Cells(0).Value & "','" &
[Link](baris).Cells(1).Value & "','" &
[Link](baris).Cells(2).Value & "')"
CMD = New OleDbCommand(simpan, Conn)
 [Link]()
Else
Dim edit As String = "update
tblbiayadetail set nama_biaya='" &
[Link](baris).Cells(1).[Link]
& "',jumlah_biaya='" &
[Link](baris).Cells(2).[Link] & "' where
id_biaya='" & [Link](baris).Cells(0).[Link]
& "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
End If
Next

CMD = New OleDbCommand("select * from TBLBiaya

where id_biaya='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
Dim simpan As String = "insert into
TBLBiaya values('" & [Link] & "','" &
[Link] & "','" & [Link]
& "','" & [Link] & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
Else
Dim edit As String = "update TBLBiaya set
total_biaya='"& [Link] & "',
jatuh_tempo='" & [Link] & "',uang_spp='" &
[Link] & "' where id_biaya='" &
[Link] & "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
End If
Call Bersihkan()
Call TampilLevelpendidikan()
End Sub

Private Sub MasterBiaya2_Load(ByVal sender As Syste

[Link], ByVal e As [Link]) Handles MyBase.L
oad
Call Koneksi()
Call TampilLevelpendidikan()
'jatuh tempo 3 bulan kedepan
 [Link] =
DateAdd([Link], 3, Today)
End Sub

Private Sub ComboBox1_KeyDown(ByVal sender As Objec

t, ByVal e [Link]) Handles
[Link]
If [Link] = [Link] Then
[Link] = UCase([Link])
CMD = New OleDbCommand("select * from
tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
DA = New OleDbDataAdapter("select *
from tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA LAMA"
Call TotalBiaya()
Else
DA = New OleDbDataAdapter("select *
from tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA BARU"
Call TotalBiaya()
End If
[Link](0).ReadOnly = True
End If
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal se

nder [Link], ByVal e As [Link]) Hand
[Link]
On Error Resume Next
 CMD = New OleDbCommand("select * from
tbllevelpendidikan where level_pendidikan ='" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = DR("ID_PENDIDIKAN")
End If

CMD = New OleDbCommand("select * from tblbiaya

where id_biaya = '" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = DR("jatuh_tempo")
[Link] = DR("uang_spp")
Else
[Link]()
End If

CMD = New OleDbCommand("select * from

tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
DA = New OleDbDataAdapter("select * from
tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link](2).[Link]
= "#,###"
[Link](2).[Link] =
[Link]
[Link] = "DATA LAMA"
Call TotalBiaya()
Else
DA = New OleDbDataAdapter("select * from
tblbiayadetail where LEFT(id_biaya,2) = '" &
[Link] & "'", Conn)
 DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA BARU"
Call TotalBiaya()
End If

[Link](0).ReadOnly = True

End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ck
Call Bersihkan()
End Sub

Private Sub DGV_CellMouseClick(ByVal sender As Obje

ct, ByVal e [Link]
eEventArgs) [Link]
On Error Resume Next
[Link] =
[Link]([Link]).Cells(0).Value
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ck
If [Link] = "" Then
MsgBox("Pilih data yang akan dihapus")
Exit Sub
End If

CMD = New OleDbCommand("select * from

tblbiayadetail where id_biaya='" & [Link]
& "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
MsgBox("data belum terdaftar, hapus dengan
menekan Escape...")
Exit Sub
End If
 If [Link]("Yakin akan
dihapus...?", "", [Link]) =
[Link] Then
Dim hapus As String = "delete * from
tblbiayadetail where id_biaya='" & [Link]
& "'"
CMD = New OleDbCommand(hapus, Conn)
[Link]()

CMD = New OleDbCommand("select * from

tblbiayadetail where id_biaya like '%" &
[Link] & "%'", Conn)
DR = [Link]
[Link]()
If [Link] Then
DA = New OleDbDataAdapter("select *
from tblbiayadetail where id_biaya like '%" &
[Link] & "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA LAMA"
Call TotalBiaya()
Else
DA = New OleDbDataAdapter("select *
from tblbiayadetail where id_biaya like '%" &
[Link] & "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA BARU"
Call TotalBiaya()
End If
[Link]()
[Link](0).ReadOnly = True
End If

Dim editbiaya As String = "update tblbiaya set

total_biaya='"& [Link] & "' where
id_biaya='" & [Link] & "'"
 CMD = New OleDbCommand(editbiaya, Conn)
[Link]()
End Sub

Private Sub DGV_KeyDown(ByVal sender As Object, ByV

al e [Link]) Handles DGV.K
eyDown
On Error Resume Next
Dim baris As Integer = [Link] - 2
If [Link] = [Link] Then
CMD = New OleDbCommand("select * from
tblbiayadetail where id_biaya='" &
[Link](baris).Cells(0).Value & "'", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link]([Link])
Call TotalBiaya()
Else
If [Link]("yakin akan dihapus
dari tabel..?", "", [Link]) =
[Link] Then
Dim hapus As String = "delete *
from tblbiayadetail where id_biaya='" &
[Link](baris).Cells(0).Value & "'"
CMD = New OleDbCommand(hapus, Conn)
[Link]()
DA = New OleDbDataAdapter("select *
from tblbiayadetail where id_biaya like '%" &
[Link] & "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link] = "DATA LAMA"
Call TotalBiaya()
End If
End If
End If
End Sub
End Class
Imports [Link]

Public Class MasterSiswa

Sub NomorOtomatis()
CMD = New OleDbCommand("select id_siswa from
tblsiswa order by id_siswa desc", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link] = "00001"
Else
[Link] =
Format([Link]([Link]("id_siswa"),
5) + 1, "00000")
End If

End Sub

Sub Kosongkan()
[Link] = False
Call NomorOtomatis()
[Link]()
 [Link]()
[Link]()
[Link]()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Call Tampilangkatan()
Call TampilJurusan()
Call Tampilkelas()
Call TampilGrid()
[Link]()
End Sub

Sub DataBaru()
[Link]()
[Link]()
[Link]()
[Link]()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Call Tampilangkatan()
Call TampilJurusan()
Call Tampilkelas()
Call TampilGrid()
[Link]()
End Sub

Sub Ketemu()
On Error Resume Next
[Link] = False
[Link] = [Link]("NIS")
[Link] = [Link]("NISN")
[Link] = [Link]("nama_siswa")
[Link] = [Link]("id_biaya") ':
[Link]("{tab}")
[Link] = [Link]("Tahun_ajaran")
[Link] = [Link]("Jurusan")
[Link] = [Link]("kelas")
[Link] = [Link]("semester")
[Link]()
 End Sub

Sub TampilGrid()
DA = New OleDbDataAdapter("select * from
tblsiswa", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
End Sub

Sub TampilPendidikan()
CMD = New OleDbCommand("select * from
tblLEVELPENDIDIKAN", Conn)
DR = [Link]
[Link]()
Do While [Link]
[Link]([Link](0) &
Space(2) & DR(1))
Loop
End Sub

Sub Tampilangkatan()
CMD = New OleDbCommand("select DISTINCT
TAHUN_AJARAN from tblSISWA", Conn)
DR = [Link]
[Link]()
Do While [Link]
[Link]([Link](0))
Loop
End Sub

Sub TampilJurusan()
CMD = New OleDbCommand("select DISTINCT
JURUSAN from tblSISWA", Conn)
DR = [Link]
[Link]()
Do While [Link]
[Link]([Link](0))
Loop
End Sub

Sub Tampilkelas()
CMD = New OleDbCommand("select DISTINCT KELAS
from tblSISWA", Conn)
 DR = [Link]
[Link]()
Do While [Link]
[Link]([Link](0))
Loop
End Sub

Sub Kondisiawal()
Call Kosongkan()
Call TampilPendidikan()
Call Tampilangkatan()
Call TampilGrid()
Call TampilJurusan()
Call Tampilkelas()
End Sub

Sub Carisiswa()
CMD = New OleDbCommand("select * from tblsiswa
where id_siswa='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
End Sub

Private Sub MasterSiswa_Load(ByVal sender As System

.Object, ByVale As [Link]) Handles [Link]
d
Call Koneksi()
Call Kondisiawal()
[Link] = DateValue("10/07/" &
Year(Today) & "")
End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
Call Kondisiawal()
Call TampilGrid()
Call Kosongkan()
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub
 Private Sub Button1_Click(ByVal sender As [Link]
ject, ByVal e As [Link]) Handles [Link]
k

Call Carisiswa()
Try
If Not [Link] Then
'Call Koneksi()
Dim simpan As String = "insert into
tblsiswa values ('" & [Link] & "','" &
[Link] & "','" & [Link] & "','" &
[Link] & "','" &
[Link]([Link], 2)
& "','" &
[Link]([Link], 2)
& "','" & [Link] & "','" & [Link]
& "','" & [Link] & "','" & [Link]
& "','" & [Link] & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
For i As Integer = 1 To 12
Dim TempO As Date =
DateAdd([Link], i - 1,
DateValue([Link]))
Call Koneksi()
Dim hasil As String =
[Link]
Dim simpandetail2 As String = "inse
rt into TBLSPP values ('" & [Link] & i
& "',0,'" & TempO & "','" & Format(TempO, "MMMM") + "
" + Format(TempO, "yyyy") & "','" & [Link]
& "',0,'-','-')"
CMD
= New OleDbCommand(simpandetail2, Conn)
[Link]()
Next

CMD = New OleDbCommand("select * from

TBLSPP order by 2,4", Conn)
DR = [Link]
[Link]()
Call Kosongkan()
Call TampilGrid()
Else
 'Call Koneksi()
Dim edit As String = "update tblsiswa
set nis='" & [Link] & "',nisn='" & [Link]
& "',nama_siswa='" & [Link] & "',id_biaya='" &
[Link]([Link], 2)
& "',ID_PENDIDIKAN='" &
[Link]([Link], 2)
& "',Tahun_Ajaran='" & [Link]
& "',Jurusan='" & [Link] & "',Kelas='" &
[Link] & "',semester='" & [Link]
& "',ID_LEMBAGA='" & [Link]
& "' where id_siswa='" & [Link] & "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()

Call Kosongkan()
Call TampilGrid()
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Private Sub DGV_CellMouseClick(ByVal sender As Obje

ct, ByVal e [Link]
eEventArgs) [Link]
'On Error Resume Next
[Link] = False
[Link] =
[Link]([Link]).Cells(0).Value

Call Carisiswa()
If [Link] Then
Call Ketemu()
End If
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
'If [Link] = "" Then
' MsgBox("ID siswa harus diisi")
' [Link]()
' Exit Sub
'End If
 'Call Carisiswa()
'If Not [Link] Then
' MsgBox("id siswa tidak terdaftar")
' [Link]()
' Exit Sub
'End If

'If [Link]("yakin akan dihapus..?",

"", [Link]) =
[Link] Then
' 'Call Koneksi()
' Dim hapus As String = "delete from
tblsiswa where id_siswa='" & [Link] & "'"
' CMD = New OleDbCommand(hapus, Conn)
' [Link]()
' Call Kosongkan()
' Call TampilGrid()
'Else
' Call Kosongkan()

'End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
[Link] = 5
If [Link] = Chr(13) Then
CMD = New OleDbCommand("select * from
tblsiswa where id_siswa='" & [Link] & "'",
Conn)
DR = [Link]
[Link]()
If Not [Link] Then
Call DataBaru()
Else
Call Ketemu()
End If
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
 '[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox4_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub combobox1_KeyPress(ByVal sender As Obje

ct, ByVal e [Link])
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub combobox2_KeyPress(ByVal sender As Obje

ct, ByVal e [Link])
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub combobox3_KeyPress(ByVal sender As Obje

ct, ByVal e [Link])
'[Link] = 5
If [Link] = Chr(13) Then
[Link]()
 End If
End Sub

Private Sub TextBox6_TextChanged(ByVal sender As Sy

[Link], ByVal e As [Link]) Handles TextB
[Link]
'Call Koneksi()
DA = New OleDbDataAdapter("select * from
tblsiswa where id_siswa like '%" & [Link] & "%'
or nama_siswa like '%" & [Link] & "%'", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
End Sub

Private Sub cmbPendidikan_SelectedIndexChanged(ByVa

l sender [Link], ByVal e As [Link])
[Link]
CMD = New OleDbCommand("select * from tblBIAYA
where id_BIAYA='" &
[Link]([Link], 2)
& "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = DR("TOTAL_BIAYA")
Else
MsgBox("ID BIAYA SALAH")
End If
End Sub
End Class
Imports [Link]

Public Class TRPembayaran

Sub Nomorotomat()
CMD = New OleDbCommand("select id_pembayaran
from tblpembayaran order by id_pembayaran desc", Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link] = "00001"
Else
[Link] =
Format([Link]([Link]("id_pembayara
n"), 5) + 1, "00000")
End If
[Link] = False
End Sub

Sub Kosongkan()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
 [Link]()
[Link] = ""
[Link]()
[Link]()
End Sub

Private Sub TRPembayaran_Load(ByVal sender As Syste

[Link], ByVal e As [Link]) Handles MyBase.L
oad
Call Koneksi()
Call Kosongkan()
Call Nomorotomat()
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As Sy

[Link], ByVal e As [Link]) Handles txtna
[Link]
CMD = New OleDbCommand("select * from tblsiswa
where nama_siswa like '%" & [Link] & "%'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = [Link](0)
Else
[Link] = ""
End If
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ck
[Link]()
End Sub

Sub TotalBayar()
Dim hitung As Integer
 For baris As Integer = 0 To [Link] - 1
hitung = hitung +
[Link](baris).Cells(5).Value
Next
[Link] = hitung
[Link] = hitung
[Link] = Val([Link]) -
Val([Link])
End Sub

Sub TotalSisa()
Dim hitung As Integer
For baris As Integer = 0 To [Link] - 1
hitung = hitung +
[Link](baris).Cells(4).Value
Next
[Link] = hitung
End Sub

Private Sub DGV_CellEndEdit(ByVal sender As Object,

ByVal e [Link]
s) [Link]

Try
If [Link] = 5 Then
If DateValue([Link]) >
DateValue([Link]) Then
[Link]([Link]).Cells(6).Value
= "BAYAR TUNGGAKAN"
Else
[Link]([Link]).Cells(6).Value
= "BAYAR CICILAN"
End If
[Link](6).AutoSizeMode =
[Link]
[Link]([Link]).Cells(4).Value =
[Link]([Link]).Cells(2).Value -
([Link]([Link]).Cells(3).Value +
[Link]([Link]).Cells(5).Value)
End If

Call TotalBayar()
Call TotalSisa()
Catch ex As Exception
MsgBox("Harus angka")
 [Link]("{UP}")
[Link]([Link]).Cells(5).Value = ""
[Link]([Link]).Cells(6).Value = ""
End Try
End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ck
Call Kosongkan()
[Link]()
End Sub

Private Sub txtIDsiswa_KeyPress(ByVal sender As Obj

ect, ByVal e As [Link])
[Link]
If [Link] = Chr(13) Then
[Link]()
CMD = New OleDbCommand("select * from
tblsiswa where id_siswa='" & [Link] & "'",
Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = [Link]("nama_siswa")
[Link] =
[Link]("ID_BIAYA")
[Link] = [Link]("semester")

CMD = New OleDbCommand("select

jatuh_tempo from tblbiaya where id_biaya='" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] =
DR("jatuh_tempo")
End If

CMD = New OleDbCommand("select * from

tbllevelpendidikan where id_pendidikan='" &
[Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
 [Link] =
DR("level_pendidikan")
End If

CMD = New OleDbCommand("select distinct

tblpembayarandetail.id_biaya,tblbiayadetail.nama_biaya,
jumlah_biaya,tblpembayarandetail.jumlah_bayar as [Sudah
Bayar],Sisa from
tblpembayarandetail,tblbiayadetail,tblpembayaran where
tblpembayarandetail.id_biaya=tblbiayadetail.id_biaya
and tblpembayaran.id_siswa='" & [Link] & "'
and left(tblpembayarandetail.id_biaya,2) = '" &
[Link] & "' and
tblpembayarandetail.id_pembayaran in (select
max(id_pembayaran) from tblpembayarandetail where
leFt(id_biaya,2) ='" & [Link] & "') group
by
tblpembayarandetail.id_biaya,tblbiayadetail.nama_biaya,
tblbiayadetail.jumlah_biaya,tblpembayarandetail.jumlah_
bayar,sisa order by 1", Conn)

DR = [Link]
[Link]()
If [Link] Then
DA = New OleDbDataAdapter("select
distinct tblpembayarandetail.id_biaya AS [Id
Biaya],tblbiayadetail.nama_biaya as [Nama
Biaya],jumlah_biaya as [Jumlah
Biaya],tblpembayarandetail.jumlah_bayar as [Sudah
Bayar],Sisa from
tblpembayarandetail,tblbiayadetail,tblpembayaran where
tblpembayarandetail.id_biaya=tblbiayadetail.id_biaya
and tblpembayaran.id_siswa='" & [Link] & "'
and left(tblpembayarandetail.id_biaya,2) = '" &
[Link] & "' and
tblpembayarandetail.id_pembayaran in (select
max(id_pembayaran) from tblpembayarandetail where
left(id_biaya,2) ='" & [Link] & "') group
by
tblpembayarandetail.id_biaya,tblbiayadetail.nama_biaya,
tblbiayadetail.jumlah_biaya,tblpembayarandetail.jumlah_
bayar,sisa order by 1", Conn)

DS = New DataSet
[Link](DS)
 [Link] = [Link](0)
[Link]("bayar", "Bayar
Sekarang")
[Link]("Keterangan", "Kete
rangan")
[Link](1).AutoSizeMode =
[Link]
[Link](0).ReadOnly = True
[Link](1).ReadOnly = True
[Link](2).ReadOnly = True
[Link](3).ReadOnly = True
[Link](4).ReadOnly = True
For baris As Integer =
0 To [Link] - 2
[Link](baris).Cells(3).Value
= [Link](baris).Cells(2).Value -
[Link](baris).Cells(4).Value
[Link](baris).Cells(5).Value
= 0
[Link](baris).Cells(6).Value
= "-"

If [Link](baris).Cells(4).Val
ue <= 0 Then
[Link](baris).Cells(5).Re
adOnly = True
Else
[Link](baris).Cells(5).Re
adOnly = False
End If
Next

For kolom As Integer =

2 To [Link] - 1
[Link](kolom).DefaultCellS
[Link] = "###,###,###"
[Link](kolom).DefaultCellS
[Link] =
[Link]
Next
[Link](4).[Link]
eColor = [Link]
Call TotalSisa()

If [Link] = 0 Then
 MsgBox("pembayaran sudah
lunas")
Call Kosongkan()
End If
Else
Call TampilGridBiaya()
[Link](0).ReadOnly = True
[Link](1).ReadOnly = True
[Link](2).ReadOnly = True
[Link](3).ReadOnly = True
[Link](4).ReadOnly = True
End If
Else
[Link]()
[Link]()
[Link] = ""
[Link]()
MsgBox("Id siswa tidak terdaftar")
[Link]()
End If
End If

If [Link] = Chr(27) Then

[Link]()
End If
End Sub

Sub TampilGridBiaya()
DA = New OleDbDataAdapter("select * from
tblbiayadetail where left(id_biaya,2) = '" &
[Link] & "' order by 1", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link](1).AutoSizeMode =
[Link]
[Link](2).[Link]
= "###,###,###"
[Link](2).[Link] =
[Link]

[Link](0).HeaderText = "Id Biaya"

[Link](1).HeaderText = "Nama Biaya"
[Link](2).HeaderText = "Jumlah Biaya"
 [Link]("sudah", "Sudah Bayar")
[Link]("Sisa", "Sisa")
[Link]("Dibayar", "Bayar Sekarang")
[Link]("Keterangan", "Keterangan")

For baris As Integer = 0 To [Link] - 2

[Link](baris).Cells(3).Value = 0
[Link](baris).Cells(4).Value =
[Link](baris).Cells(2).Value
[Link](baris).Cells(5).Value = 0
Next

For kolom As Integer = 2 To [Link] - 1

[Link](kolom).[Link]
= "###,###,###"
[Link](kolom).[Link]
nt = [Link]

Next

[Link](4).[Link] =
[Link]
[Link](1).AutoSizeMode =
[Link]
Call TotalSisa()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
ick

If [Link] = "" Or [Link]

= "" [Link] = "" Or [Link]
= "" Then
MsgBox("data belum lengkap")
Exit Sub
End If

Dim simpan As String = "insert into

tblpembayaran values('" & [Link] & "','" &
[Link] & "','" & [Link] & "','" &
[Link] & "','" & [Link] & "','" &
[Link] & "','" & [Link] & "','" &
[Link] & "','U01')"
 CMD = New OleDbCommand(simpan, Conn)
[Link]()

For baris As Integer = 0 To [Link] - 2

Dim simpandetail As String = "insert into
tblpembayarandetail values('" & [Link] & "','" &
[Link](baris).Cells(0).Value & "','" &
[Link](baris).Cells(5).Value & "','" &
[Link](baris).Cells(4).Value & "','" &
[Link](baris).Cells(6).Value & "')"
CMD = New OleDbCommand(simpandetail, Conn)
[Link]()
Next

If [Link]("cetak faktur...?", "",

[Link]) =
[Link] Then
[Link]()
[Link]("cetak [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End If
Call Nomorotomat()
Call Kosongkan()
End Sub

Private Sub txtdibayar_KeyDown(ByVal sender As Obje

ct, ByVal e [Link]) Handle
s [Link]
If [Link] = [Link] Then
If Val([Link]) <
Val([Link]) Then
MsgBox("pembayaran kurang")
Exit Sub
ElseIf Val([Link]) >=
Val([Link]) Then
[Link] = Val([Link])
- Val([Link])
[Link]()
End If
End If

If Not ([Link] >= "0" And [Link]

<= "9" Or [Link] = [Link]) Then
 [Link] = True
End If
End Sub

Private Sub DGV_KeyDown(ByVal sender As Object, ByV

al e [Link]) Handles DGV.K
eyDown
On Error Resume Next
If [Link] = [Link] Then
[Link]([Link])
Call TotalBayar()
Call TotalSisa()
End If
End Sub
End Class

Imports [Link]
Public Class TRSPP
 Sub Bayarotomatis()
'Call Koneksi()
CMD = New OleDbCommand("select * from TBLSPP
where No_bayar in(select max(No_Bayar) from TBLSPP)",
Conn)
DR = [Link]
[Link]()
If Not [Link] Then
[Link] = Format(Now, "yyMMdd")
+ "0001"
Else
If [Link]([Link]("no_B
ayar"), 6) = Format(Now, "yyMMdd") Then
[Link] =
[Link]("no_Bayar") + 1
Else
[Link] =
Format(Now, "yyMMdd") + "0001"
End If
End If
End Sub

Sub KondisiAwal()
[Link]()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link] = False
[Link]()
[Link]()
End Sub

Private Sub Pembayaran_Load(ByVal sender As System.

Object, ByVale As [Link]) Handles [Link]
Call KondisiAwal()
Call Koneksi()
Call Bayarotomatis()
 [Link] = False
[Link] = False
[Link] = False
[Link] = 100

End Sub

Private Sub TxtIDSiswa_KeyPress(ByVal sender As Obj

ect, ByVal e As [Link])
[Link]
[Link] = 5
If [Link] = Chr(13) Then
'Call Koneksi()
CMD = New OleDbCommand("select * from
tblSiswa where ID_Siswa='" & [Link] & "'",
Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] =
[Link]("nama_Siswa")
[Link] = [Link]("Kelas")
[Link] =
[Link]("Tahun_ajaran")

CMD = New OleDbCommand("select uang_spp

from tblbiaya,tblsiswa where
tblsiswa.id_biaya=tblbiaya.id_biaya and
tblsiswa.ID_Siswa='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
[Link] = [Link]("uang_spp")
[Link] =
FormatNumber([Link], 0)

Else
MsgBox("ID_Siswa tidak terdaftar")
Call KondisiAwal()
[Link]()
End If
End If

'Call Koneksi()
 CMD = New OleDbCommand("select * from TBLSPP
where ID_Siswa='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
'Call Koneksi()
DA = New OleDbDataAdapter("select * from
TBLSPP where ID_Siswa='" & [Link] & "' ORDER
BY 3", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
[Link](5).[Link]
= "###,###,###"
[Link](5).[Link] =
[Link]
[Link](4).Visible = False
[Link](7).Visible = False
[Link](6).Width = 150
Call TotalTelahDibayar()
Call TotalBelumDibayar()
End If
If Not (([Link] >= "0" And [Link]
<= "9") Or [Link] = vbBack) Then [Link] = True
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
Call KondisiAwal()
End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub

Sub TotalTelahDibayar()
Dim hitung As Integer = 0
For baris As Integer = 0 To [Link] - 1
hitung = hitung +
[Link](baris).Cells(5).Value
 [Link] =
Format(hitung, "###,###,###")
Next

'Call Koneksi()
CMD = New OleDbCommand("select
count(keterangan) from TBLSPP where ID_Siswa='" &
[Link] & "' and keterangan<>'-'", Conn)
DR = [Link]
[Link]()
[Link] = [Link](0) & " Bulan"
End Sub

Sub TotalBelumDibayar()
'Call Koneksi()
CMD = New OleDbCommand("select
count(keterangan) from TBLSPP where ID_Siswa='" &
[Link] & "' and keterangan='-'", Conn)
DR = [Link]
[Link]()
[Link] = [Link](0) & " Bulan"
[Link] =
Val([Link]([Link]) *
[Link](0))
[Link] = FormatNumber([Link], 0)
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
Try
'Call Koneksi()
Dim KondisiBayar As String
If [Link]([Link]).Cells
(2).Value > [Link] Then
KondisiBayar = "LUNAS"
Else
KondisiBayar = "LUNASI TUNGGAKAN"
End If

Dim bayar As String = "update TBLSPP set

no_bayar='" & [Link] & "',tgl_bayar='" &
[Link] & "',jumlah='" &
[Link]([Link])
& "',keterangan='" & KondisiBayar & "',id_user='" &
[Link] & "' where no_bayar='" &
[Link]([Link]).Cells(0).Value & "'"
CMD = New OleDbCommand(bayar, Conn)
[Link]()

'Call Koneksi()
DA = New OleDbDataAdapter("select * from
TBLSPP where ID_Siswa='" & [Link] & "' ORDER
BY 3", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
[Link](5).[Link]
= "###,###,###"
[Link](5).[Link] =
[Link]
[Link](6).Width = 190
Call TotalTelahDibayar()
Call TotalBelumDibayar()
Call Bayarotomatis()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k

[Link]()
[Link]
= "{TBLSPP.no_bayar}='" & [Link] & "'"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub Button5_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
[Link]
= "{TBLSPP.ID_Siswa}='" & [Link] & "' and
totext({TBLSPP.tgl_bayar})='" &
[Link]([Link]).Cells(1).Value & "'"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub Button6_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
[Link]
= "{TBLSPP.ID_Siswa}='" & [Link] & "' and
{[Link]}>0"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub Button7_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
[Link]
= "{TBLSPP.ID_Siswa}='" & [Link] & "' and
{[Link]}=0"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub Button8_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k

[Link]()
[Link]
= "{TBLSPP.ID_Siswa}='" & [Link] & "'"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
 [Link]()

End Sub

Private Sub TxtIDSiswa_TextChanged(ByVal sender As

[Link], ByVal e As [Link]) Handles Txt
[Link]
If [Link] = "" Then
Call KondisiAwal()
End If
End Sub

Private Sub DGV_RowEnter(ByVal sender As Object, By

Val e [Link])
Handles [Link]
[Link] =
[Link]([Link]).Cells(6).Value
If [Link] = "-" Then
[Link] = True
[Link] = False
[Link] = False
ElseIf [Link] = "LUNAS" Or [Link]
= "LUNASI TUNGGAKAN" Then
[Link] = False
[Link] = True
[Link] = True
End If
End Sub

Private Sub DGV_CellMouseClick(ByVal sender As Obje

ct, ByVal e [Link]
eEventArgs) [Link]
[Link] =
[Link]([Link]).Cells(0).Value
End Sub
End Class
Imports [Link]

Public Class LaporanSPP

Sub TampilKelas()
'Call Koneksi()
CMD = New OleDbCommand("select distinct kelas
from tblsiswa", Conn)
DR = [Link]
[Link]()
Do While [Link]
[Link]([Link]("kelas"))
[Link]([Link]("kelas"))
Loop
End Sub

Private Sub LaporanSPP_Load(ByVal sender As System.

Object, ByVale As [Link]) Handles [Link]
Call Koneksi()
Call TampilKelas()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
 [Link]
= "totext({tblspp.tgl_bayar})='" & [Link]
& "' and {[Link]}<>'-'"
[Link]("laporan spp [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]
= "{[Link]}<>'-' and
month({tblspp.tgl_bayar})=(" &
Month([Link]) & ") and
year({tblspp.tgl_bayar}) =(" &
Year([Link]) & ")"
[Link]("laporan spp [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link] = "{[Link]}='" &
[Link] & "' and {[Link]}<>'-'"
[Link]("laporan spp per [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link] = "{[Link]}='" &
[Link] & "' and {[Link]}='-' and
month({tblspp.jatuh_tempo})=(" &
Month([Link]) & ") and
year({tblspp.jatuh_tempo}) =(" &
Year([Link]) & ") "
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub Button5_Click(ByVal sender As [Link]

ject, ByVal e As [Link])
[Link]()
End Sub
End Class
Imports [Link]

Public Class LaporanPembayaran

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
If [Link] = True Then
[Link]
= "{[Link]} in date ('" &
[Link] & "') to date ('" &
[Link] & "') "
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
ElseIf [Link] = True Then
[Link]
= "month({[Link]})=("&
Month([Link]) & ") and
year({[Link]}) =(" &
Year([Link]) & ")"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
ElseIf [Link] = True Then
[Link]
= "year({[Link]}) =("&
Year([Link]) & ")"
[Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End If
End Sub

Private Sub LaporanPembayaran_Load(ByVal sender As

[Link], ByVal e As [Link]) Handles MyB
[Link]
Call Koneksi()
CMD = New OleDbCommand("select * from
tbllevelpendidikan", Conn)
DR = [Link]
Do While [Link]
[Link]([Link](1))
Loop
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sen

der [Link], ByVal e As [Link]) Handl
[Link]
[Link]
= "{tbllevelpendidikan.level_pendidikan} ='" &
[Link] & "'"
 [Link]("master [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub Button2_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k

DA = New OleDbDataAdapter("select distinct

tblpembayaran.id_siswa,tblsiswa.nama_siswa,tbllevelpend
idikan.level_pendidikan,tblbiaya.total_biaya,sum(tblpem
bayarandetail.jumlah_bayar) as total_bayar,
tblbiaya.total_biaya-
sum(tblpembayarandetail.jumlah_bayar) as sisa_biaya
from
tblpembayaran,tblsiswa,tblpembayarandetail,tblbiaya,tbl
levelpendidikan where
tblpembayaran.id_siswa=tblsiswa.id_siswa and
tblpembayaran.id_pembayaran=tblpembayarandetail.id_pemb
ayaran and
tblbiaya.id_biaya=left(tblpembayarandetail.id_biaya,2)
and
tblsiswa.id_pendidikan=tbllevelpendidikan.id_pendidikan
group
by tblpembayaran.id_siswa,tblsiswa.nama_siswa,tblbiaya.
total_biaya,[Link],tbllevelpendidikan.level_pen
didikan", Conn)
DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True

For baris As Integer = 0 To [Link] - 2

CMD = New OleDbCommand("select * from
tblrekap where id_siswa='" &
[Link](baris).Cells(0).Value & "'", Conn)

DR = [Link]
[Link]()
If Not [Link] Then
Dim simpan As String = "insert into
tblrekap values('" & [Link](baris).Cells(0).Value
& "','" & [Link](baris).Cells(1).Value & "','" &
[Link](baris).Cells(2).Value & "','" &
[Link](baris).Cells(3).Value & "','" &
[Link](baris).Cells(4).Value & "','" &
[Link](baris).Cells(5).Value & "')"
CMD = New OleDbCommand(simpan, Conn)
[Link]()
Else
Dim edit As String = "update tblrekap
set nama_siswa='" & [Link](baris).Cells(1).Value
& "',pendidikan='" & [Link](baris).Cells(2).Value
& "',biaya='" & [Link](baris).Cells(3).Value
& "',telah_bayar='" & [Link](baris).Cells(4).Value
& "',sisa='" & [Link](baris).Cells(5).Value & "'
where id_siswa='" & [Link](baris).Cells(0).Value
& "'"
CMD = New OleDbCommand(edit, Conn)
[Link]()
End If
Next

[Link]("rekap [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub
End Class

Imports [Link]

Public Class CariPembayaran

 Private Sub CariPembayaran_Load(ByVal sender As Sys
[Link], ByVal e As [Link]) Handles MyBase
.Load
Call Koneksi()
End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object

, ByVal e [Link]) Handles
[Link]
If [Link] = [Link] Then

CMD = New OleDbCommand("select * from

tblsiswa where id_siswa='" & [Link] & "'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = DR("nama_siswa")
End If

DA = New OleDbDataAdapter("SELECT DISTINCT

TBLSISWA.ID_SISWA,NAMA_SISWA,TBLSISWA.ID_BIAYA,TAHUN_AJ
ARAN,JURUSAN,KELAS,TBLBiaya.TOTAL_BIAYA FROM
TBLSISWA,TBLBiaya WHERE
TBLSISWA.ID_BIAYA=TBLBiaya.ID_BIAYA AND ID_SISWA LIKE
'%" & [Link] & "%'", Conn)

DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True
[Link](6).[Link]
= "#,###"
[Link](6).[Link]
= [Link]

DA = New OleDbDataAdapter("SELECT
TBLPEMBAYARAN.ID_PEMBAYARAN,TANGGAL,TOTAL_BAYAR,SISA_BI
AYA FROM TBLPEMBAYARAN WHERE ID_SISWA LIKE '%" &
[Link] & "%'", Conn)

DS = New DataSet
[Link](DS)
 [Link] = [Link](0)
[Link] = True
[Link](2).[Link]
= "#,###"
[Link](3).[Link]
= [Link]

[Link](2).[Link]
= "#,###"
[Link](2).[Link]
= [Link]

[Link](3).[Link]
= "#,###"
[Link](3).[Link]
= [Link]

DA = New OleDbDataAdapter("SELECT DISTINCT

TBLPEMBAYARANDETAIL.ID_PEMBAYARAN,TBLBIAYADETAIL.NAMA_B
IAYA,TBLPEMBAYARANDETAIL.JUMLAH_BAYAR,SISA FROM
TBLPEMBAYARANDETAIL,TBLBiaya,TBLBIAYADETAIL,TBLPEMBAYAR
AN,TBLSISWA WHERE
TBLPEMBAYARAN.ID_PEMBAYARAN=TBLPEMBAYARANDETAIL.ID_PEMB
AYARAN AND
TBLPEMBAYARANDETAIL.ID_BIAYA=TBLBIAYADETAIL.ID_BIAYA A
ND TBLPEMBAYARAN.ID_SISWA LIKE '%" & [Link]
& "%'", Conn)

DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True

[Link](2).[Link]
= "#,###"
[Link](2).[Link]
= [Link]

[Link](3).[Link]
= "#,###"
[Link](3).[Link]
= [Link]

End If
 Call HitungTotal()
If [Link] = [Link] Then
[Link] = "LUNAS"
Else
[Link] = "BELUM LUNAS"
End If
If [Link] = [Link] Then
[Link]()
End If
End Sub

Sub HitungTotal()

Dim hitungbiaya As Double

For baris As Integer = 0 To [Link] - 1
hitungbiaya = hitungbiaya +
[Link](baris).Cells(6).Value
Next
[Link] = FormatNumber(hitungbiaya,
0)

Dim hitungbayar As Double

For baris As Integer = 0 To [Link] - 1
hitungbayar = hitungbayar +
[Link](baris).Cells(2).Value
Next
[Link] = FormatNumber(hitungbayar,
0)

[Link] = [Link] -
[Link]
[Link] =
FormatNumber([Link], 0)
End Sub

Private Sub Button3_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
[Link]()
[Link]()
[Link]()
[Link] = "Ketik ID Siswa"
[Link] = "Ketik Nama Siswa"
 End Sub

Private Sub Button4_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]()
End Sub

Private Sub TextBox2_KeyDown(ByVal sender As Object

, ByVal e [Link]) Handles
[Link]
If [Link] = [Link] Then
CMD = New OleDbCommand("select * from
tblsiswa where nama_siswa like '%" & [Link]
& "%'", Conn)
DR = [Link]
[Link]()
If [Link] Then
[Link] = [Link]("id_siswa")
[Link]()
End If
End If

If [Link] = [Link] Then

[Link]()
End If
End Sub

Private Sub Button5_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
Dim baris As Integer = [Link] - 2

DA = New OleDbDataAdapter("SELECT DISTINCT

TBLPEMBAYARANDETAIL.ID_PEMBAYARAN,TBLBIAYADETAIL.NAMA_B
IAYA,TBLPEMBAYARANDETAIL.JUMLAH_BAYAR,SISA FROM
TBLPEMBAYARANDETAIL,TBLBiaya,TBLBIAYADETAIL,TBLPEMBAYAR
AN,TBLSISWA WHERE
TBLPEMBAYARAN.ID_PEMBAYARAN=TBLPEMBAYARANDETAIL.ID_PEMB
AYARAN AND
TBLPEMBAYARANDETAIL.ID_BIAYA=TBLBIAYADETAIL.ID_BIAYA A
ND TBLPEMBAYARAN.ID_SISWA LIKE '%" & [Link]
& "%' and TBLPEMBAYARAN.ID_PEMBAYARAN ='" &
[Link](baris).Cells(0).Value & "' and
[Link]>0", Conn)
 DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True

[Link](2).[Link]
= "#,###"
[Link](2).[Link] =
[Link]

[Link](3).[Link]
= "#,###"
[Link](3).[Link] =
[Link]

End Sub

Private Sub Button6_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
DA = New OleDbDataAdapter("SELECT DISTINCT
TBLPEMBAYARANDETAIL.ID_PEMBAYARAN,TBLBIAYADETAIL.NAMA_B
IAYA,TBLPEMBAYARANDETAIL.JUMLAH_BAYAR,SISA FROM
TBLPEMBAYARANDETAIL,TBLBiaya,TBLBIAYADETAIL,TBLPEMBAYAR
AN,TBLSISWA WHERE
TBLPEMBAYARAN.ID_PEMBAYARAN=TBLPEMBAYARANDETAIL.ID_PEMB
AYARAN AND
TBLPEMBAYARANDETAIL.ID_BIAYA=TBLBIAYADETAIL.ID_BIAYA A
ND TBLPEMBAYARAN.ID_SISWA LIKE '%" & [Link]
& "%'", Conn)

DS = New DataSet
[Link](DS)
[Link] = [Link](0)
[Link] = True

[Link](2).[Link]
= "#,###"
[Link](2).[Link] =
[Link]

[Link](3).[Link]
= "#,###"
 [Link](3).[Link] =
[Link]
End Sub

Private Sub Button1_Click_1(ByVal sender As System.

Object, ByVale As [Link]) Handles [Link]
ck
[Link]()
End Sub

Private Sub Button2_Click_1(ByVal sender As System.

Object, ByVale As [Link]) Handles [Link]
ck
Dim baris As Integer = [Link] - 2
[Link]()
[Link]
= "{tblpembayaran.id_pembayaran} ='" &
[Link](baris).Cells(0).Value & "'"
[Link]("cetak sisa [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub
End Class
Imports [Link]
Public Class LaporanSiswa

Sub TampilKelas()
'Call Koneksi()
CMD = New OleDbCommand("select distinct kelas
from tblsiswa", Conn)
DR = [Link]
[Link]()
[Link]()
Do While [Link]
[Link]([Link]("kelas"))
[Link]([Link]("kelas"))
Loop
End Sub

Sub TampilJurusan()
'Call Koneksi()
CMD = New OleDbCommand("select distinct jurusan
from tblsiswa", Conn)
DR = [Link]
[Link]()
 [Link]()
Do While [Link]
[Link]([Link]("jurusan"))
Loop
End Sub

Sub TampilTahun()
'Call Koneksi()
CMD = New OleDbCommand("select distinct
tahun_ajaran from tblsiswa", Conn)
DR = [Link]
[Link]()
[Link]()
Do While [Link]
[Link]([Link]("tahun_ajaran")
)
[Link]([Link]("tahun_ajaran")
)
Loop
End Sub

Private Sub LaporanSiswa_Load(ByVal sender As Syste

[Link], ByVal e As [Link]) Handles MyBase.L
oad
Call Koneksi()
Call TampilKelas()
Call TampilTahun()
Call TampilJurusan()
End Sub

Private Sub Button1_Click(ByVal sender As [Link]

ject, ByVal e As [Link]) Handles [Link]
k
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal se

nder [Link], ByVal e As [Link]) Hand
[Link]
 [Link] = "{[Link]}='" &
[Link] & "'"
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal se

nder [Link], ByVal e As [Link]) Hand
[Link]

[Link]
= "{tblSISWA.TAHUN_AJARAN}='" & [Link] & "'"
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub ComboBox4_SelectedIndexChanged(ByVal se

nder [Link], ByVal e As [Link]) Hand
[Link]

[Link] = "{[Link]}='" &

[Link] & "' AND {tblSISWA.tahun_ajaran}='" &
[Link] & "'"
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Objec

t, ByVal e [Link]) Ha
ndles [Link]
If [Link] = Chr(13) Then
If [Link] <> "" Then

[Link]
= "{tblSISWA.NAMA_SISWA} like '*" & [Link]
& "*'"
 [Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

Else
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()
End If
[Link]()
End If
End Sub

Private Sub ComboBox5_SelectedIndexChanged(ByVal se

nder [Link], ByVal e As [Link]) Hand
[Link]
[Link] = "{[Link]}='" &
[Link] & "'"
[Link]("laporan [Link]")
Call SetingLaporan()
[Link] = laporan
[Link]()

End Sub
End Class