FiveTech Support Forums

#include <fivewin.ch>

//Cesar SysCtrl Software

function Main()
    local cQry, oQry

    cQry := "SELECT * from clientes order by idcliente"
   oCte := ::oCon2:Query( cQry )
   oCte:GOTOP()

   ShowQry( oCte )

   oCte:end()

return nil

Function ShowQry( oQry )
  local oDlg, oBrw
   local oFont, oBold, oItalic

   DEFINE FONT oFont   NAME 'TAHOMA' SIZE 0,-12

   DEFINE DIALOG oDlg SIZE 800,600 PIXEL FONT oFont
   oDlg:cTitle := "ShowQry Function"

   @ 10, 10 XBROWSE oBrw OBJECT oQry ;
            AUTOCOLS AUTOSORT PIXEL SIZE -10, -10 LINES OF oDlg

   oBrw:nStretchCol := STRETCHCOL_LAST

   oBrw:nDataLines := 3
   oBrw:CreateFromCode()

   oDlg:lHelpIcon := .f.

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil

oQry := oServer:Query("show databases;")
xbrowse(oQry)