Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - metin sonuda diger satira gecmek
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

metin sonuda diger satira gecmek
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: metin sonuda diger satira gecmek
    Gönderim Zamanı: 4 Saat 8 Dakika Önce Saat 09:42
//Login page
var
loginform : TclForm;
PanelForm : TclProPanel;
titleLabel: TClProLabel;
Label1: TClProLabel;
Label2: TClProLabel;
Label3: TClProLabel;
Label4: TClProLabel;
Label5: TClProLabel;
Label6: TClProLabel;
titleLabellogin: TClProLabel;
EmailEdit,ParolaEdit:TclProEdit;
logbtn:TClProButton;
googlebtn:TClProButton;
email,pass:String;
SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;
emailImg:TClProImage;

void setLabel6;
{
  Label6 = loginform.AddNewProLabel(loginform,'Label6','Online sipariş platformumuza hoş geldiniz. Hesabınıza erişmek, siparişlerinizi görüntülemek, durumlarını gerçek zamanlı olarak takip etmek ve hızlı, basit ve güvenli bir alışveriş deneyiminin keyfini çıkarmak için giriş yapın.');
  Label6.Align = alLeft;
  Label6.Height = 40;
  Label6.Width=300;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#e3e3e3');
  Label6.clProSettings.FontSize =25;
  Label6.clProSettings.TextSettings.Font.Style = [fsBold];
  Label6.SetclProSettings(Label6.clProSettings);
}















void setPanel(a,b:Integer;color:String);
{
  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');
  PanelForm.Align = alCenter; 
  PanelForm.Width = a;
  PanelForm.Height = b; 
  
  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089abf');
  PanelForm.clProSettings.BorderWidth = 2;
  PanelForm.clProSettings.IsFill = True; 
  PanelForm.clProSettings.IsRound = True;
  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(color);
  PanelForm.SetclProSettings(PanelForm.clProSettings);
}
void setLabel;
{
  titleLabel = loginform.AddNewProLabel(PanelForm,'titleLabel','GIRIS YAP');
  titleLabel.Align = alTop;
  titleLabel.Height = 50;
  titleLabel.Margins.Left=20;
  titleLabel.Margins.Right=20
  
  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf');
  titleLabel.clProSettings.FontSize = 25;
  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabel.SetclProSettings(titleLabel.clProSettings);
}
void setLabelLogin;
{
  titleLabellogin = loginform.AddNewProLabel(PanelForm,'titleLabellogin','Login to your Page');
  titleLabellogin.Align = alTop;
  titleLabellogin.Height = 70;
  
  titleLabellogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#e14714');
  titleLabellogin.clProSettings.FontSize = 40;
  titleLabellogin.clProSettings.FontVertAlign = palcenter;
  titleLabellogin.clProSettings.FontHorzAlign = palCenter;
  titleLabellogin.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabellogin.SetclProSettings(titleLabellogin.clProSettings);
}
void setLabel1;
{
  Label1 = loginform.AddNewProLabel(PanelForm,'Label1','WELCOME BACK');
  Label1.Align = alTop;
  Label1.Height = 30;
  Label1.Margins.Top=15;
  Label1.Margins.Left=20;
  Label1.Margins.Right=20;
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf ');
  Label1.clProSettings.FontSize = 15;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.SetclProSettings(Label1.clProSettings);
}
void setLabel2;
{
  Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');
  Label2.Align = alTop;
  Label2.Height = 30;
  Label2.Margins.Left=20;
  Label2.Margins.Right=20;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#545454');
  Label2.clProSettings.FontSize = 15;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.SetclProSettings(Label2.clProSettings);
}

void setEmail;
{
  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;
  
  
}

void setLabel3;
{
  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('#545454');
  Label3.clProSettings.FontSize = 15;
  Label3.clProSettings.TextSettings.Font.Style = [fsBold];
  Label3.SetclProSettings(Label3.clProSettings);
}
void setParola;
{
  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);
  
}

void login;
{
  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')
  logbtn.Align=alTop;
  logbtn.Height=50;
  logbtn.Margins.Left=20;
  logbtn.Margins.Right=20;
  logbtn.Margins.Bottom=20;
  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#45d370');
  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');
}

