Ayuda Mysql

[horacio]

Aprendiendo MySql decidí hacer un programita que leyera la BBDD de ayuda nativa de este motor ( la ayuda que dá MySql es en modo consola )
si a alguien le interesa aquí les dejo el código.

#include 'fivewin.ch'
#include 'splitter.ch'
Static lError
Static oWnd
Static oLink
Static oSay
Static cDescripcion

Function main()

Set Date To British
Set Century On
Define Window oWnd Mdi

oWnd : SetText( "Ayuda nativa MySql" )
oWnd : SetMenu( MainMenu() )

Activate Window oWnd Maximized On Init HallaTabla()
Return 0

Function MainMenu()

Local oMenu

Menu oMenu
MenuItem "Opciones"
Menu
Menuitem "&Salir" Action oWnd : End()
EndMenu
EndMenu
Return oMenu
Function HallaTabla()

Local aTitle := {}
Local aRegistro := {}
Local aDatos := {}
Local cCadena := Alltrim( GetPvProfString( "Cadena Conexion","Cadena","", CurDrive() + ":\" + CurDir() + "\help_mysql.ini" ) )
Local oCn
Local e
Local oRe
Local nPos
Local oTablas
Local n
Local aInfo

lError := .f.
REQUEST HB_LANG_ES
HB_LANGSELECT("ES")
Try
oCn :=CreateObject("ADODB.Connection")
oCn : Open( "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=mysql;User=root;Password=root;Option=3;" )
oRe := CreateObject("ADODB.RecordSet")
oRe : CursorType := 3 // opendkeyset
oRe : CursorLocation := 3 // local cache
oRe : LockType := 3
oRe : ActiveConnection( oCn )
oRe : Source( "Select help_topic_id, name, description, example from help_topic Order by name" )
oRe : Open()
While( !oRe : Eof )
aRegistro := {}
For nPos := 0 to oRe : Fields : Count - 1
AAdd( aRegistro, Value( oRe, nPos ) )
Next nPos
Aadd( aDatos, aRegistro )
oRe : MoveNext()
Enddo
oRe : Close()
Catch e
MsgStop( "ERROR!!!! " + e:Description + '--' + e : Operation + '--' + Alltrim( Str( e:genCode ) ), "Atención !!!" )
lError := .t.
End
If( !lError )
MuestraSql( aDatos, aTitle, oRe )
End
Return 0

Function MuestraSql( aDatos, aTitles, oRe )

Local oWinH
Local cTitle := ''
Local nSegundos := SECONDS()
Local oSplitter
Local i
Local oTree
Local oFont
Local oFont1
Local oBrw
Local oImgList
Local oReBar
Local oToolBar

cTitle += "Total Registros: " + Alltrim(Str(Len(aDatos) ) )

nSegundos := SECONDS() - nSegundos

Define Font oFont Name 'Arial' Size 0, -10
Define Font oFont1 Name 'Arial' Size 0, -12

Define Window oWinH MDICHILD Of oWnd From 0,0 to 0, 0 Title cTitle Pixel NoSysMenu

oWinH : Hide()
oImgList := TImageList() : New( 32, 32 )
oImgList : AddMasked( TBitmap() : Define( "#8052" ,, oWinh ), nRGB( 255,255,255 ) )
oImgList : AddMasked( TBitmap() : Define( "#8054" ,, oWinh ), nRGB( 255,255,255 ))

oReBar := TReBar() : New( oWinh )

oToolBar := TToolbar() : New( oReBar, 50, 50, oImgList )
oToolBar : AddButton( { || oWinh:End() } , "Salir", " Salir ")
oToolBar : AddSeparator()
oToolBar : AddButton( { || .t. } , "Excel", "Excel")

AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd,;
nBtn, nOr( 0x0010 ) ) } )

oReBar : InsertBand( oToolBar )
oWinH : Hide()
Define Statusbar Prompt Alltrim( Str( nSegundos ) ) + " Segundos..." OF oWinh PROMPTS cTitle

@ 47, 285 Get oSay Var cDescripcion Memo Size 535, oWnd : nHeight - 124 Of oWinh Pixel Font oFont1

