include "FWCE.ch"

function Main()

local oWnd, oBmp

DEFINE BITMAP oBmp FILE CurDir() + "\inicio.bmp"
DEFINE WINDOW oWnd TITLE "MJCC"

@ 25, 20 BTNBMP FILE CurDir() + "\users.bmp" SIZE 60, 60
@ 25, 90 BTNBMP FILE CurDir() + "\open.bmp" SIZE 60, 60
@ 25, 160 BTNBMP FILE CurDir() + "\search.bmp" SIZE 60, 60
@ 96, 20 BTNBMP FILE CurDir() + "\print.bmp" SIZE 60, 60
@ 96, 90 BTNBMP FILE CurDir() + "\setup.bmp" SIZE 60, 60
@ 96, 160 BTNBMP FILE CurDir() + "\star.bmp" SIZE 60, 60
@ 171, 20 BTNBMP FILE CurDir() + "\print.bmp" SIZE 60, 60
@ 171, 90 BTNBMP FILE CurDir() + "\setup.bmp" SIZE 60, 60
@ 171, 160 BTNBMP FILE CurDir() + "\star.bmp" SIZE 60, 60

ACTIVATE WINDOW oWnd ;
ON PAINT oWnd:SayBitmap( 10, 10, oBmp ) ;
ON CLICK MsgInfo("MJCC" + CHR(13) + "Bembibre" + chr(13) +;
"La Coru¤a"+ chr(13)+;
"Telefono 902234568")

oBmp:End()

return 0

Como puedo hacer ahora para haciendo un click en un boton me salga por ejemplo una pantalla de clientes, para cubrir los datos del cliente, o para mostrame un listado con los datos de los clientes para seleccionar uno y que directamente se vaya a la pantalla de ver ficha de cliente.
Teneis algun tutor de ejemplo.
Gracias por vuestra colaboracion.
[/b]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como seguir con mi aplicacion
Posted: Tue Apr 11, 2006 11:29 PM

Manuel,

Revisa el ejemplo samples\clients\client.zip

Usalo como modelo sobre el que construir tu aplicación.

regards, saludos

Antonio Linares
www.fivetechsoft.com

astursoft

Posts: 139

Joined: Sun Nov 06, 2005 06:14 PM

Como seguir con mi aplicacion
Posted: Wed Apr 12, 2006 07:08 AM

en resumen seria :

Code: Select all Collapse

 @ 25, 20 BTNBMP FILE CurDir() + "\users.bmp" SIZE 60, 60 ACTION misclientes()
....
......
....
...


Function misclientes()
 ..........la pantalla de datos de clientes.
...........
Return

De todas maneras lo mas faciles mirar el ejemplo que Antonio te indica

Jose Luis Parajón

Asturias

FiveTech Support Forums

include "FWCE.ch"

Continue the discussion