FiveTech Support Forums

#include "FiveWin.ch" 

REQUEST DBFCDX 

* Incremental Search with a get object Example 

//-----------------------------------------------------------------------// 

FUNCTION Main() 

LOCAL oWnd, oBrw 
LOCAL cSearch, oSearch 

USE Customer VIA "DBFCDX" 
INDEX ON Customer->Last TO LAST  
OrdSetFocus( "LAST" ) 
DbGoTop() 

cSearch := SPACE(LEN(Customer->Last)) 

DEFINE WINDOW oWnd TITLE "IncSearch"                ; 
       FROM 1,100 TO 212,408 PIXEL NOMAXIMIZE 
    
@  4,3 GET oSearch VAR cSearch OF oWnd              ; 
       PIXEL size 145,17                            ; 
       PICTURE "@!"                                  

@ 30,1 LISTBOX oBrw                                 ; 
       FIELDS Customer->Last, Customer->First       ; 
       HEADERS "Last","First"                       ; 
       SIZE 300, 155 PIXEL 

* This is the main trick. 
oSearch:bPostKey = { || Search(oSearch:oGet:buffer),; 
                        oBrw:Refresh() } 
    
ACTIVATE WINDOW oWnd ON INIT WndCenter(oWnd:hWnd) 
    
RETURN nil 

//-----------------------------------------------------------------------// 

FUNCTION Search(cSearch ) 

DbSeek( cSearch, .t. ) 

RETURN nil