proje

   var
  MainForm: TClForm;
  ProductList: TClListView;
  BtnAdd, BtnRefresh: TClProButton;
  EdtName, EdtQty: TClEdit;
  LblName, LblQty: TClProLabel;
  PopUpForm: TClForm;

// --- Veritabanı ve Liste Güncelleme ---
void RefreshData;
{
  // Verileri SQL'den çek ve ListView'e aktar
  Clomosy.DBSQLServerQuery.SQL.Text('SELECT ProductName as (MainText), CAST(ProductStock AS VARCHAR) + '' Adet'' as (FooterText) FROM Products');
  ProductList.Dataset = Clomosy.DBSQLServerDataset;
}

// --- Yeni Ürün Kaydetme ---
void SaveProduct;
{
  if ((EdtName.Text == '') || (EdtQty.Text == '')) 
  {
    ShowMessage('Lütfen tüm alanları doldurun!');
    Exit;
  }

  try
    // SQL Insert işlemi
    Clomosy.DBSQLServerQuery('INSERT INTO Products (ProductName, ProductStock) VALUES (' + 
      QuotedStr(EdtName.Text) + ', ' + EdtQty.Text + ')');

    ShowMessage('Ürün başarıyla kaydedildi.');
    PopUpForm.Close;
    RefreshData; // Listeyi yenile
  except
    ShowMessage('Hata: Veri kaydedilemedi. Sayısal değerleri kontrol edin.');
  }
}

// --- Ürün Ekleme Penceresini Aç ---
void OpenAddWindow;
{
  PopUpForm = TClForm.Create(Self);
  PopUpForm.SetFormColor('#f4f4f4');

  LblName = PopUpForm.AddNewProLabel(PopUpForm, 'LblName', 'Ürün Adı:');
  LblName.Align = alTop;
  LblName.Margins.Top = 20;

  EdtName = PopUpForm.AddNewEdit(PopUpForm, 'EdtName', 'Örn: Bilgisayar');
  EdtName.Align = alTop;

  LblQty = PopUpForm.AddNewProLabel(PopUpForm, 'LblQty', 'Stok Miktarı:');
  LblQty.Align = alTop;
  LblQty.Margins.Top = 10;

  EdtQty = PopUpForm.AddNewEdit(PopUpForm, 'EdtQty', 'Örn: 50');
  EdtQty.Align = alTop;
  EdtQty.clTextSettings.KeyboardType = clkNumeric; // Sadece sayı klavyesi

  BtnAdd = PopUpForm.AddNewProButton(PopUpForm, 'BtnSave', 'Kaydet');
  BtnAdd.Align = alBottom;
  BtnAdd.Height = 50;
  BtnAdd.clSetStyle(cpbSuccess);
  PopUpForm.AddNewEvent(BtnAdd, tbeOnClick, 'SaveProduct');

  PopUpForm.Run;
}

