Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Database bağlantı Hatası
  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.

Database bağlantı Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
vesile Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 29 Haziran 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı vesile Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Database bağlantı Hatası
    Gönderim Zamanı: 5 Saat 29 Dakika Önce Saat 16:47
 var
  LoginForm, RegisterForm : TclForm;
  lblBaslik, lblRegTitle : TclLabel;
  edtKullanici, edtSifre : TclEdit;
  edtRegName, edtRegEmail, edtRegPass : TclEdit;
  btnGiris, btnGoRegister, btnRegSave, btnRegBack : TclButton;
  image : TCLImage;
  clQuery : TclSqlQuery;
 

// geçişler
void KayitEkraninaGec;
{
  RegisterForm.Run; 
}

void GirisEkraninaDon;
{
  RegisterForm.Close; 
}

// giriş 
void GirisYap;
{
  if( (edtKullanici.Text == '') || (edtSifre.Text == '') )
  {
    ShowMessage('Lütfen alanları doldurun.');
  }
  else
  {
    clQuery.Connection = Clomosy.DBSQLServerConnection ; 
    clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ''' + edtKullanici.Text + ''' AND sifre = ''' + edtSifre.Text + '''';
    clQuery.Execute('','');

    if (clQuery.RecordCount > 0)
    {
      ShowMessage('Giriş Başarılı!');
    }
    else
    {
      ShowMessage('Hatalı Bilgi!');
    }
  }
}

// kayit ol
void KaydiTamamla;
{
  if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))
  {
    ShowMessage('Tüm alanları doldurun.');
  }
  else
  {
    clQuery.Connection = Clomosy.DBSQLServerConnection;
    clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')';
    
    clQuery.Execute('', ''); 

    ShowMessage('Kayıt Başarılı!');
    RegisterForm.Close;
  }
}

{
  clQuery = TclSqlQuery.Create(Self);

  // giriş ekrani
  LoginForm = TclForm.Create(Self);
  LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);
   try
    if (Clomosy.DBSQLServerConnect('SQLNCLI11', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433))
    {
      ShowMessage('Veritabanına Başarıyla Bağlanıldı!');
      clQuery = TclSqlQuery.Create(Self);
    }
    else
    {
      ShowMessage('Bağlantı Kurulamadı! Bilgilerinizi kontrol edin.');
    }
  except
    ShowMessage('Kritik Hata: Veritabanı bağlantı işlemi sırasında program çöktü!');
  }


  
  image = LoginForm.AddNewImage(LoginForm, 'image');
  image.Height = 400;
  image.Width = 140; 
  
  lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');
  lblBaslik.Align = alTop;
  lblBaslik.Height = 25;
  lblBaslik.Margins.Top = 50;
  lblBaslik.Margins.Left = 125;
  
  edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');
  edtKullanici.Align = alTop;
  edtKullanici.Height = 45;
  edtKullanici.Margins.Top = 80;
  edtKullanici.Margins.Left = 40;
  edtKullanici.Margins.Right = 40;
  
  edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');
  edtSifre.Align = alTop;
  edtSifre.Height = 45;
  edtSifre.Margins.Top = 15;
  edtSifre.Margins.Left = 40;
  edtSifre.Margins.Right = 40;
  
  btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');
  btnGiris.Align = alTop;
  btnGiris.Height = 50;
  btnGiris.Margins.Top = 30;
  btnGiris.Margins.Left = 40;
  btnGiris.Margins.Right = 40;
  LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');
  
  btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');
  btnGoRegister.Align = alTop;
  btnGoRegister.Height = 50;
  btnGoRegister.Margins.Top = 25; 
  btnGoRegister.Margins.Left = 30;
  btnGoRegister.Margins.Right = 30;
  LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');

  // kayit ekranı
  RegisterForm = TclForm.Create(Self);
  RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical); 

  lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');
  lblRegTitle.Align = alTop; 
  lblRegTitle.Height = 40; 
  lblRegTitle.Margins.Top = 60;
  lblRegTitle.TextSettings.HorzAlign = taCenter;

  edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');
  edtRegName.Align = alTop; 
  edtRegName.Height = 45; 
  edtRegName.Margins.Top = 30; 
  edtRegName.Margins.Left = 40; 
  edtRegName.Margins.Right = 40;

  edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');
  edtRegEmail.Align = alTop; 
  edtRegEmail.Height = 45; 
  edtRegEmail.Margins.Top = 15; 
  edtRegEmail.Margins.Left = 40; 
  edtRegEmail.Margins.Right = 40;

  edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');
  edtRegPass.Align = alTop; 
  edtRegPass.Height = 45; 
  edtRegPass.Margins.Top = 15; 
  edtRegPass.Margins.Left = 40; 
  edtRegPass.Margins.Right = 40;
  
  btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');
  btnRegSave.Align = alTop; 
  btnRegSave.Height = 50; 
  btnRegSave.Margins.Top = 30; 
  btnRegSave.Margins.Left = 40; 
  btnRegSave.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');

  btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');
  btnRegBack.Align = alTop; 
  btnRegBack.Height = 40; 
  btnRegBack.Margins.Top = 15; 
  btnRegBack.Margins.Left = 40; 
  btnRegBack.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');
  
  
