butona basınca yeni unite geçemiyorum

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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Gulsen Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 21 Mayıs 2025 Durum: Aktif Değil Puanlar: 13	Mesaj Seçenekleri Yanıt Yaz Alıntı Gulsen Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: butona basınca yeni unite geçemiyorum Gönderim Zamanı: 6 Saat 29 Dakika Önce 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
	gll1453