Program Dana Keluar Dana Masuk

22.58 |

Tiap program yang saya buat punya cerita sendiri-sendiri dibelakangnya, mulai dari rasa ingin membantu tetapi kok yang minta bantuan malah lepas tangan akhirnya malah semua bagian program saya yang buat, ada juga yang karena direkomendasikan teman jadi efeknya berantai mulut ke mulut gitu…ada juga yang karena orangnya memang super duper waswas, semua kerjaanya keburu buru hasilnya program dia direvisi hamper 5 kali (untung orangya royal…uangnya ntah darimana aja)…dan untuk program ini, pemirsa eh…pembaca boleh percaya boleh tidak, program ini dibuat hanya dalam waktu 24 jam, saya sampai begadang.

Berawal dari kelupaan saya akan janji seorang teman yang mau dating kerumah malam hari, saya kelupaan balik kerumah hampir jam 9 malam, untungnya ada warnet sepupu jadi dia main dulu disana sembari nunggu saya pulang (…perjuangan yang berat Teman!!). Setelah bertemu dan basa basi dikit, akhirnya saya dikasi panjar untuk ngerjain programnya…kirain untuk lusa,.ternyata untuk besoknya, alhasil saya kerja sambil mata diganjal korek api ma tusuk gigi….(bohong). Dan pada akhirnya si kawan sukses sidang dengan program yang terkesan terburu buru pula.

Program ini masih sangat bisa dikembangkan lagi karena alur programnya mirip saldo nasabah di bank walau sangat sangat sederhana.

Mari kita bahas program ini:

1. Database

Dinamai db_DanaPAM karena berhubungan dengan Dana Masuk dan Dana Keluar di PAM (Perusahaan Air Minum atau Perusahaan Air Mandi ya…) setempat .

2. Login

Walau tampilanya sederhana, ternyata form yang satu ini memiliki alur programan yang banyak, bila ini maka ini, bila itu maka ini, bila itu maka itu dsb. berikut potongan koding yang terletak di tombol “OK” :

---------------------------------------------------------------------------------------------------------

Private Sub CmdOk_Click()

If TxtUsername.Text = "" Then

MsgBox "Username masih kosong !", vbCritical, "Kesalahan"

TxtUsername.SetFocus

Exit Sub

ElseIf TxtPassword.Text = "" Then

MsgBox "Password masih kosong !", vbCritical, "Kesalahan"

TxtPassword.SetFocus

Exit Sub

End If

'Cek ke-eksisan dari username

sql = "select * from TblLogin where Username= '" & Trim(TxtUsername.Text) & "'"

Set rsCari = New ADODB.Recordset

rsCari.Open sql, conn, 3, 4

If rsCari.EOF Then

'Bila ternyata username tidak terdaftar...

MsgBox "Username Tidak terdaftar, silakan ulangi !", vbCritical, "Kesalahan"

Call Bersih

Exit Sub

Else

'Bila ternyata username terdaftar maka cek username dan password

sql = "select * from TblLogin where Username= '" & Trim(TxtUsername.Text) & "' and Password = '" & _

Trim(TxtPassword.Text) & "'"

Set rsBaca = New ADODB.Recordset

rsBaca.CursorLocation = adUseClient

rsBaca.Open sql, conn, 3, 4

If rsBaca.RecordCount = 0 Then

CobaMasuk = CobaMasuk + 1

If CobaMasuk >= 4 Then

MsgBox "Kesempatan anda habis, Aplikasi akan ditutup !", vbCritical, "Peringatan !"

End

End If

MsgBox "Password salah, Anda punya " & 4 - CobaMasuk & " kesempatan lagi!", vbCritical, "Coba Lagi"

Call Bersih

Else

MsgBox "Akses Diterima !", vbInformation, "Sukses"

VarUsername = TxtUsername.Text

Unload Me

Utama.Show

Call Tema(Utama.Skin, Utama)

End If

End Sub

------------------------------------------------------

3. Menu Utama

