Kamis, 06 Januari 2011

Program Pembayaran SPP

Langkah awal buat database dengan mana”DbSekolah.mdb” dengan 5 Tabel sebagi berikut:

 

Selanjutnya Butat form Pembayaran dengan rancangan sebagai berikut:

 
Tool yang digunakan adalah sebagai berikut Lihat table:
 
Kemudian Membuat Menunya dengam memilih menu  TOOL  kemudian pilih MenuEditor




 
Langkah selanjutnya adalah memasukkan kode programnya :
Option Explicit
Private koneksi As ADODB.Connection
Dim rstabel As New ADODB.Recordset


Private Function konek() As Boolean
    On Error GoTo out
        Set koneksi = New ADODB.Connection
        koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DbSekolah.mdb;Persist Security Info=False"
        koneksi.CursorLocation = adUseClient
        konek = True
out:
End Function


Private Sub CmdLaporan_Click()
FrmData.Show
End Sub


Private Sub CmdRefrash_Click()
        TxtNIS.Text = ""
        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtJurusan.Text = ""
        TxtProg.Text = ""
        TxtKelas.Text = ""
        TxtSPP.Text = "0"
        TxtPraktek.Text = "0"
        TxtOsis.Text = "0"
        TxtUjian.Text = "0"
        TxtLap.Text = "0"
        TxtAdm.Text = "0"
        TxtBeasiswa.Text = "0"
        TxtTotal.Text = "0"
        TxtBayar.Text = "0"
        TxtKembali.Text = "0"
End Sub


Private Sub CmdSimpan_Click()
With Adodc3.Recordset
.AddNew
.Fields("NIS") = TxtNIS.Text
.Fields("Nama") = TxtNama.Text
.Fields("Alamat") = TxtAlamat.Text
.Fields("Jurusan") = TxtJurusan.Text
.Fields("Program_Keahlian") = TxtProg.Text
.Fields("Kelas") = TxtKelas.Text
.Fields("SPP") = TxtSPP.Text
.Fields("Praktek") = TxtPraktek.Text
.Fields("Osis") = TxtOsis.Text
.Fields("Ujian") = TxtUjian.Text
.Fields("Praktek_Lapangan") = TxtLap.Text
.Fields("Administrasi") = TxtAdm.Text
.Fields("Beasiswa") = TxtBeasiswa.Text
.Fields("Total") = TxtTotal.Text
.Fields("Operator") = TxtOperator.Text
.Fields("Tanggal") = LbTgl.Caption
.Fields("Jam") = LbJam.Caption
End With
'Melaporkan jika sudah tersimpan
MsgBox "Data telah di Simpan!", vbInformation + vbOKOnly = vbIgnore
Call CmdRefrash_Click
End Sub


Private Sub Form_Activate()
‘memanggil  nama Operator dari table Aktifvitas Operator
      TxtOperator.Text = Adodc4.Recordset!Administrator
 Dim t$
    Dim thn$, bln$, tgl$
    t = MaskEdBox1.Text
    If t <> "__/__/__" Then
        thn = Right(t, 4)
        bln = Mid(t, 4, 2)
        tgl = Left(t, 2)
       
        If IsDate(thn & "-" & bln & "-" & tgl) = False Then
                 MaskEdBox1.Text = Format(Now, "dd/MM/yyyy")
                 LbTgl.Caption = MaskEdBox1.Text
        End If
    End If
End Sub


Private Sub Form_Load()
If Not konek() Then
        MsgBox "Gak bisa terhubung ke database!", vbCritical
        End
    End If
    Adodc1.ConnectionString = koneksi.ConnectionString
    Adodc1.RecordSource = "Siswa"
    Set DataGrid1.DataSource = Adodc1
    Adodc2.ConnectionString = koneksi.ConnectionString
    Adodc2.RecordSource = "Seting"
    Set DataGrid2.DataSource = Adodc2
    Adodc3.ConnectionString = koneksi.ConnectionString
    Adodc3.RecordSource = "Pembayaran"
    Set DataGrid3.DataSource = Adodc3
    Adodc4.ConnectionString = koneksi.ConnectionString
    Adodc4.RecordSource = "AktifvitasOP"
    Set DataGrid4.DataSource = Adodc4