// --- Ana Uygulama Kurulumu ---
{
  MainForm = TClForm.Create(Self);

  // Tablo oluşturma (Eğer yoksa)
  Clomosy.DBSQLServerQuery('IF NOT EXISTS (SELECT * FROM sysobjects WHERE name=''Products'' AND xtype=''U'') ' +
    'CREATE TABLE Products (ProductID INT IDENTITY(1,1) PRIMARY KEY, ProductName VARCHAR(100), ProductStock FLOAT)');

  // Başlık
  MainForm.Caption = 'ClomoStock v1.0';

  // Ürün Listesi
  ProductList = MainForm.AddNewListView(MainForm, 'ProductList');
  ProductList.Align = alClient;
  ProductList.Margins.Top = 10;

  // Ekle Butonu
  BtnAdd = MainForm.AddNewProButton(MainForm, 'BtnAdd', '+ Yeni Ürün Ekle');
  BtnAdd.Align = alTop;
  BtnAdd.Height = 60;
  BtnAdd.clSetStyle(cpbInfo);
  MainForm.AddNewEvent(BtnAdd, tbeOnClick, 'OpenAddWindow');

  // Yenile Butonu
  BtnRefresh = MainForm.AddNewProButton(MainForm, 'BtnRefresh', 'Listeyi Yenile');
  BtnRefresh.Align = alBottom;
  BtnRefresh.Height = 50;
  MainForm.AddNewEvent(BtnRefresh, tbeOnClick, 'RefreshData');

  // İlk açılışta verileri getir
  RefreshData;

  MainForm.Run;
}
Unit Main: Unknown member method: 'Text'.
Source position: 13,145
hatamda bu sekilde nasıl düzeltebilirim
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
elanur Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 8 Saat 32 Dakika Önce Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı elanur Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: proje Gönderim Zamanı: 8 Saat 25 Dakika Önce Saat 13:46
	var MainForm: TClForm; ProductList: TClListView; BtnAdd, BtnRefresh: TClProButton; EdtName, EdtQty: TClEdit; LblName, LblQty: TClProLabel; PopUpForm: TClForm; // --- Veritabanı ve Liste Güncelleme --- void RefreshData; { // Verileri SQL'den çek ve ListView'e aktar Clomosy.DBSQLServerQuery.SQL.Text('SELECT ProductName as (MainText), CAST(ProductStock AS VARCHAR) + '' Adet'' as (FooterText) FROM Products'); ProductList.Dataset = Clomosy.DBSQLServerDataset; } // --- Yeni Ürün Kaydetme --- void SaveProduct; { if ((EdtName.Text == '') \|\| (EdtQty.Text == '')) { ShowMessage('Lütfen tüm alanları doldurun!'); Exit; } try // SQL Insert işlemi Clomosy.DBSQLServerQuery('INSERT INTO Products (ProductName, ProductStock) VALUES (' + QuotedStr(EdtName.Text) + ', ' + EdtQty.Text + ')'); ShowMessage('Ürün başarıyla kaydedildi.'); PopUpForm.Close; RefreshData; // Listeyi yenile except ShowMessage('Hata: Veri kaydedilemedi. Sayısal değerleri kontrol edin.'); } } // --- Ürün Ekleme Penceresini Aç --- void OpenAddWindow; { PopUpForm = TClForm.Create(Self); PopUpForm.SetFormColor('#f4f4f4'); LblName = PopUpForm.AddNewProLabel(PopUpForm, 'LblName', 'Ürün Adı:'); LblName.Align = alTop; LblName.Margins.Top = 20; EdtName = PopUpForm.AddNewEdit(PopUpForm, 'EdtName', 'Örn: Bilgisayar'); EdtName.Align = alTop; LblQty = PopUpForm.AddNewProLabel(PopUpForm, 'LblQty', 'Stok Miktarı:'); LblQty.Align = alTop; LblQty.Margins.Top = 10; EdtQty = PopUpForm.AddNewEdit(PopUpForm, 'EdtQty', 'Örn: 50'); EdtQty.Align = alTop; EdtQty.clTextSettings.KeyboardType = clkNumeric; // Sadece sayı klavyesi BtnAdd = PopUpForm.AddNewProButton(PopUpForm, 'BtnSave', 'Kaydet'); BtnAdd.Align = alBottom; BtnAdd.Height = 50; BtnAdd.clSetStyle(cpbSuccess); PopUpForm.AddNewEvent(BtnAdd, tbeOnClick, 'SaveProduct'); PopUpForm.Run; } // --- Ana Uygulama Kurulumu --- { MainForm = TClForm.Create(Self); // Tablo oluşturma (Eğer yoksa) Clomosy.DBSQLServerQuery('IF NOT EXISTS (SELECT * FROM sysobjects WHERE name=''Products'' AND xtype=''U'') ' + 'CREATE TABLE Products (ProductID INT IDENTITY(1,1) PRIMARY KEY, ProductName VARCHAR(100), ProductStock FLOAT)'); // Başlık MainForm.Caption = 'ClomoStock v1.0'; // Ürün Listesi ProductList = MainForm.AddNewListView(MainForm, 'ProductList'); ProductList.Align = alClient; ProductList.Margins.Top = 10; // Ekle Butonu BtnAdd = MainForm.AddNewProButton(MainForm, 'BtnAdd', '+ Yeni Ürün Ekle'); BtnAdd.Align = alTop; BtnAdd.Height = 60; BtnAdd.clSetStyle(cpbInfo); MainForm.AddNewEvent(BtnAdd, tbeOnClick, 'OpenAddWindow'); // Yenile Butonu BtnRefresh = MainForm.AddNewProButton(MainForm, 'BtnRefresh', 'Listeyi Yenile'); BtnRefresh.Align = alBottom; BtnRefresh.Height = 50; MainForm.AddNewEvent(BtnRefresh, tbeOnClick, 'RefreshData'); // İlk açılışta verileri getir RefreshData; MainForm.Run; } Unit Main: Unknown member method: 'Text'. Source position: 13,145 hatamda bu sekilde nasıl düzeltebilirim https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Puanlar: 837	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 42 Dakika Önce Saat 18:29
	Merhaba Elanur, Hatayı incelediğim de RefreshData prosedüründe sql sorgusunun atanmasından kaynaklandığı görülüyor. sorgularında doğrudan DBSQLServerQuery veya Clomosy.DBSQLServerQuery.Sql.Text üzerinden çalıştırman gerekiyor. https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">