Clomosy | Forum : Syntax error. https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 13:00:33 +0000 Tue, 06 Aug 2024 17:42:53 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=814 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Syntax error. : Merhaba Yusuf,Kodunun içerisinde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=814&PID=1486#1486 Yazar: Developer
Konu: 814
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
]]> Tue, 06 Aug 2024 17:42:53 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=814&PID=1486#1486 <![CDATA[Syntax error. : var AddAppointmentForm: TclStyleForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=814&PID=1441#1441 Yazar: YusufSoyler
Konu: 814
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
]]> Tue, 06 Aug 2024 10:13:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=814&PID=1441#1441