Clomosy | Forum : TClListView

Clomosy | Forum : TClListView https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:38:28 +0000 Tue, 09 Jul 2024 17:15:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=628 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[TClListView : Merhaba,veritabanında barkodOkut...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=920#920 Yazar: Atiker01
Konu: 628
Gönderim Zamanı: 09 Temmuz 2024 Saat 17:15

Merhaba,

veritabanında barkodOkut adında bir sütunun olmadığını söylüyor. Veritabanında işlemler yaparken hata vermektedir. Tablondaki alan isimlerine kontrol etmelisin.

İyi çalışmalar.

]]> Tue, 09 Jul 2024 17:15:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=920#920 <![CDATA[TClListView : Exeption class:ESQLiteNativeExeption...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=916#916 Yazar: Senol
Konu: 628
Gönderim Zamanı: 09 Temmuz 2024 Saat 13:32

Exeption class:ESQLiteNativeExeption Exception Message:
[FireDac][Phys][SQlite] ERROR:no such column:BarkodOkut]]> Tue, 09 Jul 2024 13:32:03 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=916#916 <![CDATA[TClListView : ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=915#915 Yazar: Senol
Konu: 628
Gönderim Zamanı: 09 Temmuz 2024 Saat 13:24

]]> Tue, 09 Jul 2024 13:24:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=915#915 <![CDATA[TClListView : Merhaba,hatayı da atabilir misin?...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=914#914 Yazar: Atiker01
Konu: 628
Gönderim Zamanı: 09 Temmuz 2024 Saat 11:50

Merhaba,

hatayı da atabilir misin?

]]> Tue, 09 Jul 2024 11:50:19 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=914#914 <![CDATA[TClListView : Hata veriyor Unit1 ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=913#913 Yazar: Senol
Konu: 628
Gönderim Zamanı: 08 Temmuz 2024 Saat 15:22

Hata veriyor Unit1]]> Mon, 08 Jul 2024 15:22:41 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=913#913 <![CDATA[TClListView : //ANA KODvar uForm : TclStyleForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=912#912 Yazar: Senol
Konu: 628
Gönderim Zamanı: 08 Temmuz 2024 Saat 15:18

//ANA KOD

var

uForm : TclStyleForm;

btnUnit :TclButton;

edtUnit :TclEdit;

edtUrunAdi, edtUrunAciklamasi,edtUrunStok,edtBarkodBilgi : TclEdit;

btnInsert : TclButton;

testListview : TClListView;

Qry : TClSQLiteQuery;

database, password : String;

okutBtn: TclButton;

void BarkodOkut;

{

uForm.CallBarcodeReader(edtBarkodBilgi);

}

void SendToMyForm;

{

CallerForm.clShow;

}

void GetData;

{

try

Qry = Clomosy.DBSQLiteQueryWith('SELECT UrunAdi as MAIN_TEXT, UrunStok as SIDE_TEXT_TOP, BarkodOkut as FOOTER_TEXT, Aciklamasi as SUB_TEXT FROM Categories');

Qry.OpenOrExecute;

testListview.clLoadListViewDataFromDataset(Qry);

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

void InsertToDatabase;

{

try

Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Categories (UrunAdi, Aciklamasi, UrunStok, BarkodOkut) VALUES ('+QuotedStr(edtUrunAdi.Text)+','+QuotedStr(edtUrunAciklamasi.Text)+','+edtUrunStok.Text+','+QuotedStr(edtBarkodBilgi.Text)+')';

Clomosy.DBSQLiteQuery.OpenOrExecute;

GetData;

ShowMessage('Veri ekleme başarılı');

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

{

uForm = TclStyleForm.Create(Self);

edtUrunAdi = uForm.AddNewEdit(uForm, 'edtUrunAdi', 'UrunAdi');

edtUrunAdi.Align = alTop;

edtUrunAciklamasi = uForm.AddNewEdit(uForm, 'edtUrunAciklamasi', 'Aciklamasi');

edtUrunAciklamasi.Align = alTop;

edtUrunStok=uForm.AddNewEdit(uForm,'edtUrunStok','UrunStok')

edtUrunStok.Align = alTop;

testListview = uForm.AddNewListView(uForm,'testListview');

testListview.Align = alClient;

okutBtn=uForm.AddNewButton(uForm,'okutBtn','Barkodu okutunuz');

okutBtn.TextSettings.Font.Size=40;

okutBtn.Align = alTop;

edtBarkodBilgi=uForm.AddNewEdit(uForm,'edtBarkodBilgi','Barkod No:');

edtBarkodBilgi.Align = AlTop;

uForm.AddNewEvent(okutBtn,tbeOnClick,'BarkodOkut');

btnInsert = uForm.AddNewButton(uForm,'btnInsert', 'Insert');

btnInsert.Align = alBottom;

uForm.AddNewEvent(btnInsert, tbeOnClick, 'InsertToDatabase');

database = Clomosy.AppFilesPath + 'ClomosyDatabase.db3'

password = '';

try

Clomosy.DBSQLiteConnect(database , password);

Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE Categories(UrunAdi Text, Aciklamasi Text,UrunStok Text,BarkodOkut Text)';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Veri tabanına tablo ekleme işlemi başarılı!');

except

ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

}

GetData;

uForm.Run;

}

