Clomosy | Forum : Clomosy QR Okuma Sorunu !!!

Clomosy | Forum : Clomosy QR Okuma Sorunu !!! https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 17 Apr 2026 13:56:51 +0000 Mon, 02 Mar 2026 10:59:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1410 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Clomosy QR Okuma Sorunu !!! : teşekkürlerhttps://static.clou...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3196#3196 Yazar: fyronnn
Konu: 1410
Gönderim Zamanı: 02 Mart 2026 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">]]> Mon, 02 Mar 2026 10:59:45 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3196#3196 <![CDATA[Clomosy QR Okuma Sorunu !!! : var MyForm: TclForm; testButton:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3195#3195 Yazar: Emr.Erkmn
Konu: 1410
Gönderim Zamanı: 02 Mart 2026 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">]]> Mon, 02 Mar 2026 10:27:23 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3195#3195 <![CDATA[Clomosy QR Okuma Sorunu !!! : QR okundğu zaman bir sql komutunu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3192#3192 Yazar: fyronnn
Konu: 1410
Gönderim Zamanı: 02 Mart 2026 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;

}

]]> Mon, 02 Mar 2026 09:44:27 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1410&PID=3192#3192