Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - kayıt ekranı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

kayıt ekranı
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
sudenaz_seyma Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 18 Temmuz 2025
Durum: Aktif Değil
Puanlar: 5 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sudenaz_seyma Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: kayıt ekranı
    Gönderim Zamanı: 8 Saat 27 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;
  
  
}
Yukarı Dön
haletr Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Haziran 2025
Konum: Konya
Durum: Aktif Değil
Puanlar: 138 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı haletr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 7 Saat 34 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.
Yukarı Dön
sudenaz_seyma Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 18 Temmuz 2025
Durum: Aktif Değil
Puanlar: 5 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sudenaz_seyma Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 13 Dakika Önce Saat 13:56
teşekkür ederim sorun çözüldü Embarrassed
Yukarı Dön
haletr Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Haziran 2025
Konum: Konya
Durum: Aktif Değil
Puanlar: 138 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı haletr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 4 Dakika Önce Saat 14:05
Rica ederimThumbs Up
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.