problem with big dbf on xbrowse

[karinha]

Marc, HB.LNK

Code: Select all  Expand view  RUN

C:\BORLAND\BCC7\lib\c0w32.obj  +
SILVSLOW.obj,                  +
SILVSLOW.exe,                  +
SILVSLOW.map,                  +
C:\FWHARB\lib\FiveH.lib        +
C:\FWHARB\lib\FiveHC.lib       +
c:\HARBOUR\lib\hbwin.lib       +
c:\HARBOUR\lib\gtgui.lib       +
c:\HARBOUR\lib\hbrtl.lib       +
c:\HARBOUR\lib\hbvm.lib        +
c:\HARBOUR\lib\hblang.lib      +
c:\HARBOUR\lib\hbmacro.lib     +
c:\HARBOUR\lib\hbrdd.lib       +
c:\HARBOUR\lib\rddntx.lib      +
c:\HARBOUR\lib\rddcdx.lib      +
c:\HARBOUR\lib\rddfpt.lib      +
c:\HARBOUR\lib\hbsix.lib       +
c:\HARBOUR\lib\hbdebug.lib     +
c:\HARBOUR\lib\hbcommon.lib    +
c:\HARBOUR\lib\hbpp.lib        +
c:\HARBOUR\lib\hbcpage.lib     +
c:\HARBOUR\lib\hbcplr.lib      +
c:\HARBOUR\lib\hbct.lib        +
c:\HARBOUR\lib\hbpcre.lib      +
c:\HARBOUR\lib\xhb.lib         +
c:\HARBOUR\lib\hbziparc.lib    +
c:\HARBOUR\lib\hbmzip.lib      +
c:\HARBOUR\lib\hbzlib.lib      +
c:\HARBOUR\lib\minizip.lib     +
c:\HARBOUR\lib\hbusrrdd.lib    +
c:\HARBOUR\lib\hbcurl.lib      +
c:\HARBOUR\lib\hbtip.lib       +
c:\HARBOUR\lib\hbzebra.lib     +
c:\HARBOUR\lib\libcurl.lib     +
C:\HARBOUR\lib\png.Lib         +
c:\BORLAND\BCC7\lib\cw32.lib          +
c:\BORLAND\BCC7\lib\uuid.lib          +
c:\BORLAND\BCC7\lib\import32.lib      +
c:\BORLAND\BCC7\lib\ws2_32.lib        +
c:\BORLAND\BCC7\lib\psdk\odbc32.lib   +
c:\BORLAND\BCC7\lib\psdk\nddeapi.lib  +
c:\BORLAND\BCC7\lib\psdk\iphlpapi.lib +
c:\BORLAND\BCC7\lib\psdk\msimg32.lib  +
c:\BORLAND\BCC7\lib\psdk\psapi.lib    +
c:\BORLAND\BCC7\lib\psdk\rasapi32.lib +
c:\BORLAND\BCC7\lib\psdk\gdiplus.lib  +
c:\BORLAND\BCC7\lib\psdk\shell32.lib,
SILVSLOW.RES                                      +
IMAGENS.RES
 

Regards, saludos.

[Marc Venken]

I don't see a speed issue ? It is almost instant ?

[karinha]

I don't see a speed issue ? It is almost instant ?

Marc, turn on :AUTOFIT()

Gracias, tks.

Regards, saludos.

[karinha]

Marc,

Code: Select all  Expand view  RUN

   WITH OBJECT oBrw

      :lIncrFilter := .T. // Liga o Filtro incremental
      :lSeekWild   := .T. // Liga a busca incremental

      :bKeyDown    := { |nKey| If( nKey == VK_RETURN, ( oDlg:End() ), nil ) }
      :bKeyChar    := { |nKey| If( nKey == VK_ESCAPE, ( oBrw:Seek( "" ), oDlg:End() ), nil ) }

      :lFastDraw   := .T. // Marc

      // This command makes XBROWSE() extremely slow Mister Nages.

      :AutoFit() // Auto ajuste / ajuste automatico do xBrowse()

      :nStretchCol     := STRETCHCOL_WIDEST  // Ajusta as colunas do xBrowse.

      :nColSel := nColuna // <n>  // Mister Nages - Perfect. Cursor inicia na xBrowse()

      :CreateFromCode()

   END
 

Regards, saludos.

[karinha]

Marc, simple example: COPY the DATABASE: SILVSLOW.DBF TO C:\FWH\SAMPLES and compile this example, please.

