kayıt ekranı

   merhabalar kullanıcı kayıt yaptıktan sonra giriş ekranına yönlendirmede problem yaşıyorum. otomatik olarak uygulamadan çıkıyor 
var 
  RegisterForm: TclForm;
  UsernameEdit, PasswordEdit, PasswordAgainEdit: TclProEdit;
  RegisterBtn, BackToLoginBtn: TclProButton;
  MainPanel: TclProPanel;
  TitleLbl: TclProLabel;
void BackToLoginBtnClick;
{
  Clomosy.RunUnit('ULogin');
}

void RegisterBtnClick;
{
  try
  {
    /*if (Trim(UsernameEdit.Text) == '') || (Trim(PasswordEdit.Text) == '') || (Trim(PasswordAgainEdit.Text) == '') {
      ShowMessage('Lütfen kullanıcı adı ve şifre alanlarını doldurun.');
      Exit;
    }*/
    if PasswordEdit.Text <> PasswordAgainEdit.Text {
      ShowMessage('Şifreler uyuşmuyor!');
      Exit;
    }
    Clomosy.DBSQLiteQuery.SQL.Text =
      'CREATE TABLE IF NOT EXISTS Users (' +
      'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' +
      'Username TEXT UNIQUE, Password TEXT)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.SQL.Text =
      'SELECT * FROM Users WHERE Username = ' + QuotedStr(UsernameEdit.Text);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if Clomosy.DBSQLiteQuery.RecordCount > 0 {
      ShowMessage('Bu kullanıcı adı zaten kayıtlı!');
      Exit;
    }
    Clomosy.DBSQLiteQuery.SQL.Text =
      'INSERT INTO Users (Username, Password) VALUES (' +
      QuotedStr(UsernameEdit.Text) + ',' +
      QuotedStr(PasswordEdit.Text) + ')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kayıt başarılı!');
    Clomosy.RunUnit('ULogin');
  }
  except
    ShowMessage('Hata oluştu: ' + LastExceptionMessage);
  }
}
{
  RegisterForm = TclForm.Create(Self);

  MainPanel = RegisterForm.AddNewProPanel(RegisterForm, 'MainPanel');
  MainPanel.Align = alClient;

  TitleLbl = RegisterForm.AddNewProLabel(MainPanel, 'TitleLbl', 'Kayıt Ol');
  TitleLbl.Align = alTop;
  TitleLbl.Height = 30;
  TitleLbl.Margins.Top = 30;
  TitleLbl.clProSettings.FontSize = 30;
  TitleLbl.SetclProSettings(TitleLbl.clProSettings);

  UsernameEdit = RegisterForm.AddNewProEdit(MainPanel, 'UsernameEdit', 'Kullanıcı Adı');
  UsernameEdit.Align = alTop;
  UsernameEdit.Margins.Top = 25;

  PasswordEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordEdit', 'Şifre');
  PasswordEdit.Align = alTop;
  PasswordEdit.Margins.Top = 20;
  PasswordEdit.Password = True;
  PasswordAgainEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordAgainEdit', 'Şifre Tekrar');
  PasswordAgainEdit.Align = alTop;
  PasswordAgainEdit.Margins.Top = 20;
  PasswordAgainEdit.Password = True;

  RegisterBtn = RegisterForm.AddNewProButton(MainPanel, 'RegisterBtn', 'Kayıt Ol');
  RegisterBtn.Align = alTop;
  RegisterBtn.Margins.Top = 30;
  RegisterForm.AddNewEvent(RegisterBtn, tbeOnClick, 'RegisterBtnClick');

  BackToLoginBtn = RegisterForm.AddNewProButton(MainPanel, 'BackToLoginBtn', 'Girişe Dön');
  BackToLoginBtn.Align = alTop;
  BackToLoginBtn.Margins.Top = 10;

  RegisterForm.AddNewEvent(BackToLoginBtn, tbeOnClick, 'BackToLoginBtnClick');

  RegisterForm.Run;

}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
sudenaz_seyma Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Temmuz 2025 Durum: Aktif Değil Puanlar: 5	Mesaj Seçenekleri Yanıt Yaz Alıntı sudenaz_seyma Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: kayıt ekranı Gönderim Zamanı: 12 Saat 32 Dakika Önce Saat 11:42
	merhabalar kullanıcı kayıt yaptıktan sonra giriş ekranına yönlendirmede problem yaşıyorum. otomatik olarak uygulamadan çıkıyor var RegisterForm: TclForm; UsernameEdit, PasswordEdit, PasswordAgainEdit: TclProEdit; RegisterBtn, BackToLoginBtn: TclProButton; MainPanel: TclProPanel; TitleLbl: TclProLabel; void BackToLoginBtnClick; { Clomosy.RunUnit('ULogin'); } void RegisterBtnClick; { try { /if (Trim(UsernameEdit.Text) == '') \|\| (Trim(PasswordEdit.Text) == '') \|\| (Trim(PasswordAgainEdit.Text) == '') { ShowMessage('Lütfen kullanıcı adı ve şifre alanlarını doldurun.'); Exit; }/ if PasswordEdit.Text <> PasswordAgainEdit.Text { ShowMessage('Şifreler uyuşmuyor!'); Exit; } Clomosy.DBSQLiteQuery.SQL.Text = 'CREATE TABLE IF NOT EXISTS Users (' + 'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' + 'Username TEXT UNIQUE, Password TEXT)'; Clomosy.DBSQLiteQuery.OpenOrExecute; Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT * FROM Users WHERE Username = ' + QuotedStr(UsernameEdit.Text); Clomosy.DBSQLiteQuery.OpenOrExecute; if Clomosy.DBSQLiteQuery.RecordCount > 0 { ShowMessage('Bu kullanıcı adı zaten kayıtlı!'); Exit; } Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Users (Username, Password) VALUES (' + QuotedStr(UsernameEdit.Text) + ',' + QuotedStr(PasswordEdit.Text) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Kayıt başarılı!'); Clomosy.RunUnit('ULogin'); } except ShowMessage('Hata oluştu: ' + LastExceptionMessage); } } { RegisterForm = TclForm.Create(Self); MainPanel = RegisterForm.AddNewProPanel(RegisterForm, 'MainPanel'); MainPanel.Align = alClient; TitleLbl = RegisterForm.AddNewProLabel(MainPanel, 'TitleLbl', 'Kayıt Ol'); TitleLbl.Align = alTop; TitleLbl.Height = 30; TitleLbl.Margins.Top = 30; TitleLbl.clProSettings.FontSize = 30; TitleLbl.SetclProSettings(TitleLbl.clProSettings); UsernameEdit = RegisterForm.AddNewProEdit(MainPanel, 'UsernameEdit', 'Kullanıcı Adı'); UsernameEdit.Align = alTop; UsernameEdit.Margins.Top = 25; PasswordEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordEdit', 'Şifre'); PasswordEdit.Align = alTop; PasswordEdit.Margins.Top = 20; PasswordEdit.Password = True; PasswordAgainEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordAgainEdit', 'Şifre Tekrar'); PasswordAgainEdit.Align = alTop; PasswordAgainEdit.Margins.Top = 20; PasswordAgainEdit.Password = True; RegisterBtn = RegisterForm.AddNewProButton(MainPanel, 'RegisterBtn', 'Kayıt Ol'); RegisterBtn.Align = alTop; RegisterBtn.Margins.Top = 30; RegisterForm.AddNewEvent(RegisterBtn, tbeOnClick, 'RegisterBtnClick'); BackToLoginBtn = RegisterForm.AddNewProButton(MainPanel, 'BackToLoginBtn', 'Girişe Dön'); BackToLoginBtn.Align = alTop; BackToLoginBtn.Margins.Top = 10; RegisterForm.AddNewEvent(BackToLoginBtn, tbeOnClick, 'BackToLoginBtnClick'); RegisterForm.Run; }

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 138	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 11 Saat 39 Dakika Önce Saat 12:35
	Merhaba, veri tabanı bağlantısını bir işlem yapmadan önce kurman gerekiyor. void RegisterBtnClick; { try { /if (Trim(UsernameEdit.Text) == '') \|\| (Trim(PasswordEdit.Text) == '') \|\| (Trim(PasswordAgainEdit.Text) == '') { ShowMessage('Lütfen kullanıcı adı ve şifre alanlarını doldurun.'); Exit; }/ if PasswordEdit.Text <> PasswordAgainEdit.Text { ShowMessage('Şifreler uyuşmuyor!'); Exit; } //Veri tabanı bağlantısı Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanininismi.db', ''); Clomosy.DBSQLiteQuery.SQL.Text = 'CREATE TABLE IF NOT EXISTS Users (' + 'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' + 'Username TEXT UNIQUE, Password TEXT)'; Clomosy.DBSQLiteQuery.OpenOrExecute; Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT * FROM Users WHERE Username = ' + QuotedStr(UsernameEdit.Text); Clomosy.DBSQLiteQuery.OpenOrExecute; if Clomosy.DBSQLiteQuery.RecordCount > 0 { ShowMessage('Bu kullanıcı adı zaten kayıtlı!'); Exit; } Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Users (Username, Password) VALUES (' + QuotedStr(UsernameEdit.Text) + ',' + QuotedStr(PasswordEdit.Text) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Kayıt başarılı!'); Clomosy.RunUnit('ULogin'); } except ShowMessage('Hata oluştu: ' + LastExceptionMessage); } } Eğer diğer unitte bir sorun yoksa bu şekilde dener misin acaba? İyi çalışmalar.

sudenaz_seyma Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Temmuz 2025 Durum: Aktif Değil Puanlar: 5	Mesaj Seçenekleri Yanıt Yaz Alıntı sudenaz_seyma Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Saat 18 Dakika Önce Saat 13:56
	teşekkür ederim sorun çözüldü

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 138	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 10 Saat 9 Dakika Önce Saat 14:05
	Rica ederim