130
IF Hapus CLICK THEN
INPUT namapesawat
OPEN file Pesawat
DELETE FROM Pesawat WHERE namapesawat = namapesawat
DELETE FROM Jalan WHERE namapesawat = namapesawat
CLOSE Pesawat
END
FormDBRute
IF Tambah CLICK THEN
INPUT asal, tujuan, blocktime, tarif
IF Ubah CLICK THEN
INPUT blocktime, tarif
IF Simpan CLICK THEN
IF Tambah CLICK THEN
OPEN file Rute
READ file Rute WHERE asal = asal AND tujuan = tujuan
IF Recordcount > 0 THEN
SHOWMESSAGE “Asal dan Tujuan terduplikasi”
ELSE
WRITE asal, tujuan, blocktime, tarif TO Rute
CLOSE Rute
 |