|
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
-------------
gll1453
|