home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / CONTACT.FMT < prev    next >
Encoding:
Text File  |  1993-05-18  |  2.4 KB  |  66 lines
  1. ********************************************************************************
  2. *-- Naam.......: CONTACT.FMT
  3. *-- Datum......: 20-04-93
  4. *-- Versie.....: dBASE IV
  5. *-- Notities...: indelingsbestanden gebruiken "" als scheidingstekens!
  6. ********************************************************************************
  7.  
  8. *-- Initiatiecode indelingsbestand ---------------------------------------------
  9.  
  10. *-- Een aantal private variabelen zijn gemaakt op basis van CodeGen en zijn
  11. *-- niet geschikt voor uw .fmt-bestand
  12. PRIVATE lc_talk, lc_cursor, lc_display, lc_status, lc_carry, lc_proc,;
  13.         ln_typeahd, gc_cut
  14.  
  15. IF SET("TALK") = "ON"
  16.    SET TALK OFF
  17.    lc_talk = "ON"
  18. ELSE
  19.    lc_talk = "OFF"
  20. ENDIF
  21. lc_cursor = SET("CURSOR")
  22. SET CURSOR ON
  23.  
  24. lc_status = SET("STATUS")
  25. *-- SET STATUS was AAN bij het starten van het formulierprogramma.
  26. IF lc_status = "OFF"
  27.    SET STATUS ON
  28. ENDIF
  29.  
  30.  
  31. *-- Verwerking van @ SAY GET's. -----------------------------------------------------
  32.  
  33. *--  Indelen pagina: 1
  34. @ 2,26 SAY "     DATABASE: NAMEN     " COLOR g/n 
  35. *-- Rekenveld: Datum - 
  36. @ 2,59 SAY DATE() COLOR g/b 
  37. @ 4,9 TO 18,68 DOUBLE COLOR gr+/n 
  38. @ 7,11 GET Achternaam PICTURE "XXXXXXXXXXXXXXXXX" COLOR gr+/bg,gr+/bg 
  39. @ 7,32 GET Telefoon PICTURE "XXXXXXXXXXXXX" ;
  40.    MESSAGE "Vergeet het netnummer niet!" ;
  41.    COLOR gr+/bg,gr+/bg 
  42. @ 11,30 TO 15,66 DOUBLE 
  43. @ 12,32 GET Voornaam PICTURE "XXXXXXXX" COLOR g+/gr,g+/gr 
  44. @ 12,40 SAY " " COLOR g+/gr 
  45. @ 12,41 GET Achternaam PICTURE "XXXXXXXXXXXXXXXXXXXX" COLOR g+/gr,g+/gr 
  46. @ 13,32 GET Adres PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" COLOR g+/gr,g+/gr 
  47. @ 14,32 GET Postcode PICTURE "9999 AA" COLOR g+/gr,g+/gr 
  48. @ 14,39 SAY "  " COLOR g+/gr 
  49. @ 14,41 GET Woonplaats PICTURE "XXXXXXXXXXXXXXXXXXX" COLOR g+/gr,g+/gr 
  50. @ 14,60 SAY " (" COLOR g+/gr 
  51. @ 14,62 GET Provincie PICTURE "XX" COLOR g+/gr,g+/gr 
  52. @ 14,64 SAY ")" COLOR g+/gr 
  53. @ 18,11 SAY "Zakelijke relatie? " 
  54. @ 18,30 GET Zakelijk PICTURE "L" COLOR b/bg,b/bg 
  55. *-- Indelingsbestand verlaten -------------------------------------------------
  56.  
  57. *-- SET STATUS was AAN bij het starten van het formulierprogramma.
  58. IF lc_status = "OFF"  && Ingevuld formulier met STATUS UIT
  59.    SET STATUS OFF     && STATUS uitschakelen bij het verlaten van het formulierprogrammaen van het formulierprogramma
  60. ENDIF
  61. SET CURSOR &lc_cursor.
  62. SET TALK &lc_talk.
  63.  
  64. RELEASE lc_talk,lc_fields,lc_status
  65. *-- EOP: CONTACT.FMT
  66.