132
ELSE
WRITE tipemaint, durasi, selang TO Maintenance
CLOSE Maintenance
ELSE IF Ubah CLICK THEN
OPEN file Maintenance
UPDATE durasi, selang WHERE tipemaint = tipemaint
CLOSE
Maintenance
IF Hapus CLICK THEN
INPUT tipemaint
OPEN file Maintenance
DELETE FROM Maintenance WHERE tipemaint = tipemaint
CLOSE Maintenance
END
FormInisialisasi
IF Tambah CLICK THEN
INPUT namapesawat, tipemaint, hitung
OPEN file Pesawat
READ Pesawat.status WHERE namapesawat = namapesawat
OPEN File Maintenance
READ Maintenance.durasi WHERE tipemaint = tipemaint
IF Ubah CLICK THEN
 |