Clomosy | Forum : sql kayıt kontrol https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 12:40:05 +0000 Wed, 31 Jul 2024 17:58:20 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=780 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[sql kayıt kontrol : kodun son hali bu şekilde hata...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1346#1346 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 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();

]]> Wed, 31 Jul 2024 17:58:20 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1346#1346 <![CDATA[sql kayıt kontrol : userName adında bir Field bulunamadı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1345#1345 Yazar: OlgunAgac
Konu: 780
Gönderim Zamanı: 31 Temmuz 2024 Saat 17:47

userName adında bir Field bulunamadı diyor. Ya kodun hatalı ya da sql ismini yanlış yazdın.]]> Wed, 31 Jul 2024 17:47:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1345#1345 <![CDATA[sql kayıt kontrol : ParamByName yerine FieldByName...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1343#1343 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 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?]]> Wed, 31 Jul 2024 17:20:48 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1343#1343 <![CDATA[sql kayıt kontrol : AsString&#039;de hata veriyor...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1342#1342 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 31 Temmuz 2024 Saat 16:32

AsString'de hata veriyor maalesef ]]> Wed, 31 Jul 2024 16:32:24 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1342#1342 <![CDATA[sql kayıt kontrol : Merhaba Rabiavar giris: TclStyleForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1339#1339 Yazar: Developer
Konu: 780
Gönderim Zamanı: 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);
  
  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');
  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;
}
]]> Wed, 31 Jul 2024 16:28:50 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1339#1339 <![CDATA[sql kayıt kontrol : var giris: TclStyleForm; userName,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1336#1336 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 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');
  
  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');
  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;
}
]]> Wed, 31 Jul 2024 15:38:15 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1336#1336 <![CDATA[sql kayıt kontrol : Merhaba Rabia,Bütün kodlarını...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1335#1335 Yazar: Developer
Konu: 780
Gönderim Zamanı: 31 Temmuz 2024 Saat 15:30

Merhaba Rabia,
Bütün kodlarını paylaşır mısın?
]]> Wed, 31 Jul 2024 15:30:00 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1335#1335 <![CDATA[sql kayıt kontrol : Merhaba giriş yap ve kayıt ol...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1333#1333 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 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 ]]> Wed, 31 Jul 2024 15:09:12 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1333#1333 <![CDATA[sql kayıt kontrol : Merhaba Rabia,Biraz daha detay...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1332#1332 Yazar: Developer
Konu: 780
Gönderim Zamanı: 31 Temmuz 2024 Saat 15:07

Merhaba Rabia,
Biraz daha detay verebilir misin projen ile alakalı olarak?
]]> Wed, 31 Jul 2024 15:07:46 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1332#1332 <![CDATA[sql kayıt kontrol : SQl&#039;de bulunan verileri kod...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1325#1325 Yazar: rabiagnbs
Konu: 780
Gönderim Zamanı: 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;
]]> Wed, 31 Jul 2024 14:23:23 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=780&PID=1325#1325