LoginForm.Run;
}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
vesile
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 945 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 16 Dakika Önce Saat 17:00
Merhaba Vesile,

Sql bağlantısı yaparken koşul içerisinde kullanmamanı isteyeceğim. Sadece try-except yapısına bırakmalısın. 

SQL parametrelerini yazarken de hatan mevcut SQLNCL!! yerine SQL Server yazman gerekli 

TCP/IP protokolünü aktif eder misin? 

Ayrıca sql sorgularında eri çekerken execute yerine OpenOrExecute kullanmanı istiyorum bu yapı daha sağlıklı 


 var
  LoginForm, RegisterForm : TclForm;
  lblBaslik, lblRegTitle : TclLabel;
  edtKullanici, edtSifre : TclEdit;
  edtRegName, edtRegEmail, edtRegPass : TclEdit;
  btnGiris, btnGoRegister, btnRegSave, btnRegBack : TclButton;
  image : TCLImage;
  clQuery : TclSqlQuery;
 

// geçişler
void KayitEkraninaGec;
{
  RegisterForm.Run; 
}

void GirisEkraninaDon;
{
  RegisterForm.Close; 
}

// giriş 
void GirisYap;
{
  if( (edtKullanici.Text == '') || (edtSifre.Text == '') )
  {
    ShowMessage('Lütfen alanları doldurun.');
  }
  else
  {
    try
      clQuery.Connection = Clomosy.DBSQLServerConnection ; 
      clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ' + QuotedStr(edtKullanici.Text) + ' AND sifre = ' + QuotedStr(edtSifre.Text);
      clQuery.OpenOrExecute; 

      if (clQuery.RecordCount > 0)
      {
        ShowMessage('Giriş Başarılı!');
      }
      else
      {
        ShowMessage('Hatalı Bilgi!');
      }
    except
      ShowMessage('Sorgu Hatası: ' + LastExceptionMessage);
    }
  }
}

// kayit ol
void KaydiTamamla;
{
  if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))
  {
    ShowMessage('Tüm alanları doldurun.');
  }
  else
  {
    clQuery.Connection = Clomosy.DBSQLServerConnection;
    clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')';
    
    clQuery.Execute('', ''); 

    ShowMessage('Kayıt Başarılı!');
    RegisterForm.Close;
  }
}

