Aplikasi Pengingat Tunggakan Pelanggan dengan VB.net dan Excel

Requirement

• Dotnet Framework 4.0 atau yang lebih baru. Pada umumnya beberapa aplikasi Windows secara otomatis menyertakan framework ini ketika instalasi sehingga hampir semua komputer Windows terinstal DotNet Framework. Sehingga yang paling dibutuhkan adalah OLEDB.
• OLEDB adalah driver koneksi yang terdapat pada MS ACCESS. Jika tidak memungkinkan untuk menginstall MS ACCESS, maka OLEDB bisa dingantikan dengan menginstall aplikasi Access Database Engine 2010.

Beberapak Karakteristik dari Aplikasi AppReminder

• Penekanan tombol “X” pada aplikasi akan membuat aplikasi menghilang (sembunyi), tapi tidak membuat aplikasi berhenti. Jika ingin menghentikan aplikasi, maka pilih menu File > Exit. Hal ini memang disengaja untuk menghindari berhentinya aplikasi sehingga tidak ada notifikasi yang muncul.
• Tanggal reminder bisa diubah, format penulisan tanggal saat ini harus dd/mm/yyyy, Contoh : jika diisi dengan 03/12/2015, maka balon notifikasi akan muncul setiap jam pada tanggal tersebut apabila ada minimal 1 pelanggan yang BONGKAR RAMPUNG atau JANJI BAYAR.
• Pencarian secara otomatis didasarkan pada ID PELANGGAN ATAU NAMA PELANGGAN. Oleh sebab itu, petugas bisa mencari pelanggan berdasarkan ID-nya atau berdasarkan namanya.
• File excel yang muncul pada pojok kiri bawah otomatis digunakan ketika komputer baru dihidupkan. Ketika komputer atau aplikasi dimatikan, maka aplikasi akan mencatat lokasi file Excel, dan file Excel yang telah dicatat tersebut secara otomatis dipakai ketika komputer dihidupkan. Apabila file Excel tidak ditemukan, aplikasi akan meminta petugas untuk memilih file Excel yang baru.
• Akan muncul tampilan balon notifikasi di pojok kanan bawah layar komputer. Tampilan ini muncul pertama kali komputer dihidupkan. Ketika ada pelanggan yang BONGKAR RAMPUNG atau JANJI BAYAR, maka balon notifikasi ini akan muncul setiap jam hingga keterangan pada file Excel diubah.

Private Sub Show_Balloon()
    NotifyIcon1.BalloonTipTitle = "Hari Ini :"
    NotifyIcon1.BalloonTipText = "> Bongkar Rampung (" & HARI_INI_BONGKAR & ")" & vbCrLf & "> Janji Bayar (" & HARI_INI_JANJI & ")."
    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info

    NotifyIcon1.Visible = True
    NotifyIcon1.ShowBalloonTip(3000)
End Sub