Belajar Membuat Table
Form Master – Form Agent (Agent)
1.
Buat file form baru pada project
2.
Desain form Agent tersebut seperti berikut:
Object
|
Nama
|
Tipe Isian
|
Form Agent
|
agent
|
Character
|
Textbox Agent
|
Txtagent
|
Character
|
Textbox Nama
|
Txtnama
|
Character
|
Textbox Alamat
|
Txtal2 - txtal4
|
Character
|
Textbox Country
|
Txtcountry
|
-
|
Textbox Fax
|
Txtfax
|
Numeric
|
Textbox Phone
|
Txtphone
|
Numeric
|
Tombol Tambah
|
cmdTambah
|
|
Tombol Koreksi
|
cmdKoreksi
|
|
Tombol Hapus
|
cmdHapus
|
|
Tombol Simpan
|
cmdSimpan
|
|
Tombol Batal
|
cmdBatal
|
|
Tombol |<
|
cmdTop
|
|
Tombol <<
|
cmdPrev
|
|
Tombol >>
|
cmdNext
|
|
Tombol >|
|
cmdEnd
|
|
Tombol Keluar
|
cmdKeluar
|
|
Tombol Cetak
|
cmdCetak
|
|
Grid
|
Grid1
|
3. Atur “Tab
Order Object” dengan cara klik icon
Set Tab Order
5. Buat method baru pada form dengan cara, klik menu Form à Edit Property/Method. Tambahkan method dengan cara, klik tombol “New Method” berikut ini:
6. Tulis kode program pada masing-masing method
seperti dibawah ini:
Object:
|
Agent |
Procedure:
|
Aktif
|
thisform.SetAll("enabled",.T.,"TextBox")
thisform.SetAll("enabled",.F.,"combobox")
Object:
|
Agent |
Procedure:
|
Tdk_aktif
|
thisform.SetAll("enabled",.F.,"TextBox")
thisform.SetAll("enabled",.T.,"ComboBox")
Object:
|
Agent |
Procedure:
|
Tombol
|
PARAMETER T1,T2,T3,T4,T5,T6,T7,T8,T9,T10
THISFORM.CmdTambah.ENABLED=T1
THISFORM.CmdKoreksi.ENABLED=T2
THISFORM.Cmdhapus.ENABLED=T3
THISFORM.Cmdsimpan.ENABLED=T4
THISFORM.Cmdbatal.ENABLED=T5
THISFORM.Cmdtop.ENABLED=T6
THISFORM.Cmdprev.ENABLED=T7
THISFORM.Cmdnext.ENABLED=T8
THISFORM.Cmdend.ENABLED=T9
THISFORM.Cmdkeluar.ENABLED=T10
Object:
|
frmBarang
|
Procedure:
|
Bersih
|
SELECT A
THISFORM.Txtagent.VALUE=" "
THISFORM.Txtnama.VALUE=" "
THISFORM.Txtalamat.VALUE=" "
THISFORM.txtal2.VALUE=" "
THISFORM.txtal3.VALUE=" "
THISFORM.txtal4.VALUE=" "
THISFORM.Txtcountry.VALUE=" "
THISFORM.Txtfax.VALUE=" "
THISFORM.txtphone.VALUE=" "
THISFORM.txttelex.VALUE=" "
Object:
|
frmBarang
|
Procedure:
|
Simpan
|
SELECT agent
SET ORDER TO tag idx_agent
WITH thisform
IF !EMPTY(.txtagent.value)
IF SEEK(.txtagent.value)
REPL descr WITH THISFORM.txtnama.VALUE
REPL adr1 WITH THISFORM.txtalamat.VALUE
REPL adr2 WITH THISFORM.txtal2.VALUE
REPL adr3 WITH THISFORM.txtal3.VALUE
REPL adr4 WITH THISFORM.txtal4.VALUE
REPL adr5 WITH THISFORM.txtcountry.VALUE
REPL fax WITH THISFORM.txtfax.VALUE
REPL phone WITH THISFORM.txtphone.VALUE
ELSE
APPEND BLANK
REPL code WITH THISFORM.txtagent.VALUE
REPL descr WITH THISFORM.txtnama.VALUE
REPL adr1 WITH THISFORM.txtalamat.VALUE
REPL adr2 WITH THISFORM.txtal2.VALUE
REPL adr3 WITH THISFORM.txtal3.VALUE
REPL adr4 WITH THISFORM.txtal4.VALUE
REPL adr5 WITH THISFORM.txtcountry.VALUE
REPL fax WITH THISFORM.txtfax.VALUE
REPL phone WITH THISFORM.txtphone.VALUE
ENDIF
ENDIF
ENDWITH
Object:
|
frmBarang
|
Procedure:
|
Tampil
|
THISFORM.Txtagent.VALUE=code
THISFORM.Txtnama.VALUE=descr
THISFORM.Txtalamat.VALUE=adr1
THISFORM.txtal2.VALUE=adr2
THISFORM.txtal3.VALUE=adr3
THISFORM.txtal4.VALUE=adr4
THISFORM.Txtcountry.VALUE=adr5
THISFORM.Txtfax.VALUE=fax
THISFORM.txtphone.VALUE=phone
7. Tuliskan kode berikut pada procedure Activate form Barang
Object:
|
frmBarang
|
Procedure:
|
Activate
|
PUBLIC CMD,PESAN
thisform.tombol(.T.,.T.,.T.,.F.,.F.,.T.,.T.,.T.,.T.,.T.)
thisform.tdk_aktif()
GO TOP
THISFORM.TAMPIL()
Object:
|
frmBarang
|
Procedure:
|
Load
|
CLOSE DATABASES
CLOSE INDEXES
SET DELE ON
SET DEFA TO C:\Users\Hadi\Documents\Visual\fox
USE
SELECT A
USE C:\Users\Hadi\Documents\Visual\fox\agent EXCLUSIVE AGAIN
SET ORDER TO TAG idx_agent
Object:
|
cmdTambah
|
Procedure:
|
Click
|
SELECT A
CMD=1
thisform.tombol(.F.,.F.,.F.,.T.,.T.,.F.,.F.,.F.,.F.,.F.)
thisform.aktif()
THISFORM.BERSIH()
THISFORM.txtagent.SETFOCUS()
Object:
|
cmdKoreksi
|
Procedure:
|
Click
|
SELECT A
CMD=2
thisform.tombol(.F.,.F.,.F.,.T.,.T.,.F.,.F.,.F.,.F.,.F.)
thisform.aktif()
THISFORM.txtagent.SETFOCUS()
Object:
|
cmdHapus
|
Procedure:
|
Click
|
SELECT A
PESAN=MESSAGEBOX("DATANYA AKAN DIHAPUS",32+4,"HAPUS")
IF PESAN=6
DELE
ENDIF
GO TOP
THISFORM.TAMPIL()
THISFORM.REFRESH()
THISFORM.GRID1.REFRESH()
Object:
|
cmdSimpan
|
Procedure:
|
Click
|
IF THISFORM.txtagent.VALUE=" "
MESSAGEBOX("KODE agent",48,"KONFIRMASI")
THISFORM.txtagent.VALUE=" "
THISFORM.txtagent.SETFOCUS()
ELSE
thisform.tombol(.T.,.T.,.T.,.F.,.F.,.T.,.T.,.T.,.T.,.T.)
thisform.tdk_aktif()
THISFORM.SIMPAN()
ENDIF
THISFORM.REFRESH()
THISFORM.GRID1.REFRESH()
thisform.bersih()
Tuliskan kode berikut pada procedure Click Tombol Batal
Object:
|
cmdBatal
|
Procedure:
|
Click
|
thisform.tombol(.T.,.T.,.T.,.F.,.F.,.T.,.T.,.T.,.T.,.T.)
thisform.tdk_aktif()
Tuliskan kode berikut pada procedure Click Tombol Keluar
Object:
|
cmdKeluar
|
Procedure:
|
Click
|
thisform.Release()
Tuliskan kode berikut pada procedure Click Tombol |<
Object:
|
cmdTop
|
Procedure:
|
Click
|
GO TOP
THISFORM.TAMPIL()
Tuliskan kode berikut pada procedure Click Tombol <<
Object:
|
cmdPrev
|
Procedure:
|
Click
|
IF BOF()
GO TOP
ELSE
SKIP
-1
IF BOF()
GO TOP
ENDIF
ENDIF
THISFORM.TAMPIL()
Tuliskan kode berikut pada procedure Click Tombol >>
Object:
|
cmdNext
|
Procedure:
|
Click
|
IF EOF()
GO BOTTOM
ELSE
SKIP
1
IF EOF()
GO BOTTOM
ENDIF
ENDIF
THISFORM.TAMPIL()
Tuliskan kode berikut pada procedure Click Tombol >|
Tuliskan kode berikut pada procedure Click Tombol >|
Object:
|
cmdEnd
|
Procedure:
|
Click
|
GO BOTTOM
THISFORM.TAMPIL()
SET ORDER TO TAG idx_agent
thisform.tdk_aktif()
SEEK(ALLTRIM(THISFORM.cmbcari.Value))
IF FOUND()
THISFORM.Txtagent.VALUE=code
THISFORM.Txtnama.VALUE=descr
THISFORM.Txtalamat.VALUE=adr1
THISFORM.txtal2.VALUE=adr2
THISFORM.txtal3.VALUE=adr3
THISFORM.txtal4.VALUE=adr4
THISFORM.Txtcountry.VALUE=adr5
THISFORM.Txtfax.VALUE=fax
THISFORM.txtphone.VALUE=phone
RETURN
ENDIF
MESSAGEBOX('DATA BARANG TIDAK ADA DALAM DATABASE!',16,'INFORMASI')
thisform.Refresh()
Atur sumber data pada grid1 dengan cara: klik kanan Grid1 à Pilih Builder à Pilih database and Table à Pilih field yang akan ditampilkan pada grid.
Tuliskan kode berikut pada procedure cmdcari
Object:
|
cmdcari
|
Procedure:
|
Click
|
thisform.tdk_aktif()
SEEK(ALLTRIM(THISFORM.cmbcari.Value))
IF FOUND()
THISFORM.Txtagent.VALUE=code
THISFORM.Txtnama.VALUE=descr
THISFORM.Txtalamat.VALUE=adr1
THISFORM.txtal2.VALUE=adr2
THISFORM.txtal3.VALUE=adr3
THISFORM.txtal4.VALUE=adr4
THISFORM.Txtcountry.VALUE=adr5
THISFORM.Txtfax.VALUE=fax
THISFORM.txtphone.VALUE=phone
RETURN
ENDIF
MESSAGEBOX('DATA BARANG TIDAK ADA DALAM DATABASE!',16,'INFORMASI')
thisform.Refresh()
Atur sumber data pada grid1 dengan cara: klik kanan Grid1 à Pilih Builder à Pilih database and Table à Pilih field yang akan ditampilkan pada grid.
10.1.
Simpan form dan jalankan!.
