CLASS TXBrowse+ HDO

CLASS TXBrowse+ HDO

Postby russimicro » Wed Jun 26, 2024 8:52 pm

Buena tarde... Mr. Rao

Es posible que la clase TXBrowse, de soporte a la librería HDO de Manuel Expósito, tal como lo hace con EAGLE1.

Gracias
JONSSON RUSSI T.
Colombia
russimicro
 
Posts: 262
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CLASS TXBrowse+ HDO

Postby karinha » Sat Jun 29, 2024 1:32 pm

Buen día. Perdón por mi ignorancia, pero ¿qué es HDO?

gracias, tks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: CLASS TXBrowse+ HDO

Postby russimicro » Sat Jun 29, 2024 9:12 pm

russimicro
 
Posts: 262
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CLASS TXBrowse+ HDO

Postby russimicro » Sun Jun 30, 2024 11:18 am

Buen dia..

HDO e EAGLE1, son librerías para manejo de bases de datos SQL, con harbour y xharbour (eagle1), las pruebas que he hecho con fwh vs eagle1, dan mejores resultados a eagle1, y según MANUEL EXPOSITO,
con HDO se obtiene mejor rendimiento que EAGLE1. Todo esto es buscando que en la migración de DBF a SQL, se mantenga o supere el rendimiento en ciertos procesos críticos

XBROWSE, soporta eagle1 y esperamos que pueda soportar HDO

Saludos
russimicro
 
Posts: 262
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CLASS TXBrowse+ HDO

Postby jvtecheto » Wed Jul 03, 2024 6:00 pm

Hola amigos.

Perdonad mi ignorancia pero porque Xbrowse no es compatible con HDO? ,
si fuera tema de Manu seguro que lo soluciona rápido y si fuera tema del Sr. Rao me consta que han estado en contacto e intercambian impresiones , por lo que seguro que lo solucionan, si en un plazo razonable no contestan ya se lo comunicare a Manu a ver que opina.

Saludos

José.

Enviado desde mi Lenovo TB-J606F mediante Tapatalk
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
User avatar
jvtecheto
 
Posts: 602
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: CLASS TXBrowse+ HDO

Postby Lailton » Wed Jul 03, 2024 10:49 pm

Hola a todos,

Voy a revisar lo samples de HDO y aggregar ao FiveWin ( xBrowse ) y lo publico aqui las pruebas.
Regards,
Lailton Fernando Mariano
User avatar
Lailton
 
Posts: 156
Joined: Fri Jul 20, 2012 1:49 am
Location: Brazil

Re: CLASS TXBrowse+ HDO

Postby Antonio Linares » Thu Jul 04, 2024 5:05 am

Muchas gracias Lailton! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: CLASS TXBrowse+ HDO

Postby Lailton » Mon Jul 08, 2024 2:40 pm

Hola,

Aqui tiene un ejemplo de abrir una tabla en xBrowse usando HDO,
para los usuarios de HDO solo tiene que aggregar en lo fichero de compilacion las libs:

-lhdo
-lhdolist
-lhdotools
-lrdlmysql
-llibmariadb

source:
Code: Select all  Expand view  RUN
#include "fivewin.ch"
#include "hdo.ch"

REQUEST HDO
REQUEST RDLMARIADBN

function main()

    local oHDO, oTb
    local oBrw, aCol := array( 2 )

    oHDO := THDO():new( "mariadbn" )

    oHDO:setAttribute( HDO_ATTR_ERRMODE, .f. )
    oHDO:setAttribute( HDO_ATTR_CASE, CASE_UPPER )
    oHDO:setAttribute( HDO_ATTR_STR_PAD, .t. )
    oHDO:setAttribute( HDO_ATTR_TINY_AS_BOOL, .t. )
    oHDO:setAttribute( HDO_ATTR_NULL_TO_VAL, .t. )

    if oHDO:connect( "fivewin_demo", "localhost", "root", "myPassword", 3306 ) == .f.

        msgStop( oHDO:errorStr(), oHDO:errorCode() + "/" + alltrim( str( oHDO:errorNo() ) ) )
        oHDO:free()
        oHDO := nil

        return nil
    endif

    if hb_isObject( oHDO )

        oTb := oHDO:rowSet( "SELECT * FROM clients" )
        oTb:load()

        define window oWnd title "FWH + HDO"

            oBrw:=TxBrowse():New(oWnd)

            oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
            oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY
            oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY
            oBrw:lColDividerComplete := (.F.)
            oBrw:nHeaderHeight := 25
            oBrw:nRowHeight := 22
            oBrw:nDataLines := 1
            oBrw:lHScroll := (.F.)

            aCol[1] := oBrw:AddCol()
            aCol[1]:bStrData := { || oTb:getValueByName("first") }
            aCol[1]:cHeader := "first"
            aCol[1]:nHeadStrAlign := AL_LEFT
            aCol[1]:nDataStrAlign := AL_LEFT
            aCol[1]:nWidth := 100

            aCol[2] := oBrw:AddCol()
            aCol[2]:bStrData := { || oTb:getValueByName("last")  }
            aCol[2]:cHeader := "last"
            aCol[2]:nHeadStrAlign := AL_LEFT
            aCol[2]:nDataStrAlign := AL_LEFT
            aCol[2]:nWidth := 210

            oBrw:CreateFromCode()

            setHDO( oBrw, oTb )

            oWnd:oClient = oBrw

        activate window oWnd

        oHDO:free()

    endif

    oHDO:=nil

