home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK006.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  1.3 KB  |  72 lines
  1. PARAMETER GPROMPT,GBAR
  2. IF GBAR <> 8
  3.     STORE SPACE(20) TO GASK
  4. ELSE
  5.     STORE DATE() TO GASK
  6. ENDIF
  7. STORE "╟δ╩Σ╚δ"+SUBSTR(GPROMPT,4,4) TO GPRO
  8. DO G_SCR007.SPR
  9.  
  10. CLOSE DATABASE
  11. SET EXACT OFF
  12.  
  13. IF GBAR = 3 .AND. GASK <> " "
  14.     STORE ALLTRIM(GASK) TO GLOOK
  15.     STORE "dj_yh" TO GFOR
  16.     DO G_CHK001.QPR
  17. ENDIF
  18. IF GBAR = 2 .AND. GASK <> " "
  19.     STORE VAL(GASK) TO GLOOK
  20.     STORE "xh" TO GFOR
  21.     DO G_CHK002.QPR
  22. ENDIF
  23.  
  24. IF GBAR = 4 .AND. GASK <> " "
  25.     STORE ALLTRIM(GASK) TO GLOOK
  26.     STORE "lj_bm" TO GFOR
  27.     DO G_CHK001.QPR
  28. ENDIF
  29.  
  30. IF GBAR = 5 .AND. GASK <> " "
  31.     STORE ALLTRIM(GASK) TO GLOOK
  32.     STORE "lj_xh" TO GFOR
  33.     DO G_CHK001.QPR
  34. ENDIF
  35.  
  36. IF GBAR = 6 .AND. GASK <> " "
  37.     STORE ALLTRIM(GASK) TO GLOOK
  38.     STORE "lj_mc" TO GFOR
  39.     DO G_CHK001.QPR
  40. ENDIF
  41.  
  42. IF GBAR = 7 .AND. GASK <> " "
  43.     STORE ALLTRIM(GASK) TO GLOOK
  44.     STORE "lj_cx" TO GFOR
  45.     IF USED("a")
  46.         SELECT a
  47.         SET ORDER TO 0
  48.     ELSE
  49.         SELECT 0
  50.         USE (LOCFILE("data_5.dbf","DBF","Where is data_5?"));
  51.             AGAIN ALIAS a ;
  52.             ORDER 0
  53.     ENDIF
  54.     LOCATE FOR AT(GLOOK,C_NAME) >0 .OR. AT(GLOOK,E_NAME) > 0
  55.     IF EOF()
  56.         WAIT "╬▐┤╦│╡╨═" WINDOW
  57.     ELSE
  58.         STORE ALLTRIM(C_NAME) TO GLOOK1
  59.         STORE ALLTRIM(E_NAME) TO GLOOK2
  60.         CLOSE DATABASE
  61.         DO G_CHK003.QPR
  62.     ENDIF        
  63. ENDIF
  64.  
  65. IF GBAR = 8
  66.     STORE GASK TO GLOOK
  67.     STORE "lj_xh" TO GFOR
  68.     DO G_CHK004.QPR
  69. ENDIF
  70.  
  71. CLOSE DATABASE
  72. RETURN