Sayfayı Yazdır | Pencereyi Kapat

sql kayıt kontrol

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=780
Tarih: 08 Ocak 2025 Saat 00:04
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: sql kayıt kontrol
Mesajı Yazan: rabiagnbs
Konu: sql kayıt kontrol
Mesaj Tarihi: 31 Temmuz 2024 Saat 14:23
SQl'de bulunan verileri kod içerisinde kontrol ederken bu şekilde ilerledim sorun nedir?:

kullaniciKontrol.SQL.Text = 'SELECT users_name , users_password, users_email from Users';
    KullaniciKontrol.Open;
    
    if ((kullaniciKontrol.Sql.Text)==(userName.Text) && (password.Text) && (email.Text))
    {
      ShowMessage('Başarılı bir şekilde giriş yapıldı ✅');
      giris.clShow;
      AnaSayfa.UnitName='AnaSayfa';
      AnaSayfa.CallerForm=giris;
      AnaSayfa.Run;
    }
    
    else
    {
      ShowMessage('Kayıt bulunamadı❗ Lütfen Kayıt Olun.');
    }
    
    kullaniciKontrol.Free;
    kullaniciKontrol.Close;


-------------
RabiaGnbs


Cevaplar:
Mesajı Yazan: Developer
Mesaj Tarihi: 31 Temmuz 2024 Saat 15:07
Merhaba Rabia,
Biraz daha detay verebilir misin projen ile alakalı olarak?

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 31 Temmuz 2024 Saat 15:09
Merhaba giriş yap ve kayıt ol butonları ve sayfaları mevcut kullanıcı kayıt olduğuda kayıt veri tabanına ekleniyor giriş yaptığında da yukarıdaki kodla birlikte kullanıcıyı kontrol edip eğer mevcutsa öyle giriş yapmasını istiyorum ama hata alıyorum maalesef 

-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 31 Temmuz 2024 Saat 15:30
Merhaba Rabia,
Bütün kodlarını paylaşır mısın?

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 31 Temmuz 2024 Saat 15:38
var
   giris: TclStyleForm;
   userName, password, email: TClProEdit;
   girisPanel1: TclProPanel;
   girisButton, kayitButton: TClProButton;
   AnaSayfa: TclUnit;
   seyahatImg: TCLImage;
   YeniKayit: TclUnit;
   girisKontrol: TCLLabel;
   kullaniciKontrol: TclSqlQuery;

/*void GirisBasarili;
{
  ShowMessage('Başarılı bir şekilde giriş yapıldı ✅');
  
  giris.clShow;
  AnaSayfa.UnitName='AnaSayfa';
  AnaSayfa.CallerForm=giris;
  AnaSayfa.Run;
}*/

void KullaniciKontrolEt;
{
  kullaniciKontrol = TclSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', 'myserver9363.database.windows.net', 'azureuser', 'SES1234sizlik', 'yeniSeyahat', 1433);
  kullaniciKontrol.Connection = Clomosy.DBSQLServerConnection;
  

  kullaniciKontrol.SQL.Text = 'SELECT users_name, users_password, users_email FROM Users WHERE users_name = :userName AND users_password = :password AND users_email = :email';
  kullaniciKontrol.ParamByName('userName').AsString = userName.Text;
  kullaniciKontrol.ParamByName('password').AsString = password.Text;
  kullaniciKontrol.ParamByName('email').AsString = email.Text;
  kullaniciKontrol.Open;

  if (!kullaniciKontrol.EOF)
  {
    ShowMessage('Başarılı bir şekilde giriş yapıldı ✅');
    giris.clShow();
    AnaSayfa.UnitName = 'AnaSayfa';
    AnaSayfa.CallerForm = giris;
    AnaSayfa.Run();
  }
  else
  {
    ShowMessage('Kayıt bulunamadı❗ Lütfen Kayıt Olun.');
  }

  kullaniciKontrol.Free;
  kullaniciKontrol.Close();
}


void KayitOl;
{
  giris.clShow;
  YeniKayit.UnitName='YeniKayit';
  YeniKayit.CallerForm=giris;
  YeniKayit.Run;
}

