I remember that with DBFs when the application was used with more than 5 users the performance dropped drastically.
Otto wrote:Dear Enrico,
My consumption is actually between 5 and 20 MB for each EXE.
Static Func _Isearch( oLname1, cLname1, oBrw, oRsCust )
cLname1 = Alltrim( oLName1:GetText() ) // GetText is the key here as you start typing then sent to the oRsCUst:Filter
if Empty( cLname1 )
return .T.
endif
oRsCust:Filter := "[Last Name] like '"+cLname1+"%'" // incremental search
oBrw:ReFresh()
Return .T.
nageswaragunupudi wrote:Please use this revised maria01.prg
- Code: Select all Expand view RUN
#include "fivewin.ch"
REQUEST DBFCDX
static aStr := { "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", ;
"209.250.245.152,fwh,fwhuser,FiveTech@2022" }
static oCn
function Main()
local aTables
SET DATE ITALIAN
SET CENTURY ON
FW_SetUnicode( .t. )
CursorWait()
oCn := maria_Connect( aStr[ 1 ], .t. )
aTables := oCn:ListTables()
XBROWSER oCn:ListTables() ;
TITLE "Dbl-Click to View Table" ;
SHOW RECID ;
SETUP ( ;
oBrw:aCols[ 1 ]:bLDClickData := { |r,c,f,o| ShowTable( o:Value ) }, ;
oBrw:bDropFiles := { |aFiles| xbrowse( aFiles ) } )
oCn:Close()
return nil
function ShowTable( cTable )
local oRs, nSecs := SECONDS()
if cTable == "custbig"
MsgRun( "Reading " + cTable, "Please wait", { || oRs := oCn:RecSet( cTable, -100 ) } )
else
MsgRun( "Reading " + cTable, "Please wait", { || oRs := oCn:RowSet( cTable ) } )
endif
nSecs := SECONDS() - nSecs
XBROWSER oRs TITLE cTable + " (" + cValToChar( nSecs ) + ") seconds" ;
FASTEDIT NOMODAL SHOW RECID
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 97 guests