End Sub


Private Sub nmAbout_Click()
FrmAbout.Show
End Sub


Private Sub nmdata_Click()
Unload Me
FrmSiswa.Show
End Sub


Private Sub nmdatasiswa_Click()
DataReportSiswa.Show
End Sub


Private Sub nmExit_Click()
If MsgBox("Yakin mau keluar?", vbQuestion + vbYesNo) = vbYes Then
        Unload Me
    End If
End Sub


Private Sub nmpembayaran_Click()
DataReportPembayaran.Show
End Sub


Private Sub nmsetadm_Click()
FrmAdmin.Show
End Sub


Private Sub snmsetnilai_Click()
FrmSeting.Show
End Sub


Private Sub Timer1_Timer()
Dim dblSecond As Double, dblMinute As Double, dblHour As Double
dblSecond = Second(Now) * 6 - 90
dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90
dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90
LbJam.Caption = Format(Now, "hh:mm:ss")
End Sub


Private Sub TxtAdm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBeasiswa.SetFocus
End If
End Sub


Private Sub TxtBayar_Change()
TxtKembali = Val(TxtBayar.Text) - Val(TxtTotal)
End Sub


Private Sub TxtBayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call CmdSimpan_Click
End If
End Sub


Private Sub TxtBeasiswa_Change()
TxtTotal = (Val(TxtSPP.Text) + Val(TxtPraktek.Text) + Val(TxtOsis.Text) + Val(TxtUjian.Text) + Val(TxtLap.Text) + Val(TxtAdm.Text)) - Val(TxtBeasiswa)
End Sub


Private Sub TxtBeasiswa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBayar.SetFocus
End If
End Sub


Private Sub TxtNIS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
‘memanggil data dari table siswa
Adodc1.Recordset.Find "NIS='" + TxtNIS.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
        TxtNama.Text = Adodc1.Recordset.Fields("Nama")
        TxtAlamat.Text = Adodc1.Recordset.Fields("Alamat")
        TxtJurusan.Text = Adodc1.Recordset.Fields("Jurusan")
        TxtProg.Text = Adodc1.Recordset.Fields("Keahlian")
        TxtKelas.Text = Adodc1.Recordset.Fields("Kelas")
'memanggil data dari tabel seting
    Adodc2.Recordset.Find "Progm_Keahlian='" + TxtProg.Text + "'", , adSearchForward, 1
    If Not Adodc2.Recordset.EOF Then
        TxtSPP.Text = Adodc2.Recordset!SPP
        TxtPraktek.Text = Adodc2.Recordset!Praktek
        TxtOsis.Text = Adodc2.Recordset!Osis
        TxtUjian.Text = Adodc2.Recordset!Ujian
        TxtLap.Text = Adodc2.Recordset!Praktek_Lap
        TxtAdm.Text = Adodc2.Recordset!Administrasi
        TxtBeasiswa.SetFocus
    Else
        MsgBox "Maaf, Seting Tidak Ditemukan!"
    End If
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
     TxtNIS.Text = ""
     TxtNIS.SetFocus
End If
TxtTotal = (Val(TxtSPP.Text) + Val(TxtPraktek.Text) + Val(TxtOsis.Text) + Val(TxtUjian.Text) + Val(TxtLap.Text) + Val(TxtAdm.Text))
End If
End Sub

 NEXT-->

Untuk mempelajarinya lebih dalah download projecnya:Pembayaran SPP.rar
download Updaten Project x  Pemabayaran SPP Update
 download tuturialnya di sini:Program Pembayaran SPP




