SQL SERVERDAN VERİ AKTARIMI TCLPROGRİD

var

belgeform:TclForm;

baslik,tarihlbl,belgenolbl,firmalbl,tefonlbl,

adreslbl,brutlbl,aratoplamlbl,kdvlbl,geneltoplamlbl,

notlarlbl,metinlbl,aliciimza,saticiimza:TClProLabel;

say1,say2,say3,say4,say5,say6,say7,say8,say9:TClProLabel

ViewReportQry,ViewReportQry2:TClSqlQuery;

ScrollBox:TCLVertScrollBox;

Report_Table:TCLProGrid;

incomingProductList,i,carirecno: Integer;

void baglantilar

{

  ViewReportQry = TClSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-OA0VJ0A', 'sa', '123', 'YASAR_2', 1433);

  ViewReportQry.Connection = Clomosy.DBSQLServerConnection; 

  ViewReportQry.Sql.Text='SELECT 

       TBLSTOKSB.STOK_KODU

       ,TBLSTOKSB.STOK_ADI AS STOK_ADI

       ,(CASE WHEN  ISNULL(TBLSIPARHR.GCMIK,0) =0 AND NOT BELGE_TIPI IN (3,4)  THEN 1 ELSE  ISNULL(TBLSIPARHR.GCMIK,0)  END)  AS GCMIK

       ,TBLSIPARHR.OLCU_BR

       , ( (CASE WHEN  ISNULL(TBLSIPARHR.GCMIK,0) =0 THEN 1 ELSE  ISNULL(TBLSIPARHR.GCMIK,0)  END) *STOK_NF) AS NET_TUTAR

       FROM TBLSTOKSB, TBLSIPARHR

       WHERE TBLSTOKSB.REC_NO = TBLSIPARHR.STOK_KODU_RECID

        AND BELGE_TIPI=21

        AND SUBE_KODU=0

         AND BELGE_NO = '''+QuotedStr(say2.Text)+'''

        AND CARI_KODU_RECID='''+QuotedStr(carirecno)+'''

        ORDER BY TBLSIPARHR.REC_NO

      ';

    

}

void veriler

{

  incomingProductList = Clomosy.StringListNew;

  incomingProductList = Clomosy.GlobalVariableStringList;

  for (i = 0 to incomingProductList.count - 1)

   {

    if(i==0)

    {

      say2.Text=Clomosy.StringListItemString(incomingProductList,i);

    }

    if(i==1)

    {

      say1.Text=':'+Clomosy.StringListItemString(incomingProductList,i);

    }

    if(i==2)

    {

      say3.Text=':'+Clomosy.StringListItemString(incomingProductList,i);

    }

    if(i==3)

    {

      carirecno=Clomosy.StringListItemString(incomingProductList,i);

      

    }

   }

   

}

void degerler

{

  say1 = belgeform.AddNewProLabel(ScrollBox,'say1',':Müşteri Sipariş Formu');

  say1.Margins.Bottom=1480;

  say1.Margins.Left=30;

  say1.Margins.Right=270;

  say1.Width=250;

  say1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say1.clProSettings.FontSize = 12;

  say1.clProSettings.FontVertAlign = palcenter;

  say1.clProSettings.FontHorzAlign = palLeading;

  say1.clProSettings.TextSettings.Font.Style = [ftMasters];

  say1.clProSettings.IsFill = True; 

  say1.clProSettings.IsRound = True;

  say1.SetclProSettings(say1.clProSettings);

  

  say2 = belgeform.AddNewProLabel(ScrollBox,'say2',':Müşteri Sipariş Formu');

  say2.Margins.Bottom=1430;

  say2.Margins.Left=30;

  say2.Margins.Right=270;

  say2.Width=250;

  say2.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say2.clProSettings.FontSize = 12;

  say2.clProSettings.FontVertAlign = palcenter;

  say2.clProSettings.FontHorzAlign = palLeading;

  say2.clProSettings.TextSettings.Font.Style = [ftMasters];

  say2.clProSettings.IsFill = True; 

  say2.clProSettings.IsRound = True;

  say2.SetclProSettings(say2.clProSettings);

  

  say3 = belgeform.AddNewProLabel(ScrollBox,'say3',':Müşteri Sipariş Formu');

  say3.Margins.Bottom=1380;

  say3.Margins.Left=30;

  say3.Margins.Right=270;

  say3.Width=250;

  say3.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say3.clProSettings.FontSize = 12;

  say3.clProSettings.FontVertAlign = palcenter;

  say3.clProSettings.FontHorzAlign = palLeading;

  say3.clProSettings.TextSettings.Font.Style = [ftMasters];

  say3.clProSettings.IsFill = True; 

  say3.clProSettings.IsRound = True;

  say3.SetclProSettings(say3.clProSettings);

  

  say4 = belgeform.AddNewProLabel(ScrollBox,'say4',':Müşteri Sipariş Formu');

  say4.Margins.Bottom=1330;

  say4.Margins.Left=30;

  say4.Margins.Right=270;

  say4.Width=250;

  say4.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say4.clProSettings.FontSize = 12;

  say4.clProSettings.FontVertAlign = palcenter;

  say4.clProSettings.FontHorzAlign = palLeading;

  say4.clProSettings.TextSettings.Font.Style = [ftMasters];

  say4.clProSettings.IsFill = True; 

  say4.clProSettings.IsRound = True;

  say4.SetclProSettings(say4.clProSettings);

  

    

  say5 = belgeform.AddNewProLabel(ScrollBox,'say5',':Müşteri Sipariş Formu');

  say5.Margins.Bottom=1280;

  say5.Margins.Left=30;

  say5.Margins.Right=270;

  say5.Width=250;

  say5.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say5.clProSettings.FontSize = 12;

  say5.clProSettings.FontVertAlign = palcenter;

  say5.clProSettings.FontHorzAlign = palLeading;

  say5.clProSettings.TextSettings.Font.Style = [ftMasters];

  say5.clProSettings.IsFill = True; 

  say5.clProSettings.IsRound = True;

  say5.SetclProSettings(say5.clProSettings);

  

    

  say6 = belgeform.AddNewProLabel(ScrollBox,'say6',':Formu');

  say6.Margins.Bottom=510;

  say6.Margins.Left=900;

  say6.Margins.Right=30;

  say6.Width=250;

  say6.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say6.clProSettings.FontSize = 12;

  say6.clProSettings.FontVertAlign = palcenter;

  say6.clProSettings.FontHorzAlign = palLeading;

  say6.clProSettings.TextSettings.Font.Style = [ftMasters];

  say6.clProSettings.IsFill = True; 

  say6.clProSettings.IsRound = True;

  say6.SetclProSettings(say6.clProSettings);

  

    

  say7 = belgeform.AddNewProLabel(ScrollBox,'say7',':Formu');

  say7.Margins.Bottom=460;

  say7.Margins.Left=900;

  say7.Margins.Right=30;

  say7.Width=250;

  say7.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say7.clProSettings.FontSize = 12;

  say7.clProSettings.FontVertAlign = palcenter;

  say7.clProSettings.FontHorzAlign = palLeading;

  say7.clProSettings.TextSettings.Font.Style = [ftMasters];

  say7.clProSettings.IsFill = True; 

  say7.clProSettings.IsRound = True;

  say7.SetclProSettings(say7.clProSettings);

  

    

  say8 = belgeform.AddNewProLabel(ScrollBox,'say8',':Formu');

  say8.Margins.Bottom=415;

  say8.Margins.Left=900;

  say8.Margins.Right=30;

  say8.Width=250;

  say8.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say8.clProSettings.FontSize = 12;

  say8.clProSettings.FontVertAlign = palcenter;

  say8.clProSettings.FontHorzAlign = palLeading;

  say8.clProSettings.TextSettings.Font.Style = [ftMasters];

  say8.clProSettings.IsFill = True; 

  say8.clProSettings.IsRound = True;

  say8.SetclProSettings(say8.clProSettings);

  

    

  say9 = belgeform.AddNewProLabel(ScrollBox,'say9',':Formu');

  say9.Margins.Bottom=365;

  say9.Margins.Left=900;

  say9.Margins.Right=30;

  say9.Width=250;

  say9.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  say9.clProSettings.FontSize = 12;

  say9.clProSettings.FontVertAlign = palcenter;

  say9.clProSettings.FontHorzAlign = palLeading;

  say9.clProSettings.TextSettings.Font.Style = [ftMasters];

  say9.clProSettings.IsFill = True; 

  say9.clProSettings.IsRound = True;

  say9.SetclProSettings(say9.clProSettings);

}

{

  belgeform=TclForm.Create(Self);

  

  ScrollBox = belgeform.AddNewVertScrollBox(belgeform,'horzScrollBox');

  ScrollBox.Align = alClient;

  ScrollBox.Height = 100;

  ScrollBox.Margins.Left = 10;

  ScrollBox.Margins.Right = 10;

  ScrollBox.Margins.Top = 5;

  ScrollBox.ShowScrollBars = True;

  

  baslik = belgeform.AddNewProLabel(ScrollBox,'baslik','Müşteri Sipariş Formu');

  baslik.Align=alMostTop;

  baslik.Margins.Left=30;

  baslik.Margins.Right=450;

  baslik.Width=250;

  baslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  baslik.clProSettings.FontSize = 18;

  baslik.clProSettings.FontVertAlign = palcenter;

  baslik.clProSettings.FontHorzAlign = palLeading;

  baslik.clProSettings.TextSettings.Font.Style = [fsBold];

  baslik.clProSettings.IsFill = True; 

  baslik.clProSettings.IsRound = True;

  baslik.SetclProSettings(baslik.clProSettings);

  

  tarihlbl = belgeform.AddNewProLabel(ScrollBox,'tarihlbl','Tarih');

  tarihlbl.Align=alMostTop;

  tarihlbl.Margins.Top=2;

  tarihlbl.Margins.Left=30;

  tarihlbl.Margins.Right=450;

  tarihlbl.Width=250;

  tarihlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  tarihlbl.clProSettings.FontSize = 12;

  tarihlbl.clProSettings.FontVertAlign = palcenter;

  tarihlbl.clProSettings.FontHorzAlign = palLeading;

  tarihlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  tarihlbl.clProSettings.IsFill = True; 

  tarihlbl.clProSettings.IsRound = True;

  tarihlbl.SetclProSettings(tarihlbl.clProSettings);

  

  belgenolbl = belgeform.AddNewProLabel(ScrollBox,'belgenolbl','Belge No');

  belgenolbl.Align=alMostTop;

  belgenolbl.Margins.Top=2;

  belgenolbl.Margins.Left=30;

  belgenolbl.Margins.Right=450;

  belgenolbl.Width=250;

  belgenolbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  belgenolbl.clProSettings.FontSize = 12;

  belgenolbl.clProSettings.FontVertAlign = palcenter;

  belgenolbl.clProSettings.FontHorzAlign = palLeading;

  belgenolbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  belgenolbl.clProSettings.IsFill = True; 

  belgenolbl.clProSettings.IsRound = True;

  belgenolbl.SetclProSettings(belgenolbl.clProSettings);

  

  firmalbl = belgeform.AddNewProLabel(ScrollBox,'firmalbl','Firma');

   firmalbl.Align=alMostTop;

  firmalbl.Margins.Top=2;

  firmalbl.Margins.Left=30;

  firmalbl.Margins.Right=450;

  firmalbl.Width=250;

  firmalbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  firmalbl.clProSettings.FontSize = 12;

  firmalbl.clProSettings.FontVertAlign = palcenter;

  firmalbl.clProSettings.FontHorzAlign = palLeading;

  firmalbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  firmalbl.clProSettings.IsFill = True; 

  firmalbl.clProSettings.IsRound = True;

  firmalbl.SetclProSettings(firmalbl.clProSettings);

  

  tefonlbl = belgeform.AddNewProLabel(ScrollBox,'tefonlbl','Telefon / Faks');

  tefonlbl.Align=alMostTop;

  tefonlbl.Margins.Top=2;

  tefonlbl.Margins.Left=30;

  tefonlbl.Margins.Right=450;

  tefonlbl.Width=250;

  tefonlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  tefonlbl.clProSettings.FontSize = 12;

  tefonlbl.clProSettings.FontVertAlign = palcenter;

  tefonlbl.clProSettings.FontHorzAlign = palLeading;

  tefonlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  tefonlbl.clProSettings.IsFill = True; 

  tefonlbl.clProSettings.IsRound = True;

  tefonlbl.SetclProSettings(tefonlbl.clProSettings);

  

  adreslbl = belgeform.AddNewProLabel(ScrollBox,'adreslbl','Adres');

  adreslbl.Align=alMostTop;

  adreslbl.Margins.Top=2;

  adreslbl.Margins.Left=30;

  adreslbl.Margins.Right=450;

  adreslbl.Width=250;

  adreslbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  adreslbl.clProSettings.FontSize = 12;

  adreslbl.clProSettings.FontVertAlign = palcenter;

  adreslbl.clProSettings.FontHorzAlign = palLeading;

  adreslbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  adreslbl.clProSettings.IsFill = True; 

  adreslbl.clProSettings.IsRound = True;

  adreslbl.SetclProSettings(adreslbl.clProSettings);

  

  degerler();

  baglantilar();

  

   Report_Table = belgeform.AddNewProGrid(ScrollBox, 'Report_Table');

   Report_Table.ConnectDataSet(ViewReportQry);

    Report_Table.AutoSizeColumns(True,150); 

    with Report_Table do

    {

     Align = alMostTop;

     Margins.Top=50;

     Margins.Right=10;

     Margins.LEFT=30;

     Margins.Bottom=10;

     Width=(belgeform.clWidth*70)/100;

     Height=(belgeform.clHeight*50)/100;

    NormalLayoutFillColor = clAlphaColor.clhextocolor('#a0a0a0');

         BandLayoutFillColor  = clAlphaColor.clhextocolor('#a0a0a0'); 

         SelectedLayoutFontColor = clAlphaColor.clHexToColor('#000000'); 

         SelectedLayoutFillColor = clAlphaColor.clHexToColor('#a0a0a0'); 

         FocusedLayoutFontColor = clAlphaColor.clwhite;  

         FocusedLayoutFillColor = clAlphaColor.clHexToColor('#808080'); 

         FixedLayoutFillColor = clAlphaColor.clHexToColor('#c0c0c0'); 

         FixedLayoutFontColor = clAlphaColor.clHexToColor('#000000'); 

      

    }

    Report_Table.Options.Selection.Mode = smSingleRow;

     

      Report_Table.Cells[0,0] = 'STOK KODU';

      Report_Table.Cells[1,0] = 'STOK ADI';

      Report_Table.Cells[2,0] = 'MİKTAR';

      Report_Table.Cells[3,0] = 'BİRİM';

      Report_Table.Cells[4,0] = 'FİYAT';

      Report_Table.Cells[5,0] = 'TUTAR';

    

  

  brutlbl = belgeform.AddNewProLabel(ScrollBox,'brutlbl','Brüt Toplam');

  brutlbl.Align=alMostTop;

  brutlbl.Margins.Top=2;

  brutlbl.Margins.Left=600;

  brutlbl.Margins.Right=30;

  brutlbl.Width=250;

  brutlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  brutlbl.clProSettings.FontSize = 12;

  brutlbl.clProSettings.FontVertAlign = palcenter;

  brutlbl.clProSettings.FontHorzAlign = palLeading;

  brutlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  brutlbl.clProSettings.IsFill = True; 

  brutlbl.clProSettings.IsRound = True;

  brutlbl.SetclProSettings(brutlbl.clProSettings);

  

  aratoplamlbl = belgeform.AddNewProLabel(ScrollBox,'aratoplamlbl','Ara Toplam');

  aratoplamlbl.Align=alMostTop;

  aratoplamlbl.Margins.Top=2;

  aratoplamlbl.Margins.Left=600;

  aratoplamlbl.Margins.Right=30;

  aratoplamlbl.Width=250;

  aratoplamlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  aratoplamlbl.clProSettings.FontSize = 12;

  aratoplamlbl.clProSettings.FontVertAlign = palcenter;

  aratoplamlbl.clProSettings.FontHorzAlign = palLeading;

  aratoplamlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  aratoplamlbl.clProSettings.IsFill = True; 

  aratoplamlbl.clProSettings.IsRound = True;

  aratoplamlbl.SetclProSettings(aratoplamlbl.clProSettings);

  

  

  kdvlbl = belgeform.AddNewProLabel(ScrollBox,'kdvlbl','KDV % ');

  kdvlbl.Align=alMostTop;

  kdvlbl.Margins.Top=2;

  kdvlbl.Margins.Left=600;

  kdvlbl.Margins.Right=30;

  kdvlbl.Width=250;

  kdvlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  kdvlbl.clProSettings.FontSize = 12;

  kdvlbl.clProSettings.FontVertAlign = palcenter;

  kdvlbl.clProSettings.FontHorzAlign = palLeading;

  kdvlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  kdvlbl.clProSettings.IsFill = True; 

  kdvlbl.clProSettings.IsRound = True;

  kdvlbl.SetclProSettings(kdvlbl.clProSettings);  

  

    geneltoplamlbl = belgeform.AddNewProLabel(ScrollBox,'geneltoplamlbl','Genel Toplam');

  geneltoplamlbl.Align=alMostTop;

  geneltoplamlbl.Margins.Top=2;

  geneltoplamlbl.Margins.Left=600;

  geneltoplamlbl.Margins.Right=30;

  geneltoplamlbl.Width=250;

  geneltoplamlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  geneltoplamlbl.clProSettings.FontSize = 12;

  geneltoplamlbl.clProSettings.FontVertAlign = palcenter;

  geneltoplamlbl.clProSettings.FontHorzAlign = palLeading;

  geneltoplamlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  geneltoplamlbl.clProSettings.IsFill = True; 

  geneltoplamlbl.clProSettings.IsRound = True;

  geneltoplamlbl.SetclProSettings(geneltoplamlbl.clProSettings); 

  

   metinlbl = belgeform.AddNewProLabel(ScrollBox,'metinlbl','Lütfen siparişimizi kabul ettiğinizi aşağıdaki kısmı imzalayıp formu numaralı telefonumuza faks göndererek teyit ediniz');

  metinlbl.Align=alMostTop;

  metinlbl.Margins.Top=50;

  metinlbl.Margins.Left=60;

  metinlbl.Margins.Right=30;

  metinlbl.Width=500;

  metinlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  metinlbl.clProSettings.FontSize = 12;

  metinlbl.clProSettings.FontVertAlign = palcenter;

  metinlbl.clProSettings.FontHorzAlign = palLeading;

  metinlbl.clProSettings.TextSettings.Font.Style = [fsUnderline];

  metinlbl.clProSettings.IsFill = True; 

  metinlbl.clProSettings.IsRound = True;

  metinlbl.SetclProSettings(metinlbl.clProSettings);

  

  notlarlbl = belgeform.AddNewProLabel(ScrollBox,'notlarlbl','Notlar');

  notlarlbl.Margins.Bottom=300;

  notlarlbl.Margins.Left=20;

  notlarlbl.Margins.Right=470;

  notlarlbl.Width=250;

  notlarlbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  notlarlbl.clProSettings.FontSize = 12;

  notlarlbl.clProSettings.FontVertAlign = palcenter;

  notlarlbl.clProSettings.FontHorzAlign = palLeading;

  notlarlbl.clProSettings.TextSettings.Font.Style = [ftMasters];

  notlarlbl.clProSettings.IsFill = True; 

  notlarlbl.clProSettings.IsRound = True;

  notlarlbl.SetclProSettings(notlarlbl.clProSettings);

  

  aliciimza = belgeform.AddNewProLabel(ScrollBox,'aliciimza','Alıcı Firma (Yetkili Kişi) Tarih / Kaşe / İmza ');

  aliciimza.Margins.Bottom=100;

  aliciimza.Margins.Left=20;

  aliciimza.Margins.Right=470;

  aliciimza.Width=250;

  aliciimza.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  aliciimza.clProSettings.FontSize = 12;

  aliciimza.clProSettings.FontVertAlign = palcenter;

  aliciimza.clProSettings.FontHorzAlign = palLeading;

  aliciimza.clProSettings.TextSettings.Font.Style = [ftMasters];

  aliciimza.clProSettings.IsFill = True; 

  aliciimza.clProSettings.IsRound = True;

  aliciimza.SetclProSettings(aliciimza.clProSettings);

  

  saticiimza = belgeform.AddNewProLabel(ScrollBox,'saticiimza','Satıcı Firma (Yetkili Kişi) Tarih / Kaşe / İmza');

  saticiimza.Margins.Bottom=100;

  saticiimza.Margins.Left=470;

  saticiimza.Margins.Right=20;

  saticiimza.Width=250;

  saticiimza.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  saticiimza.clProSettings.FontSize = 12;

  saticiimza.clProSettings.FontVertAlign = palcenter;

  saticiimza.clProSettings.FontHorzAlign = palLeading;

  saticiimza.clProSettings.TextSettings.Font.Style = [ftMasters];

  saticiimza.clProSettings.IsFill = True; 

  saticiimza.clProSettings.IsRound = True;

  saticiimza.SetclProSettings(saticiimza.clProSettings);

  

//  degerler();

  veriler();

  //baglantilar();

  

  ClRTSetProperty(belgeform,'ClientWidth',775);

  ClRTSetProperty(belgeform,'ClientHeight',930);

  belgeform.SetFormColor('#FFFFFF','',clGNone);

  belgeform.Run;

  belgeform.FormWaiting.Visible = False;

  belgeform.BtnFormMenu.Visible = False;

  belgeform.BtnGoBack.Visible = False;

  

}

MERHABA KOLAY GELSİN KODUM BU YUKARDAN VERİ ÇEKİYORUM VE GRİDE AKTARIYORUM AMA HATA ALMAKTAYIM NEDENİ NEDEN OLABİLİR