134
END
FormOperasi
IF Tambah CLICK THEN
INPUT tipepesawat, asal, tujuan, biaya
OPEN file Pesawat
READ Pesawat.kapasitas WHERE tipepesawat = tipepesawat
OPEN file Rute
READ Rute.tarif WHERE asal = asal AND tujuan = tujuan
IF Ubah CLICK THEN
INPUT tipepesawat, asal, tujuan, biaya
IF Simpan CLICK THEN
Bep = roundup(biaya/tarif)
IF Tambah CLICK THEN
OPEN File Biaya Operasi
READ Biaya Operasi WHERE tipepesawat = tipepesawat AND asal = asal AND
tujuan
=
tujuan
IF Recordcount > 0 THEN
SHOWMESSAGE “Tipe Pesawat dan Rute terduplikasi”
ELSE
WRITE tipepesawat, asal, tujuan, kapasitas, biaya, tarif, bep TO Biaya Operasi
CLOSE Biaya Operasi
 |