146
READ Jadwal Maintenance WHERE statusm = FALSE
IF Recordcount = 0 THEN
SHOWMESSAGE “Hari ini tidak ada Pesawat yang sedang menjalani
Maintenance”
CLOSE Jadwal Maintenance
END
FormLapPenerbangan
INPUT tanggal
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = tanggal
IF Preview CLICK THEN
IF Recordcount = 0 THEN
SHOWMESSAGE “Record pada tanggal tersebut belum ada”
ELSE
PREVIEW nopenerbangan, asal, tujuan, wktberangkat, wkttiba, jmlpenumpang
WHERE tanggal = tanggal
CLOSE Jadwal Terbang
END
FormLapUtilisasi
INPUT tglmulai, tglakhir, tampilan
 |