139
OPEN file Jadwal Terbang
READ namapesawat, asal, tujuan WHERE tanggal = tanggal AND
nopenerbangan = nopenerbangan
OPEN file Rute
READ blocktime WHERE asal = asal AND tujuan = tujuan
IF tanggal < now THEN
SHOWMESSAGE “Jadwal yang sudah lewat tidak dapat dihapus”
ELSE
DELETE FROM Jadwal Terbang WHERE tanggal = tanggal AND
nopenerbangan = nopenerbangan
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung = hitung – blocktime WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
END
FormNRMaintenance
INPUT namapesawat
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = now AND namapesawat = namapesawat
IF Delay CLICK THEN
IF Recordcount = 0 THEN
 |