Clomosy | Forum : Kod Hatası

Clomosy | Forum : Kod Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 19:22:53 +0000 Mon, 26 May 2025 22:26:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1028 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Kod Hatası : Merhaba Gülşen,Birimlerin main...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1028&PID=2054#2054 Yazar: Emr.Erkmn
Konu: 1028
Gönderim Zamanı: 26 Mayıs 2025 Saat 22:26

Merhaba Gülşen,
Birimlerin main bloğunu koymamışsın, void içinde form oluşturmuşsun, main bloğunda çağırman gerekmektedir. Bir örneğini ben yaptım, diğer birimde de düzeltme sağlarsın.

var

AddForm: TclForm;

EnglishEdt, TurkishEdt: TclProEdit;

SaveBtn: TclProButton;

void SaveWordData;

{

try

{

if ((EnglishEdt.Text == '') || (TurkishEdt.Text == ''))

{

ShowMessage('Lütfen tüm alanları doldurunuz!');

Exit;

}

Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TBLWORDS (English, Turkish) VALUES (''' + EnglishEdt.Text + ''', ''' + TurkishEdt.Text + ''');';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Kelimeniz başarıyla kaydedildi!');

EnglishEdt.Text = '';

TurkishEdt.Text = '';

}

except

{

ShowMessage('Kaydetme hatası: ' + LastExceptionMessage);

}

{

AddForm = TclForm.Create(Self);

AddForm.SetFormBGImage('https://resmim.net/cdn/2025/05/20/TfXT6y.png');

EnglishEdt = AddForm.AddNewProEdit(AddForm, 'edtEnglish', 'İngilizce kelimeyi giriniz...');

EnglishEdt.Align = alTop;

EnglishEdt.Margins.Top = 20;

EnglishEdt.Margins.Left = 10;

EnglishEdt.Margins.Right = 10;

EnglishEdt.Height = 50;

TurkishEdt = AddForm.AddNewProEdit(AddForm, 'edtTurkish', 'Türkçe karşılığını giriniz...');

TurkishEdt.Align = alTop;

TurkishEdt.Margins.Top = 10;

TurkishEdt.Margins.Left = 10;

TurkishEdt.Margins.Right = 10;

TurkishEdt.Height = 50;

SaveBtn = AddForm.AddNewProButton(AddForm, 'btnSaveWord', 'Kaydet');

SaveBtn.Align = alTop;

SaveBtn.Margins.Top = 20;

SaveBtn.Margins.Left = 10;

SaveBtn.Margins.Right = 10;

SaveBtn.Height = 50;

SaveBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

SaveBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

AddForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveWordData');

AddForm.Run;

}

]]> Mon, 26 May 2025 22:26:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1028&PID=2054#2054 <![CDATA[Kod Hatası : MAIN CODE:// --- Veritabanı Bağlantısı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1028&PID=2053#2053 Yazar: Gulsen
Konu: 1028
Gönderim Zamanı: 26 Mayıs 2025 Saat 20:12

MAIN CODE:

// --- Veritabanı Bağlantısı ve Tablo Oluşturma Fonksiyonu ---

void SqLiteConnectionCreateTable;

var

TableExists: Boolean;

