133
INPUT namapesawat, tipemaint, counter
IF Simpan CLICK THEN
IF Tambah CLICK THEN
OPEN File Jadwal Maintenance
READ Jadwal Maintenance WHERE namapesawat = namapesawat AND
tipemaint = tipemaint
IF Recordcount > 0 THEN
SHOWMESSAGE “Nama Pesawat dan Tipe Maintenance terduplikasi”
ELSE
WRITE namapesawat, tipemaint, hitung, durasi, statusm TO Jalan
CLOSE Jadwal
Maintenance
IF Ubah CLICK THEN
OPEN File Jadwal Maintenance
UPDATE hitung WHERE namapesawat = namapesawat AND tipemaint =
tipemaint
CLOSE Jadwal Maintenance
IF Hapus CLICK THEN
INPUT namapesawat, tipemaint
OPEN File Jadwal Maintenance
DELETE FROM Jadwal Maintenance WHERE namapesawat = namapesawat
AND tipemaint = tipemaint
CLOSE Jadwal Maintenance
 |