{ 

  uForm= TclForm.Create(Self);

  //uForm.TclStyle(uForm.LightSB);

  dForm= TclForm.Create(Self);

  counter=0;

  

  

  selectQuery = TClSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.94', 'sa', '1', 'CINAR', 50000);

  selectQuery.Connection = Clomosy.DBSQLServerConnection;

  ChartPie = uForm.AddNewChart(uForm,'ChartPie','Clomosy Inc');

  setUpType;

  AddDataToGrid;

  FilledPieImage.Visible=False;

  

  SetUpChartText;

  ChartPanel.Visible= False;

   

  

  uForm.AddNewEvent(PieImage,tbeOnClick,'clickedPie');

  uForm.AddNewEvent(TableImage,tbeOnClick,'clickedTable');

  uForm.AddNewEvent(MyGrid,tbeOnProGridCellDblClick,'clickedGrid');

  uForm.Run;

  }

void AddDataToGrid;

{

  

  try

    BorcBakiye=0;

    AlacakBakiye=0;

    ToplamAlacak=0;

    ToplamBorc=0;

    controlFilter;

    full=Clomosy.GlobalVariableString;

    c=clGetStringTo(full,';');

    temp=clGetStringAfter(full,';');

    bit=FormatDateTime('yyyy.mm.dd',clGetStringTo(temp,'/'));

    temp2=clGetStringAfter(full,'/');

    startvade=FormatDateTime('yyyy.mm.dd',clGetStringTo(temp2,':'));

    bitvade=FormatDateTime('yyyy.mm.dd',clGetStringAfter(full,':'));

    

    selectQuery.SQL.Text = 'EXEC dbo.usp_FilteredCariRaporAtiker

    @BakiyeToleransi= '+QuotedStr(r)+',

    @BakiyesizlerGosterilmesin = '+QuotedStr(i)+' ,

    @SadeceBakiyesizlerGosterilsin = '+QuotedStr(j)+',

    @HareketsizlerDahilEdilsin = '+QuotedStr(k)+' ,  

    @CariTipi = '+QuotedStr(c)+' ,

    @MaxBakiyeToleransi = '+QuotedStr(s)+' , 

    @TarihBaslangic = '+QuotedStr(g)+' , 

    @TarihBitis = '+QuotedStr(bit)+' , 

    @VadeTarihBaslangic = '+QuotedStr(startvade)+' , 

    @VadeTarihBitis = '+QuotedStr(bitvade)+' , 

    @BakiyeTipi = '+QuotedStr(t);

    

    selectQuery.Open;

    if (selectQuery.Found)

    {

      if(counter==0){

        MyGrid = uForm.AddNewProGrid(uForm,'MyGrid');

      }

     

     MyGrid.BeginUpdate

     

       MyGrid.Margins.Bottom = 8;

      MyGrid.Margins.Top = 8;

       MyGrid.Margins.Right = 8;

     MyGrid.Margins.Left= 14;

     MyGrid.Align = alClient;

     MyGrid.Margins.Bottom = 12;

     MyGrid.NormalLayoutFillColor = clAlphaColor.clHexToColor('#8283ab');

    MyGrid.FixedLayoutFillColor = clAlphaColor.clHexToColor('#496292');

     MyGrid.Options.Selection.Mode = smSingleRow;//smSingleRow VEYA smSingleColumn VEYA smNone

 

     

      MyGrid.Options.ColumnSize.StretchAll = True;

       MyGrid.AutoSizeColumns(True, 100);// Kolon genişliği ayarlama 

     

     MyGrid.SelectedLayoutFontColor = clAlphaColor.clBlack; //Seçilen Satır Yazı Reng

     MyGrid.BandLayoutFontColor = clAlphaColor.clBlack;

     MyGrid.FocusedLayoutFontColor = clAlphaColor.clBlack;

     MyGrid.FixedLayoutFontColor = clAlphaColor.clBlack;

     MyGrid.NormalLayoutFontColor = clAlphaColor.clBlack;

     MyGrid.ConnectDataSet(selectQuery);

     MyGrid.Options.Selection.Mode = smSingleRow;

     MyGrid.FocusedLayoutFillColor = clAlphaColor.clHexToColor('#7ee13d'); 

     MyGrid.SelectedLayoutFillColor = clAlphaColor.clHexToColor('#7ee13d');

     MyGrid.cells[0,0] = 'Cari Kodu'; 

     MyGrid.cells[1,0] = 'Cari Adı'; 

     MyGrid.cells[2,0] = 'Toplam Borç'; 

     MyGrid.cells[3,0] = 'Toplam Alacak'; 

     MyGrid.cells[4,0] = 'Borç'; 

     MyGrid.cells[5,0] = 'Alacak'; 

     MyGrid.cells[6,0] = 'Son İşlem Tarihi'; 

     MyGrid.EndUpdate;

    

   

     

     

   

     

     

         for (i=1 to (MyGrid.RowCount-1))

        {

            x = MyGrid.Cells[MyGrid.ColumnCount-3,i];

            

            BorcBakiye=StrToInt(x)+BorcBakiye;

            

            

             MyGrid.HorzAlignments[MyGrid.ColumnCount-3,i] = 0;

           

          if (x[0] > '0' )

          { 

            

            MyGrid.Colors[MyGrid.ColumnCount-3,i] = clAlphaColor.clRed;

           

          }

           

        

        }

        

        

         for (i=1 to (MyGrid.RowCount-1)) 

        {

            x = MyGrid.Cells[MyGrid.ColumnCount-2,i];

            AlacakBakiye=StrToInt(x)+AlacakBakiye;

            

             MyGrid.HorzAlignments[MyGrid.ColumnCount-2,i] = 0;

            

          if (x[0] > '0' )

          {

          

            MyGrid.Colors[MyGrid.ColumnCount-2,i] = clAlphaColor.clGreen;

            tempFloat=StrToFloat(MyGrid.Cells[MyGrid.ColumnCount-2,i]);

            MyGrid.Cells[MyGrid.ColumnCount-2,i] = FloatToStr(tempFloat);

       

          }

            

        

        }

        

        

        for (i=1 to (MyGrid.RowCount-1))

        {

            x = MyGrid.Cells[MyGrid.ColumnCount-4,i];

            

             MyGrid.HorzAlignments[MyGrid.ColumnCount-4,i] = 0;

            ToplamAlacak=StrToInt(x)+ToplamAlacak;

          

        }

         for (i=1 to (MyGrid.RowCount-1))

        {

            x = MyGrid.Cells[MyGrid.ColumnCount-5,i];

            

             MyGrid.HorzAlignments[MyGrid.ColumnCount-5,i] = 0;

            

            ToplamBorc=StrToInt(x)+ToplamBorc;

          

        }

    }

    else

    {

      ShowMessage('Kayıt bulunamadı!');

    }

  except

    ShowMessage('xaazaException class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

  

  counter=0;

  

}

---------------------------------------------------------------------------

---------------------------------------------------------------------------

void clickedGrid;{

  counter=1;

  dForm.LytTopBar.Visible = False;

  backPanel=dForm.AddNewProPanel(dForm,'backPanel');

  clComponent.SetupComponent(backPanel,'{"Align" : "MostTop","MarginTop":10,"Width" :300, "MarginRight":0, "MarginLeft":10,

  "Height":33,"RoundHeight":10,"RoundWidth":10,"BorderWidth":2}');

  

    

    

   backButton = dForm.AddNewProImage(backPanel,'backButton');

    clComponent.SetupComponent(backButton,'{"Align":"Left","MarginLeft" :  4 ,"MarginRight" : 4,"MarginTop":4, "MarginBottom":5,"Width" :50,"Height" :50 ,

   "ImgUrl":"https://i.hizliresim.com/k5jz984.png","ImgFit":"yes" }');

  dForm.AddNewEvent(backButton,tbeOnClick,'goBack');

  

  try

   

   SenderRow=uForm.ClSenderRow;

   l= TCLProGrid(uForm.ClSender).Cells[0,SenderRow];

    selectQuery.SQL.Text = 'EXEC dbo.usp_GetCariDetay2 

    @CariKodu =  '+QuotedStr(l);

    

    selectQuery.Open;

    if (selectQuery.Found)

    {

     MyGrid = dForm.AddNewProGrid(dForm,'MyGrid');

     setUpGrid;

     MyGrid.ConnectDataSet(selectQuery);

 

      

    }

    else

    {

      ShowMessage('Kayıt bulunamadı!');

    }

  except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

  

   

  

  dForm.Run;

 

}

void goBack;{

     case counter of

 {

 0: clickedGrid;

 1: AddDataToGrid;

 else

 ShowMessage('Bu değer geçersizdir.');

 }

}