home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CJG.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  66 lines
  1.         ******│╔╝¿╕ⁿ╕─╡╟╝╟(CJG)*****
  2. CLEAR
  3. SELECT B
  4. USE B:AC6&Z INDEX B:IBAC6&Z
  5. FIND &SHA1
  6. MBIN=BIN
  7. MMING=MING
  8. X=SUBSTR(MBIN,1,2)
  9. STORE .T. TO T2
  10. STORE " " TO XZ
  11. STORE "  " TO MKH,BAN
  12. STORE " " TO YES
  13. STORE "                    " TO MKM
  14. @ 1,15 SAY "╟δ╕°│÷╤º╓╞┤·║┼: (╚²─Ω╫¿┐╞--Z, ╚²─Ω▒╛┐╞--B, ╬σ─Ω▒╛┐╞--W)" ì
  15. GET XZ
  16. @ 2,15 SAY "╟δ╕°│÷░α▒≡┤·║┼:" GET BAN
  17. @ 3,15 SAY "╟δ╕°│÷╕ⁿ╕─┐╞─┐╡─┐╞─┐▒α║┼: " GET MKH
  18. @ 4,15 SAY "╗≥╕°│÷╕ⁿ╕─┐╞─┐╡─├√╫╓: " GET MKM
  19. READ
  20. SELECT A
  21. KM6="K"+Z+X+XZ+BAN+".DBF"
  22. IF .NOT.FILE("B:&KM6")
  23.    WAIT "╩Σ╚δ▓╗╢╘,╒╥▓╗╡╜╬─╝■,░┤╚╬╥╗╝ⁿ═╦│÷!"
  24.    CLEAR
  25.    RETURN
  26.  ENDIF
  27. USE B:&KM6
  28.   IF VAL(MKH)<10
  29.   MKH="0"+SUBSTR(MKH,1,1)
  30.   ENDIF
  31. LOCATE FOR KH=MKH .OR. KM=MKM
  32. STORE .T. TO T2
  33. DO WHILE T2
  34.   MKM=KM
  35.   MKH=KH
  36.   CLEAR
  37.   @ 1,20 SAY "**********│╔╝¿╕ⁿ╕─**********"
  38.   @ 2,22 SAY "&MBIN"+"    "+"&MMING"
  39.   @ 3,22 SAY "╡┌"+STR(XQ,2)+"╤º╞┌"
  40.   @ 3,34 SAY "┐╞─┐▒α║┼ :"+"&MKH"
  41.   @ 4,22 SAY "&MKM"
  42.   SELECT B
  43.   @ 5,22 SAY "┐╝▓Θ│╔╝¿: " GET A&MKH
  44.   @ 6,22 SAY "┐╝╩╘│╔╝¿: " GET B&MKH
  45.   @ 7,22 SAY "╫▄╞└│╔╝¿: " GET C&MKH
  46.   @ 8,22 SAY "╩Σ╚δ╒²╚╖┬≡ ?(Y/N)" GET YES
  47.   READ
  48.     IF UPPER(YES)<>"Y"
  49.        CLEAR
  50.        SELECT A
  51.        LOOP
  52.     ENDIF
  53.     YES1=" "     
  54.     CLEAR
  55.      @ 4,22 SAY "╝╠╨°╕ⁿ╕─╧┬╥╗├┼│╔╝¿┬≡(Y/N)≈? " GET YES1è     READ
  56.      IF UPPER(YES1)="Y"
  57.         SELECT A
  58.         SKIP+1
  59.         IF EOF()
  60.            EXIT
  61.         ENDIF
  62.         LOOP
  63.      ENDIF
  64.      STORE .F. TO T2    
  65.    ENDDO
  66. RETURN