{
  LoginForm = TclForm.Create(Self);
  LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);

  clQuery = TclSqlQuery.Create(Self);

  try
    Clomosy.DBSQLServerConnect('SQL Server', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433);
    ShowMessage('Veritabanına Başarıyla Bağlanıldı!');
  except
    ShowMessage('Bağlantı Kurulamadı! Detay: ' + LastExceptionMessage);
  }

  
  image = LoginForm.AddNewImage(LoginForm, 'image');
  image.Height = 400;
  image.Width = 140; 
  
  lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');
  lblBaslik.Align = alTop;
  lblBaslik.Height = 25;
  lblBaslik.Margins.Top = 50;
  lblBaslik.Margins.Left = 125;
  
  edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');
  edtKullanici.Align = alTop;
  edtKullanici.Height = 45;
  edtKullanici.Margins.Top = 80;
  edtKullanici.Margins.Left = 40;
  edtKullanici.Margins.Right = 40;
  
  edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');
  edtSifre.Align = alTop;
  edtSifre.Height = 45;
  edtSifre.Margins.Top = 15;
  edtSifre.Margins.Left = 40;
  edtSifre.Margins.Right = 40;
  
  btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');
  btnGiris.Align = alTop;
  btnGiris.Height = 50;
  btnGiris.Margins.Top = 30;
  btnGiris.Margins.Left = 40;
  btnGiris.Margins.Right = 40;
  LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');
  
  btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');
  btnGoRegister.Align = alTop;
  btnGoRegister.Height = 50;
  btnGoRegister.Margins.Top = 25; 
  btnGoRegister.Margins.Left = 30;
  btnGoRegister.Margins.Right = 30;
  LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');

  // kayit ekranı
  RegisterForm = TclForm.Create(Self);
  RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical); 

  lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');
  lblRegTitle.Align = alTop; 
  lblRegTitle.Height = 40; 
  lblRegTitle.Margins.Top = 60;
  lblRegTitle.TextSettings.HorzAlign = taCenter;

  edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');
  edtRegName.Align = alTop; 
  edtRegName.Height = 45; 
  edtRegName.Margins.Top = 30; 
  edtRegName.Margins.Left = 40; 
  edtRegName.Margins.Right = 40;

  edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');
  edtRegEmail.Align = alTop; 
  edtRegEmail.Height = 45; 
  edtRegEmail.Margins.Top = 15; 
  edtRegEmail.Margins.Left = 40; 
  edtRegEmail.Margins.Right = 40;

  edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');
  edtRegPass.Align = alTop; 
  edtRegPass.Height = 45; 
  edtRegPass.Margins.Top = 15; 
  edtRegPass.Margins.Left = 40; 
  edtRegPass.Margins.Right = 40;
  
  btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');
  btnRegSave.Align = alTop; 
  btnRegSave.Height = 50; 
  btnRegSave.Margins.Top = 30; 
  btnRegSave.Margins.Left = 40; 
  btnRegSave.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');

  btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');
  btnRegBack.Align = alTop; 
  btnRegBack.Height = 40; 
  btnRegBack.Margins.Top = 15; 
  btnRegBack.Margins.Left = 40; 
  btnRegBack.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');
  
  
LoginForm.Run;
} var
  LoginForm, RegisterForm : TclForm;
  lblBaslik, lblRegTitle : TclLabel;
  edtKullanici, edtSifre : TclEdit;
  edtRegName, edtRegEmail, edtRegPass : TclEdit;
  btnGiris, btnGoRegister, btnRegSave, btnRegBack : TclButton;
  image : TCLImage;
  clQuery : TclSqlQuery;
 

// geçişler
void KayitEkraninaGec;
{
  RegisterForm.Run; 
}

void GirisEkraninaDon;
{
  RegisterForm.Close; 
}

// giriş 
void GirisYap;
{
  if( (edtKullanici.Text == '') || (edtSifre.Text == '') )
  {
    ShowMessage('Lütfen alanları doldurun.');
  }
  else
  {
    clQuery.Connection = Clomosy.DBSQLServerConnection ; 
    clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ''' + edtKullanici.Text + ''' AND sifre = ''' + edtSifre.Text + '''';
    clQuery.Execute('','');

    if (clQuery.RecordCount > 0)
    {
      ShowMessage('Giriş Başarılı!');
    }
    else
    {
      ShowMessage('Hatalı Bilgi!');
    }
  }
}

// kayit ol
void KaydiTamamla;
{
  if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))
  {
    ShowMessage('Tüm alanları doldurun.');
  }
  else
  {
    clQuery.Connection = Clomosy.DBSQLServerConnection;
    clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')';
    
    clQuery.Execute('', ''); 

    ShowMessage('Kayıt Başarılı!');
    RegisterForm.Close;
  }
}

