Microsoft Visual FoxPro Kelompok 9 (Membuat Form List Barang)

MAKALAH KELOMPOK 9

MEMBUAT FORM LIST BARANG

Untuk memenuhi tugas Micosoft Visual Foxpro

Dosen Pengampu :Bapak Ismail Setiawan S.Kom

Program Studi Diploma III Keuangan dan Perbankan 

Disusun Oleh:

Angga Bagaskara P (F3613004)

Gigih Prasetyo  (F3613030)

Nani Setyowati Putri (F3613043)

JURUSAN

D-3 KEUANGAN DAN PERBANKAN

FAKULTAS EKONOMI DAN BISNIS

UNIVERSITAS SEBELAS MARET

SURAKARTA

KELOMPOK IX

BEKERJA DENGAN 2 TABEL ATAU LEBIH

Kompetensi Dasar :

Mahasiswa memahami membuat program aplikasi dengan melibatkan 2 tabel atau lebih

Indikator :

Mahasiswa dapat membuat program aplikasi dengan melibatkan dua tabel atau lebih yang saling berhubungan

Adakalanya  pada  saat  membuat  program  kita  tidak  hanya  melibatkan  satu  tabel, melainkan dua tabel  atau  bahkan  lebih. Pada  bab  ini akan dibahas  mengenai pembuatan program dengan melibahkan 2 tabel atau lebih.

Untuk menyimpan data yang telah dimasukan, maka kita memerlukan suatu database, dan database tersebut terdiri dari beberapa tabel, sehingga dengan tabel data akan disimpan sesuai dengan kriteria yang di inginkan. Sebagai contoh akan menyimpan data karyawan, maka kita buat tabel karyawan.

Bekerja dengan menggunakan dua tabel

Pada  bab terdahulu kita telah membuat  tabel Barang, dapat  kita lihat pada tabel barang kita melibatkan  tabel  kategori.  Untuk  membuat  program  pemasukan  data  barang  ikutilah langkah-langkah berikut :

1.     Membuat Form List Barang

Buat tampilan sebagai berikut :

Langkah-langkah pembuatan Form List Barang

1.      Buka Ms. Visual Foxpro

2.      Klik menu bar “File” –klik  “New”—klik “Database” kemudian save file dengan nama “form list barang”.

3.      maka akan muncul tampilan seperti gambar dibawah

4.      kemudian klik kanan mouse lalu pilih opsi “New Table” dan save dengan nama “barang”. Maka akan muncul tampilan.

5.      kemudian masukan seperti gambar berikut

6.      lalu klik “OK” dan kemudian “Close”

7.      buka File baru klik “file” --  “new form”

8.      Kemudian input “Label” , “Tex Box” , Command Button

9.      buat “Grid” lalu masukan Database yang kita buat tadi seperti gambar berikut :

10. klik OK , akan muncul seperti gambar berikut

 

111.  kemudian edit Database sesuai Perintah Kolom dan Script dibawah ini.

2.    Ketikan Kolom sebagai berikut :

Objek				Properties		Value
TxtKode				Name		TxtKode
TxtNama				Name		TxtNama
Grid1				Name		Grid1
				RecordSource		Barang
				RecordSourceType		1-Alias
				TabIndex		5
	Column1
		Header1	Caption		Kode
			Alignment		2-Middle
		Text1	Name		Gkodebrg
			ControlSource		Barang.kodebrg
	Column2
		Header1	Caption		Nama Barang
			Alignment		2-Middle
		Text1	Name		Gnamabrg
			ControlSource		Barang.namabrg
	Column3
		Header1	Caption		Harga
			Alignment		2-Middle
		Text1	Name		Ghargajual
			ControlSource		Barang.hargajual
	Column4
		Header1	Caption		Discount
			Alignment		2-Middle
		Text1	Name		Gdiscount
			ControlSource		Barang.discount
	Column5
		Header1	Caption		Stok
			Alignment		2-Middle
		Text1	Name		Gstok
			ControlSource		Barang.stok

3.     Ketikan Script sebagai berikut :

Form1.active

            Select barang

Form1.unload

            Select barang

Txtkode.lostfocus

            SELECTbarang

            SET order to tag kodebrgx

            GO top

            IF SEEK(TRIM(thisform.txtkode.value))

                        Thisform.txtkode.value.=kodebrg

                        Thisform.txtnama.value=namabrg

                        If eof().or.bof()

                                    Datake=0

                        Else

                                    Datake=renc()

                        Endif

                        mkodebrg=thisform.txtkode.value

                        mnamabrg=thisform.txtnama.value

            ELSE

                        Tanya=MessageBox(‘Maaf Data Tidakada …!,16,’Informasi’)

                        Return.f.

            ENDIF

            Set filt to

Thisform.release

Gkodebarang.click

Selebarang

Thisform.tnosem.value=kodebrg

Thisform.tnamalengkap.value=namabrg

Gkodebrg.DblClick

                        Selebarang

                        If eof().or.bof()

                                    Datake=0

                        Else

                                    Datake=recno()

                        Endif

Mkodebarang=kodebrg

Mnamabrg=namabrg

Set filt to

Thisform.release

Gkodebrg.keypress

LPARAMETERS nkeyCode, nShiftAltCtrl

IF nKeycode=13

                        Selebarang

                        If eof().or.bof()

                                    Datake=0

                        Else

                                    Datake=renc()

                        Endif

            Mkodebrg=kodebrg

Mnamabrg=namabrg

Set filt to

Thisform.release

Ensif

Gkodebrg.lostfocus

Selebarang

If eof().or.bof()

                        Datake=0

Else

                        Datake=renc()

Endif

Mkodebrg=kodebrg

Mnamabrg=namabrg

Set filt to

Thisform.release

Cmdkeluar.click

Release.thisform

Daftar Pustaka

Hengky W Pramana, 1999, Kunci Sukses Visual Foxpro 6.0, PT. Elex Media Komputindo, Jakarta

Abdul Kadir, 1999, Pemrograman Basis Data Dengan Visual Foxpro 5, Jilid 1, Penerbit Andi, Yogyakarta

Untuk mendownload Powerpoint klik disini

Untuk mendownload Soal klik disini