Sayfayı Yazdır | Pencereyi Kapat

vertSroll ekledikten sonra label6 hep asagiya kal

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=1610
Tarih: 09 Temmuz 2026 Saat 22:00
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: vertSroll ekledikten sonra label6 hep asagiya kal
Mesajı Yazan: Barthe_dev
Konu: vertSroll ekledikten sonra label6 hep asagiya kal
Mesaj Tarihi: 09 Temmuz 2026 Saat 17:43
//Sign Page
var
signinform : 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;
Label8: TClProLabel;
Label9: TClProLabel;
titleLabellogin: TClProLabel;
EmailEdit,ParolaEdit,nameEdit,ConfParolaEdit:TclProEdit;
signbtn,logbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;
googlebtn:TClProButton;
email,pass:String;
SqliteQuery1 : TClSQLiteQuery;

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

logoImg,loginImg:TClProImage;
UnitKayit :TclUnit;
MainScroll: TCLVertScrollBox;

void veriTabani{
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanim.db3', '');
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Users (Email TEXT, password TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}
void SetVeri{
  Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES ('+QuotedStr('[email protected]')+', '+QuotedStr('clomosy')+')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}
void getVeri(email,pass:String){
  SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT * FROM Users WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass));
  SqliteQuery1.OpenOrExecute; // Open yerine OpenOrExecute kullanıldı
  if(SqliteQuery1.Found){
    ShowMessage('Welcome user '+email);
  }
  else{
    ShowMessage('Connection failed!!! Check your email and your password and try again');
  }
  SqliteQuery1.Close;
}

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

