ShowQry Function
Posted: Fri Aug 05, 2016 5:54 pm
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,
saludos cesar
es muy simple pero muy útil para mi,
Code: Select all
#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