home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
moss
/
search.prg
< prev
next >
Wrap
Text File
|
1986-05-28
|
1KB
|
51 lines
fn=1
fnu=0
public donn,aa,de
clear
e=0
tr=.f.
don=0
COND=".T."
CLEAR
?"Use the arrow keys to move to fields you wish to match, and enter characters"
?" to match. You may search on up to 3 fields. Upper or lower case is fine."
store " " to f38,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,F15,F16,F17,F18,F19
store "------------------------------" to li
store "<PgDn> or <Ctrl><End> to start search" to b
@ 24,15 say " " get b
clear gets
do while fn<20
fie="f"+ltrim(str(fn,2))
@ fn+3,23 say left(field(fn)+" ",9) get &fie
fn=fn+1
enddo
@ 3,21 to 23,50 double
read
if len(trim(f1+f2+f3+f4+f5+f6+f7+f8+f9+f10+f11+f12+f13+f14+f15+F16+F17+F18+F19))<1
e=1
donn=1
loop
endif
fa=1
do while fa<20
de=.f.
fie="f"+ltrim(str(fa,2))
fiz=trim(chr(34)+&fie+chr(34))
if len(trim(&fie))>0
fiel=field(fa)
con="con"+ltrim(str(fa,2))
&con=upper(trim(&fiz))
on error do lerror
store &con$upper(&fiel) to tr
if .not. de
cond=cond+".and. &con$upper(&fiel)"
endif
on error
endif
fa=fa+1
enddo
FILT="SELECTED "
RETURN