home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / instapop.zip / SURVFORM.FMT < prev    next >
Text File  |  1991-02-17  |  2KB  |  80 lines
  1. ********************************************************************************
  2. *-- Name.......: SURVFORM.FMT
  3. *-- Date.......: 2-17-91
  4. *-- Version....: dBASE IV, Format 1.1
  5. *-- Notes......: Format files use "" as delimiters!
  6. ********************************************************************************
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. *-- Some of these PRIVATE variables are created based on CodeGen and may not 
  11. *-- be used by your particular .fmt file
  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 OFF when you went into the Forms Designer.
  26. IF lc_status = "ON"
  27.    SET STATUS OFF
  28. ENDIF
  29.  
  30.  
  31. lc_carry = SET("CARRY")
  32. *-- Fields to carry forward during APPEND.
  33. SET CARRY TO Log_by ADDITIVE
  34.  
  35.  
  36. *-- @ SAY GETS Processing. -----------------------------------------------------
  37.  
  38. *--  Format Page: 1
  39. @ 1,32 SAY "Important Survey" 
  40. @ 2,0 TO 18,79 DOUBLE 
  41. @ 4,2 SAY "ID #" 
  42. @ 4,7 GET Id PICTURE "999999" ;
  43.    MESSAGE "Enter 6-digit ID #" 
  44. @ 6,1 SAY "──────────────────────────────────────────────────────────────────────────────" 
  45. @ 8,4 SAY "1." 
  46. @ 8,7 GET Q1 PICTURE "9" ;
  47.    WHEN gopopup () 
  48. @ 10,4 SAY "2." 
  49. @ 10,7 GET Q2 PICTURE "9" ;
  50.    WHEN gopopup () 
  51. @ 12,4 SAY "3."
  52. @ 12,7 GET Q3 PICTURE "9" ;
  53.    WHEN gopopup () 
  54. @ 8,23 SAY "4."
  55. @ 8,26 GET Q4 PICTURE "9" ;
  56.    WHEN gopopup () 
  57. @ 10,23 SAY "5." 
  58. @ 10,26 GET Q5 PICTURE "9" ;
  59.    WHEN gopopup () 
  60. @ 12,23 SAY "6." 
  61. @ 12,26 GET Q6 PICTURE "9" ;
  62.    WHEN gopopup () 
  63. @ 14,1 SAY "──────────────────────────────────────────────────────────────────────────────" 
  64. @ 16,2 SAY "Logged by" 
  65. @ 16,12 GET Log_by PICTURE "@! aa" ;
  66.    MESSAGE "Type in your initials" 
  67. *-- Format file exit code -----------------------------------------------------
  68.  
  69. *-- SET STATUS was OFF when you went into the Forms Designer.
  70. IF lc_status = "ON"  && Entered form with status on
  71.    SET STATUS ON     && Turn STATUS "ON" on the way out
  72. ENDIF
  73.  
  74. SET CARRY &lc_carry.
  75. SET CURSOR &lc_cursor.
  76. SET TALK &lc_talk.
  77.  
  78. RELEASE lc_carry,lc_talk,lc_fields,lc_status
  79. *-- EOP: SURVFORM.FMT
  80.