Marc, ejemplo sencillo: COPIA la BASE DE DATOS: SILVSLOW.DBF A C:\FWH\SAMPLES y compila este ejemplo, por favor.

Code: Select all  Expand view  RUN

// C:\FWH\SAMPLES\MARCSLOW.PRG

#include "fivewin.ch"

REQUEST DBFCDX

FUNCTION Main()

   LOCAL oDlg, oBrw, oFont

   SET DATE ITALIAN
   SET CENTURY ON
   SET DELETED ON

   rddSetDefault( "DBFCDX" )

   CLOSE DATABASES

   USE SILVSLOW NEW EXCLUSIVE ALIAS SILVSLOW

   INDEX ON Field->FIRST  TAG 01 TO SILVSLOW FOR .NOT. DELETED()

   INDEX ON Field->LAST   TAG 02 TO SILVSLOW FOR .NOT. DELETED()

   INDEX ON Field->STREET TAG 03 TO SILVSLOW FOR .NOT. DELETED()

   INDEX ON Field->CITY   TAG 04 TO SILVSLOW FOR .NOT. DELETED()

   INDEX ON Field->STATE  TAG 05 TO SILVSLOW FOR .NOT. DELETED()

   CLOSE DATABASES

   USE SILVSLOW NEW SHARED

   SET ORDER TO TAG 03
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 12
   DEFINE DIALOG oDlg SIZE 860, 400 PIXEL TRUEPIXEL ;
      FONT oFont ;
      TITLE FWVERSION + " : PopUp Menu from RecSel"

   @ 60, 20 XBROWSE oBrw SIZE - 20, - 20 PIXEL OF oDlg ;
      DATASOURCE Alias() AUTOCOLS AUTOSORT ;
      CELL LINES NOBORDER FOOTERS

   WITH OBJECT oBrw

      :nHeaderHeight    := 60
      :SetChecks()
      // RecordSelector
      :bRecSelData      := {| brw | brw:KeyNo }
      :bRecSelFooter    := {| brw | brw:nLen }
      :bRecSelHeader    := "SlNo"
      :nRecSelWidth     := "9999"

      :lFastDraw   := .T. // Marc

      //
      :AutoFit()

      :CreateFromCode()

   END

   @ 20, 20 SAY 'Click on RecSelHeader for PopUp Menu. Usage: oBrw:bRecSelClick     := { || RecSelPopUp( oBrw ) }' ;
      SIZE oDlg:nWidth - 40, 20 PIXEL OF oDlg CENTER COLOR CLR_RED, oDlg:nClrPane

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

   CLOSE SILVSLOW

RETURN NIL

// FIN / END
 

Regards, saludos.

[Marc Venken]

i See,

Autofit is indeed slowing down the start of Xbrowse, but that is what Mr. Rao also announced when we use it in bigger database.

Personel, i don't ever use autofit.

I generate all my xbrowser from a database, configure the xbrowse live when using and save these settings. Then I have nice looking onces. If you want, you can give access to these settings for the users to configure there own xbrowsers.

[karinha]

Interesting Marc. Is this for a clothing store? In fact, the use of :AutoFit() - Automatic adjustment, is not recommended for commercial use. I did not know it.

Interesante Marc. ¿Esto es para una tienda de ropa? De hecho, el uso de :AutoFit() - Ajuste automático, no se recomienda para uso comercial. No lo sabía.

Gracias, tks.

Regards, saludos.

[Marc Venken]

The program is for maintaining our online store. Mostly people need to change items from the backoffice of the shops. These changes take a lot of time and rearly offer a browse like edit functing like xbrowse.
I can read/write all changes from a API connection and that saves use tons of manpower, since all items are multi color AND multi size.
The offline browse gives all the speed and much better layout for changing data.
It also makes connections to companies that diliver goods to us by reading there xls files. They become available to the shop with a click.
I have to say that this software is very nice and saves me enormes time in update the online shop.

[Marc Venken]

The first lines of code for this software is done by You and Me .... Remember the post ??

[karinha]

The first lines of code for this software is done by You and Me .... Remember the post ??

I don't remember Marc. I've played programmer with so many people in the world. Which only enriched my knowledge. I always keep learning. It's a pleasure to help and be helped.

No recuerdo Marc. He jugado a programador con tanta gente en el mundo. Lo que sólo enriqueció mis conocimientos. Siempre sigo aprendiendo. Es un placer ayudar y ser ayudado.

Gracias, tks.

Regards, saludos.