Clomosy QR Okuma Sorunu !!!

   QR okundğu zaman bir sql komutunu çalıştırmak istiyorum CallBarcodeReaderWithScript fonksiyonu ile ancak https://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" integrity="sha512-rdcWY47ByXd76cbCFzznIcEaCN71jqkWBBqlwhF1SY7KubdLKZiEGeP7AyieKZlGP9hbY/MhGrwXzJC/HulNyg==" 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">
TclForm
Unknown identifier or variable is not declared 'UpdateTicketStatus' 
Source Position: 2,1
Hatası alıyorum hatanın nedenini anlamadım kodu iletiyorum

var   
  MyForm: TclForm;
  testButton: TclButton;
  testLabel : TclLabel;
  qrSql: TclSqlQuery;

void UpdateTicketStatus;
{

  qrSql.Sql.Text = 'UPDATE dbo.visitor_tickets SET status = ' + QuotedStr('Kullanildi') + ' WHERE ticket_code = ' + QuotedStr(testLabel.Text);

  qrSql.ExecSql;

  ShowMessage('Bilet başarıyla okutuldu! Kod: ' + testLabel.Text);

}

void OpenScanner;
{

  MyForm.CallBarcodeReaderWithScript(testLabel, 'UpdateTicketStatus');
}

{
  MyForm = TclForm.Create(self);

  testButton = MyForm.AddNewButton(MyForm,'testButton','Barkod Okut');
  testButton.TextSettings.Font.Size = 40;
  testButton.Align  =  alCenter;
  testButton.Height  =  50;
  testButton.Width  =  150;
  testButton.Margins.Bottom = 200;

  testLabel = MyForm.AddNewLabel(MyForm,'testLabel','Barkod Bekleniyor...');
  testLabel.Align  =  alTop;
  testLabel.Width  =  100;
  testLabel.Height  = 50;
  testLabel.Margins.Top = 200;

  MyForm.AddNewEvent(testButton, tbeOnClick, 'OpenScanner');

  qrSql = TclSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('Sql bilgilerim');
  qrSql.Connection = Clomosy.DBSQLServerConnection;

  MyForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
fyronnn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 09 Şubat 2026 Konum: Konya Durum: Aktif Değil Puanlar: 91	Mesaj Seçenekleri Yanıt Yaz Alıntı fyronnn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Clomosy QR Okuma Sorunu !!! Gönderim Zamanı: 4 Saat 5 Dakika Önce Saat 09:44
	QR okundğu zaman bir sql komutunu çalıştırmak istiyorum CallBarcodeReaderWithScript fonksiyonu ile ancak https://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" integrity="sha512-rdcWY47ByXd76cbCFzznIcEaCN71jqkWBBqlwhF1SY7KubdLKZiEGeP7AyieKZlGP9hbY/MhGrwXzJC/HulNyg==" 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"> TclForm Unknown identifier or variable is not declared 'UpdateTicketStatus' Source Position: 2,1 Hatası alıyorum hatanın nedenini anlamadım kodu iletiyorum var MyForm: TclForm; testButton: TclButton; testLabel : TclLabel; qrSql: TclSqlQuery; void UpdateTicketStatus; { qrSql.Sql.Text = 'UPDATE dbo.visitor_tickets SET status = ' + QuotedStr('Kullanildi') + ' WHERE ticket_code = ' + QuotedStr(testLabel.Text); qrSql.ExecSql; ShowMessage('Bilet başarıyla okutuldu! Kod: ' + testLabel.Text); } void OpenScanner; { MyForm.CallBarcodeReaderWithScript(testLabel, 'UpdateTicketStatus'); } { MyForm = TclForm.Create(self); testButton = MyForm.AddNewButton(MyForm,'testButton','Barkod Okut'); testButton.TextSettings.Font.Size = 40; testButton.Align = alCenter; testButton.Height = 50; testButton.Width = 150; testButton.Margins.Bottom = 200; testLabel = MyForm.AddNewLabel(MyForm,'testLabel','Barkod Bekleniyor...'); testLabel.Align = alTop; testLabel.Width = 100; testLabel.Height = 50; testLabel.Margins.Top = 200; MyForm.AddNewEvent(testButton, tbeOnClick, 'OpenScanner'); qrSql = TclSqlQuery.Create(nil); Clomosy.DBSQLServerConnect('Sql bilgilerim'); qrSql.Connection = Clomosy.DBSQLServerConnection; MyForm.Run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 713	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 3 Saat 22 Dakika Önce Saat 10:27
	var MyForm: TclForm; testButton: TclButton; testLabel : TclLabel; qrSql: TclSqlQuery; void UpdateTicketStatus; { qrSql.Sql.Text = 'UPDATE dbo.visitor_tickets SET status = ' + QuotedStr('Kullanildi') + ' WHERE ticket_code = ' + QuotedStr(testLabel.Text); qrSql.ExecSql; ShowMessage(' Kod: ' + testLabel.Text); } void OpenScanner; { MyForm.CallBarcodeReader(testLabel); } { MyForm = TclForm.Create(self); testButton = MyForm.AddNewButton(MyForm,'testButton','Barkod Okut'); testButton.TextSettings.Font.Size = 40; testButton.Align = alCenter; testButton.Height = 50; testButton.Width = 150; testButton.Margins.Bottom = 200; testLabel = MyForm.AddNewLabel(MyForm,'testLabel','Barkod Bekleniyor...'); testLabel.Align = alTop; testLabel.Width = 100; testLabel.Height = 50; testLabel.Margins.Top = 200; MyForm.AddNewEvent(testButton, tbeOnClick, 'OpenScanner'); MyForm.AddNewEvent(testLabel, tbeOnChange, 'UpdateTicketStatus'); qrSql = TclSqlQuery.Create(nil); //Clomosy.DBSQLServerConnect('Sql bilgilerim'); qrSql.Connection = Clomosy.DBSQLServerConnection; MyForm.Run; } Kodu inceler misin https://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" integrity="sha512-rdcWY47ByXd76cbCFzznIcEaCN71jqkWBBqlwhF1SY7KubdLKZiEGeP7AyieKZlGP9hbY/MhGrwXzJC/HulNyg==" 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">

fyronnn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 09 Şubat 2026 Konum: Konya Durum: Aktif Değil Puanlar: 91	Mesaj Seçenekleri Yanıt Yaz Alıntı fyronnn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 50 Dakika Önce Saat 10:59
	teşekkürlerhttps://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" integrity="sha512-rdcWY47ByXd76cbCFzznIcEaCN71jqkWBBqlwhF1SY7KubdLKZiEGeP7AyieKZlGP9hbY/MhGrwXzJC/HulNyg==" 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">