Liren Large Software Subsidy 5

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

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

Wrap

Text File | 1992-04-01 | 6.9 KB | 284 lines

<<* SSBEDIT.INC *>> <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY *>> <<procedure GenSBEditBody>> <<integer menutotal>> <<begin>> PARAMETER isedited PRIVATE row,lastpage,editchoice,ndxchoice,menuchoice PRIVATE IsBlank,IsUnique <<select all>> <<if LiteBar and (pagtotal > 2) and Fox>> PRIVATE pagechoice <<endif>> row = PromptRow expr = "" STORE .F. TO isedited,IsBlank,IsUnique <<if ismultials>> <<GenPrivateFlds( 0 )>> <<endif>> DO {fileprefix}F DO SayRec <<# if LiteBar and Fox menutotal := 8 if ismultials menutotal := menutotal + 1 endif if ismultipage menutotal := menutotal + 1 endif if feat(featlabel) menutotal := menutotal + 1 endif genln( 'menuchoice = ',menutotal ) endif #>> editchoice = "*" ndxchoice = "*" menuchoice = 0 * ---Loop until {{}Return} is pressed. * ---The following loop is really a "REPEAT/UNTIL <cond>". DO WHILE .T. <<GenColor( 1,'PROMPT' )>> IF .NOT. (editchoice $ "NP"+DelRecord) @ row,0 CLEAR ENDIF SET COLOR TO &promptatr @ 22, 0 CLEAR TO 22, 79 SET MESSAGE TO 24 @ 23, 2 PROMPT "1.╨▐╕─" MESSAGE SPACE(4); + '╢╘ ╡▒ ╟░ ╝╟ ┬╝ ╜° ╨╨ ╨▐ ╕─' @ 23, 10 PROMPT "2.▓Θ╒╥" MESSAGE SPACE(4); + '╩Σ ╚δ ╥¬ ▓Θ ╒╥ ╝╟ ┬╝ ╡─ ╣╪ ╝ⁿ ╫╓' @ 23, 18 PROMPT "3.╠°╫¬" MESSAGE SPACE(4); + '╩Σ ╚δ ╥¬ ╠° ╫¬ ╡╜ ╡─ ╝╟ ┬╝ ║┼' @ 23, 26 PROMPT "4.╠⌡╝■▓Θ╤»" MESSAGE SPACE(4); + '╢¿ ╥σ ╠⌡ ╝■, ╕∙ ╛▌ ╠⌡ ╝■ ▓Θ ╒╥ ╧α ╙ª ╡─ ╝╟ ┬╝' @ 23, 38 PROMPT "5.╔╛│²" MESSAGE SPACE(4); + '╢╘ ╡▒ ╟░ ╝╟ ┬╝ ╫÷ ╔╛ │² ▒Ω ╝╟' @ 23, 46 PROMPT "6.╧┬╠⌡╝╟┬╝" MESSAGE SPACE(4); + '╖¡ ╡╜ ╧┬ ╥╗ ╕÷ ╝╟ ┬╝' @ 23, 58 PROMPT "7.╔╧╠⌡╝╟┬╝" MESSAGE SPACE(4); + '╖¡ ╡╜ ╔╧ ╥╗ ╕÷ ╝╟ ┬╝' @ 23, 70 PROMPT "8.╖╡╗╪" MESSAGE SPACE(4); + '╖╡ ╗╪ ╡╜ ╔╧ ╥╗ ╝╢ ▓╦ ╡Ñ' MENU TO menuchoice editchoice=SUBSTR("EEFGL"+delrecord+"NP"+returnkey,menuchoice+1,1) <<* pushmargin(1) if ismultipage EditLitePage else EditLiteOne endif popmargin *>> * ---SET CURSOR OFF ?? SYS(2002) DO CASE CASE editchoice = Returnkey EXIT CASE editchoice = "F" * ---Find a record. ?? SYS(2002,1) <<select all databases>> <<if ndxtotal = 0>> DO SayLine WITH row,"*** ╡▒╟░╩²╛▌┐Γ├╗╙╨╦≈╥²╬─╝■." WAIT @ row,0 CLEAR <<elsif ismultindx>> DO {fileprefix}X WITH row,ndxchoice IF ndxchoice > "0" oldrecnum = RECNO() DO {fileprefix}Z WITH row IF EOF() DO SayLine WITH row,"├╗╙╨▓Θ╡╜." WAIT GOTO oldrecnum ELSE DO SayRec ENDIF ENDIF <<else>> oldrecnum = RECNO() DO {fileprefix}Z WITH row IF EOF() DO SayLine WITH row,"├╗╙╨▓Θ╡╜." WAIT GOTO oldrecnum ELSE DO SayRec ENDIF <<endif>> <<* <<if feat(featlabel)>> CASE editchoice = "O" * ---Print one label/record. <<if AutoMem>> DO {fileprefix}T <<endif>> <<pushmargin( 2 )>> <<GenOutputItems>> <<popmargin>> <<endif>> *>> CASE editchoice = "N" * ---Next record. oldrecnum = RECNO() SKIP IF EOF() DO SayEOF WITH row,oldrecnum ELSE DO SayRec ENDIF CASE editchoice = "P" * ---Previous record. oldrecnum = RECNO() SKIP -1 IF BOF() DO SayEOF WITH row,oldrecnum ELSE DO SayRec ENDIF CASE editchoice = "E" * ---Edit the record. isedited = .T. <<if AutoMem>> DO {fileprefix}T <<endif>> <<if ismultipage>> lastpage = pageno DO {fileprefix}A IF pageno <> lastpage DO {fileprefix}F DO SayRec lastpage = pageno ENDIF DO WHILE .T. DO SayLine WITH row+1,'╟δ╨▐╕─╝╟┬╝...' IF pageno = lastpage DO {fileprefix}K WITH expr,IsBlank,IsUnique * ---If you don't want the user to edit the * ---key fields, then delete this IF structure. ENDIF DO {fileprefix}G DO Page WITH pageno,1,PageMax DO {fileprefix}F <<if AutoMem>> IF pageno = lastpage EXIT ENDIF DO SayRec ENDDO DO {fileprefix}R DO SayRec <<else>> DO SayRec IF pageno = lastpage EXIT ENDIF ENDDO <<endif>> <<else>> <<*single page format*>> DO SayLine WITH row+1,'╟δ╨▐╕─╝╟┬╝...' * ---If you don't want the user to edit the * ---key fields, then delete the following line. DO {fileprefix}K WITH expr,IsBlank,IsUnique DO {fileprefix}G <<if AutoMem>> DO {fileprefix}R <<endif>> <<endif>> <<*single page format*>> <<if ismultipage>> <<select all>> <<if LiteBar and (pagtotal > 2) and Fox>> CASE editchoice = PgDn <<pushmargin( 2 )>> <<GenPageItems>> <<popmargin>> <<else>> CASE editchoice = PgDn DO Page WITH pageno,1,PageMax DO {fileprefix}F DO SayRec CASE editchoice = PgUp DO Page WITH pageno,-1,PageMax DO {fileprefix}F DO SayRec <<endif>> <<endif>> CASE editchoice = "L" * ---Locate a record. <<GenColor( 2,'WINDOW' )>> @ 1,0 CLEAR <<select database 8>> <<*Is SELECT H being used?*>> DO {fileprefix}V WITH expr <<if ismultipage>> DO {fileprefix}F <<else>> DO {fileprefix}F <<endif>> DO SayRec IF "" <> TRIM( expr ) * ---Check for valid LOGICAL expression. IF TYPE( expr ) = "L" DO DoLOCATE WITH row,expr ELSE <<GenColor( 4,'PROMPT' )>> @ row,0 CLEAR @ row,4 SAY "╠⌡ ╝■ ▒φ ┤∩ ╩╜ ▓╗ ╒² ╚╖." WAIT ENDIF ENDIF CASE editchoice = "G" * ---Goto a record. DO DoGOTO WITH row,recnum,LastRec IF recnum > 0 DO SayRec ENDIF <<if LiteBar and Fox>> menuchoice = 3 <<endif>> CASE editchoice = DelRecord * ---Delete the record. isedited = .T. IF DELETED() RECALL ELSE DELETE ENDIF DO StatLine WITH RECNO(),DELETED() <<if ismultials>> CASE editchoice = "S" * ---Select database file. <<# pushmargin( 2 ) GenPrivateFlds( 1 ) popmargin #>> <<if ismultipage>> lastpage = pageno DO {fileprefix}U WITH row,choice IF lastpage = pageno DO StatLine WITH RECNO(),DELETED() ELSE DO {fileprefix}F DO SayRec ENDIF <<else>> DO {fileprefix}U WITH row,choice DO StatLine WITH RECNO(),DELETED() <<endif>> <<# pushmargin( 2 ) GenPrivateFlds( 0 ) popmargin #>> <<endif>> ENDCASE ENDDO <<end>> <<*GenSBEditBody*>> <<*EOF: SSBEDIT.INC*>>