Konu: Yeni kod yeni sans:)
Saga sola bazen ise yarar bir kod postaladigimda eger unutmazsam buraya da yapitiriyorum. Aciklama yok. Calistirinca ne yaptigi belli zaten (Genelde VFP9 icin, cok az degisiklikle her versiyonda calisacak seyler).
Formda grafik:
Visual Fox Pro
*#INCLUDE "mschrt20.h"
#Define VtChChartType3dBar 0
#Define VtChChartType2dBar 1
#Define VtChLabelComponentValue 1 && The value of the data point appears in the label.
#Define VtChLabelComponentPercent 2 && The value of the data point is displayed in the label as a percentage of the total value of the series.
#Define VtOrientationHorizontal 0 && Horizontal text
#Define VtOrientationVertical 1 && Vertical text
#Define VtOrientationUp 2 && Up oriented text
#Define VtOrientationDown 3 && Down oriented text
#Define VtChLabelLocationTypeNone 0 && Label Location - None
#Define VtChLabelLocationTypeAbovePoint 1 && Label Location - AbovePoint
#Define VtChLabelLocationTypeBelowPoint 2 && Label Location - BelowPoint
#Define VtChLabelLocationTypeCenter 3 && Label Location - Center
#Define VtChLabelLocationTypeBase 4 && Label Location - Base
#Define VtChLabelLocationTypeInside 5 && Label Location - Inside pie or doughnut
#Define VtChLabelLocationTypeOutside 6 && Label Location - Outside pie or doughnut
#Define VtChLabelLocationTypeLeft 7 && Label Location - Left
#Define VtChLabelLocationTypeRight 8 && Label Location - Right
Public loCharter
loCharter = Createobject('myCharter')
loCharter.Show
Define Class myCharter As Form
DataSession = 2
Height = 600
Width = 800
Add Object myGrid As Grid With ;
left=10,Top=10,Height=580,Width=400
Add Object Chart As OleControl With ;
left=430,Top=10,Height=580,Width=360, ;
OleClass="MSChart20Lib.MSChart.2"
Procedure Load
Use (_samples+'data\Customer')
Endproc
Procedure Init
Bindevent(This.myGrid.Columns(1).Text1,'Click',This,'UpdateChart')
This.UpdateChart()
Endproc
Procedure UpdateChart
Select ;
emp.First_Name - (' '+emp.Last_Name) As employee,;
sum(order_net) As totalSale ;
FROM (_samples+'data\orders') ord ;
INNER Join (_samples+'data\employee') emp On emp.emp_id = ord.emp_id ;
WHERE ord.cust_id == customer.cust_id ;
GROUP By 1 ;
ORDER By 1 ;
INTO Cursor crsChartData
With Thisform.Chart
.ChartType = VtChChartType2dBar
rowLabelCount = 1
rowCount = Reccount()
columnLabelCount = 0
ColumnCount = 1
.DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;
m.rowCount, m.ColumnCount )
.Column = 1
Scan
.Row = Recno()
.Data = totalSale
.DataGrid.RowLabel(Recno(),1) = employee
Endscan
For Each serX In .Plot.SeriesCollection
With serX.Datapoints.Item(-1).DatapointLabel
.Component = VtChLabelComponentValue && Show value
.LocationType = VtChLabelLocationTypeAbovePoint && Above
.ValueFormat = '$#,##0.00'
Endwith
Endfor
Endwith
Endproc
Enddefine
