Syntax error.


   var
  AddAppointmentForm: TclStyleForm;
  testListView: TclListView;
  btnSaveAppointment: TClProButton;

void SaveAppointmentToDatabase;
{
  Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Appointments (DoctorName, AppointmentDate, Notes) VALUES (' + 
    QuotedStr(testListView.clSelectedItemData('MAIN_TEXT')) + ', ' + 
    QuotedStr(testListView.clSelectedItemData('SUB_TEXT')) + ', ' + 
    QuotedStr(testListView.clSelectedItemData('FOOTER_TEXT')) + ')';
  Clomosy.DBSQLiteQuery.OpenOrExecute();
  ShowMessage('Randevu kaydedildi');
}

void onItemClicked;
{
  ShowMessage('Seçilen Randevu: ' + testListView.clSelectedItemData('MAIN_TEXT'));
}

{
  AddAppointmentForm = TclStyleForm.Create(Self);
  AddAppointmentForm.SetFormColor('#20262f', '#', clGNone);

  testListView = AddAppointmentForm.AddNewListView(AddAppointmentForm, 'testListView');
  testListView.Align = alClient;
  AddAppointmentForm.AddNewEvent(testListView, tbeOnItemClick, 'onItemClicked');

  // Kullanıcı bilgilerini veritabanından çekelim ve JSON formatına çevirelim
  Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT TC as MAIN_TEXT, Isim as SUB_TEXT FROM Users';
  Clomosy.DBSQLiteQuery.Open;
  
  UserJsonData: TClDataSet;
  UserJsonData = Clomosy.DBSQLiteQuery.DataSet;
  testListView.clLoadListViewDataFromDataset(UserJsonData);

  testListView.Margins.Right = -10;
  testListView.Margins.Top = -10;

  btnSaveAppointment = AddAppointmentForm.AddNewButton(AddAppointmentForm, 'btnSaveAppointment', 'Kaydet');
  btnSaveAppointment.Align = alBottom;
  btnSaveAppointment.Margins.Top = -10;
  AddAppointmentForm.AddNewEvent(btnSaveAppointment, tbeOnClick, 'SaveAppointmentToDatabase');

  AddAppointmentForm.Run;
}
Syntax hatası alıyorum

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
YusufSoyler Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 11 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 26	Mesaj Seçenekleri Yanıt Yaz Alıntı YusufSoyler Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Syntax error. Gönderim Zamanı: 06 Ağustos 2024 Saat 10:13
	var AddAppointmentForm: TclStyleForm; testListView: TclListView; btnSaveAppointment: TClProButton; void SaveAppointmentToDatabase; { Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Appointments (DoctorName, AppointmentDate, Notes) VALUES (' + QuotedStr(testListView.clSelectedItemData('MAIN_TEXT')) + ', ' + QuotedStr(testListView.clSelectedItemData('SUB_TEXT')) + ', ' + QuotedStr(testListView.clSelectedItemData('FOOTER_TEXT')) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute(); ShowMessage('Randevu kaydedildi'); } void onItemClicked; { ShowMessage('Seçilen Randevu: ' + testListView.clSelectedItemData('MAIN_TEXT')); } { AddAppointmentForm = TclStyleForm.Create(Self); AddAppointmentForm.SetFormColor('#20262f', '#', clGNone); testListView = AddAppointmentForm.AddNewListView(AddAppointmentForm, 'testListView'); testListView.Align = alClient; AddAppointmentForm.AddNewEvent(testListView, tbeOnItemClick, 'onItemClicked'); // Kullanıcı bilgilerini veritabanından çekelim ve JSON formatına çevirelim Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT TC as MAIN_TEXT, Isim as SUB_TEXT FROM Users'; Clomosy.DBSQLiteQuery.Open; UserJsonData: TClDataSet; UserJsonData = Clomosy.DBSQLiteQuery.DataSet; testListView.clLoadListViewDataFromDataset(UserJsonData); testListView.Margins.Right = -10; testListView.Margins.Top = -10; btnSaveAppointment = AddAppointmentForm.AddNewButton(AddAppointmentForm, 'btnSaveAppointment', 'Kaydet'); btnSaveAppointment.Align = alBottom; btnSaveAppointment.Margins.Top = -10; AddAppointmentForm.AddNewEvent(btnSaveAppointment, tbeOnClick, 'SaveAppointmentToDatabase'); AddAppointmentForm.Run; } Syntax hatası alıyorum

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 06 Ağustos 2024 Saat 17:42
	Merhaba Yusuf, Kodunun içerisinde sqlite bağlantısı mecvut değil. Kodunu düzenlemen gerekiyor. İncelerken şu örtneği inceler misin: https://www.docs.clomosy.com/index.php/Local_Database_Queries