Merhaba Muammer,

Kodunu inceledim. Şu anda herhangi bir veri çekme işlemi yok gibi görünüyor, sadece StringGrid'e manuel veri eklenmiş. StringGrid veri görüntülemek için kullanılıyor ancak arka planda bir veri bağlaması (data binding) olmadığında düzgün çalışmayabilir.

Ben kodunu incelerken, StringGrid 'i JSON verisiyle bir Dataset'e bağladığımda sorunsuz çalıştı. Aşağıdaki örneği inceleyebilir misin? Umarım yardımcı olur, iyi çalışmalar.

var

  TedarikciForm: TclForm;

  Lbl_Baslik: TClProLabel;

  mainPnl, leftPanel, rightPanel: TclProPanel;

  Edt_TedarikciAdi, Edt_TedarikciTelefon, Edt_SiparisMiktari, Edt_UrunAdi: TclProEdit;

  Dt_SiparisTarihi, Dt_TeslimatTarihi: TClProDateEdit;

  Btn_SiparisEkle: TClProButton;

  MyGrid: TclStringGrid;

  jsonStr: String;

  MyDataSet: TClJSonQuery;

  TedarikciAdi, TedarikciTelefon, UrunAdi, SiparisTarihi, TeslimatTarihi: String;

  SiparisMiktari: Integer;

void SetupGridColumns;

{

  //MyGrid.RowCount = 1;

  MyGrid.Columns[0].Header = 'Tedarikçi Adı';

  MyGrid.Columns[1].Header = 'Telefon';

  MyGrid.Columns[2].Header = 'Ürün';

  MyGrid.Columns[3].Header = 'Miktar';

  MyGrid.Columns[4].Header = 'Sipariş Tarihi';

  MyGrid.Columns[5].Header = 'Teslimat Tarihi';

  MyGrid.Columns[0].Width = 150;

  MyGrid.Columns[1].Width = 120;

  MyGrid.Columns[2].Width = 150;

  MyGrid.Columns[3].Width = 120;

  MyGrid.Columns[4].Width = 120;

  MyGrid.Columns[5].Width = 120;

}

void SiparisEkleButtonClick;

var row: Integer;

{

  TedarikciAdi = Edt_TedarikciAdi.Text;

  TedarikciTelefon = Edt_TedarikciTelefon.Text;

  UrunAdi = Edt_UrunAdi.Text;

  SiparisTarihi = Dt_SiparisTarihi.Text;

  TeslimatTarihi = Dt_TeslimatTarihi.Text;

  try

    SiparisMiktari = StrToInt(Edt_SiparisMiktari.Text);

  except

    ShowMessage('Sipariş miktarı geçerli bir sayı olmalıdır.');

  }

  // Grid’e satır ekle

  MyGrid.RowCount = MyGrid.RowCount + 1;

  row = MyGrid.RowCount - 1;

  MyGrid.Cells[0, row] = TedarikciAdi;

  MyGrid.Cells[1, row] = TedarikciTelefon;

  MyGrid.Cells[2, row] = UrunAdi;

  MyGrid.Cells[3, row] = IntToStr(SiparisMiktari);

  MyGrid.Cells[4, row] = SiparisTarihi;

  MyGrid.Cells[5, row] = TeslimatTarihi;

  // Temizle

  Edt_TedarikciAdi.Text = '';

  Edt_TedarikciTelefon.Text = '';

  Edt_UrunAdi.Text = '';

  Edt_SiparisMiktari.Text = '';

  ShowMessage('Sipariş başarıyla eklendi.');

}

