Soal UAS MI

Hari dan Tanggal  : Kamis, 09 Februari 2017

Mata Kuliah : Pemrograman Visual MI 2
Semester : 3 (Tiga)

Jenjang / Jurusan : Diploma Tiga (D3) / Manajemen Informatika

Dosen : Haliq, S.Kom

Soal :

1. Tuliskan dan Jelaskan Pengertian dari Listing Program dibawah ini :

LISTING TBL_TAMBAH

IF THISFORM.TBL_UPDATE.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_UPDATE.TBL_TAMBAH.CAPTION='\<BATAL'
   THISFORM.TBL_UPDATE.TBL_UBAH.ENABLED=.F.
   THISFORM.TBL_UPDATE.TBL_HAPUS.ENABLED=.F.
   THISFORM.TBL_UPDATE.TBL_SIMPAN.ENABLED=.T.
   THISFORM.BLOK_DATA(.T.)
   THISFORM.BLOK_NAVIGASI(.F.)
   THISFORM.BERSIH
   SELE BARANG
 
   IF RECCOUNT()=0
      THISFORM.KOBAR.VALUE='1000000001'
      THISFORM.JEBAR.SETFOCUS()
      THISFORM.KOBAR.ENABLED=.F.
      RETURN
   ENDIF
   GO BOTTOM
   A=VAL(KOBAR)
   A=A+1
   THISFORM.KOBAR.VALUE=STR(A,6)
   THISFORM.JEBAR.SETFOCUS
   THISFORM.KOBAR.ENABLED=.F.
   ELSE
 
   THISFORM.TBL_UPDATE.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_UPDATE.TBL_UBAH.ENABLED=.T.
   THISFORM.TBL_UPDATE.TBL_HAPUS.ENABLED=.T.
   THISFORM.TBL_UPDATE.TBL_SIMPAN.ENABLED=.F.
   THISFORM.BLOK_DATA(.F.)
   THISFORM.BLOK_NAVIGASI(.T.)
   THISFORM.BERSIH
   THISFORM.TBL_AWAL.CLICK
   ENDIF

LISTING TBL_SIMPAN

SELE BARANG
SET ORDER TO 1
SEEK ALLTRIM(THISFORM.KOBAR.VALUE)

IF THISFORM .TBL_UPDATE.TBL_TAMBAH.CAPTION='\<BATAL'
   IF !FOUND()
      APPE BLANK
      REPLACE KOBAR WITH THISFORM.KOBAR.VALUE
      REPLACE NABAR WITH THISFORM.NABAR.VALUE
      REPLACE JEBAR WITH THISFORM.JEBAR.VALUE
      REPLACE MERK WITH THISFORM.MERK.VALUE
      REPLACE JUMLAH WITH THISFORM.JUMLAH.VALUE
      THISFORM.TBL_UPDATE.TBL_TAMBAH.CLICK
    ENDIF
ENDIF

IF THISFORM .TBL_UPDATE.TBL_UBAH.CAPTION='\<BATAL'
   IF FOUND()
      REPLACE KOBAR WITH THISFORM.KOBAR.VALUE
      REPLACE NABAR WITH THISFORM.NABAR.VALUE
      REPLACE JEBAR WITH THISFORM.JEBAR.VALUE
      REPLACE MERK WITH THISFORM.MERK.VALUE
      REPLACE JUMLAH WITH THISFORM.JUMLAH.VALUE
      THISFORM.TBL_UPDATE.TBL_UBAH.CLICK
    ENDIF
ENDIF

IF THISFORM .TBL_UPDATE.TBL_HAPUS.CAPTION='\<BATAL'
   IF FOUND()
      DELETE
      PACK
      THISFORM.TAMPIL_DATA
      THISFORM.REFRESH
      THISFORM.TBL_UPDATE.TBL_HAPUS.CLICK
   ENDIF

ENDIF


Catatan :

• Untuk Listing Program silahkan copy paste di blog : https://haliq1891.blogspot.co.id/
• Untuk Penjelasan dan jawaban "Tulis Tangan"
• dikumpulkan paling lambat hari Jum'at, Tanggal 10-02-2017, Pukul 10:00 Pagi

Ttd

Haliq, S.Kom