xBrowse small sample

[Armando]

Hi Friends:

I'm looking for a small sample for xBrowse with edit cells and recordset.
Somebody can help me?

With best regards

[Bayron]

Hi Armando,

I think your best bet will be to download tDolphin of Daniel Garcia Gil, this is a small sample:

Code: Select all  Expand view

//#include "hbcompat.ch"
#include "tdolphin.ch"
#include "xbrowse.ch"
#include "fivewin.ch"

FUNCTION Main()

   LOCAL oWnd
   LOCAL oMenu
   LOCAL oServer
/*  
   MENU oMenu 2007
      MENUITEM "testing" ACTION DataBrowse( oServer, oWnd )
   ENDMENU
*/  
   SET CENTURY ON
   SET DATE FORMAT "dd/mm/yyyy"  
     
   //Activated Case sensitive
   D_SetCaseSensitive( .T. )
   Set_MyLang( "esp" )
   
   IF ( oServer := ConnectTo() ) == NIL
      RETURN NIL
   ENDIF
   
   DataBrowse( oServer, oWnd )
   
/*   DEFINE WINDOW oWnd TITLE "Testing Dolphin - Fivewin" MENU oMenu
   
   ACTIVATE WINDOW oWnd
*/  
   oServer:End()
   
RETURN NIL

PROCEDURE DataBrowse( oServer, oWnd )

   LOCAL oQry
   LOCAL oDlg
   LOCAL oBrw
   LOCAL oData, oCol
   
   
   oQry = oServer:Query( "SELECT * FROM alumnos ORDER BY apellidos ASC" )
   
   DEFINE DIALOG oDlg SIZE 700,300 OF oWnd

   @ 0, 0 XBROWSE oBrw
   
   SetDolphin( oBrw, oQry )
     
   oBrw:CreateFromCode()
 
   oDlg:oClient = oBrw
   
   ACTIVATE DIALOG oDlg CENTERED ON INIT oDlg:Resize()
   
   oQry:End()

RETURN

#include "connto.prg"
#include "setbrw.prg"

There are more samples that may have what you are looking for....

http://tdolphin.blogspot.com
http://www.sitasoft.net/dolphin/files/tdolphin.zip

[Armando]

Bayron:

Tanks so much but it's too late, my app has several PRGS with many Recordsets, anyway thanks for your suggestion.

Regards