home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBFORM.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.2 KB  |  61 lines
  1. <<* SSBFORM.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3. <<#
  4.  
  5. procedure WriteLabels
  6. integer lasthue
  7. begin
  8.   lasthue := 32000
  9.   forall fields
  10. <<*
  11.     if (fldhue <> lasthue)
  12.       genln( 'SET COLOR TO ',AtrCode( fldhue ) )
  13.       lasthue := fldhue
  14.     endif
  15. *>>
  16.     genLABEL
  17.   endfor
  18. end <<*WriteLabels*>>
  19.  
  20.  
  21. procedure GenFormBody
  22. begin
  23.   select all    <<*View all fields in the table*>>
  24.   if ismultipage
  25.     genln( 'DO CASE' )
  26.     forall pages
  27.       genln( 'SET COLOR TO ',AtrCode( fldhue ) )
  28.       if fldtotal > 0
  29.         genln( 'CASE pageno=',pagcount )
  30.         pushmargin( 1 )
  31.         WriteLabels
  32.         popmargin
  33.       endif
  34.     endfor
  35.     genln( 'ENDCASE' )
  36.   else  <<*Single page format*>>
  37.     select page 1
  38.     genln( 'SET COLOR TO ',AtrCode( fldhue ) )
  39.     WriteLabels
  40.   endif
  41. end <<*GenFormBody*>>
  42.  
  43.  
  44. procedure GenFormHead
  45. begin
  46.   GenColor( 0,'SCREEN' )
  47.   genln( 'CLEAR' )
  48.   GenColor( 0,'STATUS' )
  49. #>>
  50. @  0, 0 SAY SPACE(80)
  51. @  0, 0 SAY "╝╟┬╝: "
  52. <<if ismultipage>>
  53. @  0,17 SAY "Page:"
  54. <<endif>>
  55. <<GenColor( 0,'PROMPT' )>>
  56. @ PromptRow-1,0 SAY PromptBar
  57.  
  58. <<end>> <<*GenFormHead*>>
  59.  
  60. <<* EOF: SSBFORM.INC *>>
  61.