Interactive Searching

Berikut akan ditampilkan scipt pencarian dalam suatu tabel yang hasilnya akan dapat langsung ditampilkan dalam grid.

****-------------------------------------------------------------------------

*Procedure txtcari.interactivechange
****-------------------------------------------------------------------------
xfilter=UPPER(ALLTRIM(THISFORM.TXTCARI.Value))
Select * from ctabel where LIKE('*&xfilter*',UPPER(nama)) into cursor ctabel1
*? _TALLY
IF _TALLY=0
thisform.GRid1.recordsource ="ctabel"
thisform.aturtabel
GO TOP

ELSE
thisform.GRid1.RecordSource ="ctabel1"
thisform.aturtabel1
GO TOP
ENDIF

IF EMPTY(THIS.Value)
THISFORM.label1.visible= .F.
ELSE
THISFORM.label1.visible= .T.
IF _tally=0
THISFORM.label1.Caption="Tidak ada data dengan kriteria dimaksud"
ELSE
THISFORM.label1.Caption="Ditemukan sejumlah "+ALLTRIM(STR(_tally))+" data yang sesuai"
ENDIF
ENDIF
****-------------------------------------------------------------------------
Keterangan :
txtcari = text untuk pencarian berdasarkan nama
label1 = label untuk menampilkan keterangan jumlah data yang ditampilkan
grid1 = grid untuk menampilkan record hasil pencarian

method aturtabel = procedure pengaturan grid1
contoh isi method aturtabel
thisform..grid1.column1.ControlSource="ctabel.no_pen"
thisform.grid1.column2.ControlSource="ctabel.NAMA"
thisform.grid1.column3.ControlSource="ctabel.angsuran"
thisform.grid1.column4.ControlSource="ctabel.plafond"

Demikian semoga membantu. Mohon masukan jika ada yang lebih praktis....