void setLabel4;
{
  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','-- Use Your Another Account --');
  Label4.Align = alTop;
  Label4.Height = 30;
  Label4.Width=120;
  Label4.Margins.Left=90;
  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#383838');
  Label4.clProSettings.FontSize =15;
  Label4.clProSettings.TextSettings.Font.Style = [fsBold];
  Label4.SetclProSettings(Label4.clProSettings);
}
void setgooglebtn;
{
  googlebtn=loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use  Google Account')
  googlebtn.Align=alTop;
  googlebtn.Height=40;
  googlebtn.Margins.Left=75;
  googlebtn.Margins.Right=75;
  googlebtn.Margins.Bottom=20;
  googlebtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#089abf');
  googlebtn.clProSettings.RoundWidth=10;
  googlebtn.clProSettings.RoundHeight=10;
  googlebtn.clProSettings.FontSize=17;
  googlebtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  googlebtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  googlebtn.SetclProSettings(googlebtn.clProSettings);
  
  googleImg=loginform.AddNewProImage(googlebtn, 'googleImg');
  googleImg.Align=alLeft;
  googleImg.Margins.Left=10;
  googleImg.Margins.Top=5;
  googleImg.Margins.Bottom=5;
  googleImg.Width=25;
  
  
  
  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');
}

void setLabel5;
{
  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','Hesap Yoksa Kayit Ol');
  Label5.Align = alTop;
  Label5.Height = 30;
  Label5.Margins.Left=120;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#45d370');
  Label5.clProSettings.FontSize =17;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);
}









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);
}