42 komentar:

  1. mas name administrator dan pass nya apa koq gak bisa login ya...

    BalasHapus
  2. buka saja database dengan MS acces x liat di tabel Login colom Adminstarot and Passwod
    database nya tidak saya password juga

    BalasHapus
  3. sudah di masukkan administrator ama passwordx kok masih belum bisa ya...

    BalasHapus
    Balasan
    1. mungkin anda salah prosedure x
      usukan Usename nya : "Rahman" kemudian tekan Enter
      isikan password x : "123"

      Hapus
  4. Balasan
    1. usukan Usename nya : "Rahman" kemudian tekan Enter
      isikan password x : "123"

      Hapus
  5. mas ada ndk untuk progaram delpi7 sistim informasi Pembayaran SPP

    BalasHapus
  6. maaf... ada gak untukprogram python tentang segala pembayaran disekolh

    BalasHapus
  7. Mas aku ada tugas kampus , aga kurang ngerti mksud nya keterangan d atas gmna ?
    mohon bantuan nya.

    BalasHapus
  8. gan kalo buat administrasi mahasiswa bisa ga??

    BalasHapus
    Balasan
    1. bisa saja konsep dasar sistem infomasi adalah menyipan, mencari, merubah dan menghapus.
      pengembangan x bangaimana menggabingkan perintah-perintah dasar tsb.

      Hapus
  9. bagus gan mkasih tutorialnya, ijin sedot yaa..

    BalasHapus
  10. klo pngen di convert biar bsa di buka di visual studio 2012 gmn gan?

    BalasHapus
  11. gan.. kenapa tidak mau login ya.
    Padahal bener user n pass ny Rahman 123 kn?
    kenapa ya?

    BalasHapus
    Balasan
    1. setelah negisi username terkan ENTER kemudian isi password kemudia ENTER lagi

      Hapus
  12. gan, paswordnya yang valid ap..
    suwun

    BalasHapus
  13. downlad updatenya :

    http://www.4shared.com/rar/r8ujODnwba/Pembayaran_SPP-update_.html?

    BalasHapus
  14. Mas Bro Keren,,,
    Seamat Berkarya bro....

    BalasHapus
  15. mas ada tidak penjelasan gimana langkah-langkah menggunakan program di atas? terima kasih sebelumnya. jawabannya akan sangat membantu saya.

    BalasHapus
  16. gan ini pake delphi brp yaa??

    BalasHapus
  17. mas, report untuk lunas tidaknya gimana yah..?

    BalasHapus
  18. mas kasis penjelasanlangkah-langkah menggunakan programnya dong

    BalasHapus
  19. Mas Mau Tanya ne.. Aplikasi Pendukung selai Ms Accses di tambah apalagi ya?
    Thx be 4

    BalasHapus
  20. mas kog pas data mau dicetak malahan eror caranya gimana y? dan dikompile programnya jadi exe juga gak bisa kenapa ya?

    BalasHapus
  21. mas kog pas data mau dicetak malahan eror caranya gimana y? dan dikompile programnya jadi exe juga gak bisa kenapa ya?

    BalasHapus
  22. mas, minta tolong kirimin link project yang sebelum di update dong mas. karna linknya error
    rikardonenggolan@gmail.com
    terima kasih banyak sebelumnya mas, mohon bantuanya ya mas. sukses slalu!

    BalasHapus
  23. http://www.4shared.com/rar/ggonr0q9/pembayaran_spp.html?

    BalasHapus
  24. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  25. mas, bisa kirim project nya untuk tugas kampus ..
    ni email saya mas lamsihar.sihar970@gmail.com , makasih sebelum nya mas.

    BalasHapus
  26. mas, bisa kirim project nya untuk tugas kampus ..
    ni email saya mas lamsihar.sihar970@gmail.com , makasih sebelum nya mas.

    BalasHapus
  27. sory bos mbok punya pembayaran spp yang berbasis web dan sms gareway aku mnta ya buat referensi skripsi kirim ke setiautama70@gmail.com source codenya nggak 100 % sempurna juga nggak pa2x

    BalasHapus
  28. bisa kirim email utk mencoba liaalaya250808@gmail.com
    terimakasih banyak :)

    BalasHapus
  29. https://www.4shared.com/rar/ggonr0q9/pembayaran_spp.html

    BalasHapus
  30. koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DbSekolah.mdb;Persist Security Info=False" yang itu maksudnya apa bang kita ikutin di laptop kita kah?

    BalasHapus
  31. Edukasi: Program Pembayaran Spp >>>>> Download Now

    >>>>> Download Full

    Edukasi: Program Pembayaran Spp >>>>> Download LINK

    >>>>> Download Now

    Edukasi: Program Pembayaran Spp >>>>> Download Full

    >>>>> Download LINK

    BalasHapus