Clomosy | Forum : chart

Clomosy | Forum : chart https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 16:03:33 +0000 Mon, 19 Aug 2024 16:57:35 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=889 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[chart : teşekkürler ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1695#1695 Yazar: ismail
Konu: 889
Gönderim Zamanı: 19 Ağustos 2024 Saat 16:57

teşekkürler

]]> Mon, 19 Aug 2024 16:57:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1695#1695 <![CDATA[chart : Merhaba İsmail,Aşağıdaki kodu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1694#1694 Yazar: Developer
Konu: 889
Gönderim Zamanı: 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;

]]> Mon, 19 Aug 2024 16:08:42 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1694#1694 <![CDATA[chart : void deneme;var Qry,Qry2: TClSQLiteQuery;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1692#1692 Yazar: ismail
Konu: 889
Gönderim Zamanı: 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

]]> Mon, 19 Aug 2024 15:37:20 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=889&PID=1692#1692