Jawaban Foxpro Type A

I.        Ketentuan Soal

1.     Buatlah sebuah Project dengan nama PrjRental yang disimpan di dalam folder masing-masing “c:\sore\nim\....”

2.     Buatlah Database dengan nama : Rental.DBC

3.     Buatlah Tabel dengan nama : data_vcd.dbf, dengan field sebagai berikut :

Nama Field	Tipe Data	With	Indexes Type
kdfilm	Character	5	Primary
judul	Character	20
produksi	Character	15
harga	Numeric	8

4.     Isi datanya sebanyak 3 record yang berbeda untuk tabel data_vcd.dbf

5.     Buatlah tabel dengan nama : trans_vcd.dbf, dengan field sebagai berikut :

Nama Field	Tipe Data	With	Indexes Type
nofak	Character	5	Primary
kdfilm	Character	5
jumbel	Numeric	2
totharga	Numeric	8

II.      Rancangan Form

a.       Buatlah rancangan form seperti diawah ini dan disesuaikan objek-objek yang digunakan.

b.       Simpanlah dengan nama : Rental.scx

III.    Ketentuan Soal

1.       Pada saat form di Run, Input No.Faktur, Pilih Kode Film maka Judul, Produksi  dan Harga Film akan tampil otomatis, Input Jumlah Sewa maka Total Harga Tampil otomatis, Input Di Bayar maka Uang Kembali Tampil Otomatis

Total Harga                  =  Harga * Jumlah Sewa

Uang Kembali =  Di Bayar – Total Harga

           

2.       Klik Tombol Save maka data akan tersimpan pada tabel trans_vcd.dbf, Dan jika  menyimpan dengan No. faktur yang sama akan tampil pesan :

3.       Klik Tombol Exit maka akan tampil pesan  :

 SeLaMaT MeNgErJaKaN 

Form1                                                 Load

CLOSE DATABASES

CLOSE INDEXES

SET DEFAULT TO "C:\ECHO"

SELECT 1

USE DATA_VCD

SET ORDER TO TAG KDFILM

SELECT 2

USE TRANS_VCD

SET ORDER TO TAG NOFAK

Form1                                     Activate

thisform.nonaktif

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

Form1                                     Aktif

thisform.txtno.Enabled= .t.

thisform.cmbkode.Enabled= .t.

thisform.txtjml.Enabled= .t.

thisform.txtbayar.Enabled= .t.

Form1                                                 Nonaktif

thisform.txtno.Enabled= .F.

thisform.cmbkode.Enabled= .F.

thisform.txtjudul.Enabled= .F.

thisform.txtprod.Enabled= .F.

thisform.txthrg.Enabled= .F.

thisform.txtjml.Enabled= .F.

thisform.txttotal.Enabled= .F.

thisform.txtbayar.Enabled= .F.

thisform.txtkembali.Enabled= .F.

cmbkode                                           Click

SELECT 1

SEEK(ALLTRIM(thisform.cmbkode.Value))

IF FOUND()

thisform.txtjudul.Value=judul

thisform.txthrg.Value=harga

thisform.txtprod.Value=produksi

ENDIF

txtjml                                      Keypress

LPARAMETERS nKeyCode, nShiftAltCtrl

IF nkeycode=13

thisform.txttotal.Value=thisform.txtjml.value*thisform.txthrg.Value

ENDIF

txtbayar                                             Lostfocus

thisform.txtkembali.Value=thisform.txtbayar.Value-thisform.txttotal.Value

cmdnew                                             Click

thisform.aktif

thisform.bersih

thisform.txtno.SetFocus

thisform.cmdcancel.Enabled= .T.

thisform.cmdsave.Enabled= .T.

thisform.cmdnew.Enabled= .F.

cmdsave                                            Click

SELECT 2

SEEK(ALLTRIM(thisform.txtno.Value))

IF FOUND()

MESSAGEBOX("no.faktur sudah ada.tolong ulangi",36,"informasi")

thisform.txtno.Value=""

thisform.txtno.SetFocus

else

SELECT 2

APPEND BLANK

replace nofak WITH thisform.txtno.Value

replace kdfilm WITH thisform.cmbkode.Value

replace jumbel WITH thisform.txtjml.Value

replace totharga WITH thisform.txttotal.Value

thisform.cmdnew.Enabled= .T.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.

thisform.nonaktif

thisform.bersih

ENDIF

cmdcancel                                         Click

thisform.bersih

thisform.nonaktif

thisform.cmdnew.Enabled= .T.

thisform.cmdsave.Enabled= .F.

thisform.cmdcancel.Enabled= .F.