{

  TedarikciForm = TclForm.Create(Self);

  TedarikciForm.clSetWindowState(fwsMaximized);

  TedarikciForm.SetFormColor('#f5f5f5', '', clGNone);

  jsonStr = '[' +

    '{"TedarikciAdi":"ABC Ticaret","Telefon":"0555 123 45 67","UrunAdi":"Kalem","SiparisMiktari":100,"SiparisTarihi":"2025-07-11","TeslimatTarihi":"2025-07-20"},' +

    '{"TedarikciAdi":"XYZ Ltd.","Telefon":"0532 987 65 43","UrunAdi":"Defter","SiparisMiktari":50,"SiparisTarihi":"2025-07-12","TeslimatTarihi":"2025-07-22"}' +

  ']';

  Lbl_Baslik = TedarikciForm.AddNewProLabel(TedarikciForm, 'Lbl_Baslik', 'Tedarikçi Sipariş Ekleme');

  Lbl_Baslik.Align = alTop;

  Lbl_Baslik.Height = 60;

  Lbl_Baslik.Margins.Top = 20;

  Lbl_Baslik.clProSettings.FontSize = 26;

  Lbl_Baslik.clProSettings.FontVertAlign = palCenter;

  Lbl_Baslik.clProSettings.FontHorzAlign = palCenter;

  Lbl_Baslik.SetclProSettings(Lbl_Baslik.clProSettings);

  mainPnl = TedarikciForm.AddNewProPanel(TedarikciForm, 'mainPnl');

  mainPnl.Align = alClient;

  leftPanel = TedarikciForm.AddNewProPanel(mainPnl, 'leftPanel');

  leftPanel.Align = alLeft;

  leftPanel.Width = 400;

  leftPanel.Margins.Left = 20;

  leftPanel.Margins.Top = 20;

  rightPanel = TedarikciForm.AddNewProPanel(mainPnl, 'rightPanel');

  rightPanel.Align = alClient;

  rightPanel.Margins.Left = 20;

  rightPanel.Margins.Top = 20;

  Edt_TedarikciAdi = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_TedarikciAdi', 'Tedarikçi Adı');

  Edt_TedarikciAdi.Align = alTop;

  Edt_TedarikciAdi.Margins.Top = 10;

  Edt_TedarikciTelefon = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_TedarikciTelefon', 'Telefon');

  Edt_TedarikciTelefon.Align = alTop;

  Edt_TedarikciTelefon.Margins.Top = 10;

  Edt_UrunAdi = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_UrunAdi', 'Ürün Adı');

  Edt_UrunAdi.Align = alTop;

  Edt_UrunAdi.Margins.Top = 10;

  Edt_SiparisMiktari = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_SiparisMiktari', 'Sipariş Miktarı');

  Edt_SiparisMiktari.Align = alTop;

  Edt_SiparisMiktari.Margins.Top = 10;

  Dt_SiparisTarihi = TedarikciForm.AddNewProDateEdit(leftPanel, 'Dt_SiparisTarihi');

  Dt_SiparisTarihi.Align = alTop;

  Dt_SiparisTarihi.Margins.Top = 10;

  Dt_TeslimatTarihi = TedarikciForm.AddNewProDateEdit(leftPanel, 'Dt_TeslimatTarihi');

  Dt_TeslimatTarihi.Align = alTop;

  Dt_TeslimatTarihi.Margins.Top = 10;

  Btn_SiparisEkle = TedarikciForm.AddNewProButton(leftPanel, 'Btn_SiparisEkle', 'Ekle');

  Btn_SiparisEkle.Align = alTop;

  Btn_SiparisEkle.Margins.Top = 15;

  Btn_SiparisEkle.Height = 40;

  Btn_SiparisEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

  Btn_SiparisEkle.clProSettings.FontColor = clAlphaColor.clWhite;

  Btn_SiparisEkle.clProSettings.FontSize = 16;

  Btn_SiparisEkle.SetclProSettings(Btn_SiparisEkle.clProSettings);

  TedarikciForm.AddNewEvent(Btn_SiparisEkle, tbeOnClick, 'SiparisEkleButtonClick');

  MyGrid = TedarikciForm.AddNewStringGrid(rightPanel, 'MyGrid');

  MyGrid.Align = alClient;

  MyGrid.ReadOnly = True;

  MyDataSet = Clomosy.ClDataSetFromJSON(jsonStr);

  TedarikciForm.AddNewGridBinding(MyGrid, MyDataSet, 'mylink');

  SetupGridColumns;

  TedarikciForm.Run;

}