Genel İşlemler - metin sonuda diger satira gecmek

Sayfayı Yazdır | Pencereyi Kapat

metin sonuda diger satira gecmek

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

Konu: metin sonuda diger satira gecmek

Mesajı Yazan: Barthe_dev
Konu: metin sonuda diger satira gecmek
Mesaj Tarihi: 09 Temmuz 2026 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;

loginform.SetImage(emailImg,' https://cdn-icons-png.flaticon.com/128/646/646094.png" rel="nofollow - https://cdn-icons-png.flaticon.com/128/646/646094.png ');

}

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.SetImage(googleImg,' https://cdn-icons-png.flaticon.com/512/1000/1000777.png" rel="nofollow - https://cdn-icons-png.flaticon.com/512/1000/1000777.png ');

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.SetFormBGImage(' https://lyonvieuxpapiers.com/wp-content/uploads/2026/03/meilleur-resto-japonais-lyon.jpg" rel="nofollow - https://lyonvieuxpapiers.com/wp-content/uploads/2026/03/meilleur-resto-japonais-lyon.jpg ');

//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" 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: ibrahimBsr
Mesaj Tarihi: 09 Temmuz 2026 Saat 09:52

Sorunun çözümü budur.

void setLabel6;

{

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

}

Mesajı Yazan: Barthe_dev
Mesaj Tarihi: 09 Temmuz 2026 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;

loginform.SetImage(emailImg,' https://cdn-icons-png.flaticon.com/128/646/646094.png" rel="nofollow - https://cdn-icons-png.flaticon.com/128/646/646094.png ');

}

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.SetImage(googleImg,' https://cdn-icons-png.flaticon.com/512/1000/1000777.png" rel="nofollow - https://cdn-icons-png.flaticon.com/512/1000/1000777.png ');

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;

}

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 09 Temmuz 2026 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" rel="nofollow - 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" rel="nofollow - 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;

}