return nil

procedure setHDO( oBrw, oTb )

    oBrw:cAlias := ""
    oBrw:bGoTop    := {|| If( oTb:RecCount() > 0, oTb:First(), nil ) }
    oBrw:bGoBottom := {|| If( oTb:RecCount() > 0, oTb:Last(), nil )  }
    oBrw:bSkip     := {| n | oTb:Skipper( If( n==nil, 1, n ) ) }
    oBrw:bBof      := {|| oTb:Bof() }
    oBrw:bEof      := {|| oTb:Eof() }
    oBrw:bBookMark := {| n | If( n == nil,;
                                  If( oTb:RecCount() > 0, oTb:Recno(), 0 ), ;
                                  If( oTb:RecCount() > 0, oTb:GoTo( n ), 0 ) ) }
    oBrw:bKeyNo    := {| | RecNo() }
    oBrw:bKeyCount := {|| oTb:RecCount() }
    oBrw:refresh()

return nil

Para hacer la compra de HDO pode hablar directamente con Manu Exposito (hdoexpo@gmail.com):
Y cualquer duvida o se necessitar de ajuda pode enviar en lo foro o para mi correo "lailton@paysoft.com.br" y lo verifico

Lo voy a preparar mas ejemplos y lo publico en los proximos dias :D o se alguien necessitar de algo especifico comenta que lo
verifico tambien.
Regards,
Lailton Fernando Mariano
User avatar
Lailton
 
Posts: 156
Joined: Fri Jul 20, 2012 1:49 am
Location: Brazil

Re: CLASS TXBrowse+ HDO

Postby Antonio Linares » Mon Jul 08, 2024 4:44 pm

Querido Lailton, muchas gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: CLASS TXBrowse+ HDO

Postby sysctrl2 » Mon Jul 08, 2024 6:00 pm

en que sabe, sabe
Lailton 8)
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1032
Joined: Mon Feb 05, 2007 7:15 pm

Re: CLASS TXBrowse+ HDO

Postby Lailton » Mon Jul 08, 2024 7:22 pm

Para o que precisar conta comigo :D

Antonio Linares wrote:Querido Lailton, muchas gracias! :-)
Regards,
Lailton Fernando Mariano
User avatar
Lailton
 
Posts: 156
Joined: Fri Jul 20, 2012 1:49 am
Location: Brazil

Re: CLASS TXBrowse+ HDO

Postby russimicro » Tue Jul 09, 2024 3:59 am

Buena noche...

Estas lineas como otras mas, existen en el archivo xbrowse.prg

elseif ! Empty( ::oRs )
::SetADO( ::oRs )
elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TMYSQLQUERY' )
::SetMysql( ::oMysql )
elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TDOLPHINQRY' )
::SetDolphin( ::oMysql )
elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TMSQUERY' )
::SetEagle( ::oMysql )
elseif ! Empty ( ::oDbf )
::SetoDbf( ::oDbf,,, Empty( ::aCols ) )
elseif ! Empty( ::cAlias ) .or. ! Empty( Alias() )
::SetRDD()
endif

Asumo que se incluyeron para hdo, y si es así... debemos esperar una nueva versión o estos ajustes nos lo pueden enviar

Gracias
russimicro
 
Posts: 262
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: CLASS TXBrowse+ HDO

Postby Lailton » Tue Jul 09, 2024 5:21 pm

Lo codigo que tieno postado funciona sin cambios,
pero tambien estoy providenciando otros ejemplos y se necessario lo atualizo lo xbrowse class y aggregaremos ao lo proximo release de fivewin :)

Cualquer error contacta-me
Regards,
Lailton Fernando Mariano
User avatar
Lailton
 
Posts: 156
Joined: Fri Jul 20, 2012 1:49 am
Location: Brazil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 108 guests