home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / CLIPPER / LNGMUL.ZIP / CLIENT.PRG < prev    next >
Text File  |  1994-02-09  |  6KB  |  160 lines
  1. *------------------------------------------------------------------------
  2. *-Client.prg
  3. *------------------------------------------------------------------------
  4.  
  5. /*
  6.   ██████████████████████ LngMulti Version 1.1 ██████████████████████████
  7.   │                                                                    │░
  8.   │┌┬┬┬┬┬┬┬┬┬┐ File       : Client.prg                                 │░
  9.   │├┼┼┼┼ ┼┼┼┼┤ Description: Demo of embeded multilingual capabilities  │░
  10.   │├┼┼┼ █ ┼┼┼┤                                                         │░
  11.   │├┼┼  █  ┼┼┤ Author     : Marc Gagnon Copyright (c) 1993-1994        │░
  12.   │├┼   █   ┼┤              All rights reserved (CIS 71175,437)        │░
  13.   │├    ■    ┤                                                         │░
  14.   │└┴┴┴┴┴┴┴┴┴┘ Licence    : Freeware (use and distribute freely,       │░
  15.   │                         provided that credits and copyright        │░
  16.   │                         notices always appear in this file.        │░
  17.   │                                                                    │░
  18.   └────────────────────────────────────────────────────────────────────┘░
  19.     ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  20. */
  21.  
  22. #INCLUDE "LngMulti.ch"  // Place before CH's with linguistic expressions
  23. #INCLUDE "InKey.ch"
  24.  
  25. *------------------------------------------------------------------------
  26. FUNCTION Client()
  27.  
  28.   LOCAL lnKey
  29.  
  30.   SET DATE FORMAT TO IN ENGLISH "MM/DD/YY"                              ;
  31.                      IN FRENCH  "DD/MM/YY"                              ;
  32.                      IN SPANISH "YY.MM.DD"
  33.  
  34.  
  35.   USE Client EXCLUSIVE
  36.  
  37.   Welcome()
  38.  
  39.   DO WHILE LastKey() # K_ESC
  40.  
  41.      Form()
  42.  
  43.      lnKey := InKey( 0 )
  44.  
  45.      DO CASE
  46.         CASE lnKey == K_UP   .OR. lnKey == K_PGUP
  47.              Client->( dbSkip( -1 ) )
  48.  
  49.         CASE lnKey == K_DOWN .OR. lnKey == K_PGDN
  50.              IF Client->( RecNo() ) < Client->( LastRec() )
  51.                 Client->( dbSkip(  1 ) )
  52.              ENDIF
  53.      ENDCASE
  54.  
  55.   ENDDO
  56.  
  57.   Bye()
  58.  
  59. RETURN( NIL )
  60.  
  61.  
  62. *------------------------------------------------------------------------
  63. STATIC FUNCTION Welcome()
  64.  
  65.   CLS
  66.  
  67.   ? IN ENGLISH "Welcome to the multiligual client management system"    ;
  68.     IN FRENCH  "Bienvenu au système de gestion de clients multilingue"  ;
  69.     IN SPANISH "Bienvendos al systema multilinguas de gestiòn de los clientes"
  70.   ?
  71.   ?
  72.   ? ( IN ENGLISH "Press any key to continue"                            ;
  73.       IN FRENCH  "Appuyez sur une touche pour continuer"                ;
  74.       IN SPANISH "Apretar la tecla para continuar"                      ;
  75.     ) + "..."
  76.  
  77.   Inkey( 0 )
  78.  
  79.   CLS
  80.  
  81. RETURN( NIL )
  82.  
  83.  
  84. *------------------------------------------------------------------------
  85. STATIC FUNCTION Bye()
  86.  
  87.   CLS
  88.   ? IN ENGLISH "Thank you, see you next time!"                          ;
  89.     IN FRENCH  "Merci, à la prochaine!"                                 ;
  90.     IN SPANISH "Gracias, hasta la proxima!"
  91.  
  92.   ?
  93.   ? "LngMulti.ch v1.1 : Marc Gagnon (c) 1993-94 (CIS 71175,437)"
  94.   ?
  95. RETURN( NIL )
  96.  
  97.  
  98. *------------------------------------------------------------------------
  99. STATIC FUNCTION Form()
  100.  
  101.  LOCAL GetList := {}
  102.  
  103.  @  0, 0 SAY PadC( IN ENGLISH "Client form"                             ;
  104.                    IN FRENCH  "Dossier client"                          ;
  105.                    IN SPANISH "Fichero cliente",                        ;
  106.                    80                                                   ;
  107.                  )                                                      ;
  108.              COLOR "W+/B"
  109.  
  110.  @  2, 0 SAY IN ENGLISH "Client #:"                                     ;
  111.              IN FRENCH  "Nº client  :"                                  ;
  112.              IN SPANISH "Nº cliente:"                                   ;
  113.          GET Client->cCode
  114.  
  115.  @  3, 0 SAY IN ENGLISH "Name    :"                                     ;
  116.              IN FRENCH  "Nom        :"                                  ;
  117.              IN SPANISH "Nombre    :"                                   ;
  118.          GET Client->cName
  119.  
  120.  @  4, 0 SAY IN ENGLISH "Address :"                                     ;
  121.              IN FRENCH  "Adresse    :"                                  ;
  122.              IN SPANISH "Direccion :"                                   ;
  123.          GET Client->cAddr
  124.  
  125.  @  5, 0 SAY IN ENGLISH "City    :"                                     ;
  126.              IN FRENCH  "Ville      :"                                  ;
  127.              IN SPANISH "Ciudad    :"                                   ;
  128.          GET Client->cCity
  129.  
  130.  @  6, 0 SAY IN ENGLISH "State   :"                                     ;
  131.              IN FRENCH  "Province   :"                                  ;
  132.              IN SPANISH "Estado    :"                                   ;
  133.          GET Client->cState
  134.  
  135.  @  7, 0 SAY IN ENGLISH "Country :"                                     ;
  136.              IN FRENCH  "Pays       :"                                  ;
  137.              IN SPANISH "Paìs      :"                                   ;
  138.          GET Client->cCtry
  139.  
  140.  @  8, 0 SAY IN ENGLISH "Zip     :"                                     ;
  141.              IN FRENCH  "Code post  :"                                  ;
  142.              IN SPANISH "Code post :"                                   ;
  143.          GET Client->cZip
  144.  
  145.  @ 10, 0 SAY IN ENGLISH "Phone   :"                                     ;
  146.              IN FRENCH  "Téléphone  :"                                  ;
  147.              IN SPANISH "Telefono  :"                                   ;
  148.          GET Client->cPhone
  149.  
  150.  @ 12, 0 SAY IN ENGLISH "Birth   :"                                     ;
  151.              IN FRENCH  "Naissance  :"                                  ;
  152.              IN SPANISH "Nacimiento:"                                   ;
  153.          GET Client->dBirth
  154.  
  155.  @ MaxRow(), 0 SAY IN ENGLISH "<PageUp>-Previous  <PageDown>-Next  <Esc>-Quit"      ;
  156.                    IN FRENCH  "<PageUp>-Précédent  <PageDown>-Suivant <Esc>-Quitter";
  157.                    IN SPANISH "<PageUp>-Anterior  <PageDown>-Siguente  <Esc>-Salir"
  158.  
  159. RETURN( NIL )
  160.