home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSAQUERY.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  4.8 KB  |  106 lines
  1. <<* MSAQUERY.INC *>>
  2.  
  3. <<procedure GenQueryTable( fieldtotal : integer )>>
  4. <<integer row,col>>
  5. <<begin>>
  6. <<if fieldtotal < 15>>
  7. <<*
  8.          1         2         3         4         5
  9. 12345678901234567890123456789012345678901234576890
  10. ? "│  1. Fieldnames  ││  1. Equal             │
  11. *>>
  12. <<initbuf(18,50)>>
  13. ? "┌─────────────────┐┌───────────────────────┐"
  14. ? "│  #. Field       ││  #. Operators         │"
  15. ? "├─────────────────┤├───────────────────────┤"
  16. ? "│  1.             ││  1. Equal             │"
  17. ? "│  2.             ││  2. Not equal         │"
  18. ? "│  3.             ││  3. Greater than      │"
  19. ? "│  4.             ││  4. Greater or equal  │"
  20. ? "│  5.             ││  5. Less than         │"
  21. ? "│  6.             ││  6. Less or equal     │"
  22. ? "│  7.             ││  7. Contains          │"
  23. ? "│  8.             ││  8. Is Contained in   │"
  24. ? "│  9.             │├───────────────────────┤"
  25. ? "│ 10.             ││  {C} = Connectors     │"
  26. ? "│ 11.             ││───────────────────────│"
  27. ? "│ 12.             ││  ' ' = <exit>         │"
  28. ? "│ 13.             ││  'A' = .AND.          │"
  29. ? "│ 14.             ││  'O' = .OR.           │"
  30. ? "└─────────────────┘└───────────────────────┘"
  31. <<end>>
  32. <<elsif fieldtotal < 29>>
  33. <<*
  34.          1         2         3         4         5         6         7
  35. 1234567890123456789012345678901234567890123457689012345678901234567890
  36. ? "│  1. Fieldnames  15. Fieldnames  ││  1. Equal             │"
  37. *>>
  38. <<initbuf(18,70)>>
  39. ? "┌─────────────────────────────────┐┌───────────────────────┐"
  40. ? "│  #. Field        #. Field       ││  #. Operators         │"
  41. ? "├─────────────────────────────────┤├───────────────────────┤"
  42. ? "│  1.             15.             ││  1. Equal             │"
  43. ? "│  2.             16.             ││  2. Not equal         │"
  44. ? "│  3.             17.             ││  3. Greater than      │"
  45. ? "│  4.             18.             ││  4. Greater or equal  │"
  46. ? "│  5.             19.             ││  5. Less than         │"
  47. ? "│  6.             20.             ││  6. Less or equal     │"
  48. ? "│  7.             21.             ││  7. Contains          │"
  49. ? "│  8.             22.             ││  8. Is Contained in   │"
  50. ? "│  9.             23.             │├───────────────────────┤"
  51. ? "│ 10.             24.             ││  {C} = Connectors     │"
  52. ? "│ 11.             25.             ││───────────────────────│"
  53. ? "│ 12.             26.             ││  ' ' = <exit>         │"
  54. ? "│ 13.             27.             ││  'A' = .AND.          │"
  55. ? "│ 14.             28.             ││  'O' = .OR.           │"
  56. ? "└─────────────────────────────────┘└───────────────────────┘"
  57. <<end>>
  58. <<else>>
  59. <<*
  60.          1         2         3         4         5         6         7
  61. 1234567890123456789012345678901234567890123457689012345678901234567890
  62. ? "│  1. Fieldnames  15. Fieldnames  29. Fieldnames  ││  1. Equal             │"
  63. *>>
  64. <<initbuf(18,80)>>
  65. ? "┌─────────────────────────────────────────────────┐┌───────────────────────┐"
  66. ? "│  #. Field        #. Field        #. Field       ││  #. Operators         │"
  67. ? "├─────────────────────────────────────────────────┤├───────────────────────┤"
  68. ? "│  1.             15.             29.             ││  1. Equal             │"
  69. ? "│  2.             16.             30.             ││  2. Not equal         │"
  70. ? "│  3.             17.             31.             ││  3. Greater than      │"
  71. ? "│  4.             18.             32.             ││  4. Greater or equal  │"
  72. ? "│  5.             19.             33.             ││  5. Less than         │"
  73. ? "│  6.             20.             34.             ││  6. Less or equal     │"
  74. ? "│  7.             21.             35.             ││  7. Contains          │"
  75. ? "│  8.             22.             36.             ││  8. Is Contained in   │"
  76. ? "│  9.             23.             37.             │├───────────────────────┤"
  77. ? "│ 10.             24.             38.             ││  {C} = Connectors     │"
  78. ? "│ 11.             25.             39.             ││───────────────────────│"
  79. ? "│ 12.             26.             40.             ││  ' ' = <exit>         │"
  80. ? "│ 13.             27.             41.             ││  'A' = .AND.          │"
  81. ? "│ 14.             28.             42.             ││  'O' = .OR.           │"
  82. ? "└─────────────────────────────────────────────────┘└───────────────────────┘"
  83. <<end>>
  84. <<endif>>
  85. <<#
  86. row := 1    <<*---Stuff the field names at row,col position---*>>
  87. col := 9
  88. <<*---FORALL condition was set before calling this procedure---*>>
  89. <<*---with SELECT FIELDS ON <exp>---*>>
  90. forall fields
  91.   if forcount <= 42
  92.     @ row+2,col fill fldnam
  93.   endif
  94.   row := row + 1
  95.   if row = 15
  96.     row := 1
  97.     col := col + 16
  98.   endif
  99. endfor
  100. dumpbuf
  101. zapbuf
  102. end <<*GenQueryTable*>>
  103.  
  104. <<* EOF: MSAQUERY.INC *>>
  105. #>>
  106.