home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / olaptble / _setup.1 / ACODemo1.vbs < prev    next >
Encoding:
Text File  |  1998-03-20  |  2.6 KB  |  77 lines
  1. ' Demo Script ACODemo1.Vbs
  2. '
  3. ' Alpha Centauri - March 1998
  4. ' ---------------------------
  5.  
  6. Dim etFlat    ' EdgeType Constant
  7. Dim tsSpace    ' ThousandsSep Constant
  8. Dim lbShort    ' Labels Constant
  9. Dim trHigh    ' Threshold Constant
  10. Dim trMiddle    ' Threshold Constant
  11. Dim trLow    ' Threshold Constant
  12.  
  13. ' Set Constants
  14. etRaised = 0
  15. tsSpace  = 0
  16. lbShort  = 0
  17. trHigh   = 0
  18. trMiddle = 1
  19. trLow    = 2
  20.  
  21. ' Connect to Personal Express and open the ACODemo Database
  22. Call ACOTable.Connect(False)
  23. Call ACOTable.Open("C:\PROGRA~1\ACOTABLE\ACODEMO", True)
  24.  
  25. ACOTable.AutoRefresh = FALSE
  26.  
  27. ' Remove previously selected Measures
  28. Call ACOTable.RemoveAllMeasures()
  29.  
  30. ' Set General Measure Properties
  31. ACOTable.Decimals     = 0
  32. ACOTable.ThousandsSep = tsSpace
  33. ACOTable.EdgeTypeDown = etRaised
  34. ACOTable.FontColor    = 255*256*256
  35.  
  36. ' Add the following measures to the table 
  37. Call ACOTable.AddMeasure("ACTUALS")
  38. Call ACOTable.AddMeasure("BUDGET")
  39. Call ACOTable.AddMeasure("VARIANCE")
  40.  
  41. ' Set Labels for the measures
  42. Call ACOTable.SetMeasLabel("ACTUALS", lbShort, "Actuals")
  43. Call ACOTable.SetMeasLabel("BUDGET", lbShort, "Budget")
  44. Call ACOTable.SetMeasLabel("VARIANCE", lbShort, "Variance %")
  45.  
  46. ' Set specific properties for the measure VARIANCE
  47. Call ACOTable.SetMeasUseDisplayFormat("VARIANCE", TRUE)
  48. Call ACOTable.SetMeasUseMeasureFormat("VARIANCE", TRUE)
  49. Call ACOTable.SetMeasSuffix("VARIANCE", " %")
  50. Call ACOTable.SetMeasDecimals("VARIANCE",2)
  51.  
  52. ' Set ThresholdCoding Properties for VARIANCE
  53. Call ACOTable.SetMeasUseThresholdCoding("VARIANCE", TRUE)
  54. Call ACOTable.SetMeasThreshold("VARIANCE",trHigh, 5)
  55. Call ACOTable.SetMeasThreshold("VARIANCE",trLow, -5)
  56. Call ACOTable.SetMeasThresholdFontColor("VARIANCE",trHigh, 0 + 160*256 + 0)
  57. Call ACOTable.SetMeasThresholdFontColor("VARIANCE",trMiddle, 0 + 0 + 0)
  58. Call ACOTable.SetMeasThresholdFontColor("VARIANCE",trLow, 0 + 0 + 255)
  59. Call ACOTable.SetMeasThresholdFillColor("VARIANCE",trHigh, 229*256*256 + 229*256 + 229)
  60. Call ACOTable.SetMeasThresholdFillColor("VARIANCE",trMiddle, 229*256*256 + 229*256 + 229)
  61. Call ACOTable.SetMeasThresholdFillColor("VARIANCE",trLow, 229*256*256 + 229*256 + 229)
  62.  
  63. ' Set selections for TIME & GEOGRAPHY
  64. Call ACOTable.SetSelection("TIME", 0, "Lmt TIME To T0.RangeOfMonth; Limit TIME keep Last 7")
  65. Call ACOTable.SetSelection("GEOGRAPHY", 1)
  66. Call ACOTable.SetSelection("PRODUCT", 1)
  67.  
  68. ' Move TIME to the Across Edge
  69. Call ACOTable.ChangeEdge("TIME", 1)
  70. ' Rotate GEOGRAPHY and PRODUCT
  71. Call ACOTable.Rotate("PRODUCT","GEOGRAPHY")
  72.  
  73. ACOTable.AutoRefresh = TRUE
  74.  
  75. Call MsgBox("Four-dimensional data table with colour coding on Variance.", _
  76.     64, "ACOTable DemoScript 1")
  77.