home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP15_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.2 KB  |  53 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP15_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ SELECT ╡─ CREATE TABLE ├ⁿ┴ε╡─╖╢└²               ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. SET ESCAPE OFF
  7. SET SAFETY OFF
  8. CLEAR ALL
  9. CLEAR
  10. DEFINE WINDOW win1 FROM 8,15 TO 12,65 ;
  11.   TITLE "╠ß╩╛┤░" ;
  12.   SHADOW ;
  13.   COLOR SCHEME 7
  14.  
  15. DEFINE WINDOW win2 FROM 01,01 TO 23,78 ;
  16.   FOOTER " ░┤ Ctrl+N ╝ⁿ╝╠╨°╘÷╝╙, ░┤ Ctrl+W ╝ⁿ┤ó┤µ" ;
  17.   TITLE "╩²╛▌▒α╝¡┤░┐┌";
  18.   FLOAT ;
  19.   GROW ;
  20.   SHADOW ;
  21.   DOUBLE;
  22.   ZOOM ;
  23.   COLOR SCHEME 5
  24.  
  25. CREATE TABLE test1 ;
  26.  (NAME C(12), BIRTHDAY D, ADDRESS C(20), ;
  27.   COMPANY C(10), SALARY N(8,2), SEX L, DESCRIPT M)
  28.  
  29. ACTIVATE WINDOW win1
  30. @ 1,6 SAY "  ╩╟╖±╩Σ╚δ╩²╛▌? (Y/N)  " GET ANS ;
  31.       PICTURE "Y" DEFAULT "Y"
  32. READ
  33. IF ANS="N" OR LASTKEY()=27
  34.    DEACTIVATE WINDOW win1
  35.    CLOSE DATABASES
  36.    SET TALK ON
  37.    SET SAFETY ON
  38.    SET ESCAPE ON
  39.    CANCEL
  40. ELSE
  41.    DEACTIVATE WINDOW win1
  42.    ACTIVATE WINDOW win2
  43.    APPEND BLANK
  44.    CHANGE IN WINDOW win2
  45.    DEACTIVATE WINDOW win2
  46. ENDIF
  47. LIST
  48. CLOSE DATABASES
  49. SET TALK ON
  50. SET SAFETY ON
  51. SET ESCAPE ON
  52. RETURN
  53.