Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MS Graph in Application
Message
 
To
10/12/2004 22:14:00
Aaron K. Y. Chu
Health & Care Co. Ltd.
Hong Kong, Hong Kong
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
MySQL
Miscellaneous
Thread ID:
00965336
Message ID:
00968487
Views:
8
Hi Aaron,

Check out the sample of MS Graph given in solution.app.
Find enclosed with the code which is used to make a graph of the hits on web-sites.
IF !USED('graph')
	Use Graph In 0 Alias Graph shared again
ENDIF


#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL lcData

select DtoC(Hitdate) rdccode,Unique_Hits totComp from RsMonthDateWiseHits INTO CURSOR Wtemp1
SELECT wtemp1

SELECT TOP 32 * FROM Wtemp1 ORDER BY RDCCODE INTO CURSOR Wtemp

IF _TALLY > 255
	Messagebox("Graph supports a maximum of 255 items."+chr(13)+"Please refine critera.",0+64+0,"Diotek Infotech")
	RETURN
ENDIF

#DEFINE CAP_LOC ""
SELECT wtemp
lcData = " " + TAB + CAP_LOC + CRLF

SCAN
 lcData = lcData + ALLTRIM(wtemp.rdccode)
 lcData = lcData + TAB
 lcData = lcData + ALLTRIM(STR(wtemp.totcomp)) + CRLF
ENDSCAN

SELECT Graph
APPEND GENERAL msgraph DATA lcData
SELECT Graph
Replace Graph.Title WITH "Date Wise Unique Hits"

IF USED('Wtemp1')
	USE IN Wtemp1
ENDIF

IF !empty(OldAlias)
	SELECT &OldAlias
ENDIF
this.parent.olbMSGraph.controlSource='Graph.MsGraph'
>Would you kindly elaborate more?
>
>How can I include MS Graph.ocx in my project?
>
>&
>
>How could I pass the data to MS Graph?
>
>
>Thanks in advance
--
--
Aashish Sharma
Tele Nos: +1-201-490-5405
Mobile: +91-9821053938
E-Mail:
aashish@aashishsharma.com
write2aashish@gmail.com

You better believe in yourself... if you don't, who else will ?
TODAY is a gift, that's why it's called PRESENT
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform