veri tabani satir 40 ilk element almak istiyorum

   //Login page
var
loginform : TclForm;
PanelForm : TclProPanel;
Paneltext : TclProPanel;
Panelkayitol :TclProPanel;
Panelcontact :TclProPanel;
titleLabel: TClProLabel;
Label1: TClProLabel;
Label2: TClProLabel;
Label3: TClProLabel;
Label4: TClProLabel;
Label5: TClProLabel;
Label6: TClProLabel;
Label7: TClProLabel;
titleLabellogin: TClProLabel;
EmailEdit,ParolaEdit:TclProEdit;
logbtn,kayitolbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;
googlebtn:TClProButton;
email,pass:String;
SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;
emailImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage;

logoImg,loginImg:TClProImage;

 UnitKayit :TclUnit;
 Unitsign :TclUnit;

void veriTabani{
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanim.db3', '');
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void getVeri(email,pass:String){
  SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT User  FROM Clients WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass));
  SqliteQuery1.OpenOrExecute; // Open yerine OpenOrExecute kullanıldı
  if(SqliteQuery1.Found){
    ShowMessage('Welcome '+SqliteQuery1.First);
  }
  else{
    ShowMessage('Connection failed!!! Check your email and your password and try again');
  }
  SqliteQuery1.Close;
}

void kayitOl{
  UnitKayit.UnitName = 'ILK_PROJE';
  UnitKayit.CallerForm = loginform;
  UnitKayit.Run;
}

void connection
{
  email = EmailEdit.Text;
  pass = ParolaEdit.Text;  
  getVeri(email,pass);
  kayitOl;
}

void sign{
  Unitsign.UnitName = 'Kayit_Ol';
  Unitsign.CallerForm = signinform;
  Unitsign.Run;
}

{
  loginform = TCLForm.Create(Self);
  loginform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png');
  UnitKayit = TclUnit.Create;
  Unitsign = TclUnit.Create;

  //panel text 
  Paneltext = loginform.AddNewProPanel(loginform,'Paneltext');
  Paneltext.Align = alTop; 
  Paneltext.Height =250;
  Paneltext.Margins.Left=20;
  Paneltext.Margins.Right=20;
  Paneltext.Margins.Bottom=20;
  Paneltext.clProSettings.IsRound = True;
  Paneltext.clProSettings.IsFill = False; 
  Paneltext.clProSettings.IsTransparent = True;
  Paneltext.SetclProSettings(Paneltext.clProSettings);

  //logo image 
  logoImg=loginform.AddNewProImage(Paneltext, 'logoImg');
  logoImg.Align=alTop;
  logoImg.Margins.Left=10;
  logoImg.Margins.Top=5;
  logoImg.Margins.Bottom=5;
  logoImg.Width=90;
  logoImg.Height=90;
  loginform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png');

  //Label 7
  Label7 = loginform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');
  Label7.Align = alTop;
  Label7.Margins.Left=20;
  Label7.Margins.Right=35;
  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label7.clProSettings.FontSize =33;
  Label7.clProSettings.TextSettings.Font.Style = [fsBold];
  Label7.clProSettings.WordWrap = True;
  Label7.clProSettings.AutoSize = True;
  Label7.SetclProSettings(Label7.clProSettings);

  //Label 6
  Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.');
  Label6.Align = alTop;
  Label6.Margins.Left=20;
  Label6.Margins.Right=35;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label6.clProSettings.FontSize =17;
  Label6.clProSettings.TextSettings.Font.Style = [fsBold];
  Label6.clProSettings.WordWrap = True;
  Label6.clProSettings.AutoSize = True;
  Label6.SetclProSettings(Label6.clProSettings);

  //panel login
  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');
  PanelForm.Align = alTop; 
  PanelForm.Height =520;
  PanelForm.Margins.Left=20;
  PanelForm.Margins.Right=20;
  PanelForm.clProSettings.IsFill = False; 
  PanelForm.clProSettings.IsTransparent = True;
  PanelForm.clProSettings.IsRound = True;
  //PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612');
  //PanelForm.Opacity = 0.7;
  PanelForm.SetclProSettings(PanelForm.clProSettings);

  //label 5
  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','LOGIN');
  Label5.Align = alTop;
  Label5.Height =50;
  Label5.Margins.Left=150;
  Label5.Margins.Top=25;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label5.clProSettings.FontSize =35;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);

  /*//login_image 
  loginImg=loginform.AddNewProImage(Label5, 'loginImg');
  loginImg.Align=alLeft;
  loginImg.Margins.Right=250;
  loginImg.Width=60;
  loginImg.Height=60;
  loginform.SetImage(loginImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img4.png');*/

  //Label for email
  Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');
  Label2.Align = alTop;
  Label2.Height = 30;
  Label2.Margins.Left=20;
  Label2.Margins.Right=20;
  Label2.Margins.Top=10;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label2.clProSettings.FontSize = 17;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.SetclProSettings(Label2.clProSettings);

  //edit for Email
  EmailEdit=loginform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here')
  EmailEdit.Align=alTop;
  EmailEdit.Height=50;;
  EmailEdit.Margins.Left=20;
  EmailEdit.Margins.Right=20;
  EmailEdit.Margins.Bottom=20;
  EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  EmailEdit.clProSettings.IsTransparent=True;
  EmailEdit.clProSettings.IsRound=False;
  EmailEdit.clProSettings.RoundWidth=10;
  EmailEdit.clProSettings.RoundHeight=10;
  EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  EmailEdit.clProSettings.BorderWidth=1;
  EmailEdit.TextSettings.Font.Size=16;
  EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  emailImg=loginform.AddNewProImage(EmailEdit, 'emailImg');
  emailImg.Align=alLeft;
  emailImg.Margins.Left=10;
  emailImg.Margins.Top=5;
  emailImg.Margins.Bottom=5;
  emailImg.Width=25;
  loginform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  //Lable for password 

  Label3 = loginform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord');
  Label3.Align = alTop;
  Label3.Height = 30;
  Label3.Margins.Left=20;
  Label3.Margins.Right=20;
  Label3.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label3.clProSettings.FontSize = 17;
  Label3.clProSettings.TextSettings.Font.Style = [fsBold];
  Label3.SetclProSettings(Label3.clProSettings);

  //edit for  password 
  ParolaEdit=loginform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here')
  ParolaEdit.Align=alTop;
  ParolaEdit.Height=40;
  ParolaEdit.Margins.Left=20;
  ParolaEdit.Margins.Right=20;
  ParolaEdit.Margins.Bottom=30;
  ParolaEdit.password=True
  ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  ParolaEdit.clProSettings.IsTransparent=True;
  ParolaEdit.clProSettings.IsRound=False;
  ParolaEdit.clProSettings.RoundWidth=10;
  ParolaEdit.clProSettings.RoundHeight=10;
  ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  ParolaEdit.clProSettings.BorderWidth=1;
  ParolaEdit.TextSettings.Font.Size=16;
  ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  passImg=loginform.AddNewProImage(ParolaEdit, 'passImg');
  passImg.Align=alLeft;
  passImg.Margins.Left=10;
  passImg.Margins.Top=5;
  passImg.Margins.Bottom=5;
  passImg.Width=25;
  loginform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png');

  //Log button 
  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')
  logbtn.Align=alTop;
  logbtn.Height=50;
  logbtn.Margins.Left=20;
  logbtn.Margins.Right=20;
  logbtn.Margins.Bottom=10;
  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');
  logbtn.clProSettings.RoundWidth=10;
  logbtn.clProSettings.RoundHeight=10;
  logbtn.clProSettings.FontSize=20;
  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  logbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  logbtn.SetclProSettings(logbtn.clProSettings);
  loginform.AddNewEvent(logbtn, tbeOnClick, 'connection');

  //panel for kayit ol 
  Panelkayitol = loginform.AddNewProPanel(PanelForm,'Panelkayitol');
  Panelkayitol.Align = alTop; 
  Panelkayitol.Height =50;
  Panelkayitol.Margins.Left=20;
  Panelkayitol.Margins.Right=20;
  Panelkayitol.Margins.Bottom=20;
  Panelkayitol.clProSettings.IsFill = False; 
  Panelkayitol.clProSettings.IsTransparent = True;
  Panelkayitol.clProSettings.IsRound = True;
  //Panelkayitol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612');
  Panelkayitol.SetclProSettings(Panelkayitol.clProSettings);

  //label for signup
  Label1 = loginform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac');
  Label1.Align = alLeft;
  Label1.Height = 35;
  Label1.Margins.Top=12;
  Label1.Width=200; 
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label1.clProSettings.FontSize =17;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.SetclProSettings(Label1.clProSettings);

  //button for kayit Ol
  kayitolbtn=loginform.AddNewProButton(Panelkayitol, 'kayitolbtn', 'KAYIT OL')
  kayitolbtn.Align=alRight;
  kayitolbtn.Height=35;
  kayitolbtn.Margins.Right=25;
  kayitolbtn.clProSettings.FontSize=17;
  kayitolbtn.clProSettings.IsFill = False; 
  kayitolbtn.clProSettings.IsTransparent = True;
  kayitolbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');
  kayitolbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  kayitolbtn.SetclProSettings(kayitolbtn.clProSettings);
  loginform.AddNewEvent(kayitolbtn, tbeOnClick, 'sign');

  //label for follow 
  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---');
  Label4.Align = alTop;
  Label4.Height = 35;
  Label4.Margins.Left=75;
  Label4.Width=200; 
  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label4.clProSettings.FontSize =17;
  Label4.clProSettings.TextSettings.Font.Style = [fsBold];
  Label4.SetclProSettings(Label4.clProSettings);

  //panel for contact   
  Panelcontact = loginform.AddNewProPanel(PanelForm,'Panelcontact');
  Panelcontact.Align = alTop; 
  Panelcontact.Height =50;
  Panelcontact.clProSettings.IsFill =False; 
  Panelcontact.clProSettings.IsTransparent = True;
  Panelcontact.clProSettings.IsRound = True;
  //Panelcontact.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#381e76');
  Panelcontact.SetclProSettings(Panelcontact.clProSettings);

  //button for instagram
  instabtn=loginform.AddNewProButton(Panelcontact, 'instabtn', '')
  instabtn.Align=alLeft;
  instabtn.Height=40;
  instabtn.clProSettings.FontSize=20;
  instabtn.clProSettings.IsFill =False; 
  instabtn.clProSettings.IsTransparent = True;
  instabtn.SetclProSettings(instabtn.clProSettings);
  loginform.AddNewEvent(instabtn, tbeOnClick, 'connection');
  //image for instagram
  instaImg=loginform.AddNewProImage(instabtn, 'instaImg');
  instaImg.Align=alLeft;
  instaImg.Margins.Left=20;
  instaImg.Margins.Top=5;
  instaImg.Margins.Bottom=5;
  instaImg.Width=30;
  loginform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png');

  //button for facebook
  facebtn=loginform.AddNewProButton(Panelcontact, 'facebtn', '')
  facebtn.Align=alLeft;
  facebtn.Height=40;
  facebtn.clProSettings.FontSize=20;
  facebtn.clProSettings.IsFill =False; 
  facebtn.clProSettings.IsTransparent = True;
  facebtn.SetclProSettings(facebtn.clProSettings);
  loginform.AddNewEvent(facebtn, tbeOnClick, 'connection');
  //image for facebook
  faceImg=loginform.AddNewProImage(facebtn, 'faceImg');
  faceImg.Align=alLeft;
  instaImg.Margins.Left=20;
  faceImg.Margins.Top=5;
  faceImg.Margins.Bottom=5;
  faceImg.Width=30;
  loginform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png');

  //button for tiktok
  tikbtn=loginform.AddNewProButton(Panelcontact, 'tikbtn', '')
  tikbtn.Align=alLeft;
  tikbtn.Height=40;
  tikbtn.clProSettings.FontSize=20;
  tikbtn.clProSettings.IsFill =False; 
  tikbtn.clProSettings.IsTransparent = True;
  tikbtn.SetclProSettings(tikbtn.clProSettings);
  loginform.AddNewEvent(tikbtn, tbeOnClick, 'connection');
  //image for tiktok
  tikImg=loginform.AddNewProImage(tikbtn, 'tikImg');
  tikImg.Align=alLeft;
  instaImg.Margins.Left=20;
  tikImg.Margins.Top=5;
  tikImg.Margins.Bottom=5;
  tikImg.Width=30;
  loginform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png');

  //button for X
  xbtn=loginform.AddNewProButton(Panelcontact, 'xbtn', '')
  xbtn.Align=alLeft;
  xbtn.Height=40;
  xbtn.clProSettings.FontSize=20;
  xbtn.clProSettings.IsFill =False; 
  xbtn.clProSettings.IsTransparent = True;
  xbtn.SetclProSettings(xbtn.clProSettings);
  loginform.AddNewEvent(xbtn, tbeOnClick, 'connection');
  //image for X
  xImg=loginform.AddNewProImage(xbtn, 'xImg');
  xImg.Align=alLeft;
  instaImg.Margins.Left=20;
  xImg.Margins.Top=5;
  xImg.Margins.Bottom=5;
  xImg.Width=30;
  loginform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png');

  veriTabani;
  SetVeri;
  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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Barthe_dev Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Temmuz 2026 Konum: konya Durum: Aktif Değil Puanlar: 19	Mesaj Seçenekleri Yanıt Yaz Alıntı Barthe_dev Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: veri tabani satir 40 ilk element almak istiyorum Gönderim Zamanı: 3 Saat 34 Dakika Önce Saat 10:34
	//Login page var loginform : TclForm; PanelForm : TclProPanel; Paneltext : TclProPanel; Panelkayitol :TclProPanel; Panelcontact :TclProPanel; titleLabel: TClProLabel; Label1: TClProLabel; Label2: TClProLabel; Label3: TClProLabel; Label4: TClProLabel; Label5: TClProLabel; Label6: TClProLabel; Label7: TClProLabel; titleLabellogin: TClProLabel; EmailEdit,ParolaEdit:TclProEdit; logbtn,kayitolbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton; googlebtn:TClProButton; email,pass:String; SqliteQuery1 : TClSQLiteQuery; googleImg:TClProImage; emailImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage; logoImg,loginImg:TClProImage; UnitKayit :TclUnit; Unitsign :TclUnit; void veriTabani{ Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanim.db3', ''); Clomosy.DBSQLiteQuery.OpenOrExecute; } void getVeri(email,pass:String){ SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT User FROM Clients WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass)); SqliteQuery1.OpenOrExecute; // Open yerine OpenOrExecute kullanıldı if(SqliteQuery1.Found){ ShowMessage('Welcome '+SqliteQuery1.First); } else{ ShowMessage('Connection failed!!! Check your email and your password and try again'); } SqliteQuery1.Close; } void kayitOl{ UnitKayit.UnitName = 'ILK_PROJE'; UnitKayit.CallerForm = loginform; UnitKayit.Run; } void connection { email = EmailEdit.Text; pass = ParolaEdit.Text; getVeri(email,pass); kayitOl; } void sign{ Unitsign.UnitName = 'Kayit_Ol'; Unitsign.CallerForm = signinform; Unitsign.Run; } { loginform = TCLForm.Create(Self); loginform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png'); UnitKayit = TclUnit.Create; Unitsign = TclUnit.Create; //panel text Paneltext = loginform.AddNewProPanel(loginform,'Paneltext'); Paneltext.Align = alTop; Paneltext.Height =250; Paneltext.Margins.Left=20; Paneltext.Margins.Right=20; Paneltext.Margins.Bottom=20; Paneltext.clProSettings.IsRound = True; Paneltext.clProSettings.IsFill = False; Paneltext.clProSettings.IsTransparent = True; Paneltext.SetclProSettings(Paneltext.clProSettings); //logo image logoImg=loginform.AddNewProImage(Paneltext, 'logoImg'); logoImg.Align=alTop; logoImg.Margins.Left=10; logoImg.Margins.Top=5; logoImg.Margins.Bottom=5; logoImg.Width=90; logoImg.Height=90; loginform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png'); //Label 7 Label7 = loginform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE HUB'); Label7.Align = alTop; Label7.Margins.Left=20; Label7.Margins.Right=35; Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label7.clProSettings.FontSize =33; Label7.clProSettings.TextSettings.Font.Style = [fsBold]; Label7.clProSettings.WordWrap = True; Label7.clProSettings.AutoSize = True; Label7.SetclProSettings(Label7.clProSettings); //Label 6 Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.'); Label6.Align = alTop; Label6.Margins.Left=20; Label6.Margins.Right=35; Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label6.clProSettings.FontSize =17; Label6.clProSettings.TextSettings.Font.Style = [fsBold]; Label6.clProSettings.WordWrap = True; Label6.clProSettings.AutoSize = True; Label6.SetclProSettings(Label6.clProSettings); //panel login PanelForm = loginform.AddNewProPanel(loginform,'PanelForm'); PanelForm.Align = alTop; PanelForm.Height =520; PanelForm.Margins.Left=20; PanelForm.Margins.Right=20; PanelForm.clProSettings.IsFill = False; PanelForm.clProSettings.IsTransparent = True; PanelForm.clProSettings.IsRound = True; //PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612'); //PanelForm.Opacity = 0.7; PanelForm.SetclProSettings(PanelForm.clProSettings); //label 5 Label5 = loginform.AddNewProLabel(PanelForm,'Label5','LOGIN'); Label5.Align = alTop; Label5.Height =50; Label5.Margins.Left=150; Label5.Margins.Top=25; Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label5.clProSettings.FontSize =35; Label5.clProSettings.TextSettings.Font.Style = [fsBold]; Label5.SetclProSettings(Label5.clProSettings); ///login_image loginImg=loginform.AddNewProImage(Label5, 'loginImg'); loginImg.Align=alLeft; loginImg.Margins.Right=250; loginImg.Width=60; loginImg.Height=60; loginform.SetImage(loginImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img4.png');/ //Label for email Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email'); Label2.Align = alTop; Label2.Height = 30; Label2.Margins.Left=20; Label2.Margins.Right=20; Label2.Margins.Top=10; Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label2.clProSettings.FontSize = 17; Label2.clProSettings.TextSettings.Font.Style = [fsBold]; Label2.SetclProSettings(Label2.clProSettings); //edit for Email EmailEdit=loginform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here') EmailEdit.Align=alTop; EmailEdit.Height=50;; EmailEdit.Margins.Left=20; EmailEdit.Margins.Right=20; EmailEdit.Margins.Bottom=20; EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16'); EmailEdit.clProSettings.IsTransparent=True; EmailEdit.clProSettings.IsRound=False; EmailEdit.clProSettings.RoundWidth=10; EmailEdit.clProSettings.RoundHeight=10; EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838'); EmailEdit.clProSettings.BorderWidth=1; EmailEdit.TextSettings.Font.Size=16; EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191'); EmailEdit.SetclProSettings(EmailEdit.clProSettings); emailImg=loginform.AddNewProImage(EmailEdit, 'emailImg'); emailImg.Align=alLeft; emailImg.Margins.Left=10; emailImg.Margins.Top=5; emailImg.Margins.Bottom=5; emailImg.Width=25; loginform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png'); //Lable for password Label3 = loginform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord'); Label3.Align = alTop; Label3.Height = 30; Label3.Margins.Left=20; Label3.Margins.Right=20; Label3.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label3.clProSettings.FontSize = 17; Label3.clProSettings.TextSettings.Font.Style = [fsBold]; Label3.SetclProSettings(Label3.clProSettings); //edit for password ParolaEdit=loginform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here') ParolaEdit.Align=alTop; ParolaEdit.Height=40; ParolaEdit.Margins.Left=20; ParolaEdit.Margins.Right=20; ParolaEdit.Margins.Bottom=30; ParolaEdit.password=True ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16'); ParolaEdit.clProSettings.IsTransparent=True; ParolaEdit.clProSettings.IsRound=False; ParolaEdit.clProSettings.RoundWidth=10; ParolaEdit.clProSettings.RoundHeight=10; ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838'); ParolaEdit.clProSettings.BorderWidth=1; ParolaEdit.TextSettings.Font.Size=16; ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191'); ParolaEdit.SetclProSettings(ParolaEdit.clProSettings); passImg=loginform.AddNewProImage(ParolaEdit, 'passImg'); passImg.Align=alLeft; passImg.Margins.Left=10; passImg.Margins.Top=5; passImg.Margins.Bottom=5; passImg.Width=25; loginform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png'); //Log button logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn') logbtn.Align=alTop; logbtn.Height=50; logbtn.Margins.Left=20; logbtn.Margins.Right=20; logbtn.Margins.Bottom=10; logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A'); logbtn.clProSettings.RoundWidth=10; logbtn.clProSettings.RoundHeight=10; logbtn.clProSettings.FontSize=20; logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff'); logbtn.clProSettings.TextSettings.Font.Style = [fsBold]; logbtn.SetclProSettings(logbtn.clProSettings); loginform.AddNewEvent(logbtn, tbeOnClick, 'connection'); //panel for kayit ol Panelkayitol = loginform.AddNewProPanel(PanelForm,'Panelkayitol'); Panelkayitol.Align = alTop; Panelkayitol.Height =50; Panelkayitol.Margins.Left=20; Panelkayitol.Margins.Right=20; Panelkayitol.Margins.Bottom=20; Panelkayitol.clProSettings.IsFill = False; Panelkayitol.clProSettings.IsTransparent = True; Panelkayitol.clProSettings.IsRound = True; //Panelkayitol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612'); Panelkayitol.SetclProSettings(Panelkayitol.clProSettings); //label for signup Label1 = loginform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac'); Label1.Align = alLeft; Label1.Height = 35; Label1.Margins.Top=12; Label1.Width=200; Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label1.clProSettings.FontSize =17; Label1.clProSettings.TextSettings.Font.Style = [fsBold]; Label1.SetclProSettings(Label1.clProSettings); //button for kayit Ol kayitolbtn=loginform.AddNewProButton(Panelkayitol, 'kayitolbtn', 'KAYIT OL') kayitolbtn.Align=alRight; kayitolbtn.Height=35; kayitolbtn.Margins.Right=25; kayitolbtn.clProSettings.FontSize=17; kayitolbtn.clProSettings.IsFill = False; kayitolbtn.clProSettings.IsTransparent = True; kayitolbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb'); kayitolbtn.clProSettings.TextSettings.Font.Style = [fsBold]; kayitolbtn.SetclProSettings(kayitolbtn.clProSettings); loginform.AddNewEvent(kayitolbtn, tbeOnClick, 'sign'); //label for follow Label4 = loginform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---'); Label4.Align = alTop; Label4.Height = 35; Label4.Margins.Left=75; Label4.Width=200; Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label4.clProSettings.FontSize =17; Label4.clProSettings.TextSettings.Font.Style = [fsBold]; Label4.SetclProSettings(Label4.clProSettings); //panel for contact Panelcontact = loginform.AddNewProPanel(PanelForm,'Panelcontact'); Panelcontact.Align = alTop; Panelcontact.Height =50; Panelcontact.clProSettings.IsFill =False; Panelcontact.clProSettings.IsTransparent = True; Panelcontact.clProSettings.IsRound = True; //Panelcontact.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#381e76'); Panelcontact.SetclProSettings(Panelcontact.clProSettings); //button for instagram instabtn=loginform.AddNewProButton(Panelcontact, 'instabtn', '') instabtn.Align=alLeft; instabtn.Height=40; instabtn.clProSettings.FontSize=20; instabtn.clProSettings.IsFill =False; instabtn.clProSettings.IsTransparent = True; instabtn.SetclProSettings(instabtn.clProSettings); loginform.AddNewEvent(instabtn, tbeOnClick, 'connection'); //image for instagram instaImg=loginform.AddNewProImage(instabtn, 'instaImg'); instaImg.Align=alLeft; instaImg.Margins.Left=20; instaImg.Margins.Top=5; instaImg.Margins.Bottom=5; instaImg.Width=30; loginform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png'); //button for facebook facebtn=loginform.AddNewProButton(Panelcontact, 'facebtn', '') facebtn.Align=alLeft; facebtn.Height=40; facebtn.clProSettings.FontSize=20; facebtn.clProSettings.IsFill =False; facebtn.clProSettings.IsTransparent = True; facebtn.SetclProSettings(facebtn.clProSettings); loginform.AddNewEvent(facebtn, tbeOnClick, 'connection'); //image for facebook faceImg=loginform.AddNewProImage(facebtn, 'faceImg'); faceImg.Align=alLeft; instaImg.Margins.Left=20; faceImg.Margins.Top=5; faceImg.Margins.Bottom=5; faceImg.Width=30; loginform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png'); //button for tiktok tikbtn=loginform.AddNewProButton(Panelcontact, 'tikbtn', '') tikbtn.Align=alLeft; tikbtn.Height=40; tikbtn.clProSettings.FontSize=20; tikbtn.clProSettings.IsFill =False; tikbtn.clProSettings.IsTransparent = True; tikbtn.SetclProSettings(tikbtn.clProSettings); loginform.AddNewEvent(tikbtn, tbeOnClick, 'connection'); //image for tiktok tikImg=loginform.AddNewProImage(tikbtn, 'tikImg'); tikImg.Align=alLeft; instaImg.Margins.Left=20; tikImg.Margins.Top=5; tikImg.Margins.Bottom=5; tikImg.Width=30; loginform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png'); //button for X xbtn=loginform.AddNewProButton(Panelcontact, 'xbtn', '') xbtn.Align=alLeft; xbtn.Height=40; xbtn.clProSettings.FontSize=20; xbtn.clProSettings.IsFill =False; xbtn.clProSettings.IsTransparent = True; xbtn.SetclProSettings(xbtn.clProSettings); loginform.AddNewEvent(xbtn, tbeOnClick, 'connection'); //image for X xImg=loginform.AddNewProImage(xbtn, 'xImg'); xImg.Align=alLeft; instaImg.Margins.Left=20; xImg.Margins.Top=5; xImg.Margins.Bottom=5; xImg.Width=30; loginform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png'); veriTabani; SetVeri; 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">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 972	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 54 Dakika Önce Saat 11:14
	Merhaba Barthez getVeri prosedürünü aşağıda ki gibi günceller misin? void getVeri(email,pass:String); { SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT User FROM Clients WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass)); SqliteQuery1.OpenOrExecute; if(SqliteQuery1.Found) { ShowMessage('Welcome ' + SqliteQuery1.FieldByName('User').AsString); } else { ShowMessage('Connection failed!!! Check your email and your password and try again'); } SqliteQuery1.Close; } ShowMessage('Welcome ' + SqliteQuery1.FieldByName('User').AsString); bu şekil de veritabanından istediğin kaydı çekebilirsin 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">