Mike
Fri Mar 14 14:38:04 CDT 2008
Here are some notes I have embedded in a Visual Foxpro program I have
created.
Creating Graph Using MS Graph
**********************************************************************
** Create a Table(Cursor)with a general field (ie OleGph).
**
** Create a OLE control on a Form (ie oleMsGph).
**
** Create a string (cGphHdr) with the field headings followed by
** a tab. The final field is followed by a carriage-return and not a tab.
**
** cTab = Chr(9)
** cCr = Chr(13)+Chr(10)
** cGphHdr = ''
** cGphHdr = 'FieldA'+cTab+'FieldB'+cTab+'FieldC'+cCr
**
** Create a string (cGphDta) with the data to be graphed. Each
** field is seperated by a tab, except for the final field,
** which is seperated by a carriage-return.
**
** cGphDta = ''
** cGphDta = cGphDta +;
** FieldA+cTab+FieldB+cTab+FieldC+cCr
**
** Create a title string for the graph if one is desired.
**
** cGphTitle = 'My Title'
** ThisForm.oleMsGph.HasTitle = .T.
** ThisForm.oleMsGph.ChartTitle.Caption = cGphTitle
**
** Append the graph header (cGphHdr) and data strings (cGphDta)
** to the control on the form. In Version 5, this statement
** must appear twice.
**
** APPEND GENERAL GphCsr.OleGph DATA cGphHdr + cGphDta
** [APPEND GENERAL GphCsr.OleGph DATA cGphHdr + cGphDta]
** FLUSH
**
** MS Graph can be called within Foxpro via:
** Thisform.oleMsGph.DoVerb(-1)
** ThisForm.oleMsGph.DoVerb(-2)
**
**********************************************************************
"Patrick Tura" <patrick@kff.ph> wrote in message
news:F67D4205-1847-4C24-B39D-4ABC9D82699F@microsoft.com...
> Hi!
>
> I have a freetable called 'cperformance.dbf'' which contain field
> gname,fname,collection.
>
> I have this in a form with a grid, displaying ' Fname, Gname,Collection'.
> This freetable display the staff collection performance
> in numbers but it would also be very nice to display the figure in Graph?
>
> Anybody, can share me your sample code of creating a GRAPH and print them?
>
> Any assistance is very much appreciated.
>
> /patrick