home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GH.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.5 KB  |  143 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. use gh index gh1
  6. a1=.t.
  7. do while a1
  8. clear
  9. @ 4,10 say "********************╧╡═│╡─╬¼╗ñ**********************"
  10. @ 5,10 say "   ú░ú«═╦│÷                  ú▒ú«╣⌐╗⌡╡Ñ╬╗╡─╘÷╝╙"
  11. @ 6,10 say "   ú▓ú«╣⌐╗⌡╡Ñ╬╗╡─╨▐╕─        ú│ú«╣⌐╗⌡╡Ñ╬╗╡─╔╛│²"
  12. @ 7,10 say "   ú┤ú«┐╜▒┤│÷╚δ┐Γ┴≈╦«╒╩      ú╡ú«╔╛│²│÷╚δ┐Γ┴≈╦«╒╩"
  13. @ 8,10 say "****************************************************"
  14. wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5):' to w
  15. do case 
  16. case w='0'
  17. retu
  18. case w='1'
  19. clear
  20. c='   '
  21. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get c pict '999'
  22. read
  23. c=val(c)
  24. do while c<>0
  25. clear 
  26. a='  '
  27. b='                '
  28. a3=.t.
  29. do while a3
  30. clear
  31. @ 3,1 say "╣⌐╗⌡╡Ñ╬╗▒α║┼" get a
  32. @ 4,1 say "╣⌐╗⌡╡Ñ╬╗├√│╞" get b
  33. read
  34. wait '╟δ╤í╘±ú║ú╥╖╡╗╪ú¼ú┌╩²╛▌╒²╚╖ú╗ú╞╫≈╖╧ú╗ú╪╓╪╨▐╕─ú║' to p
  35. do case         
  36. case p='r'
  37. exit
  38. case p='f'
  39. c=c+1
  40. exit
  41. case p='x'
  42. loop
  43. case p='z'
  44. appe blank
  45. repl gh1 with a,gh2 with b
  46. exit
  47. endcase 
  48. enddo a3
  49. c=c-1
  50. enddo
  51. case w='2'
  52. a1=.t.
  53. do while a1
  54. clear
  55. d='  '
  56. @ 4,10 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get d
  57. read
  58. seek d
  59. if eof()
  60. clear
  61. @ 4,10 say "╬▐┤╦╡Ñ╬╗,░┤╚╬╥Γ╝ⁿ╖╡╗╪"
  62. wait '   ' to q
  63. exit
  64. endif
  65. a2=.t.
  66. do while a2
  67. clear 
  68. k1=gh1
  69. k2=gh2
  70. @ 4,1 say "╡Ñ╬╗▒α║┼" get k1
  71. @ 5,1 say "╡Ñ╬╗├√│╞" get k2
  72. read
  73. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
  74. if p<>'y'
  75. loop
  76. endif
  77. exit
  78. enddo a2
  79. repl gh1 with k1,gh2 with k2
  80. wait '╗╣╨▐╕─┬≡(Y/N)' to p
  81. if p<>'y'
  82. exit
  83. else 
  84. a1=.t.
  85. endif
  86. enddo a1
  87. case w='3'
  88. a1=.t.
  89. do while a1
  90. clear
  91. e='  '
  92. @ 4,10 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get e
  93. read
  94. seek e
  95. if eof()
  96. @ 4,10 say "╬▐┤╦╡Ñ╬╗,░┤╚╬╥Γ╝ⁿ╖╡╗╪"
  97. wait '   ' to q
  98. exit
  99. endif
  100. k1=gh1
  101. k2=gh2
  102. clear 
  103. @ 4,1 say "╡Ñ╬╗▒α║┼" get k1
  104. @ 5,1 say "╡Ñ╬╗├√│╞" get k2
  105. wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡(Y/N)' to p
  106. if p='y'
  107. a=recno()
  108. dele reco a
  109. pack
  110. endif
  111. wait '╗╣╔╛│²┬≡(Y/N)' to p
  112. if p='y'
  113. loop
  114. endif
  115. exit
  116. enddo a1
  117. case w='4'
  118. clear
  119. wait '╟δ╜½│÷╚δ┐Γ┴≈╦«╒╩┼╠▓σ╚δú┴╟²╢»╞≈ú¼╫╝▒╕║├║≤░┤╚╬╥Γ╝ⁿ╝┤┐╔' to q
  120. close database
  121. copy file cr.dbf to a:cr.dbf
  122. case w='5'
  123. clear
  124. f='        '
  125. @ 4,10 say "╟δ╩Σ╚δ╓╒╓╣╚╒╞┌" get f pict '99.99.99'
  126. read
  127. @ 6,10 say "╒µ╥¬╔╛│²"+f+"╚╒╥╘╟░╡─╩²╛▌┬≡(Y/N)" 
  128. wait '     ' to q
  129. if q='y'
  130. use cr
  131. j1=substr(f,4,2)
  132. j2=substr(f,7,2)
  133. j3=substr(f,1,2)
  134. f=j1+'/'+j2+'/'+j3
  135. f=ctod(f)
  136. dele all for f>=l2    
  137. pack
  138. endif
  139. endcase 
  140. a1=.t.
  141. enddo a1
  142. retu
  143.