Menu desde Tabla MySql

Post Reply
Compuin
Posts: 1244
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Menu desde Tabla MySql

Post by Compuin »

Buenas tardes foro,

Alguien me podria proveer de un ejemplo de opciones del menu creadas desde una tabla Mysql ?

El ejemplo de fw con DBF no me sirve

Gracias de antemano
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Top
Compuin
Posts: 1244
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menu desde Tabla MySql

Post by Compuin »

Alguien sabe como hacerlo ?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Top
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

Re: Menu desde Tabla MySql

Post by cnavarro »

Vamos por partes:
1.- Qué versión de Fw utilizas?
2.- Por qué no te vale el ejemplo desde DBFs?
3.- Qué Mysql utilizas? ( libreria, etc )
4.- Qué estructura tienes en la tabla, y sus propiedades
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Top
Compuin
Posts: 1244
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menu desde Tabla MySql

Post by Compuin »

cnavarro wrote:Vamos por partes:
1.- Qué versión de Fw utilizas?
2.- Por qué no te vale el ejemplo desde DBFs?
3.- Qué Mysql utilizas? ( libreria, etc )
4.- Qué estructura tienes en la tabla, y sus propiedades


1.- Fwh1705
2.- Siempre se desordena y no logro ubicar items apropiadamente
3.- Mysql 5.0 con la Libreria Eagle1
4.- Un tabla con los nombre de las opciones del menu nada mas
Last edited by Compuin on Wed Dec 12, 2018 2:19 pm, edited 1 time in total.
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Top
jcenteno
Posts: 23
Joined: Thu Dec 10, 2009 6:07 am
Been thanked: 1 time

Re: Menu desde Tabla MySql

Post by jcenteno »

Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.
Top
Compuin
Posts: 1244
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menu desde Tabla MySql

Post by Compuin »

jcenteno wrote:Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.


Jose aca lo tienes compuin@gmail.com
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Top
User avatar
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:
Contact joseluisysturiz

Re: Menu desde Tabla MySql

Post by joseluisysturiz »

jcenteno wrote:Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.


Saludos, me sumo a la peticion si no hay problemas joseluisysturiz @ yahoo.com, gracias...saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
Top
User avatar
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:
Contact joseluisysturiz

Re: Menu desde Tabla MySql

Post by joseluisysturiz »

Compuin wrote:Buenas tardes foro,

Alguien me podria proveer de un ejemplo de opciones del menu creadas desde una tabla Mysql ?

El ejemplo de fw con DBF no me sirve

Gracias de antemano


Saludos, como se llama ese ejemplo de FW con DBF.? quiero revisarlo haber si me sirve aunque uso MYSQL con TDolphin, imagino se podra adaptar, saludos, gracias... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
Top
jcenteno
Posts: 23
Joined: Thu Dec 10, 2009 6:07 am
Been thanked: 1 time

Re: Menu desde Tabla MySql

Post by jcenteno »

Enviado al correo.

Saludos.
Top
admsoporte
Posts: 104
Joined: Sun Oct 09, 2005 3:09 pm
Location: Mexico

Re: Menu desde Tabla MySql

Post by admsoporte »

Me lo podrían mandar a admsoporte@gmail.com


Enviado desde mi FIG-LX3 mediante Tapatalk
Saludos

Atentamente

Jose F Dominguez Serafin

email admsoporte@gmail.com
Top
User avatar
jose_murugosa
Posts: 1185
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:
Contact jose_murugosa

Re: Menu desde Tabla MySql

Post by jose_murugosa »

Me interesaría la versión para dbfs y para mysql, si pudieran publicarlas o enviármelas a jmurugosa (arroba) gmail (punto) com, estaré agradecido.
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
Top
User avatar
ruben Dario
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Menu desde Tabla MySql

Post by ruben Dario »