Menu utama yang sangat sederhana sekali, karena tidak ada cukup waktu untuk membuat desain backgroundnya, jadi hanya menggunakan teknik teknik yang sederhana saja yang penting kita dapat mengantisipasi debug yang akan terjadi.

4. Dana Masuk

Dapat diakses dari form utama yaitu di Form daftar saldo yang bisa dilihat diatas, yaitu dari tombol “Dana Masuk” atau dari Menu Data Transaksi -> Dana Masuk.

Sepertinya sederhana ya..padahal ribet loh. Kalau dana masuk daftar sekian maka saldo akan ditambah berurutan berdasarkan antrian di daftar, tiap-tiap rupa-rupa dan besar dana disimpan diikuti besar saldo setelah saldo ditambah dana yang masuk. Ini potongan koding dari tombol “Simpan” :

----------------------------------------------------------------------------------------

Private Sub mdSimpan_Click()

Dim VarSaldo As Currency

If TxtNoDM.Text = "" Then

MsgBox "No. DM masih kosong!", vbExclamation, "Kesalahan"

Exit Sub

ElseIf TxtBahagian.Text = "" Then

MsgBox "Isi data Bahagian!", vbExclamation, "Kesalahan"

Exit Sub

ElseIf Grid.Rows = 1 Then

MsgBox "Isi dahulu daftar!", vbExclamation, "Kesalahan"

Exit Sub

End If

conn.BeginTrans

sql = "insert into TblDanaMasuk values ('" & Trim(TxtNoDM.Text) & "', '" & _

Trim(TxtBahagian.Text) & "', '" & Format(DtpDanaMasuk.Value, "mm/dd/yyyy") & "', " & _

CCur(TxtTotalDana.Text) & ", '" & Trim(VarUsername) & "')"

conn.Execute sql

With Grid

For i = 1 To .Rows - 1

sql = "insert into TblDanaMasukDetail values('" & Trim(TxtNoDM.Text) & "','" & _

Trim(.TextMatrix(i, 1)) & "'," & _

CCur(.TextMatrix(i, 2)) & "," & _

Val(.TextMatrix(i, 0)) & ")"

conn.Execute sql

'mencari besar saldo terakhir-------------

sql = "select saldo from TblSaldo order by NoTrans desc"

Set rsCari = New ADODB.Recordset

rsCari.CursorLocation = adUseClient

rsCari.Open sql, conn, 3, 4

If rsCari.RecordCount <> 0 Then

VarSaldo = rsCari!Saldo

Else

VarSaldo = 0

End If

'akhir cari saldo

sql = "insert into TblSaldo (Tgl, NoUrut, Saldo, NomorDM )values('" & Format(DtpDanaMasuk.Value, "mm/dd/yyyy") & "'," & _

Val(.TextMatrix(i, 0)) & "," & _

CCur(Val(VarSaldo) + .TextMatrix(i, 2)) & ", '" & Trim(TxtNoDM.Text) & "')"

conn.Execute sql

Next i

End With

If MsgBox("Proses Dana Masuk ?", vbQuestion + vbYesNo, "Pembelian") = vbYes Then

conn.CommitTrans

MsgBox "Berhasil diproses!", vbInformation, "Sukses"

Unload Me

Call FrmSaldo.TampilDana

Else

conn.RollbackTrans

End If

End Sub

-----------------------------------------------------

5. Dana Keluar

Alur programnya masih sama seperti pada Dana Masuk hanya saja di Dana Keluar saldo akan dikurangi rupa-rupa dan besar dana yang ditambahkan.

6. Pencarian

Sesuai dengan namanya, di form ini kita dapat mencari No. Transaksi, Kode Dana Masuk, Kode Dana Keluar dan sald akhirnya.

7. Laporan

Dapat diakses dari menu Laporan . Cukup dengn memilih jenis dana yang akan ditampilkan, pilih tanggal dana maka detail dana dan saldo akan ditampilkan. Untuk mencetak data yang tampil tinggal menekan tombol “Cetak”.