//UNİT1 HATANIN OLDUĞU YER

var

uForm : TclStyleForm;

btnUnit :TclButton;

edtUnit :TclEdit;

edtUrunAdi, edtUrunAciklamasi,edtUrunStok,edtBarkodBilgi : TclEdit;

btnInsert : TclButton;

testListview : TClListView;

Qry : TClSQLiteQuery;

database, password : String;

okutBtn: TclButton;

void BarkodOkut;

{

uForm.CallBarcodeReader(edtBarkodBilgi);

}

void SendToMyForm;

{

CallerForm.clShow;

}

void GetData;

{

try

Qry = Clomosy.DBSQLiteQueryWith('SELECT UrunAdi as MAIN_TEXT, UrunStok as SIDE_TEXT_TOP, BarkodOkut as FOOTER_TEXT, Aciklamasi as SUB_TEXT FROM Categories');

Qry.OpenOrExecute;

testListview.clLoadListViewDataFromDataset(Qry);

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

void InsertToDatabase;

{

try

Clomosy.DBSQLiteQuery.OpenOrExecute;

GetData;

ShowMessage('Veri ekleme başarılı');

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

{

uForm = TclStyleForm.Create(Self);

edtUrunAdi = uForm.AddNewEdit(uForm, 'edtUrunAdi', 'UrunAdi');

edtUrunAdi.Align = alTop;

edtUrunAciklamasi = uForm.AddNewEdit(uForm, 'edtUrunAciklamasi', 'Aciklamasi');

edtUrunAciklamasi.Align = alTop;

edtUrunStok=uForm.AddNewEdit(uForm,'edtUrunStok','UrunStok')

edtUrunStok.Align = alTop;

testListview = uForm.AddNewListView(uForm,'testListview');

testListview.Align = alClient;

okutBtn=uForm.AddNewButton(uForm,'okutBtn','Barkodu okutunuz');

okutBtn.TextSettings.Font.Size=40;

okutBtn.Align = alTop;

edtBarkodBilgi=uForm.AddNewEdit(uForm,'edtBarkodBilgi','Barkod No:');

edtBarkodBilgi.Align = AlTop;

uForm.AddNewEvent(okutBtn,tbeOnClick,'BarkodOkut');

btnInsert = uForm.AddNewButton(uForm,'btnInsert', 'Insert');

btnInsert.Align = alBottom;

uForm.AddNewEvent(btnInsert, tbeOnClick, 'InsertToDatabase');

database = Clomosy.AppFilesPath + 'ClomosyDatabase.db3'

password = '';

try

Clomosy.DBSQLiteConnect(database , password);

Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE Categories(UrunAdi Text, Aciklamasi Text,UrunStok Text,BarkodOkut Text)';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Veri tabanına tablo ekleme işlemi başarılı!');

except

ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

}

GetData;

uForm.Run;

}

]]> Mon, 08 Jul 2024 15:18:37 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=628&PID=912#912