131
ELSE IF Ubah CLICK THEN
OPEN file Rute
UPDATE blocktime, tarif WHERE asal = asal AND tujuan = tujuan
CLOSE Rute
IF Hapus CLICK THEN
INPUT asal, tujuan
OPEN file Rute
DELETE FROM Rute WHERE asal = asal AND tujuan = tujuan
CLOSE Rute
END
FormDBMaintenance
IF Tambah CLICK THEN
INPUT durasi, selang
IF Ubah CLICK THEN
INPUT tipemaint, durasi, selang
IF Simpan CLICK THEN
IF Tambah CLICK THEN
OPEN file Maintenance
READ file Maintenance WHERE tipemaint = tipemaint
IF Recordcount > 0 THEN
SHOWMESSAGE “Tipe Maintenance terduplikasi”
 |