Genel İşlemler

chart

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=889
Tarih: 07 Ocak 2025 Saat 23:04
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: chart

Mesajı Yazan: ismail
Konu: chart
Mesaj Tarihi: 19 Ağustos 2024 Saat 15:37

void deneme;

var

Qry,Qry2: TClSQLiteQuery;

values2:String;

{

try

FRow = myform.ClSenderRow;

values2=IntToStr(StrToInt(clProGrid.GetCellValue(2,FRow))*StrToInt(clProGrid.GetCellValue(3,FRow))*StrToInt(clProGrid.GetCellValue(6,FRow)));

Qry = Clomosy.DBSQLiteQueryWith('SELECT SUM(cast (StokGirisMiktarı as Int ) ) AS Total FROM girislogdatabase18 WHERE ID='+QuotedStr(values2));

Qry.OpenOrExecute;

if (Qry.Found)

{

totalSumgiris = Qry.FieldByName('Total').AsString;

ShowMessage('ID için Toplam Stok Giriş Miktarı: ' + IntToStr(totalSumgiris));

}

else

{

ShowMessage('Bu ID ye ait veri bulunamadı ');

}

except

ShowMessage('[01] Exception Class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

totalSumgiris değişkenine atadığım değişkeni chartta nasıl gösterebilirim

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 19 Ağustos 2024 Saat 16:08

Merhaba İsmail,

Aşağıdaki kodu inceler misin:

var

MyForm:TclForm;

testChart : TClChart;

simpleJSONStr : String;

xValue:Integer;

begin

MyForm := TclForm.Create(Self);

testChart := MyForm.AddNewChart(MyForm,'testChart','Samsoong');

xValue := 50 ;

simpleJSONStr := '[{ "DeviceType": "Notebook","Percent": '+ IntToStr(xValue)+',"color":"clOrange"}]';

testChart.Charttype := clCBar;

testChart.XAxisText := 'DeviceType';

testChart.ChartItemText := 'Device Sales';

testChart.ChartItemsValue := 'Percent';

testChart.ChartTitle := 'Samsoong Inc';

testChart.clLoadDataFromJSONStr(simpleJSONStr);

MyForm.Run;

end;

Mesajı Yazan: ismail
Mesaj Tarihi: 19 Ağustos 2024 Saat 16:57

teşekkürler