//bilgisayer veritabani iyi calisiyor ama telefon bagladigimda hata veriyor

//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;

 

 //donnees pour la navigation interpages

 UnitKayit :TclUnit;

 Unitsign :TclUnit;

 

 //donnes pour l'enreigistremnet en data base 

 Rest : TclRest;

 Json : String;

 Result : String;

 

 //donnees pour recuperer les informations du json envoye par php

 Obj : TCLJSONObject;

 UserObj : TCLJSONObject;

 

  void kayitOl{

  UnitKayit.UnitName = 'ILK_PROJE';

  UnitKayit.CallerForm = loginform;

  UnitKayit.Run;

}

void LoginUser;

{

    Json ='{' +

      '"email":"' + EmailEdit.Text + '",' +

      '"password":"' + ParolaEdit.Text + '"' +

      '}';

    Rest = TclRest.Create;

    Try

        Rest.BaseURL = ' http://192.168.1.24/clomosy/api/login.php" rel="nofollow - http://192.168.1.24/clomosy/api/login.php ';

        Rest.Method = rmPOST;

        Rest.Accept = 'application/json';

        Rest.Body = Json;

        Rest.Execute;

        Obj =TCLJSON.ParseToJSONObject(Rest.Response);

        if(obj.GetValue('success').AsBoolean){

          ShowMessage('Connexion réussie !!! Bienvenue ' + Obj.GetValueByPath('user.userName').AsString);

          kayitOl;

        }

        else{

          ShowMessage(obj.GetValue('message').AsString)

        }

        

        

    Finally

        Rest.Free;

    }

}

void sign{

  Unitsign.UnitName = 'Kayit_Ol';

  Unitsign.CallerForm = loginform;

  Unitsign.Run;

}

//medya social buttona baglayacak

void OnInstagramAc;

{

  TClomosyOS.OpenURL(' https://tr.wikipedia.org/wiki/Anasayfa" rel="nofollow - https://tr.wikipedia.org/wiki/Anasayfa ');

}

void OnTiktokAc;

{

  TClomosyOS.OpenURL(' https://tr.wikipedia.org/wiki/Anasayfa" rel="nofollow - https://tr.wikipedia.org/wiki/Anasayfa ');

}

void OnFacebookAc;

{

  TClomosyOS.OpenURL(' https://tr.wikipedia.org/wiki/Anasayfa" rel="nofollow - https://tr.wikipedia.org/wiki/Anasayfa ');

}

void OnTwiterAc;

{

  TClomosyOS.OpenURL(' https://tr.wikipedia.org/wiki/Anasayfa" rel="nofollow - https://tr.wikipedia.org/wiki/Anasayfa ');

}

{

  loginform = TCLForm.Create(Self);

  loginform.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;

  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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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, 'LoginUser');

  

  

  //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, 'OnInstagramAc');

  //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" rel="nofollow - 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, 'OnFacebookAc');

  //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" rel="nofollow - 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, 'OnTiktokAc');

  //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" rel="nofollow - 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, 'OnTwiterAc');

  //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" rel="nofollow - https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png ');

  

  loginform.Run;

}