{
  loginform = TCLForm.Create(Self);
  //loginform.SetFormColor('#080c16','',clGNone);
  //setPanel(420,500,'#101d2d');
  //setLabel1;
  //setLabel;
  //setLabel2;
  //setEmail;
  //setLabel3;
  //setParola;
  //login;
  //setLabel4;
  //setgooglebtn;
  //setLabel5;
  setLabel6;
  
  //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">
Yukarı Dön
ibrahimBsr Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 23 Haziran 2026
Durum: Aktif Değil
Puanlar: 32 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ibrahimBsr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 58 Dakika Önce Saat 09:52
Sorunun çözümü budur.

void setLabel6;
{
  Label6 = loginform.AddNewProLabel(loginform,'Label6','Online sipariş platformumuza hoş geldiniz. Hesabınıza erişmek, siparişlerinizi görüntülemek, durumlarını gerçek zamanlı olarak takip etmek ve hızlı, basit ve güvenli bir alışveriş deneyiminin keyfini çıkarmak için giriş yapın.');
  Label6.Align = alTop;
  Label6.Height = 300;
  Label6.Width = 300;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#e3e3e3');
  Label6.clProSettings.FontSize =20;
  Label6.clProSettings.TextSettings.Font.Style = [fsBold];
  Label6.clProSettings.AutoSize = True;
  Label6.clProSettings.WordWrap = True;
  Label6.SetclProSettings(Label6.clProSettings);
}
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">
Yukarı Dön
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 47 Dakika Önce Saat 11:03
//Login page
var
loginform : TclForm;
PanelForm : TclProPanel;
Paneltext : TclProPanel;
titleLabel: TClProLabel;
Label1: TClProLabel;
Label2: TClProLabel;
Label3: TClProLabel;
Label4: TClProLabel;
Label5: TClProLabel;
Label6: TClProLabel;
Label7: TClProLabel;
titleLabellogin: TClProLabel;
EmailEdit,ParolaEdit:TclProEdit;
logbtn:TClProButton;
googlebtn:TClProButton;
email,pass:String;
SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;
emailImg:TClProImage;

void setPanel(a,b:Integer;color:String);
{
  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');
  PanelForm.Align = alTop; 
  PanelForm.Height =200;
  PanelForm.Margins.Left=400;
  PanelForm.Margins.Right=30;
  PanelForm.Margins.Top=10;
  PanelForm.Width = a;
  PanelForm.Height = b; 
  
  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089abf');
  PanelForm.clProSettings.BorderWidth = 2;
  PanelForm.clProSettings.IsFill = True; 
  PanelForm.clProSettings.IsRound = True;
  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(color);
  PanelForm.SetclProSettings(PanelForm.clProSettings);
}

void setPanelText;
{
  Paneltext = loginform.AddNewProPanel(loginform,'Paneltext');
  Paneltext.Align = alTop; 
  Paneltext.Height =200;
  //Paneltext.Margins.Left=30;
  Paneltext.Margins.Right=350;
  Paneltext.clProSettings.IsRound = True;
  Paneltext.clProSettings.IsFill = True; 
  //Paneltext.clProSettings.IsTransparent = True;
  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#089abf');
  Paneltext.SetclProSettings(Paneltext.clProSettings);
}

void setLabel6;
{
  Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.');
  Label6.Align = alTop;
  Label6.Margins.Left=30;
  Label6.Margins.Right=400;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#e3e3e3');
  Label6.clProSettings.FontSize =15;
  Label6.clProSettings.TextSettings.Font.Style = [fsBold];
  Label6.clProSettings.WordWrap = True;
  Label6.clProSettings.AutoSize = True;
  Label6.SetclProSettings(Label6.clProSettings);
}
void setLabel7;
{
  Label7 = loginform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');
  Label7.Align = alTop;
  Label7.Margins.Left=30;
  Label7.Margins.Right=400;
  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#e3e3e3');
  Label7.clProSettings.FontSize =30;
  Label7.clProSettings.TextSettings.Font.Style = [fsBold];
  Label7.clProSettings.WordWrap = True;
  Label7.clProSettings.AutoSize = True;
  Label7.SetclProSettings(Label7.clProSettings);
}


















void setLabel;
{
  titleLabel = loginform.AddNewProLabel(PanelForm,'titleLabel','GIRIS YAP');
  titleLabel.Align = alTop;
  titleLabel.Height = 50;
  titleLabel.Margins.Left=20;
  titleLabel.Margins.Right=20
  
  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf');
  titleLabel.clProSettings.FontSize = 25;
  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabel.SetclProSettings(titleLabel.clProSettings);
}
void setLabelLogin;
{
  titleLabellogin = loginform.AddNewProLabel(PanelForm,'titleLabellogin','Login to your Page');
  titleLabellogin.Align = alTop;
  titleLabellogin.Height = 70;
  
  titleLabellogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#e14714');
  titleLabellogin.clProSettings.FontSize = 40;
  titleLabellogin.clProSettings.FontVertAlign = palcenter;
  titleLabellogin.clProSettings.FontHorzAlign = palCenter;
  titleLabellogin.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabellogin.SetclProSettings(titleLabellogin.clProSettings);
}
void setLabel1;
{
  Label1 = loginform.AddNewProLabel(PanelForm,'Label1','WELCOME BACK');
  Label1.Align = alTop;
  Label1.Height = 30;
  Label1.Margins.Top=15;
  Label1.Margins.Left=20;
  Label1.Margins.Right=20;
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf ');
  Label1.clProSettings.FontSize = 15;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.SetclProSettings(Label1.clProSettings);
}
void setLabel2;
{
  Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');
  Label2.Align = alTop;
  Label2.Height = 30;
  Label2.Margins.Left=20;
  Label2.Margins.Right=20;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#545454');
  Label2.clProSettings.FontSize = 15;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.SetclProSettings(Label2.clProSettings);
}

void setEmail;
{
  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;
  
  
}

void setLabel3;
{
  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('#545454');
  Label3.clProSettings.FontSize = 15;
  Label3.clProSettings.TextSettings.Font.Style = [fsBold];
  Label3.SetclProSettings(Label3.clProSettings);
}
void setParola;
{
  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);
  
}

void login;
{
  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')
  logbtn.Align=alTop;
  logbtn.Height=50;
  logbtn.Margins.Left=20;
  logbtn.Margins.Right=20;
  logbtn.Margins.Bottom=20;
  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#45d370');
  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');
}

void setLabel4;
{
  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','-- Use Your Another Account --');
  Label4.Align = alTop;
  Label4.Height = 30;
  Label4.Width=120;
  Label4.Margins.Left=90;
  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#383838');
  Label4.clProSettings.FontSize =15;
  Label4.clProSettings.TextSettings.Font.Style = [fsBold];
  Label4.SetclProSettings(Label4.clProSettings);
}
void setgooglebtn;
{
  googlebtn=loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use  Google Account')
  googlebtn.Align=alTop;
  googlebtn.Height=40;
  googlebtn.Margins.Left=75;
  googlebtn.Margins.Right=75;
  googlebtn.Margins.Bottom=20;
  googlebtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#089abf');
  googlebtn.clProSettings.RoundWidth=10;
  googlebtn.clProSettings.RoundHeight=10;
  googlebtn.clProSettings.FontSize=17;
  googlebtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  googlebtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  googlebtn.SetclProSettings(googlebtn.clProSettings);
  
  googleImg=loginform.AddNewProImage(googlebtn, 'googleImg');
  googleImg.Align=alLeft;
  googleImg.Margins.Left=10;
  googleImg.Margins.Top=5;
  googleImg.Margins.Bottom=5;
  googleImg.Width=25;
  
  
  
  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');
}

