135
IF Ubah CLICK THEN
OPEN File Biaya Operasi
UPDATE biaya, bep WHERE tipepesawat = tipepesawat AND asal = asal AND
tujuan = tujuan
CLOSE Biaya Operasi
IF Hapus CLICK THEN
INPUT tipepesawat, asal, tujuan
OPEN File Biaya Operasi
DELETE FROM Biaya Operasi WHERE tipepesawat = tipepesawat AND asal =
asal AND tujuan = tujuan
CLOSE Biaya Operasi
END
FormJPenerbangan
INPUT tanggal, namapesawat
OPEN file Jadwal Terbang
READ max(wkttiba) AS tiba WHERE tanggal = tanggal AND namapesawat =
namapesawat
READ tujuan AS tjn WHERE tanggal = tanggal AND namapesawat = namapesawat
AND wkttiba = tiba
IF Susun Jadwal CLICK THEN
IF tanggal < now THEN
 |