home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / graph.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-19  |  1.1 KB  |  56 lines
  1. Option Explicit
  2.  
  3. Global GraphDyn As Object
  4.  
  5. ' routine to draw a simple graph (a value vector & a label vector)
  6. '   SGraph is the graph control
  7. '   rscl is the recordset object (we sugggest using a clone)
  8. '   labeln is the name of the label field
  9. '   valn is the name of the value field
  10. '
  11. ' we assume that the graph control is set up as follows:
  12. '   autoinc off
  13. '
  14. ' we leave the graph visible & drawn if there is data,
  15. '   invisible if there is no data
  16. '
  17. Sub SimpleGraph (SGraph As Control, rscl As Object, labeln As String, valn As String)
  18.  
  19.  Dim i%, nrows%
  20.  
  21.  SGraph.AutoInc = 0
  22.  
  23.  'Figure out how many rows there are
  24.  nrows% = rscl.RecordCount
  25.  
  26.  'Set up for drawing a bar chart
  27.  If nrows% <= 0 Then
  28.   'SGraph.Visible = False  '  no data
  29.  Else
  30.   rscl.DbMoveFirst
  31.   SGraph.NumPoints = nrows%
  32.   For i% = 1 To nrows%
  33.  
  34.    SGraph.ThisPoint = i%
  35.    SGraph.LegendText = rscl.Fields(labeln$)
  36.  
  37.    If Not IsNull(rscl.Fields(valn$)) Then
  38.     SGraph.GraphData = rscl.Fields(valn$)
  39.    Else
  40.     SGraph.GraphData = 0
  41.    End If
  42.  
  43.    rscl.DbMoveNext
  44.  
  45.   Next i%
  46.  
  47.   'SGraph.Visible = True
  48.   SGraph.DrawMode = 2
  49.  End If
  50.  
  51.  Exit Sub
  52.  
  53.  
  54. End Sub
  55.  
  56.