Genel İşlemler - Grid Hücrelerini Güncelleme

Sayfayı Yazdır | Pencereyi Kapat

Grid Hücrelerini Güncelleme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=578
Tarih: 07 Ocak 2025 Saat 23:21
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Grid Hücrelerini Güncelleme

Mesajı Yazan: Burak
Konu: Grid Hücrelerini Güncelleme
Mesaj Tarihi: 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;

Cevaplar:

Mesajı Yazan: Burak
Mesaj Tarihi: 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;