Como seguir con mi aplicacion

[mjcc]

He realizado la siguiente aplicacion.

#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]

Manuel,

Revisa el ejemplo samples\clients\client.zip

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

[astursoft]

en resumen seria :

Code: Select all  Expand view

@ 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