home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TUTOR08.PRG < prev    next >
Text File  |  1994-06-04  |  3KB  |  111 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Tutorial
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //
  5. //  Contruir con BUILD Tutor08
  6. //----------------------------------------------------------------------------//
  7.  
  8. // Ejemplos de utilización de tablas
  9.  
  10. #include "FiveWin.ch"
  11.  
  12. static oWnd
  13.  
  14. //----------------------------------------------------------------------------//
  15.  
  16. function Main()
  17.  
  18.    DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
  19.       TITLE OemToAnsi( "Utilización de Browse" ) ;
  20.       MENU PreparaMenu()
  21.  
  22.    SET MESSAGE OF oWnd ;
  23.       TO OemToAnsi( "FiveWin 1.5 - La revolución xBase" )
  24.  
  25.    ACTIVATE WINDOW oWnd MAXIMIZED
  26.  
  27. return nil
  28.  
  29. //----------------------------------------------------------------------------//
  30.  
  31. function PreparaMenu()
  32.  
  33.    local oMenu
  34.  
  35.    MENU oMenu
  36.       MENUITEM OemToAnsi( "&Información" )
  37.       MENU
  38.          MENUITEM "&Acerca de..." ;
  39.             ACTION MsgInfo( OemToAnsi( "Tutorial de FiveWin" + Chr( 13 ) + ;
  40.                             "(c) A.Linares, F.Pulpón, 1993" ) ) ;
  41.             MESSAGE OemToAnsi( "Información acerca de este programa" )
  42.          SEPARATOR
  43.          MENUITEM "&Terminar..."  ;
  44.             ACTION If( MsgYesNo( OemToAnsi( "¿ Desea terminar ?" ) ),;
  45.                        oWnd:End(),) ;
  46.             MESSAGE OemToAnsi( "Terminar la ejecución de este programa" )
  47.       ENDMENU
  48.  
  49.       MENUITEM "&Ficheros"
  50.       MENU
  51.          MENUITEM   "&Clientes..."           ;
  52.             ACTION  Clientes() ;
  53.             MESSAGE OemToAnsi( "Mantenimiento de Clientes" )
  54.  
  55.          MENUITEM   OemToAnsi( "&Almacén" ) ;
  56.             ACTION  MsgInfo( OemToAnsi( "Control del Almacén" ) ) ;
  57.             MESSAGE OemToAnsi( "Control del Almacén" )
  58.       ENDMENU
  59.  
  60.       MENUITEM "&Utilidades"
  61.       MENU
  62.          MENUITEM "&Calculadora..." ;
  63.             ACTION WinExec( "Calc" ) ;
  64.             MESSAGE "Llamar a la calculadora de Windows"
  65.  
  66.          MENUITEM "C&alendario..." ;
  67.             ACTION WinExec( "Calendar" ) ;
  68.             MESSAGE "Llamar al calendario de Windows"
  69.  
  70.          MENUITEM "&Jugar un poco..." ;
  71.             ACTION WinExec( "Sol" ) ;
  72.             MESSAGE "A las cartas..."
  73.       ENDMENU
  74.    ENDMENU
  75.  
  76. return oMenu
  77.  
  78. //----------------------------------------------------------------------------//
  79.  
  80. function Clientes()
  81.  
  82.    if ! File( "clientes.dbf" )
  83.       DbCreate( "Clientes.dbf", { { "Nombre",    "C", 40, 0 },;
  84.                                   { "Direccion", "C", 50, 0 },;
  85.                                   { "Telefono",  "C", 12, 0 },;
  86.                                   { "Edad",      "N",  2, 0 },;
  87.                                   { "Productos", "C", 10, 0 },;
  88.                                   { "Nivel",     "N",  2, 0 } } )
  89.    endif
  90.    
  91.    USE Clientes
  92.    if RecCount() == 0
  93.       APPEND BLANK
  94.    endif
  95.    INDEX ON Nombre TO CliNombr
  96.    SET INDEX TO CliNombr
  97.    GO TOP
  98.  
  99.    Browse( "Control de Clientes", "Datos de los Clientes",;
  100.            { || MsgInfo( "Nuevo" ) },;
  101.            { || MsgInfo( "Modifica" ) },;
  102.            { || MsgInfo( "Elimina" ) },;
  103.            { || MsgInfo( "Busca" ) },;
  104.            { || MsgInfo( "Imprimir" ) } )
  105.  
  106.    USE
  107.  
  108. return nil
  109.  
  110. //----------------------------------------------------------------------------//
  111.