Download Module

Tahap 1 Belajar

Tahap 2 Belajar

Tahap 3 Belajar

Tahap 4 Belajar

Tahap 5 Belajar

Tahap 6 Belajar

Panduan lengkap untuk belajar Foxprox
Read More

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
4.  Tambah “data environment” pada form dengan tabel agent dengan cara, klik kanan pada Form à Pilih Data Environment à Pilih agent Ã  klik tombol Add. Kemudian tutup Window Data Environment.



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   >|
Object:
cmdEnd
Procedure:
Click
GO BOTTOM
THISFORM.TAMPIL()
Tuliskan kode berikut pada procedure cmdcari
Object:
cmdcari
Procedure:
Click
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.

10.1.       Simpan form dan jalankan!.


Read More
Langganan: Postingan (Atom)