143
INPUT nopenerbangan, pesawatubah, wktberangkat, jmlpenumpang
OPEN file Rute
READ blocktime WHERE asal = asal AND tujuan = tujuan
IF Simpan CLICK THEN
OPEN file Jadwal Terbang
UPDATE namapesawat = pesawatubah, wktberangkat = wktberangkat, wkttiba =
wkttiba + blocktime WHERE tanggal = now AND nopenerbangan =
nopenerbangan
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung =
hitung + blocktime WHERE
namapesawat = pesawatubah
UPDATE hitung = hitung – blocktime WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
IF Hapus CLICK THEN
INPUT nopenerbangan
OPEN file Jadwal Terbang
DELETE FROM Jadwal Terbang WHERE tanggal = now AND nopenerbangan =
nopenerbangan
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung = hitung - blocktime WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
 |