ShowQry Function

[sysctrl2]

Amigos no se si alguien ya tenia esta función pero me es muy necesaria para ver de forma rápida un Query XXXXX

es muy simple pero muy útil para mi,

Code: Select all  Expand view

#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

saludos cesar

[carlos vargas]

yo uso

Code: Select all  Expand view

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

salu2

[sysctrl2]

Carlos
jeje
ni enterado que también asi funciona
pensé que el xbrw. solo es para d.b.f.

Atando Cabos jeje.

gracias.
saludos..