home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBREXP.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  2.2 KB  |  170 lines
  1. ** ╔·│╔╠µ╗╗▒φ┤∩╩╜  DBREXP.PRG **
  2. @ 1,0 CLEAR
  3. SET  DELI OFF
  4. SELE 10
  5. USE TAA
  6. SET FILT TO FIELD_TYPE<>'M'
  7. GO TOP
  8. HS=25
  9. LS=5
  10. MAX1=0
  11. MAX2=0
  12. HJ=''
  13. HHJ=''
  14. COUNT TO MAX
  15. GO TOP
  16. N=0
  17. SET DEVI TO SCRE
  18. @ 1,0
  19. T=.T.
  20. DO WHILE T
  21. @ 2,0 CLEAR
  22. I=2
  23. J=0
  24. N1=N+1
  25. DO WHILE .NOT. EOF()
  26. N=N+1
  27. @ I,J*15 SAY STR(N,2)+'.'+TRIM(C_NAME)
  28. J=J+1
  29. IF J=LS
  30. I=I+1
  31. J=0
  32. ENDIF
  33. IF I=HS-6
  34. EXIT
  35. ENDIF
  36. SKIP
  37. ENDDO
  38. DO WHILE .T.
  39. @ HS-5,1 SAY '╡▒╟░╨▐╕─▒φ┤∩╩╜╬¬: '+HHJ
  40. @ 1,7 SAY '╤í╘±▓╬╙δ╘╦╦π╡─╩²╛▌╧ε║┼:Enter_═╦│÷ PgUp_╟░▓Θ PgDn_║≤▓Θ:  '
  41. DO WHILE .T.
  42. @ 1,60 SAY ':'
  43. YN=INKEY(0)
  44. IF YN>48.AND.YN<58.OR.YN=13.OR.YN=3.OR.YN=18.OR.YN=27
  45. EXIT
  46. ENDIF
  47. ?? CHR(7)
  48. ENDDO
  49. @ 1,0 SAY SPACE(7)
  50. @ 1,63 SAY SPACE(16)
  51. DO CASE
  52. CASE YN=27
  53. CLOS DATA
  54. RETU TO MAST
  55. CASE YN=18
  56. IF N1=1
  57. LOOP
  58. ENDIF
  59. IF N1<LS*HS+1
  60. N=0
  61. ELSE
  62. N=N1-LS*HS+1
  63. ENDIF
  64. GO TOP
  65. SKIP N
  66. EXIT
  67. CASE YN=3
  68. IF N=MAX
  69. LOOP
  70. ENDIF
  71. SKIP
  72. EXIT
  73. CASE YN=13
  74. IF LEN(HJ)=0
  75. LOOP
  76. ENDIF
  77. T=.F.
  78. EXIT
  79. OTHER
  80. DO WHILE .T.
  81. @ 1,61 SAY CHR(YN)
  82. YN1=INKEY(0)
  83. IF YN1>47.AND.YN<58.OR.YN1=13.OR.YN1=127.OR.YN1=19.OR.YN1=27
  84. EXIT
  85. ENDIF
  86. ??CHR(7)
  87. ENDDO
  88. IF YN1=27
  89. CLOS DATA
  90. RETU TO MAST
  91. ENDIF
  92. IF YN1=127.OR.YN1=19
  93. LOOP
  94. ENDIF
  95. IF YN1=13
  96. YN1=' '
  97. ELSE
  98. YN1=CHR(YN1)
  99. @ 1,62 SAY YN1
  100. ENDIF
  101. YN=CHR(YN)
  102. IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
  103. @ 1,63 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
  104. @ 1,3 SAY '╓╪╨┬'
  105. LOOP
  106. ENDIF
  107. GO TOP
  108. SKIP &YN.&YN1.-1
  109. IF FIELD_LEN-FIELD_DEC-1>MAX1
  110. MAX1=FIELD_LEN-FIELD_DEC-1
  111. ENDIF
  112. IF FIELD_DEC>MAX2
  113. MAX2=FIELD_DEC
  114. ENDIF
  115. HHJ=HHJ+'+ '+TRIM(C_NAME)
  116. IF HHJ='+'
  117. HHJ=SUBS(HHJ,2)
  118. ENDIF
  119. HJ=HJ+'+'+TRIM(FIELD_NAME)
  120. ENDCASE
  121. ENDDO
  122. ENDDO
  123. MAX0=MAX1+1+MAX2
  124. IF MAX0/2.0<>INT(MAX0/2)
  125. MAX0=MAX0+1
  126. ENDIF
  127. LJ=0
  128. @ 1,0
  129. @ 1,0 SAY '╨Φ╥¬╨▐╕─▒φ┤∩╩╜┬≡?[0-▓╗╥¬/1-╨Φ╥¬]:' GET LJ PICT '9' RANG 0,1
  130. READ
  131. IF TYPE(HJ)<>FT
  132. @ HS-4,20 SAY '└α╨═▓╗╖√!!'
  133. LJ=1
  134. ENDIF
  135. IF LEN(HJ)>100
  136. HJ=SUBS(HJ,2,101)
  137. @ HS-4,0 SAY '▒φ┤∩╩╜│¼│ñ!!!'
  138. LJ=1
  139. ELSE
  140. HJ=SUBS(HJ,2)+SPACE(100-LEN(HJ)+1)
  141. ENDIF
  142. K=0
  143. DO WHILE LJ=1
  144. @ HS-3,0 SAY '╟δ╨▐╕─:' GET HJ
  145. READ
  146. *IF K=0
  147. *I=1
  148. *DO WHILE I<=FNA(6)
  149. *J=STR(I,1)
  150. *SELE &J
  151. *FN=FNA((I-1)*3+8)
  152. *USE &FN
  153. *I=I+1
  154. *ENDDO
  155. *K=1
  156. *ENDIF
  157. IF TYPE(HJ)<>FT
  158. ?? '▒φ┤∩╩╜╖╟'+SUBS('╫╓╖√╨═╩²╫╓╨═╚╒╞┌╨═┬▀╝¡╨═',(AT(FT,'CNDL')-1)*6+1,6)
  159. LOOP
  160. ENDIF
  161. *SELE 10
  162. EXIT
  163. ENDDO
  164. HJ=TRIM(LTRIM(HJ))
  165. SET FILT TO
  166. GO TOP
  167. RETU
  168. ** END OF DBREXP.PRG **
  169.  
  170.