void setLabel5;
{
  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','Hesap Yoksa Kayit Ol');
  Label5.Align = alTop;
  Label5.Height = 30;
  Label5.Margins.Left=120;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#45d370');
  Label5.clProSettings.FontSize =17;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);
}









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);
}


{
  loginform = TCLForm.Create(Self);
  setPanelText;
  setPanel(300,500,'#101d2d');
  setLabel7;
  setLabel6;
  //setLabel1;
  //setLabel;
  //setLabel2;
  //setEmail;
  //setLabel3;
  //setParola;
  //login;
  //setLabel4;
  //setgooglebtn;
  //setLabel5;
  
  
  
  
  //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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 968 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 30 Dakika Önce Saat 11:20
var
  loginform: TclForm;
  PanelForm: TclProPanel;
  Label2, Label3, Label4, Label5, Label6, Label7: TClProLabel;
  EmailEdit, ParolaEdit: TclProEdit;
  logbtn, googlebtn: TClProButton;
  email, pass: String;
  SqliteQuery1: TClSQLiteQuery;
  googleImg, emailImg: TClProImage;

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 = 'SELECT COUNT(*) as CNT FROM Users';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  if (Clomosy.DBSQLiteQuery.FieldByName('CNT').AsInteger == 0)
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES (''[email protected]'', ''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);
}