{

try

{

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBWORDS.db3', '');

Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TBLWORDS";';

Clomosy.DBSQLiteQuery.OpenOrExecute;

TableExists = not Clomosy.DBSQLiteQuery.Eof;

if not TableExists

{

Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TBLWORDS(WordID INTEGER NOT NULL, English TEXT NOT NULL, Turkish TEXT NOT NULL)';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Tablo başarıyla oluşturuldu!');

}

else

{

ShowMessage('Tablo zaten mevcut.');

}

except

{

ShowMessage('Tablo oluşturma hatası: ' + LastExceptionMessage);

}

// --- Olay Fonksiyonları ---

void OpenAddWordUnit;

{

Clomosy.RunUnit('AddWordUnit'); // AddWordUnit adlı unit açılır.

}

void OpenListWordUnit;

{

Clomosy.RunUnit('ListWordUnit'); // ListWordUnit adlı unit açılır.

}

// --- Ana Ekran (Main Screen) ---

var

Form1: TclForm;

AddWordBtn, ListBtn: TclButton;

{

Form1 = TclForm.Create(Self);

// "Kelime Kaydet" butonunu oluştur

AddWordBtn = Form1.AddNewButton(Form1, 'btnAddWord', 'Kelime Kaydet');

AddWordBtn.Align = alTop;

AddWordBtn.Margins.Top = 20;

AddWordBtn.Height = 50;

Form1.AddNewEvent(AddWordBtn,tbeOnClick,'OpenAddWordUnit');

// "Listem" butonunu oluştur

ListBtn = Form1.AddNewButton(Form1, 'btnListWord', 'Listem');

ListBtn.Align = alTop;

ListBtn.Margins.Top = 10;

ListBtn.Height = 50;

Form1.AddNewEvent(ListBtn,tbeOnClick,'OpenListWordUnit');

SqLiteConnectionCreateTable;

Form1.Run;

}

ADDWORDUNİT:

----------------------

var

AddForm: TclForm;

EnglishEdt, TurkishEdt: TclEdit;

SaveBtn: TclButton;

void AddWordUnit;

{

// Kelime ekleme formunu oluştur

AddForm = TclForm.Create(Self);

// İngilizce kelime giriş alanı

EnglishEdt = AddForm.AddNewEdit(AddForm, 'edtEnglish', 'İngilizce kelimeyi giriniz...');

EnglishEdt.Align = alTop;

EnglishEdt.Margins.Top = 20;

// Türkçe karşılık giriş alanı

TurkishEdt = AddForm.AddNewEdit(AddForm, 'edtTurkish', 'Türkçe karşılığını giriniz...');

TurkishEdt.Align = alTop;

TurkishEdt.Margins.Top = 10;

// "Kaydet" butonunu oluştur

SaveBtn = AddForm.AddNewButton(AddForm, 'btnSaveWord', 'Kaydet');

SaveBtn.Align = alTop;

SaveBtn.Margins.Top = 10;

SaveBtn.Height = 50;

AddForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveWordData');

AddForm.Run;

}

void SaveWordData;

{

try

{

// Veritabanına INSERT sorgusu ile ekle

Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TBLWORDS (English, Turkish) VALUES (''' + EnglishEdt.Text + ''', ''' + TurkishEdt.Text + ''');';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Kelimeniz başarıyla kaydedildi!');

//AddForm.Close;

}

except

{

ShowMessage('Kaydetme hatası: ' + LastExceptionMessage);

}

{

AddWordUnit;

SaveWordData;

}

ListWordUnit:

-------------------

// 4. Kelime Listeleme Birimi (ListWordUnit)

var

ListForm: TclForm;

WordListView: TclListView;

void GetWordData;

var

Qry: TClSQLiteQuery;

{

try

{

Qry = Clomosy.DBSQLiteQueryWith('SELECT WordID as RECORD_GUID, English as MAIN_TEXT, Turkish as FOOTER_TEXT FROM TBLWORDS');

Qry.OpenOrExecute;

while (not Qry.EOF)

{

WordListView.clLoadListViewDataFromDataset(Qry);

Qry.Next;

}

except

{

ShowMessage('Veri çekme hatası: ' + LastExceptionMessage);

}

void ListWordUnit;

{

// Listeleme formunu oluştur

ListForm = TclForm.Create(Self);

// ListView bileşenini ekle

WordListView = ListForm.AddNewListView(ListForm, 'WordListView');

WordListView.Align = alClient;

WordListView.Margins.Left = 5;

WordListView.Margins.Top = 5;

WordListView.Margins.Right = 5;

WordListView.Margins.Bottom = 5;

// Verileri yükle

GetWordData;

ListForm.Run;

}

{

GetWordData;

ListWordUnit;

}

Birimler açılıyor ama kaydetme hatası veriyor

Kaydetme Hatası: [FireADC][Phys][SQLite] ERROR: NOT NULL constraint failed: TBLWORDS.WordID

]]> Mon, 26 May 2025 20:12:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1028&PID=2053#2053