home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / CONDFND1.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  5.7 KB  |  192 lines
  1. *  ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *  ⌐ª      Program: CONDIFND.PRG                                         ⌐ª
  3. *  ⌐ª     Function: ╠⌡╝■╝∞╦≈╖╢└²╥╗                                       ⌐ª
  4. *  ⌐ª        Proce: DISPLAY.PRG                                          ⌐ª
  5. *  ⌐ª   DBF & File: PERSONAL.DBF                                         ⌐ª
  6. *  ⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET SAFETY OFF
  8. SET STATUS OFF
  9. SET TALK   OFF
  10. SET DATE   ANSI
  11.  
  12. SET COLOR TO W/N
  13. CLEAR
  14. PUBLIC MYWORD
  15. PRIVATE A2J , A3J , A4J , A5J , A9J , A13J , A14J , A20J , A21J , A22J , A23J
  16. PRIVATE COND1 , COND2 , COND3 , COND4 , COND41 , COND5 , COND4N
  17. PRIVATE COND6 , COND7 , COND8 , COND9 , COND10
  18. PRIVATE VA , VA1 , LENVA , LENVA1
  19. STORE .T. TO LOOP1
  20. AA2 =  SPACE(16)
  21. AA3 =  SPACE(10)
  22. AA4 =  SPACE(10)
  23. AA13 = SPACE(10)
  24. AA14 = SPACE(10)
  25. AA20 = SPACE(10)
  26. AA21 = SPACE(10)
  27. AA22 = SPACE(6)
  28. AA23 = SPACE(10)
  29.  
  30. DO WHILE LOOP1
  31.   STORE SPACE(20) TO A2J
  32.   STORE SPACE(20) TO A3J
  33.   STORE SPACE(20) TO A4J
  34.   STORE SPACE(20) TO A5J
  35.   STORE SPACE(20) TO A9J
  36.   STORE SPACE(20) TO A13J
  37.   STORE SPACE(20) TO A14J
  38.   STORE SPACE(20) TO A20J
  39.   STORE SPACE(20) TO A21J
  40.   STORE SPACE(20) TO A22J
  41.   STORE SPACE(20) TO A23J
  42.   STORE SPACE(200) TO A
  43.  
  44.   SET COLOR TO 7/1,7/4
  45.   @ 4 , 12 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
  46.   @ 5 , 12 SAY "⌐ª         ╝∞  ╦≈  ╠⌡  ╝■         ⌐ª"
  47.   @ 6 , 12 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
  48.   @ 7 , 12 SAY "⌐ª ╡Ñ    ╬╗:                      ⌐ª"
  49.   @ 8 , 12 SAY "⌐ª ▓┐    ├┼:                      ⌐ª"
  50.   @ 9 , 12 SAY "⌐ª ┤ª    ╩╥:                      ⌐ª"
  51.   @ 10, 12 SAY "⌐ª ╨╒    ├√:                      ⌐ª"
  52.   @ 11, 12 SAY "⌐ª ─Ω    ┴Σ:                      ⌐ª"
  53.   @ 12, 12 SAY "⌐ª ╡│╒■╓░╬±:                      ⌐ª"
  54.   @ 13, 12 SAY "⌐ª ╫¿╥╡╓░╬±:                      ⌐ª"
  55.   @ 14, 12 SAY "⌐ª ╦∙╤º╫¿╥╡:                      ⌐ª"
  56.   @ 15, 12 SAY "⌐ª ┤╙╩┬╣ñ╫≈:                      ⌐ª"
  57.   @ 16, 12 SAY "⌐ª ╦∙╤º═Γ╙∩:                      ⌐ª"
  58.   @ 17, 12 SAY "⌐ª ═Γ╙∩│╠╢╚:                      ⌐ª"
  59.   @ 18, 12 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
  60.  
  61.   SET CURSOR ON
  62.   DBNAME="DICFIL02"
  63.   DO GETLIST
  64.   SELECT 1
  65.   A2J = MYWORD
  66.   @ 7 , 25 SAY A2J
  67.   @ 7 , 25 GET A2J PICTURE "XXXXXXXXXXXXXXXX"
  68.  
  69.   DBNAME="DICFIL03"
  70.   DO GETLIST
  71.   SELECT 1
  72.   A3J = MYWORD
  73.   @ 8 , 25 SAY A3J
  74.   @ 8 , 25 GET A3J PICTURE "XXXXXXXXXX"
  75.  
  76.   DBNAME="DICFIL04"
  77.   DO GETLIST
  78.   SELECT 1
  79.   A4J = MYWORD
  80.   @ 9 , 25 SAY A4J
  81.   @ 9 , 25 GET A4J PICTURE "XXXXXXXXXX"
  82.   @ 10 , 25 GET A5J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  83.   @ 11 , 25 GET A9J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  84.  
  85.   DBNAME="DICFIL13"
  86.   DO GETLIST
  87.   SELECT 1
  88.   A13J = MYWORD
  89.   @12 , 25 SAY A13J
  90.   @12 , 25 GET A13J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  91.  
  92.   DBNAME="DICFIL14"
  93.   DO GETLIST
  94.   SELECT 1
  95.   A14J = MYWORD
  96.   @13 , 25 SAY A14J
  97.   @13 , 25 GET A14J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  98.  
  99.   DBNAME="DICFIL20"
  100.   DO GETLIST
  101.   SELECT 1
  102.   A20J = MYWORD
  103.   @14 , 25 SAY A20J
  104.   @14 , 25 GET A20J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  105.   READ
  106.  
  107.   DBNAME="DICFIL21"
  108.   DO GETLIST
  109.   SELECT 1
  110.   A21J = MYWORD
  111.   @15 , 25 SAY A21J
  112.   @15 , 25 GET A21J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  113.  
  114.   DBNAME="DICFIL22"
  115.   DO GETLIST
  116.   SELECT 1
  117.   A22J = MYWORD
  118.   @16 , 25 SAY A22J
  119.   @16 , 25 GET A22J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  120.  
  121.   DBNAME="DICFIL23"
  122.   DO GETLIST
  123.   SELECT 1
  124.   A23J = MYWORD
  125.   @17 , 25 SAY A23J
  126.   @17 , 25 GET A23J PICTURE "XXXXXXXXXXXXXXXXXXXX"
  127.   READ
  128.  
  129.   A2J  = TRIM(A2J)
  130.   A3J  = TRIM(A3J)
  131.   A4J  = TRIM(A4J)
  132.   A5J  = TRIM(A5J)
  133.   A9J  = TRIM(A9J)
  134.   A13J = TRIM(A13J)
  135.   A14J = TRIM(A14J)
  136.   A20J = TRIM(A20J)
  137.   A21J = TRIM(A21J)
  138.   A22J = TRIM(A22J)
  139.   A23J   = TRIM(A23J)
  140.   COND1  =IIF(LEN(A2J)<>0,  "A2='&A2J' .AND.","")
  141.   COND1N =IIF(LEN(A2J)<>0,  "╡Ñ╬╗='&A2J' .AND.","")
  142.   COND2  =IIF(LEN(A3J)<>0,  "A3='&A3J' .AND.","")
  143.   COND2N =IIF(LEN(A3J)<>0,  "▓┐├┼='&A3J' .AND.","")
  144.   COND3  =IIF(LEN(A4J)<>0,  "A4='&A4J' .AND.","")
  145.   COND3N =IIF(LEN(A4J)<>0,  "┤ª╩╥='&A4J' .AND.","")
  146.   COND4  =IIF(LEN(A9J)<>0,  "(YEAR(DATE())-YEAR(A9))&A9J .AND.","")
  147.   COND4N =IIF(LEN(A9J)<>0,  "─Ω┴Σ&A9J .AND.","")
  148.   COND41 =IIF(LEN(A5J)<>0,  "A5='&A5J' .AND.","")
  149.   COND41N=IIF(LEN(A5J)<>0,  "╨╒├√='&A5J' .AND.","")
  150.   COND5  =IIF(LEN(A13J)<>0, "A13='&A13J'.AND.","")
  151.   COND5N =IIF(LEN(A13J)<>0, "╡│╒■╓░╬±='&A13J'.AND.","")
  152.   COND6  =IIF(LEN(A14J)<>0, "A14='&A14J'.AND.","")
  153.   COND6N =IIF(LEN(A14J)<>0, "╫¿╥╡╓░╬±='&A14J'.AND.","")
  154.   COND7  =IIF(LEN(A20J)<>0, "A20='&A20J'.AND.","")
  155.   COND7N =IIF(LEN(A20J)<>0, "╦∙╤º╫¿╥╡='&A20J'.AND.","")
  156.   COND8  =IIF(LEN(A21J)<>0, "A21='&A21J'.AND.","")
  157.   COND8N =IIF(LEN(A21J)<>0, "┤╙╩┬╣ñ╫≈='&A21J'.AND.","")
  158.   COND9  =IIF(LEN(A22J)<>0, "A22='&A22J'.AND.","")
  159.   COND9N =IIF(LEN(A22J)<>0, "╦∙╤º═Γ╙∩='&A22J'.AND.","")
  160.   COND10 =IIF(LEN(A23J)<>0, "A23='&A23J'.AND.","")
  161.   COND10N=IIF(LEN(A23J)<>0, "═Γ╙∩│╠╢╚='&A23J'.AND.","")
  162.   VA ="&COND1"+"&COND2"+"&COND3"+"&COND4"+"&COND41" +"&COND5"+"&COND6"+"&COND7"+"&COND8"+"&COND9"+"&COND10"
  163.   VA1="&COND1N"+"&COND2N"+"&COND3N"+"&COND4N"+"&COND41N"+"&COND5N"+"&COND6N"+"&COND7N"+"&COND8N"+"&COND9N"+"&COND10N"
  164.   LENVA = LEN(VA)
  165.   LENVA1 = LEN(VA1)
  166.   IF RIGHT(VA,5)=".AND."
  167.     VA = SUBSTR(VA,1,LENVA-5)
  168.     VA1 = SUBSTR(VA1,1,LENVA1-5)
  169.   ENDIF
  170.   STORE " " TO LOOP2
  171.   DEFINE WINDOW find FROM 7,0 TO 17, 79 COLOR SCHEME 5
  172.   ACTIVATE WINDOW find
  173.   @ 1, 2 SAY "▓Θ╤»╠⌡╝■╬¬:"
  174.   @ 3, 5 SAY VA1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  175.   @ 6, 2 SAY "╟δ╝∞▓Θ╦∙╩Σ╚δ▓Θ╤»╠⌡╝■╩╟╖±╒²╚╖?(Y/N)" GET LOOP2 PICTURE "L"
  176.   READ
  177.   DEACTIVATE WINDOW find
  178.   IF UPPER(LOOP2)="Y"
  179.     STORE .F. TO LOOP1
  180.   ENDIF
  181.   SET COLOR TO 7
  182.   CLEAR
  183. ENDDO
  184. SET COLOR TO 7
  185. IF LEN(A)<>0
  186.    USE PERSONAL
  187.    INDEX ON A1 TO PERSTEMP  FOR &VA
  188. ENDIF
  189. DO DISPLAY
  190. SET COLOR TO 7
  191. RETURN
  192.