Saludos
Podrias compartir el codigo. Gracias
Me interesaría la versión para dbfs y para mysql, si pudieran publicarlas o enviármelas a rubendariogd (arroba) gmail (punto) com, estaré agradecido.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Top
User avatar
TecniSoftware
Posts: 236
Joined: Fri Oct 28, 2005 6:29 pm
Location: Quilmes, Buenos Aires, Argentina

Re: Menu desde Tabla MySql

Post by TecniSoftware »

Me sumo al pedido, me interesa ese codigo, info.estudio arroba gmail.com

Muchas gracias!
Alejandro Cebolido
Buenos Aires, Argentina
Top
User avatar
jnavas
Posts: 481
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Been thanked: 1 time
Contact:
Contact jnavas

Re: Menu desde Tabla MySql

Post by jnavas »

Compin
Saludos
My aplicacion es MySQL, el menu lo guardo en una tabla, lo leo, paso a un arreglo

// Menu Horizontal
aMENUMAC:=LEERELMENUDESDECUALQUIERORIGEN() // dbf, txt, MySql /////

C5MENUITEM oDp:oItemMacro PROMPT oDp:cMenu01;
ACCELERATOR ACC_CONTROL,ASC("M")

C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
FONT oDp:oFontMenu;
HEIGHT oDp:nMenuHeight; // SELECT 3D ;
LOGO oDp:cBmpMacros ;
LOGOCOLOR oDp:nMenuMainClrText

oDp:oItemMacro:lActive:=!EMPTY(aMenuMac[1]) .AND. lHorario

hacermenu(aMENUMAC)

C5ENDMENU


STATIC FUNCTION HACERMENU(aMenu,oMenu)
LOCAL I:=1,lacceso:=.T.,lutilizo:=.F.,oItem,nIni:=0

lMenuXp:=.T.

IF EMPTY(aMenu) .OR. EMPTY(aMenu[1])
RETURN // .F.
ENDIF

For i=1 TO LEN(aMenu[1])


IF lMenuXp

C5MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
FILE aMenu[12,I]
ELSE

MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
FILE aMenu[12,I]

ENDIF

IF aMenu[13,I]=4

IF lMenuXp
C5SEPARATOR
ELSE
SEPARATOR
ENDIF

ENDIF

IF aMenu[13,I]=2

nIni++

IF lMenuXp

C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
HEIGHT oDp:nMenuHeight;
LOGOCOLOR oDp:nMenuMainClrText

ELSE

MENU

ENDIF


LOOP

ENDIF

oItem:bWhen :=aMenu[11,I]
oItem:bAction :=aMenu[03,I]

IF lMenuXp
oItem:bAuxAction :=aMenu[03,I]
ENDIF


NEXT I

FOR I=1 TO nIni

IF lMenuXp
C5ENDMENU
ELSE
ENDMENU
ENDIF

NEXT

// C5ENDMENU

RETURN
Top
User avatar
jnavas
Posts: 481
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Been thanked: 1 time
Contact:
Contact jnavas

Re: Menu desde Tabla MySql

Post by jnavas »

saludos
Probando, no se como colocar el codigo PRG para que se vea estructurado. Agradecido si alguien me guia para que el código que publico se vea legible


C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04

C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
HEIGHT oDp:nMenuHeight; // SELECT 3D ;
LOGO oDp:cBmpTransacciones ;
LOGOCOLOR oDp:nMenuMainClrText

aMenu:=ACLONE(aMenuTra)

oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario

hacermenu(aMenu)

C5ENDMENU




Code: Select all | Expand



     C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04

     C5MENU COLOR    oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
            COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
            COLORBOX oDp:nMenuBoxClrText ;
            HEIGHT oDp:nMenuHeight; // SELECT 3D ;
            LOGO oDp:cBmpTransacciones ;
            LOGOCOLOR oDp:nMenuMainClrText

     aMenu:=ACLONE(aMenuTra)

     oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario

     hacermenu(aMenu)

     C5ENDMENU



 
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”