Clomosy | Forum : butona basınca yeni unite geçemiyorum

Yazar: Gulsen
Konu: 1026
Gönderim Zamanı: 25 Mayıs 2025 Saat 16:29

MAIN CODE

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

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;

}

AddWordUnit deki kod

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

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);

}

ListWordUnit deki kod

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

// 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;

}

hata mesajı vb yok

]]>