128
READ namapesawat, tipemaint WHERE selesai = now AND statusm = false
IF Recordcount > 0 THEN
UPDATE statusm = true, hitung = 0 WHERE namapesawat = namapesawat
AND tipemaint <= tipemaint
CLOSE Jadwal Maintenance
OPEN file Pesawat
UPDATE status = true WHERE namapesawat = namapesawat
CLOSE Pesawat
IF Database Pesawat CLICK THEN SHOW FormDBPesawat
IF Database Rute CLICK THEN SHOW FormDBRute
IF Database Maintenance CLICK THEN SHOW FormDBMaintenance
IF Inisialisasi Awal CLICK THEN SHOW FormInisialisasi
IF Biaya Operasional CLICK THEN SHOW FormOperasi
IF Jadwal Penerbangan CLICK THEN SHOW FormJPenerbangan
IF Kondisi Tak Terjadwal CLICK THEN SHOW FormNRMaintenance
IF Input Jumlah Penumpang CLICK THEN SHOW FormPenumpang
IF Cek Maintenance Berikut CLICK THEN SHOW FormJMaintenance
IF Jadwal Maintenance CLICK THEN SHOW FormTMaintenance
IF Laporan Jadwal Penerbangan CLICK THEN SHOW FormLapPenerbangan
IF Laporan Utilisasi Pesawat CLICK THEN SHOW FormLapUtilisasi
IF Laporan Jumlah Penumpang CLICK THEN SHOW FormLapPenumpang
IF Fungsi Optimalisasi CLICK THEN SHOW FormOptimasi
 |