CHART

void sumgiriscikis; 

var 

    Qry,Qry2: TClSQLiteQuery;

    

    values2:String;

    

    

{

    try 

     FRow = myform.ClSenderRow;

         values2=FloatToStr(StrToFloat(clProGrid.GetCellValue(2,FRow))*StrToFloat(clProGrid.GetCellValue(3,FRow))*StrToFloat(clProGrid.GetCellValue(6,FRow)));

        Qry = Clomosy.DBSQLiteQueryWith('SELECT SUM(CAST(REPLACE(StokGirisMiktarı, ",", ".") AS FLOAT)) AS Total FROM girislogdatabase18 WHERE ID=' + QuotedStr(values2));

        Qry.OpenOrExecute;

        

        if (Qry.Found) 

        {

            // Toplamı al

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

            ShowMessage(totalSumgiris);

            // Sonuçları bir mesaj penceresinde göster

            

        }

        else

        {

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

        }

    except

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

    }

    

    try

      Qry2 = Clomosy.DBSQLiteQueryWith('SELECT SUM(CAST(REPLACE(StokÇıkışMiktarı, ",", ".") AS FLOAT)) AS Total FROM cıkısslogdatabase3 WHERE ID=' + QuotedStr(values2));

        Qry2.OpenOrExecute;

        

        if (Qry2.Found) 

        {

            // Toplamı al

            totalSumcikis = Qry2.FieldByName('Total').AsString;

            

            // Sonuçları bir mesaj penceresinde göster

           

        }

        else

        {

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

        }

    except

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

    }

    

    

    

    

    }

  

  

  

  

  

void ChartFormOpen;

var 

chart:TCLChart;

simpleJSONStr:String;

{

  ChartForm=TclGuideForm.Create(self);

  

 

   chart = ChartForm.AddNewChart(ChartForm,'testChart','Stock Chart');

   chart.Align=alMostTop;

   //chart.margins.Top=100;

   

   /* chartkalanlabel=ChartForm.AddNewProLabel(ChartForm, 'chartkalanlabel', 'Kalan');

  clComponent.SetupComponent(chartkalanlabel,'{"Align":"Bottom","TextBold":"yes","TextSize":20,"MarginBottom":220,"MarginLeft":40}');

   chart.SetInteractionPanning(True);*/

 sumgiriscikis;

 simpleJSONStr = '[{ "StockType": "Giriş","Total": ' + totalSumgiris + ',"color":"clOrange"},' +

                     '{ "StockType": "Çıkış","Total": ' + totalSumcikis + ',"color":"clPink"}]';

  

  chart.Charttype = clCBar;

    chart.XAxisText = 'StockType';

    chart.ChartItemText = 'Stok Miktarı';

     

    

    chart.ChartItemsValue = 'Total';

    chart.ChartTitle = 'Stok Giriş/Çıkış';

    chart.clLoadDataFromJSONStr(simpleJSONStr);

    chart.Margins.Left=15;

    chart.Margins.Right=15;

  chart.SetAutoXRange(2);

  chart.SetInteractionPanning(True);

  

  ChartForm.Run;

  

} CHARTFORMOPEN bir butona bağlı ve list index out of bounds (0) hatası alıyorum