{
  clQuery = TclSqlQuery.Create(Self);

  // giriş ekrani
  LoginForm = TclForm.Create(Self);
  LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);
   try
    if (Clomosy.DBSQLServerConnect('SQLNCLI11', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433))
    {
      ShowMessage('Veritabanına Başarıyla Bağlanıldı!');
      clQuery = TclSqlQuery.Create(Self);
    }
    else
    {
      ShowMessage('Bağlantı Kurulamadı! Bilgilerinizi kontrol edin.');
    }
  except
    ShowMessage('Kritik Hata: Veritabanı bağlantı işlemi sırasında program çöktü!');
  }


  
  image = LoginForm.AddNewImage(LoginForm, 'image');
  image.Height = 400;
  image.Width = 140; 
  
  lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');
  lblBaslik.Align = alTop;
  lblBaslik.Height = 25;
  lblBaslik.Margins.Top = 50;
  lblBaslik.Margins.Left = 125;
  
  edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');
  edtKullanici.Align = alTop;
  edtKullanici.Height = 45;
  edtKullanici.Margins.Top = 80;
  edtKullanici.Margins.Left = 40;
  edtKullanici.Margins.Right = 40;
  
  edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');
  edtSifre.Align = alTop;
  edtSifre.Height = 45;
  edtSifre.Margins.Top = 15;
  edtSifre.Margins.Left = 40;
  edtSifre.Margins.Right = 40;
  
  btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');
  btnGiris.Align = alTop;
  btnGiris.Height = 50;
  btnGiris.Margins.Top = 30;
  btnGiris.Margins.Left = 40;
  btnGiris.Margins.Right = 40;
  LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');
  
  btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');
  btnGoRegister.Align = alTop;
  btnGoRegister.Height = 50;
  btnGoRegister.Margins.Top = 25; 
  btnGoRegister.Margins.Left = 30;
  btnGoRegister.Margins.Right = 30;
  LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');

  // kayit ekranı
  RegisterForm = TclForm.Create(Self);
  RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical); 

  lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');
  lblRegTitle.Align = alTop; 
  lblRegTitle.Height = 40; 
  lblRegTitle.Margins.Top = 60;
  lblRegTitle.TextSettings.HorzAlign = taCenter;

  edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');
  edtRegName.Align = alTop; 
  edtRegName.Height = 45; 
  edtRegName.Margins.Top = 30; 
  edtRegName.Margins.Left = 40; 
  edtRegName.Margins.Right = 40;

  edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');
  edtRegEmail.Align = alTop; 
  edtRegEmail.Height = 45; 
  edtRegEmail.Margins.Top = 15; 
  edtRegEmail.Margins.Left = 40; 
  edtRegEmail.Margins.Right = 40;

  edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');
  edtRegPass.Align = alTop; 
  edtRegPass.Height = 45; 
  edtRegPass.Margins.Top = 15; 
  edtRegPass.Margins.Left = 40; 
  edtRegPass.Margins.Right = 40;
  
  btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');
  btnRegSave.Align = alTop; 
  btnRegSave.Height = 50; 
  btnRegSave.Margins.Top = 30; 
  btnRegSave.Margins.Left = 40; 
  btnRegSave.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');

  btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');
  btnRegBack.Align = alTop; 
  btnRegBack.Height = 40; 
  btnRegBack.Margins.Top = 15; 
  btnRegBack.Margins.Left = 40; 
  btnRegBack.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');
  
  
LoginForm.Run;
}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 945 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 29 Dakika Önce Saat 17:47
var
  LoginForm, RegisterForm: TclForm;
  lblBaslik, lblRegTitle: TclLabel;
  edtKullanici, edtSifre: TclEdit;
  edtRegName, edtRegEmail, edtRegPass: TclEdit;
  btnGiris, btnGoRegister, btnRegSave, btnRegBack: TclButton;
  image: TCLImage;
  clQuery: TclSqlQuery;

void KayitEkraninaGec;
{
  RegisterForm.Run; 
}

void GirisEkraninaDon;
{
  RegisterForm.Close; 
}

void GirisYap;
{
  if ((edtKullanici.Text == '') || (edtSifre.Text == ''))
  {
    ShowMessage('Lütfen alanları doldurun.');
  }
  else
  {
    try
      clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ' + QuotedStr(edtKullanici.Text) + ' AND sifre = ' + QuotedStr(edtSifre.Text);
      clQuery.Open; 

      if (clQuery.RecordCount > 0)
      {
        ShowMessage('Giriş Başarılı!');
      }
      else
      {
        ShowMessage('Hatalı Bilgi!');
      }
    except
      ShowMessage('Sorgu Hatası: ' + LastExceptionMessage);
    }
  }
}

