home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / moss.zip / SEARCH.PRG < prev    next >
Text File  |  1986-05-29  |  1KB  |  51 lines
  1. fn=1
  2. fnu=0
  3. public donn,aa,de
  4. clear
  5. e=0
  6. tr=.f.
  7. don=0
  8. COND=".T."
  9. CLEAR
  10. ?"Use the arrow keys to move to fields you wish to match, and enter characters" 
  11. ?" to match.  You may search on up to 3 fields. Upper or lower case is fine."
  12. store "           " to f38,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,F15,F16,F17,F18,F19
  13. store "------------------------------" to li
  14. store "<PgDn> or <Ctrl><End> to start search" to b
  15. @ 24,15 say "  " get b
  16. clear gets
  17. do while fn<20
  18. fie="f"+ltrim(str(fn,2))
  19.  
  20.  @ fn+3,23 say left(field(fn)+"        ",9) get &fie
  21.  fn=fn+1
  22. enddo
  23. @ 3,21 to 23,50 double
  24. read
  25. if len(trim(f1+f2+f3+f4+f5+f6+f7+f8+f9+f10+f11+f12+f13+f14+f15+F16+F17+F18+F19))<1 
  26.  e=1
  27. donn=1
  28.  loop
  29. endif
  30. fa=1
  31. do while fa<20
  32.  de=.f.
  33.  fie="f"+ltrim(str(fa,2))
  34.  fiz=trim(chr(34)+&fie+chr(34))
  35.  if len(trim(&fie))>0
  36.   fiel=field(fa)
  37.  con="con"+ltrim(str(fa,2))
  38.  &con=upper(trim(&fiz))
  39.  
  40.   on error do lerror 
  41.    store &con$upper(&fiel) to tr  
  42.  if .not. de 
  43.  cond=cond+".and. &con$upper(&fiel)"
  44.  endif  
  45. on error 
  46. endif 
  47. fa=fa+1
  48. enddo
  49. FILT="SELECTED "
  50. RETURN
  51.