144
END
FormMaju
INPUT namapesawat, nopenerbangan, lamamaju
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = now AND nopenerbangan =
nopenerbangan
IF Proses CLICK THEN
UPDATE wkttiba = wkttiba – lamamaju WHERE tanggal = now AND
nopenerbangan = nopenerbangan
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung = hitung – lamamaju WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
END
FormPenumpang
INPUT namapesawat, nopenerbangan, jmlpenumpang, permintaan
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = now AND nopenerbangan =
nopenerbangan
IF Simpan CLICK THEN
 |