void kayitOl{
  UnitKayit.UnitName = 'ILK_PROJE';
  UnitKayit.CallerForm = signinform;
  UnitKayit.Run;
}
{
  signinform = TCLForm.Create(Self);
  signinform.SetFormBGImage(' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png ');
  UnitKayit = TclUnit.Create;
  MainScroll = signinform.AddNewVertScrollBox(signinform,'MainScroll');
  MainScroll.Align = alClient;
  

 
  
  //panel text 
  Paneltext = signinform.AddNewProPanel(MainScroll,'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 = True; 
  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');
  //Paneltext.clProSettings.IsTransparent = True;
  Paneltext.SetclProSettings(Paneltext.clProSettings);
  
  //logo image 
  logoImg=signinform.AddNewProImage(Paneltext, 'logoImg');
  logoImg.Align=alTop;
  logoImg.Margins.Left=10;
  logoImg.Margins.Top=5;
  logoImg.Margins.Bottom=5;
  logoImg.Width=90;
  logoImg.Height=90;
  signinform.SetImage(logoImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png ');
  
  
  //Label 7
  Label7 = signinform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');
  Label7.Align = alTop;
  Label7.Margins.Left=20;
  Label7.Margins.Right=10;
  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 = signinform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Create Your Account  to access our menus.');
  Label6.Align = alTop;
  Label6.Margins.Left=20;
  //Label6.Margins.Right=10;
  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 = signinform.AddNewProPanel(MainScroll,'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.SetclProSettings(PanelForm.clProSettings);
  
  //label 5
  Label5 = signinform.AddNewProLabel(PanelForm,'Label5','SIGIN FORM');
  Label5.Align = alTop;
  Label5.Height =50;
  Label5.Margins.Left=100;
  Label5.Margins.Top=25;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label5.clProSettings.FontSize =35;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);
  
  //Label for user name
  Label8 = signinform.AddNewProLabel(PanelForm,'Label8','Enter Your User Name');
  Label8.Align = alTop;
  Label8.Height = 30;
  Label8.Margins.Left=20;
  Label8.Margins.Right=20;
  Label8.Margins.Top=10;
  Label8.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label8.clProSettings.FontSize = 17;
  Label8.clProSettings.TextSettings.Font.Style = [fsBold];
  Label8.SetclProSettings(Label8.clProSettings);
  //edit for user Name
  nameEdit=signinform.AddNewProEdit(PanelForm, 'nameEdit', 'Enter your user name here')
  nameEdit.Align=alTop;
  nameEdit.Height=50;
  nameEdit.Margins.Left=20;
  nameEdit.Margins.Right=20;
  nameEdit.Margins.Bottom=10;
  nameEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  nameEdit.clProSettings.IsTransparent=True;
  nameEdit.clProSettings.IsRound=False;
  nameEdit.clProSettings.RoundWidth=10;
  nameEdit.clProSettings.RoundHeight=10;
  nameEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  nameEdit.clProSettings.BorderWidth=1;
  nameEdit.TextSettings.Font.Size=16;
  nameEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  nameEdit.SetclProSettings(nameEdit.clProSettings);
  
  userImg=signinform.AddNewProImage(nameEdit, 'userImg');
  userImg.Align=alLeft;
  userImg.Margins.Left=10;
  userImg.Margins.Top=5;
  userImg.Margins.Bottom=5;
  userImg.Width=25;
  signinform.SetImage(userImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png ');
  
  //Label for email
  Label2 = signinform.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=signinform.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=signinform.AddNewProImage(EmailEdit, 'emailImg');
  emailImg.Align=alLeft;
  emailImg.Margins.Left=10;
  emailImg.Margins.Top=5;
  emailImg.Margins.Bottom=5;
  emailImg.Width=25;
  signinform.SetImage(emailImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png ');
  
  
  //Lable for password 
  
  Label3 = signinform.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=signinform.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=signinform.AddNewProImage(ParolaEdit, 'passImg');
  passImg.Align=alLeft;
  passImg.Margins.Left=10;
  passImg.Margins.Top=5;
  passImg.Margins.Bottom=5;
  passImg.Width=25;
  signinform.SetImage(passImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png ');
  
  
  //Log button 
  signbtn=signinform.AddNewProButton(PanelForm, 'signbtn', 'LogIn')
  signbtn.Align=alTop;
  signbtn.Height=50;
  signbtn.Margins.Left=20;
  signbtn.Margins.Right=20;
  signbtn.Margins.Bottom=10;
  signbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');
  signbtn.clProSettings.RoundWidth=10;
  signbtn.clProSettings.RoundHeight=10;
  signbtn.clProSettings.FontSize=20;
  signbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  signbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  signbtn.SetclProSettings(signbtn.clProSettings);
  signinform.AddNewEvent(signbtn, tbeOnClick, 'connection');
  
  
  //panel for kayit ol 
  Panelkayitol = signinform.AddNewProPanel(MainScroll,'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 = signinform.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
  logbtn=signinform.AddNewProButton(Panelkayitol, 'logbtn', 'KAYIT OL')
  logbtn.Align=alRight;
  logbtn.Height=35;
  logbtn.Margins.Right=25;
  logbtn.clProSettings.FontSize=17;
  logbtn.clProSettings.IsFill = False; 
  logbtn.clProSettings.IsTransparent = True;
  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');
  logbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  logbtn.SetclProSettings(logbtn.clProSettings);
  signinform.AddNewEvent(logbtn, tbeOnClick, 'kayitOl');
  
  //label for follow 
  Label4 = signinform.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 = signinform.AddNewProPanel(MainScroll,'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=signinform.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);
  signinform.AddNewEvent(instabtn, tbeOnClick, 'connection');
  //image for instagram
  instaImg=signinform.AddNewProImage(instabtn, 'instaImg');
  instaImg.Align=alLeft;
  instaImg.Margins.Left=20;
  instaImg.Margins.Top=5;
  instaImg.Margins.Bottom=5;
  instaImg.Width=30;
  signinform.SetImage(instaImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png ');
  
  
  //button for facebook
  facebtn=signinform.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);
  signinform.AddNewEvent(facebtn, tbeOnClick, 'connection');
  //image for facebook
  faceImg=signinform.AddNewProImage(facebtn, 'faceImg');
  faceImg.Align=alLeft;
  instaImg.Margins.Left=20;
  faceImg.Margins.Top=5;
  faceImg.Margins.Bottom=5;
  faceImg.Width=30;
  signinform.SetImage(faceImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png ');
  
  //button for tiktok
  tikbtn=signinform.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);
  signinform.AddNewEvent(tikbtn, tbeOnClick, 'connection');
  //image for tiktok
  tikImg=signinform.AddNewProImage(tikbtn, 'tikImg');
  tikImg.Align=alLeft;
  instaImg.Margins.Left=20;
  tikImg.Margins.Top=5;
  tikImg.Margins.Bottom=5;
  tikImg.Width=30;
  signinform.SetImage(tikImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png ');
  
  
  //button for X
  xbtn=signinform.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);
  signinform.AddNewEvent(xbtn, tbeOnClick, 'connection');
  //image for X
  xImg=signinform.AddNewProImage(xbtn, 'xImg');
  xImg.Align=alLeft;
  instaImg.Margins.Left=20;
  xImg.Margins.Top=5;
  xImg.Margins.Bottom=5;
  xImg.Width=30;
  signinform.SetImage(xImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png ');
  
  veriTabani;
  SetVeri;
  signinform.Run;
}


https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 09 Temmuz 2026 Saat 17:49
Merhaba Barthez 

Aşağıda ki kodu inceler misin

var
  signinform : 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;
  Label8: TClProLabel;
  Label9: TClProLabel;
  titleLabellogin: TClProLabel;
  EmailEdit,ParolaEdit,nameEdit,ConfParolaEdit:TclProEdit;
  signbtn,logbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;
  googlebtn:TClProButton;
  email,pass:String;
  SqliteQuery1 : TClSQLiteQuery;
  googleImg:TClProImage;
  emailImg,userImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage;
  logoImg,loginImg:TClProImage;
  UnitKayit :TclUnit;
  MainScroll: TCLVertScrollBox;

void veriTabani;
{
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanim.db3', '');
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Users (Email TEXT, password TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void SetVeri;
{
  Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES ('+QuotedStr('[email protected]')+', '+QuotedStr('clomosy')+')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void getVeri(email,pass:String);
{
  SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT * FROM Users WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass));
  SqliteQuery1.OpenOrExecute;
  if(SqliteQuery1.Found)
  {
    ShowMessage('Welcome user '+email);
  }
  else
  {
    ShowMessage('Connection failed!!! Check your email and your password and try again');
  }
  SqliteQuery1.Close;
}

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

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

{
  signinform = TCLForm.Create(Self);
  signinform.SetFormBGImage(' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png ');
  UnitKayit = TclUnit.Create;
  MainScroll = signinform.AddNewVertScrollBox(signinform,'MainScroll');
  MainScroll.Align = alClient;
  
  Paneltext = signinform.AddNewProPanel(MainScroll,'Paneltext');
  Paneltext.Align = alTop; 
  Paneltext.Height = 320;
  Paneltext.Margins.Left=20;
  Paneltext.Margins.Right=20;
  Paneltext.Margins.Bottom=20;
  Paneltext.clProSettings.IsRound = True;
  Paneltext.clProSettings.IsFill = True; 
  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');
  Paneltext.SetclProSettings(Paneltext.clProSettings);
  
  logoImg=signinform.AddNewProImage(Paneltext, 'logoImg');
  logoImg.Align=alTop;
  logoImg.Margins.Left=10;
  logoImg.Margins.Top=5;
  logoImg.Margins.Bottom=5;
  logoImg.Width=90;
  logoImg.Height=90;
  signinform.SetImage(logoImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png ');
  
  Label7 = signinform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');
  Label7.Align = alTop;
  Label7.Margins.Left=20;
  Label7.Margins.Right=10;
  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);
  
  Label6 = signinform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Create Your Account  to access our menus.');
  Label6.Align = alTop;
  Label6.Margins.Left=20;
  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);
  
  PanelForm = signinform.AddNewProPanel(MainScroll,'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.SetclProSettings(PanelForm.clProSettings);
  
  Label5 = signinform.AddNewProLabel(PanelForm,'Label5','SIGIN FORM');
  Label5.Align = alTop;
  Label5.Height =50;
  Label5.Margins.Left=100;
  Label5.Margins.Top=25;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label5.clProSettings.FontSize =35;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);
  
  Label8 = signinform.AddNewProLabel(PanelForm,'Label8','Enter Your User Name');
  Label8.Align = alTop;
  Label8.Height = 30;
  Label8.Margins.Left=20;
  Label8.Margins.Right=20;
  Label8.Margins.Top=10;
  Label8.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label8.clProSettings.FontSize = 17;
  Label8.clProSettings.TextSettings.Font.Style = [fsBold];
  Label8.SetclProSettings(Label8.clProSettings);
  
  nameEdit=signinform.AddNewProEdit(PanelForm, 'nameEdit', 'Enter your user name here');
  nameEdit.Align=alTop;
  nameEdit.Height=50;
  nameEdit.Margins.Left=20;
  nameEdit.Margins.Right=20;
  nameEdit.Margins.Bottom=10;
  nameEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  nameEdit.clProSettings.IsTransparent=True;
  nameEdit.clProSettings.IsRound=False;
  nameEdit.clProSettings.RoundWidth=10;
  nameEdit.clProSettings.RoundHeight=10;
  nameEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  nameEdit.clProSettings.BorderWidth=1;
  nameEdit.TextSettings.Font.Size=16;
  nameEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  nameEdit.SetclProSettings(nameEdit.clProSettings);
  
  userImg=signinform.AddNewProImage(nameEdit, 'userImg');
  userImg.Align=alLeft;
  userImg.Margins.Left=10;
  userImg.Margins.Top=5;
  userImg.Margins.Bottom=5;
  userImg.Width=25;
  signinform.SetImage(userImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png ');
  
  Label2 = signinform.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);
  
  EmailEdit=signinform.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=signinform.AddNewProImage(EmailEdit, 'emailImg');
  emailImg.Align=alLeft;
  emailImg.Margins.Left=10;
  emailImg.Margins.Top=5;
  emailImg.Margins.Bottom=5;
  emailImg.Width=25;
  signinform.SetImage(emailImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png ');
  
  Label3 = signinform.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);
  
  ParolaEdit=signinform.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=signinform.AddNewProImage(ParolaEdit, 'passImg');
  passImg.Align=alLeft;
  passImg.Margins.Left=10;
  passImg.Margins.Top=5;
  passImg.Margins.Bottom=5;
  passImg.Width=25;
  signinform.SetImage(passImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png ');
  
  signbtn=signinform.AddNewProButton(PanelForm, 'signbtn', 'LogIn');
  signbtn.Align=alTop;
  signbtn.Height=50;
  signbtn.Margins.Left=20;
  signbtn.Margins.Right=20;
  signbtn.Margins.Bottom=10;
  signbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');
  signbtn.clProSettings.RoundWidth=10;
  signbtn.clProSettings.RoundHeight=10;
  signbtn.clProSettings.FontSize=20;
  signbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  signbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  signbtn.SetclProSettings(signbtn.clProSettings);
  signinform.AddNewEvent(signbtn, tbeOnClick, 'connection');
  
  Panelkayitol = signinform.AddNewProPanel(MainScroll,'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.SetclProSettings(Panelkayitol.clProSettings);
  
  Label1 = signinform.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);
  
  logbtn=signinform.AddNewProButton(Panelkayitol, 'logbtn', 'KAYIT OL');
  logbtn.Align=alRight;
  logbtn.Height=35;
  logbtn.Margins.Right=25;
  logbtn.clProSettings.FontSize=17;
  logbtn.clProSettings.IsFill = False; 
  logbtn.clProSettings.IsTransparent = True;
  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');
  logbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  logbtn.SetclProSettings(logbtn.clProSettings);
  signinform.AddNewEvent(logbtn, tbeOnClick, 'kayitOl');
  
  Label4 = signinform.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);
  
  Panelcontact = signinform.AddNewProPanel(MainScroll,'Panelcontact');
  Panelcontact.Align = alTop; 
  Panelcontact.Height =50;
  Panelcontact.clProSettings.IsFill =False; 
  Panelcontact.clProSettings.IsTransparent = True;
  Panelcontact.clProSettings.IsRound = True;
  Panelcontact.SetclProSettings(Panelcontact.clProSettings);
  
  instabtn=signinform.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);
  signinform.AddNewEvent(instabtn, tbeOnClick, 'connection');
  
  instaImg=signinform.AddNewProImage(instabtn, 'instaImg');
  instaImg.Align=alLeft;
  instaImg.Margins.Left=20;
  instaImg.Margins.Top=5;
  instaImg.Margins.Bottom=5;
  instaImg.Width=30;
  signinform.SetImage(instaImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png ');
  
  facebtn=signinform.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);
  signinform.AddNewEvent(facebtn, tbeOnClick, 'connection');
  
  faceImg=signinform.AddNewProImage(facebtn, 'faceImg');
  faceImg.Align=alLeft;
  faceImg.Margins.Top=5;
  faceImg.Margins.Bottom=5;
  faceImg.Width=30;
  signinform.SetImage(faceImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png ');
  
  tikbtn=signinform.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);
  signinform.AddNewEvent(tikbtn, tbeOnClick, 'connection');
  
  tikImg=signinform.AddNewProImage(tikbtn, 'tikImg');
  tikImg.Align=alLeft;
  tikImg.Margins.Top=5;
  tikImg.Margins.Bottom=5;
  tikImg.Width=30;
  signinform.SetImage(tikImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png ');
  
  xbtn=signinform.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);
  signinform.AddNewEvent(xbtn, tbeOnClick, 'connection');
  
  xImg=signinform.AddNewProImage(xbtn, 'xImg');
  xImg.Align=alLeft;
  xImg.Margins.Top=5;
  xImg.Margins.Bottom=5;
  xImg.Width=30;
  signinform.SetImage(xImg,' https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png ');
  
  veriTabani;
  SetVeri;
  signinform.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">


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