Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBFIND.INC < prev next >

Wrap

Text File | 1992-04-01 | 11.6 KB | 481 lines

<<* SSBFIND.INC *>> <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY *>> <<procedure GenBrowseSimple>> <<begin>> <<GenColor( 0,'SCREEN' )>> CLEAR <<GenColor( 0,'STATUS' )>> @ 0,0 SAY SPACE(80) @ 0,0 SAY "╝╟┬╝║┼: " * <<GenColor( 0,'PROMPT' )>> DO PromptBar @ 23,0 SAY "╩²╛▌┐Γ╓╨├╗╙╨╫╓╢╬." WAIT <<end>> <<*GenBrowseSimple*>> <<procedure GenBrowsePrompt>> <<begin>> <<* 1 2 3 4 5 6 0123456789012345678901234567890123456789012345678901234567890123456789 BROWSE: Find Goto <Arrows> <Return> ▓Θ ╤»: E░┤╣╪╝ⁿ╫╓▓Θ╒╥ G░┤╝╟┬╝║┼▓Θ╒╥ ╙├╣Γ▒Ω: í√ í·íⁿí² ╖╡╗╪ <Return> *>> @ rowPROMPT,0 CLEAR @ rowPROMPT+1,0 SAY "▓Θ ╤»: E ░┤╣╪╝ⁿ╫╓▓Θ╒╥ G ░┤╝╟┬╝║┼▓Θ╒╥ "+ ; "╙├╣Γ▒Ω▓Θ╒╥: "+; CHR(27)+' '+CHR(24)+' '+CHR(25)+' '+CHR(26)+" ╖╡╗╪ <Return> " <<GenColor( 1,'HILITE' )>> @ rowPROMPT+1, 9 SAY "F" @ rowPROMPT+1,26 SAY "G" @ rowPROMPT+1,70 SAY "Return" <<GenColor( 1,'PROMPT' )>> <<end>> <<*GenBrowsePrompt*>> <<# procedure GenDoOneDisp string alpha begin if ismultials genln( 'DO CASE' ) forall databases alpha := chr( dbfcount + 64 ) genln( 'CASE dbfarea = "',dbfcount,'"' ) pushmargin( 1 ) if fldtotal > 0 genln( 'DO ',substr(fileprefix,1,7),alpha,'.SPR WITH row,1' ) endif popmargin endfor genln( 'ENDCASE' ) else genln( 'DO ',fileprefix,'D WITH row,1' ) endif end GenDoOneDisp procedure GenDoDisplay string alpha begin if ismultials genln( 'DO CASE' ) forall databases alpha := chr( dbfcount + 64 ) genln( 'CASE dbfarea = "',dbfcount,'"' ) pushmargin( 1 ) if fldtotal > 0 genln( 'DO ',substr(fileprefix,1,7),alpha,'.SPR WITH (rowTOP),skipRECS' ) else GenColor( 0,'SCREEN' ) genln( 'CLEAR' ) GenColor( 0,'STATUS' ) genln( '@ 0,0' ) genln( '@ 0,0 SAY "╬▐╫╓╢╬▒φ..."' ) endif popmargin endfor genln( 'ENDCASE' ) else genln( 'DO ',fileprefix,'D WITH (rowTOP),skipRECS' ) endif end GenDoDisplay #>> <<procedure GenSBFindBody>> <<begin>> PRIVATE pancol,panMAX,panLAST,recnumTOP,recnumLAST,skipRECS PRIVATE HOME,ENDkey,UParrow,DOWNarrow,LEFTarrow,RIGHTarrow PRIVATE row,rowTOP,rowBOTTOM,rowPROMPT,KEYSTROKES,PagePaint PRIVATE isedited,Pagedu * ---Initialize constants. HOME = CHR(1) ENDkey = CHR(6) UParrow = CHR(5) DOWNarrow = CHR(24) LEFTarrow = CHR(19) RIGHTarrow = CHR(4) KEYSTROKES = "EFGLD"+UParrow+DOWNarrow+HOME+LEFTarrow+; RIGHTarrow+ENDkey+PgDn+PgUp+DelRecord+Returnkey <<if ismultials>> rowTOP = 2 <<else>> rowTOP = 1 <<endif>> rowBOTTOM = 20 rowPROMPT = rowBOTTOM + 3 skipRECS = rowBOTTOM - rowTOP + 1 * ---Initialize local variables. row = rowTOP recnum = RECNO() recnumTOP = recnum PagePaint = .T. Pagedu = .T. isedited = .F. pancol = 1 panLAST = 1 <<* <<if ismultials>> DO CASE <<forall databases>> CASE dbfarea = {"}{dbfcount}{"} <<InitBrowse>> panMAX = {panmax} <<endfor>> ENDCASE <<else>> panMAX = {panmax} <<endif>> * ---Perform BROWSE. *>> panMAX = {panmax} <<GenColor( 0,'SCREEN' )>> CLEAR * ---The following loop is really a "REPEAT/UNTIL <cond>". DO WHILE .T. *---SET CURSOR OFF ?? SYS(2002) IF PagePaint recnum = RECNO() GOTO recnumTOP <<if ismultials>> <<GenColor( 2,'HILITE' )>> <<select database 1>> <<filespec( dbfnam,fpath,fname,fext )>> <<fname := fpath[1]>> @ 0,0 SAY {"}{fname}:{"} + DBFname <<endif>> <<pushmargin( 2 )>> <<GenDoDisplay>> <<popmargin>> GOTO recnum IF pancol = panLAST .AND. Pagedu * ---Reposition record pointer when repainting current page. row = rowTOP ENDIF panLAST = pancol PagePaint = .F. ENDIF <<GenColor( 1,'PROMPT' )>> DO PromptBar <<GenBrowsePrompt>> @ row,0 SAY CHR(16) DO GetKey WITH choice,KEYSTROKES * ---Reposition record pointer. DO WHILE choice $ UParrow+DOWNarrow @ row,0 SAY " " IF choice = UParrow SKIP -1 DO CASE CASE BOF() GOTO TOP CASE row > rowTOP row = row - 1 CASE row = rowtop IF .NOT. BOF() GOTO recnumTOP SKIP -skipRECS IF BOF() GOTO TOP ENDIF recnumTOP = RECNO() PagePaint = .T. Pagedu = .T. ENDIF EXIT OTHERWISE ENDCASE ELSE SKIP DO CASE CASE EOF() GOTO BOTTOM CASE row < rowBOTTOM row = row + 1 CASE row = rowBOTTOM IF .NOT. EOF() GOTO recnumTOP SKIP skipRECS IF EOF() GOTO BOTTOM ENDIF recnumTOP = RECNO() PagePaint = .T. Pagedu = .T. EXIT ENDIF OTHERWISE ENDCASE ENDIF @ row,0 SAY CHR(16) DO GetKey WITH choice,KEYSTROKES ENDDO * ---Prompt line selections. DO CASE CASE choice = Returnkey EXIT CASE choice = "F" ?? SYS(2002,1) * ---Find a record. <<select all databases>> <<if ndxtotal = 0>> DO SayLine WITH rowPROMPT,"*** ├╗╙╨╦≈╥²╬─╝■" WAIT <<elsif ismultindx>> DO {fileprefix}X WITH rowPROMPT,choice IF choice > "0" recnumLAST = RECNO() DO {fileprefix}Z WITH rowPROMPT IF EOF() DO SayLine WITH rowPROMPT,"├╗╒╥╡╜." WAIT GOTO recnumLAST ELSE recnumTOP = RECNO() PagePaint = .T. ENDIF ENDIF <<else>> recnumLAST = RECNO() DO {fileprefix}Z WITH rowPROMPT IF EOF() DO SayLine WITH rowPROMPT,"├╗╒╥╡╜." WAIT GOTO recnumLAST ELSE recnumTOP = RECNO() PagePaint = .T. ENDIF <<endif>> CASE choice = "G" DO DoGOTO WITH rowPROMPT,recnum,LastRec IF recnum > 0 recnumTOP = RECNO() PagePaint = .T. ENDIF CASE choice = PgDn IF .NOT. EOF() GOTO recnumTOP SKIP skipRECS IF EOF() GOTO BOTTOM ENDIF recnumTOP = RECNO() PagePaint = .T. Pagedu = .T. ENDIF CASE choice = PgUp IF .NOT. BOF() GOTO recnumTOP SKIP -skipRECS IF BOF() GOTO TOP ENDIF recnumTOP = RECNO() PagePaint = .T. Pagedu = .T. ENDIF CASE choice = "L" * ---Set FILTER. <<GenColor( 2,'WINDOW' )>> @ 1,0 CLEAR <<select database 8>> <<*Is SELECT H being used?*>> <<if dbfnam>> <<*Yes, then use old <expr> system...*>> DO {fileprefix}V WITH expr <<else>> <<*No, use new and improved...*>> DO {fileprefix}C WITH expr,notes <<endif>> IF "" = TRIM( expr ) SET FILTER TO ELSE * ---Check for valid LOGICAL expression. IF TYPE( expr ) = "L" SET FILTER TO &expr ELSE <<GenColor( 4,'PROMPT' )>> @ rowPROMPT,0 CLEAR @ rowPROMPT,0 SAY "╬▐╨º▒φ┤∩╩╜." WAIT ENDIF ENDIF GOTO TOP IF EOF() <<GenColor( 3,'PROMPT' )>> @ rowPROMPT,0 CLEAR @ rowPROMPT,0 SAY "├╗╙╨╞Ñ┼Σ╡─╝╟┬╝" WAIT SET FILTER TO GOTO TOP ENDIF recnumTOP = RECNO() PagePaint = .T. <<GenColor( 2,'SCREEN' )>> CLEAR CASE choice = HOME PagePaint = (pancol <> 1) pancol = 1 CASE choice = LEFTarrow IF pancol > 1 pancol = pancol - 1 PagePaint = .T. ENDIF CASE choice = RIGHTarrow IF pancol < panMAX pancol = pancol + 1 PagePaint = .T. ENDIF CASE choice = ENDkey PagePaint = (pancol <> panMAX) pancol = panMAX ENDCASE ENDDO SET FILTER TO GOTO TOP * ---SET CURSOR OFF ?? SYS(2002) <<end>> <<*GenSBFindBody*>> <<procedure GenBrowseDBU>> <<begin>> PRIVATE recnumTOP,recnumLAST,skipRECS PRIVATE row,rowTOP,rowBOTTOM,rowPROMPT,KEYSTROKES,PagePaint PRIVATE isedited PRIVATE filterSAVE rowPROMPT = 23 isedited = .F. filterSAVE = "" DO WHILE .T. * ---BUILD THE SCREEN <<GenColor( 2,'SCREEN' )>> @ 2,0 SAY "├" @ 2,79 SAY "┤" @ 2,1 SAY REPLICATE("─",78) <<GenColor( 2,'PROMPT' )>> @ rowPROMPT,0 CLEAR <<GenBrowsePrompt>> <<GenColor( 2,'SCREEN' )>> DBEDIT(3,1,22,78,.T.,"VGBROW",.T.,.T.,.T.,.T.,"═╧═") STORE UPPER(CHR(LASTKEY())) TO CHOICE DO CASE CASE choice = Returnkey EXIT CASE choice = "E" recnumLAST = RECNO() SET FILTER TO SAVE SCREEN DO {fileprefix}_EDIT WITH isedited * ---Restore FILTER. IF "" <> TRIM( filterSAVE ) SET FILTER TO &filterSAVE GOTO TOP ENDIF IF recnumLAST = RECNO() .AND. .NOT. isedited RESTORE SCREEN ELSE * ---Redisplay the screen. <<GenColor( 3,'SCREEN' )>> CLEAR GOTO recnumLAST * ---Do not reposition record pointer. panLAST = 0 PagePaint = .T. ENDIF CASE choice = "F" * ---Find a record. <<select all databases>> <<if ndxtotal = 0>> DO SayLine WITH rowPROMPT,"*** ╡▒╟░╩²╛▌┐Γ╬▐╦≈╥²╬─╝■" WAIT <<elsif ismultindx>> DO {fileprefix}X WITH rowPROMPT,choice IF choice > "0" recnumLAST = RECNO() DO {fileprefix}Z WITH rowPROMPT IF EOF() DO SayLine WITH rowPROMPT,"├╗╒╥╡╜." WAIT GOTO recnumLAST ELSE recnumTOP = RECNO() PagePaint = .T. ENDIF ENDIF <<else>> recnumLAST = RECNO() DO {fileprefix}Z WITH rowPROMPT IF EOF() DO SayLine WITH rowPROMPT,"├╗╒╥╡╜." WAIT GOTO recnumLAST ELSE recnumTOP = RECNO() PagePaint = .T. ENDIF <<endif>> CASE choice = "G" DO DoGOTO WITH rowPROMPT,recnum,LastRec IF recnum > 0 recnumTOP = RECNO() PagePaint = .T. ENDIF CASE choice = DelRecord * ---Delete the record. IF DELETED() RECALL ELSE DELETE ENDIF <<if ismultials>> panLAST = 0 PagePaint = .T. <<*Display the whole thing*>> <<else>> <<endif>> CASE choice = "L" * ---Set FILTER. <<GenColor( 2,'WINDOW' )>> @ 1,0 CLEAR <<select database 8>> <<*Is SELECT H being used?*>> <<if dbfnam>> <<*Yes, then use old <expr> system...*>> DO {fileprefix}V WITH expr <<else>> <<*No, use new and improved...*>> DO {fileprefix}C WITH expr <<endif>> IF "" = TRIM( expr ) SET FILTER TO filterSAVE = "" ELSE SET FILTER TO &expr filterSAVE = expr ENDIF GOTO TOP IF EOF() <<GenColor( 3,'PROMPT' )>> @ rowPROMPT,0 CLEAR @ rowPROMPT,0 SAY "╬▐╞Ñ┼Σ╝╟┬╝." WAIT SET FILTER TO filterSAVE = "" GOTO TOP ENDIF recnumTOP = RECNO() PagePaint = .T. <<GenColor( 2,'SCREEN' )>> CLEAR ENDCASE ENDDO SET FILTER TO GOTO TOP <<end>> <<*GenBrowseDBU*>> <<* EOF: SSBFIND.INC *>>