{
  loginform = TclForm.Create(Self);

  PanelForm = loginform.AddNewProPanel(loginform, 'PanelForm');
  PanelForm.Align = alCenter;
  PanelForm.Width = 350;
  PanelForm.Height = 580;
  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101D2D');
  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089ABF');
  PanelForm.clProSettings.BorderWidth = 2;
  PanelForm.clProSettings.IsFill = True;
  PanelForm.clProSettings.IsRound = True;
  PanelForm.clProSettings.RoundHeight = 16;
  PanelForm.clProSettings.RoundWidth = 16;
  PanelForm.SetclProSettings(PanelForm.clProSettings);

  Label7 = loginform.AddNewProLabel(PanelForm, 'Label7', 'EVERY ASIAN FOOD IN ONE HUB');
  Label7.Align = alTop;
  Label7.Height = 50;
  Label7.Margins.Top = 20;
  Label7.Margins.Left = 20;
  Label7.Margins.Right = 20;
  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#089ABF');
  Label7.clProSettings.FontSize = 18;
  Label7.clProSettings.FontHorzAlign = palCenter;
  Label7.clProSettings.TextSettings.Font.Style = [fsBold];
  Label7.SetclProSettings(Label7.clProSettings);

  Label6 = loginform.AddNewProLabel(PanelForm, 'Label6', 'Welcome to our online ordering platform. Log in to access our menus.');
  Label6.Align = alTop;
  Label6.Height = 45;
  Label6.Margins.Left = 25;
  Label6.Margins.Right = 25;
  Label6.Margins.Bottom = 15;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#E3E3E3');
  Label6.clProSettings.FontSize = 11;
  Label6.clProSettings.FontHorzAlign = palCenter;
  Label6.clProSettings.WordWrap = True;
  Label6.SetclProSettings(Label6.clProSettings);

  Label2 = loginform.AddNewProLabel(PanelForm, 'Label2', 'Enter Your Email');
  Label2.Align = alTop;
  Label2.Height = 25;
  Label2.Margins.Left = 20;
  Label2.Margins.Right = 20;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');
  Label2.clProSettings.FontSize = 12;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.SetclProSettings(Label2.clProSettings);

  EmailEdit = loginform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here');
  EmailEdit.Align = alTop;
  EmailEdit.Height = 45;
  EmailEdit.Margins.Left = 20;
  EmailEdit.Margins.Right = 20;
  EmailEdit.Margins.Bottom = 15;
  EmailEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080C16');
  EmailEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#383838');
  EmailEdit.clProSettings.BorderWidth = 1;
  EmailEdit.clProSettings.IsRound = True;
  EmailEdit.clProSettings.RoundWidth = 8;
  EmailEdit.clProSettings.RoundHeight = 8;
  EmailEdit.clProSettings.FontColor = clAlphaColor.clWhite;
  EmailEdit.clProSettings.FontSize = 13;
  EmailEdit.clProSettings.IsFill = True;
  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  emailImg = loginform.AddNewProImage(EmailEdit, 'emailImg');
  emailImg.Align = alLeft;
  emailImg.Margins.Left = 10;
  emailImg.Margins.Top = 10;
  emailImg.Margins.Bottom = 10;
  emailImg.Width = 25;
  loginform.SetImage(emailImg, 'https://cdn-icons-png.flaticon.com/128/646/646094.png');

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

  ParolaEdit = loginform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here');
  ParolaEdit.Align = alTop;
  ParolaEdit.Height = 45;
  ParolaEdit.Margins.Left = 20;
  ParolaEdit.Margins.Right = 20;
  ParolaEdit.Margins.Bottom = 20;
  ParolaEdit.Password = True;
  ParolaEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080C16');
  ParolaEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#383838');
  ParolaEdit.clProSettings.BorderWidth = 1;
  ParolaEdit.clProSettings.IsRound = True;
  ParolaEdit.clProSettings.RoundWidth = 8;
  ParolaEdit.clProSettings.RoundHeight = 8;
  ParolaEdit.clProSettings.FontColor = clAlphaColor.clWhite;
  ParolaEdit.clProSettings.FontSize = 13;
  ParolaEdit.clProSettings.IsFill = True;
  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  logbtn = loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn');
  logbtn.Align = alTop;
  logbtn.Height = 45;
  logbtn.Margins.Left = 20;
  logbtn.Margins.Right = 20;
  logbtn.Margins.Bottom = 15;
  logbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#45D370');
  logbtn.clProSettings.RoundWidth = 8;
  logbtn.clProSettings.RoundHeight = 8;
  logbtn.clProSettings.FontSize = 16;
  logbtn.clProSettings.FontColor = clAlphaColor.clWhite;
  logbtn.clProSettings.TextSettings.Font.Style = [fsBold];
  logbtn.clProSettings.IsFill = True;
  logbtn.SetclProSettings(logbtn.clProSettings);
  loginform.AddNewEvent(logbtn, tbeOnClick, 'connection');

  Label4 = loginform.AddNewProLabel(PanelForm, 'Label4', '-- Use Another Account --');
  Label4.Align = alTop;
  Label4.Height = 25;
  Label4.Margins.Left = 20;
  Label4.Margins.Right = 20;
  Label4.Margins.Bottom = 10;
  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  Label4.clProSettings.FontSize = 11;
  Label4.clProSettings.FontHorzAlign = palCenter;
  Label4.clProSettings.TextSettings.Font.Style = [fsBold];
  Label4.SetclProSettings(Label4.clProSettings);

  googlebtn = loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use Google Account');
  googlebtn.Align = alTop;
  googlebtn.Height = 45;
  googlebtn.Margins.Left = 40;
  googlebtn.Margins.Right = 40;
  googlebtn.Margins.Bottom = 20;
  googlebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#089ABF');
  googlebtn.clProSettings.RoundWidth = 8;
  googlebtn.clProSettings.RoundHeight = 8;
  googlebtn.clProSettings.FontSize = 13;
  googlebtn.clProSettings.FontColor = clAlphaColor.clWhite;
  googlebtn.clProSettings.TextSettings.Font.Style = [fsBold];
  googlebtn.clProSettings.IsFill = True;
  googlebtn.SetclProSettings(googlebtn.clProSettings);
  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');

  googleImg = loginform.AddNewProImage(googlebtn, 'googleImg');
  googleImg.Align = alLeft;
  googleImg.Margins.Left = 10;
  googleImg.Margins.Top = 10;
  googleImg.Margins.Bottom = 10;
  googleImg.Width = 25;
  loginform.SetImage(googleImg, 'https://cdn-icons-png.flaticon.com/512/1000/1000777.png');

  Label5 = loginform.AddNewProLabel(PanelForm, 'Label5', 'Hesap Yoksa Kayit Ol');
  Label5.Align = alTop;
  Label5.Height = 25;
  Label5.Margins.Left = 20;
  Label5.Margins.Right = 20;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#45D370');
  Label5.clProSettings.FontSize = 13;
  Label5.clProSettings.FontHorzAlign = palCenter;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);

  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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,066 Saniyede Yüklendi.