void KaydiTamamla;
{
  if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))
  {
    ShowMessage('Tüm alanları doldurun.');
  }
  else
  {
    try
      clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (' + QuotedStr(edtRegEmail.Text) + ', ' + QuotedStr(edtRegName.Text) + ', ' + QuotedStr(edtRegEmail.Text) + ', ' + QuotedStr(edtRegPass.Text) + ')';
      clQuery.Execute('', ''); 

      ShowMessage('Kayıt Başarılı!');
      RegisterForm.Close;
    except
      ShowMessage('Kayıt Hatası: ' + LastExceptionMessage);
    }
  }
}

{
  LoginForm = TclForm.Create(Self);
  LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);

  clQuery = TclSqlQuery.Create(Self);

  try
    Clomosy.DBSQLServerConnect('SQL Server', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433);
    clQuery.Connection = Clomosy.DBSQLServerConnection;
    ShowMessage('Veritabanına Başarıyla Bağlanıldı!');
  except
    ShowMessage('Bağlantı Kurulamadı! Detay: ' + LastExceptionMessage);
  }

  image = LoginForm.AddNewImage(LoginForm, 'image');
  image.Height = 400;
  image.Width = 140; 
  
  lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');
  lblBaslik.Align = alTop;
  lblBaslik.Height = 25;
  lblBaslik.Margins.Top = 50;
  lblBaslik.Margins.Left = 125;
  
  edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');
  edtKullanici.Align = alTop;
  edtKullanici.Height = 45;
  edtKullanici.Margins.Top = 80;
  edtKullanici.Margins.Left = 40;
  edtKullanici.Margins.Right = 40;
  
  edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');
  edtSifre.Align = alTop;
  edtSifre.Height = 45;
  edtSifre.Margins.Top = 15;
  edtSifre.Margins.Left = 40;
  edtSifre.Margins.Right = 40;
  
  btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');
  btnGiris.Align = alTop;
  btnGiris.Height = 50;
  btnGiris.Margins.Top = 25;
  btnGiris.Margins.Right = 40;
  
  LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');
  
  btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');
  btnGoRegister.Align = alTop;
  btnGoRegister.Height = 50;
  btnGoRegister.Margins.Top = 25; 
  btnGoRegister.Margins.Left = 30;
  btnGoRegister.Margins.Right = 30;
  LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');

  RegisterForm = TclForm.Create(Self);
  RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical); 

  lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');
  lblRegTitle.Align = alTop; 
  lblRegTitle.Height = 40; 
  lblRegTitle.Margins.Top = 60;
  lblRegTitle.TextSettings.HorzAlign = taCenter;

  edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');
  edtRegName.Align = alTop; 
  edtRegName.Height = 45; 
  edtRegName.Margins.Top = 30; 
  edtRegName.Margins.Left = 40; 
  edtRegName.Margins.Right = 40;

  edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');
  edtRegEmail.Align = alTop; 
  edtRegEmail.Height = 45; 
  edtRegEmail.Margins.Top = 15; 
  edtRegEmail.Margins.Left = 40; 
  edtRegEmail.Margins.Right = 40;

  edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');
  edtRegPass.Align = alTop; 
  edtRegPass.Height = 45; 
  edtRegPass.Margins.Top = 15; 
  edtRegPass.Margins.Left = 40; 
  edtRegPass.Margins.Right = 40;
  
  btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');
  btnRegSave.Align = alTop; 
  btnRegSave.Height = 50; 
  btnRegSave.Margins.Top = 30; 
  btnRegSave.Margins.Left = 40; 
  btnRegSave.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');

  btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');
  btnRegBack.Align = alTop; 
  btnRegBack.Height = 40; 
  btnRegBack.Margins.Top = 15; 
  btnRegBack.Margins.Left = 40; 
  btnRegBack.Margins.Right = 40;
  RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');
  
  LoginForm.FormWaiting.Visible = False;
  LoginForm.BtnFormMenu.Visible = False;
  LoginForm.BtnGoBack.Visible = False;

  LoginForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
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.