1

Konu: Raporlarda obje boyutu düzenlenebilir mi?

Merhabalar,

Adsoy,  sinif, saypuan, sozpuan, eapuan şeklinde bir tablom var.
Paunlara göre raporda grafik çizdirmek istiyorum. Rapordaki bir dikdörtgenin boyutlarını değerler doğrultusunda değiştirebilme olanağım var mı veya raporda grafik problemimi başka ne şekilde çözebilirim.

Teşekkürler...

2 Son düzenleyen, cetinyasar (15.01.2007 14:43:27)

Re: Raporlarda obje boyutu düzenlenebilir mi?

Grafik problemini msgraph.chart ile çözebilirsin.
Sonra bu grafiği raporunda Ole olarak gösterebilirsin.


Visual Fox Pro
CREATE CURSOR abc (fAlan G)

#DEFINE TAB    CHR(9)
#DEFINE CRLF    CHR(13)+CHR(10)
#DEFINE OCAK        "Ocak"
#DEFINE SUBAT        "Şubat"
#DEFINE MART        "Mart"
#DEFINE NISAN        "Nisan"
#DEFINE MAYIS        "Mayıs"
#DEFINE HAZIRAN    "Haziran"
#DEFINE TEMMUZ        "Temmuz"
#DEFINE AGUSTOS    "Ağustos"
#DEFINE EYLUL        "Eylül"
#DEFINE EKIM        "Ekim"
#DEFINE KASIM        "Kasım"
#DEFINE ARALIK        "Aralık"
 
cGData = ""+TAB+OCAK+TAB+SUBAT+TAB+MART+TAB+NISAN+TAB+MAYIS+TAB+HAZIRAN+TAB+TEMMUZ+TAB+AGUSTOS+TAB+EYLUL+TAB+EKIM+TAB+KASIM+TAB+ARALIK+CRLF
cGData = cGData + TAB + CRLF
cGData = cGData + "TUTAR"
 
cGData = cGData + TAB + "1200"
cGData = cGData + TAB + "1500"
cGData = cGData + TAB + "1000"
cGData = cGData + TAB + "900"
cGData = cGData + TAB + "850"
cGData = cGData + TAB + "1400"
cGData = cGData + TAB + "1500"
cGData = cGData + TAB + "900"
cGData = cGData + TAB + "666"
cGData = cGData + TAB + "1230"
cGData = cGData + TAB + "550"
cGData = cGData + TAB + "1200"
 
cGData = cGData + TAB + CRLF
 
SELECT abc
APPEND BLANK
append general fAlan class "msgraph.chart" DATA m.cGData
MODIFY GENERAL fAlan

3

Re: Raporlarda obje boyutu düzenlenebilir mi?

selamlar;
soru 1:
arkadaşlar ben bu soruya ek olarak sormak istediğim bir şey var. yukarıdaki kodu çalıştırdıktan sonra ekranıma sadece ocak,mayıs,eylul görünüyor bunların fontlarını değiştirmenin bir yolu varmı? tabi font dışındaki diğer ayarlamalarda gerekecek.

grakif ekranda ike üzerine tıkladığımda fontunu mouse ile değiştirebiliyorum. Bana kod ile olanı lazım.
Şimdiden teşekkürler.
soru 2:
Grafik için başka önerebileceğini toollar varmı?

Bilmediğin Neyse Yanıldığındır.

4

Re: Raporlarda obje boyutu düzenlenebilir mi?

Grafikler icin MSGraph'tan uzak durmakta fayda var. MSChart daha efektif ve hizli. XML/XSL ile basit grafikler yapilabiliyor. OWC ile grafik olabiliyor... GDI+ kullanarak dogrudan cizerek grafik yapmak da bir baska yontem (bu konuda Cesar Chalom'un sayfasinda birseyler mutlaka vardir).

5 Son düzenleyen, foxman (17.09.2007 16:09:14)

Re: Raporlarda obje boyutu düzenlenebilir mi?

OWC için aşağıdaki gibi bir örnek var.  OWC objesi bilgisayarında yoksa Microsoft un sitesinden owc10_eng.exe veya owc11_eng.exe diye bulabilirsin.


Visual Fox Pro
Close Database All

 
CREATE CURSOR chartdata (desc c(25),unit n(8),total n(8),percent n(8,4))
 
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Maria Anders",15637,53450,29.2554)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Ana Trujillo",11361,53450,21.2554)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Elizabeth Lincoln",9292,53450,17.3845)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Aria Cruz",9157,53450,17.1319)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Pedro Afonso",8003,53450,14.9729)
 
Select chartdata
GO TOP
Dimension laLabels(Reccount("chartdata"))
Dimension laData(Reccount("chartdata"))
 
Scan
    laLabels(Recno()) = Transform(chartdata.percent,"##.##")+"% "+chartdata.Desc
    laData(Recno())   = chartdata.percent
Endscan
 
loChartSpace = Createobject("OWC11.ChartSpace")
oConst = loChartSpace.Constants
Public loGraph
loGraph = loChartSpace.Charts.Add()
*loGraph.Type = 1
loGraph.Type = 59
 
loGraph.HasLegend = .T.
loGraph.PlotArea.Interior.Color = "LightYellow"
 
loChartSpace.HasChartSpaceTitle = .T.
loChartSpace.ChartSpaceTitle.Caption = "PERCENTAGE OF UNITS SALES PER EMPLOYEE"
loChartSpace.ChartSpaceTitle.Font.Bold = .T.
 
For i=1 To (Reccount("chartdata"))
    loGraph.SeriesCollection.Add()
    loGraph.SeriesCollection(i-1).Caption = laLabels(i)
Endfor
loGraph.SeriesCollection(0).SetData(oConst.chDimCategories, oConst.chDataLiteral, @laLabels)
loGraph.SeriesCollection(0).SetData(oConst.chDimValues, oConst.chDataLiteral, @laData)
 
lcFile="owcchart.gif"
loChartSpace.ExportPicture(lcFile,"gif",640,430)
 
Use In chartdata

6

Re: Raporlarda obje boyutu düzenlenebilir mi?

OCW ile ilgili west-wind ın aşağıdaki sayfasında örnekler var.

http://www.west-wind.com/presentations/ … arting.asp

7

Re: Raporlarda obje boyutu düzenlenebilir mi?

Birde msGraph Chart  ta grafik üzerindeki fontları renkleri grafiktipini vs. değiştirebilirsiniz..Yani bunu programınızla çalışan kullanıcı da yapalir. Yada siz bir kereye mahsus yapabilirsiniz. Bu değişiklikler kalıcı oluyor.