Rabu, 08 Februari 2017

Soal UAS SI/TI

Hari dan Tanggal  : 06-11 Februari 2017
Mata Kuliah : Pemrograman Visual SI / TI  2
Semester : 3 (Tiga)
Jenjang / Jurusan : Strata Satu (S1) SI/TI
Dosen : Haliq, S.Kom

Soal :

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

LISTING TBL TAMBAH

IF THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_TAMBAH.CAPTION='\<BATAL'
   THISFORM.TBL_HAPUS.ENABLED=.F.
   THISFORM.TBL_SIMPAN.ENABLED=.T.
   THISFORM.BLOK_DATA(.T.)
   THISFORM.BLOK_NAVIGASI(.F.)
   THISFORM.BERSIH
 
   SELE HABISPAKAI
   IF RECCOUNT()=0 THEN
      THISFORM.NORUT.VALUE='22001'
      RETURN
   ENDIF
 
   GO BOTTOM
   A=VAL(NORUT)
   A=A+1
   THISFORM.NORUT.VALUE=STR(A,5)
   THISFORM.TGL.SETFOCUS
   ELSE
 
   THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_HAPUS.ENABLED=.T.
   THISFORM.TBL_SIMPAN.ENABLED=.F.
   THISFORM.BLOK_DATA(.F.)
   THISFORM.BLOK_NAVIGASI(.T.)
   THISFORM.BERSIH
   THISFORM.TBL_AWAL.CLICK

   ENDIF

LISTING TBL_SIMPAN

SELECT TRANSAKSI
SET ORDER TO 1 &&NORUT
SEEK ALLTRIM(THISFORM.NORUT.VALUE)

IF THISFORM .TBL_TAMBAH.CAPTION='\<BATAL' THEN
   IF !FOUND()
   SELE BARANG
   SET ORDER TO 1 &&KOBAR
   IF SEEK(THISFORM.KOBAR.VALUE)THEN
   IF THISFORM.STOCK.VALUE>BARANG.JUMLAH
   MESSAGEBOX("MA'AF JUMLAH BARANG KURANG/HABIS")
   THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_HAPUS.ENABLED=.T.
   THISFORM.TBL_SIMPAN.ENABLED=.F.
   THISFORM.TBL_AWAL.CLICK
   THISFORM.BLOK_NAVIGASI(.T.)
   THISFORM.BLOK_DATA(.F.)
   THISFORM.REFRESH
   RETURN
   ELSE
   REPLACE BARANG.JUMLAH WITH BARANG.JUMLAH-THISFORM.JUMLAH.VALUE
   SELE HABISPAKAI
      APPEND BLANK
      REPLACE NORUT WITH THISFORM.NORUT.VALUE
      REPLACE TGL WITH CTOD(THISFORM.TGL.VALUE)
      REPLACE NIP WITH THISFORM.NIP.VALUE
      REPLACE NAMA WITH THISFORM.NAMA.VALUE
      REPLACE KOBAR WITH THISFORM.KOBAR.VALUE
      REPLACE NABAR WITH THISFORM.NABAR.VALUE
      REPLACE JUMLAH WITH THISFORM.JUMLAH.VALUE
      THISFORM.TBL_TAMBAH.CLICK
ENDIF
ENDIF
ENDIF
ENDIF

IF THISFORM.TBL_HAPUS.CAPTION='\<BATAL'
   IF FOUND()THEN
      DELETE
      PACK
      THISFORM.TAMPIL_DATA
      THISFORM.REFRESH
      THISFORM.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 SabtuTanggal 11-02-2017Pukul 10:00 Pagi, untuk Mahasiswa jam : 15:30-17:00 Hari : Jumat.

Ttd
Haliq, S.Kom

Tidak ada komentar:

Posting Komentar