dengan query saja kekuatan database tool.
aturannya bisa disimpulkan:
- setiap karyawan punya ketentuan jam masuk sendiri-sendiri,
- keterlambatan akan dikenai denda yang besarnya sama: 5000
maka anda butuh minimal tiga tabel:
- master karyawan (saya sebut m_karyawan)
- transaksi absen (saya sebut t_absensi)
- master global variabel (saya sebut m_setup)
o master karyawan
berisi informasi data setiap karyawan, minimum isinya adalah kode, nama, batas_terlambat.
primary key adalah kode
o transaksi absen
berisi rekaman absensi harian, minimum isinya adalah kode karyawan, tgl absen, jam absen
o master global variabel
berisi informasi general yang berlaku di seluruh program aplikasi, semisal denda harian sebesar 5000, fieldnya saat ini berisi cuma satu saja: denda
sekarang tinggal buat form untuk mengisi master karyawan, transaksi absen.
tabel m_setup tidak perlu interface, cukup admin/programmernya saja yang isi :)
contoh isi data master karyawan:
(kode, nama, batas_terlambat)
A, Anu, 07:00
R, Ranu, 09:00
setelah itu isi data absensi seperti biasa.
sekarang untuk mengetahui si karyawan terkena denda adalah dengan membuat querynya:
select
a.kode_karyawan,
k.nama,
format(k.batas_terlambat,"hh:nn") as batas_telat,
a.tgl_absen,
format(a.tgl_absen,"hh:nn") as jam_masuk,
iif(jam_masuk>batas_telat,format(a.tgl_absen-k.batas_terlambat,"hh:nn"),format(#12:00:00 AM#,"hh:nn") as total_telat,
iif(total_telat>0,s.denda,0) as denda_telat
from t_absensi as a
inner join m_karyawan as k on a.kode_karyawan=k.kode, m_setup as s
aksan kurdin
On 4/23/2013 2:33 PM, Andri wrote:
Dear Para Master,
Bagaimana kode vba jika saya punya logika sbb:
Jika:
Peraturannya,
Jika nama "A" masuk jam 07.00 otomastis keluar di textbook " A Terlambat harus di denda sebesar 5000"
Jika nama "R" Masuk jam 09.00 otomotis keluar di textbox " R terlambat harus di denda sebesar 5000"
dan jika masuk dibawah jam yang telah ditentukan diatas keterangan di textbox nya "Tepat Waktu"
Tabel
Tanggal, Waktu Masuk, Nama, denda
Terima Kasih, mohon bantuaanya..
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar