Clomosy | Forum : Grid Hücrelerini Güncelleme https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 08:35:48 +0000 Tue, 24 Oct 2023 17:36:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=578 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[Grid Hücrelerini Güncelleme : click prosedürünü bu şekilde değiştirdim....]]> https://www.clomosy.com.tr/forum_posts.asp?TID=578&PID=769#769 Yazar: Burak
Konu: 578
Gönderim Zamanı: 24 Ekim 2023 Saat 17:36

click prosedürünü bu şekilde değiştirdim. çalışıyor

procedure Click;
  begin
 
    localQ.Close;
    localQ.SQL.Clear;
    localQ.SQL.Add('SELECT * FROM TBLCARISB WHERE CARI_KODU=' + QuotedStr('cr001'));
    localQ.Open;
  end;
]]> Tue, 24 Oct 2023 17:36:59 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=578&PID=769#769 <![CDATA[Grid Hücrelerini Güncelleme : Burada butona tıkladığımda grid...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=578&PID=768#768 Yazar: Burak
Konu: 578
Gönderim Zamanı: 24 Ekim 2023 Saat 16:52

Burada butona tıkladığımda grid hücrelerini güncellenmesini istiyorum. Click prosedürü ile bunu yapmaya çalıştım. Güncelleme yapmıyor aynı veriyi gösteriyor. Nerede hata yapıyorum?


var
  myForm : TclForm;
  myGrid : TclStringGrid;
  localQ : TUniQuery;
  testbutton : TclButton;
 
 
procedure Click;
  begin
 
    localQ.Close;
    localQ.Open;
    ShowMessage('çalışıyor');
    localQ := Clomosy.DBSQLServerQueryWith('SELECT * FROM TBLSTOKSB');

    
  end;
begin
  myForm := TclForm.Create(Self);
 
  testButton := MyForm.AddNewButton(myForm,'testButton','Click');
  testButton.StyledSettings := ssFamily;
  testButton.TextSettings.Font.Size := 20;
  testButton.TextSettings.FontColor := clAlphaColor.clHexToColor('#8a067c');
  myForm.AddNewEvent(testButton,tbeOnClick,'Click');

 
  myGrid := myForm.AddNewStringGrid(myForm,'myGrid');
  myGrid.Align := alBottom;
  myGrid.Margins.Left := 20;
  myGrid.Margins.Top := 20;
  myGrid.Margins.Right := 20;
  myGrid.Margins.Bottom := 20;
 
 
  Clomosy.DBSQLServerConnect('SQL Server','192.168.1.11','deneme','123','stajAtiker',50000);
 
  localQ := Clomosy.DBSQLServerQueryWith('SELECT * FROM TBLCARISB ')
 
  myForm.AddNewGridBinding(myGrid,localQ);
 
  myForm.Run;
end;
]]> Tue, 24 Oct 2023 16:52:51 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=578&PID=768#768