@ 47, 01 TREEVIEW oTree SIZE 279, oWnd : nHeight Of oWinh PIXEL
oTree : bChanged := { || BuscaExplicacion( oTree, aDatos ) }
_ArmarTree( oTree, aDatos )

@ 47, 280 Splitter oSplitter Vertical Previous Controls oTree Hinds Controls oSay Size 5, oWnd : nHeight - 124 Of oWinh Pixel _3D

Activate Window oWinh On Init( oTree : Expand(), oWinH : Show() ) Valid ( oFont : End(), oFont1 : End(), aDatos := Nil, oBrw := Nil, .t.) ;
On Resize oSplitter : Adjust( .t., .t., .t., .t. )
oWinh : Maximize()
Return 0


Function _ArmarTree( oTree, aDatos )

Local oDatabase
Local nStep, i, aCursos
Memvar oVarGlobales

oDatabase := oTree : Add( "TÓPICOS" )
For i := 1 To Len( aDatos )
oLink := oDatabase : Add( Alltrim( aDatos[ i ][ 2 ] ), 3, 2 )
oLink : Cargo := aDatos[ i ][ 1 ]
Next i
oTree : SetFocus()
Return oTree

Function BuscaExplicacion( oTree, aDatos )


Local I
Local nId
Local cDescrip
Local cCodigo_id

oLink := oTree : GetSelected()
cCodigo_id := oLink : Cargo

nId := Ascan( aDatos, { | x, y | x[ 1 ] == cCodigo_id } )
cDescripcion := ''
If( nId != 0 )
cDescrip := aDatos[ nId ][ 3 ]
For i := 1 To Len( cDescrip )
If( Asc( SubStr( cDescrip, i, 1 ) ) == 10 )
cDescripcion += CRLF
Else
cDescripcion += SubStr( cDescrip, i, 1 )
End
Next i
If( Len( aDatos[ nId ][ 4 ] ) > 0 )
cDescrip := aDatos[ nId ][ 4 ]
cDescripcion += CRLF + 'Examples' + CRLF + CRLF
For i := 1 To Len( cDescrip )
If( Asc( SubStr( cDescrip, i, 1 ) ) == 10 )
cDescripcion += CRLF
Else
cDescripcion += SubStr( cDescrip, i, 1 )
End
Next i
End
Else
cDescripcion := ''
End
oSay : Refresh()
Return 0

Function Value(oRs,nPos)

Local xVar := oRs:Fields(nPos):Value

// ------------------------------------------ //
// vemos de que tipos es y lo pasamos a string
// ------------------------------------------ //
DO CASE
CASE Valtype(xVar)=="C"
If( Len( xVar ) == 1 .and. xVar == 'T' )
xVar := .t.
ElseIf( Len( xVar ) == 1 .and. xVar == 'F' )
xVar := .f.
Else
xVar := OemToAnsi( xVar )
End
CASE Valtype(xVar)=="N" ; xVar := Str(xVar)
CASE Valtype(xVar)=="D" ; xVar := DTOC(xVar)
CASE Valtype(xVar)=="L" ; xVar := iif(xVar,"TRUE", "FALSE")
OTHERWISE ; xVar := ""
ENDCASE
Return xVar


#pragma BEGINDUMP
#include <windows.h>
#include <commctrl.h>
#include "hbapi.h"

/*-----------------------------------------------------------------------------------------------*/
HB_FUNC( CAMBIA_EL_SIZE_DEL_BOTON ){
TBBUTTONINFO tbutton;
tbutton.cbSize = sizeof( tbutton );
tbutton.dwMask = TBIF_STYLE;
SendMessage( ( HWND ) hb_parnl( 1 ), TB_GETBUTTONINFO, ( WPARAM ) hb_parni( 2 ), (LPARAM) &tbutton );
tbutton.fsStyle = hb_parni( 3 );
SendMessage( ( HWND ) hb_parnl( 1 ), TB_SETBUTTONINFO, ( WPARAM ) hb_parni( 2 ), (LPARAM) &tbutton );
}

#pragma ENDDUMP