{
  giris=TclStyleForm.Create(self);
  giris.SetFormBGImage(' https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg" rel="nofollow - https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg ');
  
  AnaSayfa=TclUnit.Create;
  YeniKayit=TclUnit.Create;
  
  girisPanel1=giris.AddNewProPanel(giris,'girisPanel1');
  clComponent.SetupComponent(girisPanel1,
  '{"Align" : "Center",
  "MarginBottom":100,
  "MarginTop":100,
  "Width" :350, 
  "Height":450,
  "RoundHeight":20,
  "RoundWidth":20,
  "BackGroundColor":"#faf0f6"
  }');
  
  seyahatImg=giris.AddNewImage(giris,'seyahatImg');
  giris.setImage(seyahatImg,' https://i.hizliresim.com/6gglf4e.png" rel="nofollow - https://i.hizliresim.com/6gglf4e.png ');
  seyahatImg.Height=250;
  seyahatImg.Width=350;
  seyahatImg.Align=alTop;
  

   userName=giris.AddNewProEdit(girisPanel1, 'userName', 'Kullanıcı Adı:');
   clComponent.SetupComponent(userName,'{
   "MarginBottom":250,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   
   password=giris.AddNewProEdit(girisPanel1, 'password', 'Şifre');
   clComponent.SetupComponent(password,'{
   "MarginBottom":140,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   password.Password=True;
   
   email=giris.AddNewProEdit(girisPanel1, 'email', 'Email');
   clComponent.SetupComponent(email,'{
   "MarginBottom":30,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   

   girisButton=giris.AddNewProButton(girisPanel1, 'girisButton', 'Giriş Yap');
   clComponent.SetupComponent(girisButton,'{
   "MarginTop":180,
   "TextColor":"#526fcc",
   "TextWidth":300,
   "TextHeight":200,
   "Width" :200, 
   "Height":50,
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderColor":"#617bcf",
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"null"
   }');
   
   kayitButton=giris.AddNewProButton(girisPanel1, 'kayitButton', 'Kayıt Ol');
   clComponent.SetupComponent(kayitButton,'{
   "MarginTop":290,
   "TextColor":"#526fcc",
   "TextWidth":300,
   "TextHeight":200,
   "TextSize":17,
   "Width" :200, 
   "Height":50,
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderColor":"#617bcf",
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"null"
   }');
   
   giris.AddNewEvent(girisButton,tbeOnClick,'KullaniciKontrolEt');
   giris.AddNewEvent(kayitButton,tbeOnClick,'KayitOl');
 
   giris.Run;
}


-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 31 Temmuz 2024 Saat 16:28
Merhaba Rabia 
var
   giris: TclStyleForm;
   userName, password, email: TClProEdit;
   girisPanel1: TclProPanel;
   girisButton, kayitButton: TClProButton;
   AnaSayfa: TclUnit;
   seyahatImg: TCLImage;
   YeniKayit: TclUnit;
   girisKontrol: TCLLabel;
   kullaniciKontrol: TclSqlQuery;



void KullaniciKontrolEt;
{
  kullaniciKontrol = TclSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', 'myserver9363.database.windows.net', 'azureuser', 'SES1234sizlik', 'yeniSeyahat', 1433);
  kullaniciKontrol.Connection = Clomosy.DBSQLServerConnection;
  

  kullaniciKontrol.SQL.Text = 'SELECT users_name, users_password, users_email FROM Users WHERE users_name = :userName AND users_password = :password AND users_email = :email';
  kullaniciKontrol.ParamByName('userName').AsString = userName.Text;
  kullaniciKontrol.ParamByName('password').AsString = password.Text;
  kullaniciKontrol.ParamByName('email').AsString = email.Text;
  kullaniciKontrol.Open;

  if (  kullaniciKontrol.Found)
  {
    ShowMessage('Başarılı bir şekilde giriş yapıldı ✅');
    //giris.clShow();
    //AnaSayfa.UnitName = 'AnaSayfa';
    //AnaSayfa.CallerForm = giris;
    //AnaSayfa.Run();
    Clomosy.RunUnit(AnaSayfa);
  }
  else
  {
    ShowMessage('Kayıt bulunamadı❗ Lütfen Kayıt Olun.');
  }

  kullaniciKontrol.Free;
  kullaniciKontrol.Close();
}


void KayitOl;
{
  //giris.clShow;
  //YeniKayit.UnitName='YeniKayit';
  //YeniKayit.CallerForm=giris;
 // YeniKayit.Run;
  Clomosy.RunUnit(YeniKayit);
}

{
  giris=TclStyleForm.Create(self);
  giris.SetFormBGImage(' https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg" rel="nofollow - https://i.pinimg.com/564x/8c/d9/16/8cd91636fb363780160fede3f9b7717e.jpg ');
  
  AnaSayfa=TclUnit.Create;
  YeniKayit=TclUnit.Create;
  
  girisPanel1=giris.AddNewProPanel(giris,'girisPanel1');
  clComponent.SetupComponent(girisPanel1,
  '{"Align" : "Center",
  "MarginBottom":100,
  "MarginTop":100,
  "Width" :350, 
  "Height":450,
  "RoundHeight":20,
  "RoundWidth":20,
  "BackGroundColor":"#faf0f6"
  }');
  
  seyahatImg=giris.AddNewImage(giris,'seyahatImg');
  giris.setImage(seyahatImg,' https://i.hizliresim.com/6gglf4e.png" rel="nofollow - https://i.hizliresim.com/6gglf4e.png ');
  seyahatImg.Height=250;
  seyahatImg.Width=350;
  seyahatImg.Align=alTop;
  

   userName=giris.AddNewProEdit(girisPanel1, 'userName', 'Kullanıcı Adı:');
   clComponent.SetupComponent(userName,'{
   "MarginBottom":250,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   
   password=giris.AddNewProEdit(girisPanel1, 'password', 'Şifre');
   clComponent.SetupComponent(password,'{
   "MarginBottom":140,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   password.Password=True;
   
   email=giris.AddNewProEdit(girisPanel1, 'email', 'Email');
   clComponent.SetupComponent(email,'{
   "MarginBottom":30,
   "Width" :250, 
   "Height":50,
   "TextColor":"#133f87",
   "TextSize":18,
   "TextVerticalAlign":"center",
   "TextHorizontalAlign":"center",
   "TextBold":"yes",
   "BorderColor":"#6f86d1",
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderWidth":2,
   "BackGroundColor":"null"
   }');
   

   girisButton=giris.AddNewProButton(girisPanel1, 'girisButton', 'Giriş Yap');
   clComponent.SetupComponent(girisButton,'{
   "MarginTop":180,
   "TextColor":"#526fcc",
   "TextWidth":300,
   "TextHeight":200,
   "Width" :200, 
   "Height":50,
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderColor":"#617bcf",
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"null"
   }');
   
   kayitButton=giris.AddNewProButton(girisPanel1, 'kayitButton', 'Kayıt Ol');
   clComponent.SetupComponent(kayitButton,'{
   "MarginTop":290,
   "TextColor":"#526fcc",
   "TextWidth":300,
   "TextHeight":200,
   "TextSize":17,
   "Width" :200, 
   "Height":50,
   "RoundHeight":20,
   "RoundWidth":20,
   "BorderColor":"#617bcf",
   "BorderWidth":2,
   "TextBold":"yes",
   "BackGroundColor":"null"
   }');
   
   giris.AddNewEvent(girisButton,tbeOnClick,'KullaniciKontrolEt');
   giris.AddNewEvent(kayitButton,tbeOnClick,'KayitOl');
 
   giris.Run;
}

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 31 Temmuz 2024 Saat 16:32
AsString'de hata veriyor maalesef 

-------------
RabiaGnbs

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 31 Temmuz 2024 Saat 17:20
ParamByName yerine FieldByName girdim bu sefer AsString'de hata vermedi fakat uygulama çalıştırılırken Runtime Error olarak, Field 'userName' not found When evulating instruction CallProc hatası veriyor ne yapabilirim?

-------------
RabiaGnbs

Mesajı Yazan: OlgunAgac
Mesaj Tarihi: 31 Temmuz 2024 Saat 17:47
userName adında bir Field bulunamadı diyor. Ya kodun hatalı ya da sql ismini yanlış yazdın.

-------------
Dünden bugüne süren sonu olmayan yolculuk.

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 31 Temmuz 2024 Saat 17:58
kodun son hali bu şekilde hata bulamadım:  
kullaniciKontrol.SQL.Text = 'SELECT users_username, users_password, users_email FROM Users WHERE users_username = :userName AND users_password = :password AND users_email = :email';
  kullaniciKontrol.FieldByName('userName').AsString = userName.Text;
  kullaniciKontrol.FieldByName('password').AsString = password.Text;
  kullaniciKontrol.FieldByName('email').AsString = email.Text;
  kullaniciKontrol.Open;

  if (kullaniciKontrol.Found)
  {
    ShowMessage('Başarılı bir şekilde giriş yapıldı ✅');
    giris.clShow();
    AnaSayfa.UnitName = 'AnaSayfa';
    AnaSayfa.CallerForm = giris;
    AnaSayfa.Run();
    Clomosy.RunUnit(AnaSayfa);
  }
  else
  {
    ShowMessage('Kayıt bulunamadı❗ Lütfen Kayıt Olun.');
  }

  kullaniciKontrol.Free;
  kullaniciKontrol.Close();



-------------
RabiaGnbs


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net