129
IF Peramalan Data Trend CLICK THEN SHOW FormTrend
IF Peramalan Data Musiman CLICK THEN SHOW FormMusiman
END
FormDBPesawat
IF Tambah CLICK THEN
INPUT namapesawat, tipepesawat, kapasitas, status
IF Ubah CLICK THEN
INPUT tipepesawat, kapasitas, status
IF Simpan CLICK THEN
IF Tambah CLICK THEN
OPEN file Pesawat
READ file Pesawat WHERE namapesawat = namapesawat
IF Recordcount > 0 THEN
SHOWMESSAGE “Nama Pesawat terduplikasi”
ELSE
WRITE namapesawat, tipepesawat, kapasitas, status TO Pesawat
CLOSE Pesawat
ELSE IF Ubah CLICK THEN
OPEN file Pesawat
UPDATE tipepesawat, kapasitas, status WHERE namapesawat = namapesawat
CLOSE Pesawat
 |