var
Form1:TclForm;
isimedit,cevapedit:TCLProEdit;
yorumlarbaslik:TclProButton;
yil1,yil2,yil3,yil4,yil5,gonderbtn:TclProButton;
deger,adad,resmimi:String;
incomingProductList,i:Integer;
Unit1 :TclUnit;
void bosyildiz
{
deger='0';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil1.SetclProSettings(yil1.clProSettings);
Form1.AddNewEvent(yil1,tbeOnClick,'yildiz1');
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil2.SetclProSettings(yil2.clProSettings);
Form1.AddNewEvent(yil2,tbeOnClick,'yildiz2');
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil3.SetclProSettings(yil3.clProSettings);
Form1.AddNewEvent(yil3,tbeOnClick,'yildiz3');
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil4.SetclProSettings(yil4.clProSettings);
Form1.AddNewEvent(yil4,tbeOnClick,'yildiz4');
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
Form1.AddNewEvent(yil5,tbeOnClick,'yildiz5');
}
void yildiz1
{
deger='1';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil1.SetclProSettings(yil1.clProSettings);
Form1.AddNewEvent(yil1,tbeOnClick,'bosyildiz');
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil2.SetclProSettings(yil2.clProSettings);
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil3.SetclProSettings(yil3.clProSettings);
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil4.SetclProSettings(yil4.clProSettings);
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
}
void yildiz2
{
deger='2';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil1.SetclProSettings(yil1.clProSettings);
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil2.SetclProSettings(yil2.clProSettings);
Form1.AddNewEvent(yil2,tbeOnClick,'bosyildiz');
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil3.SetclProSettings(yil3.clProSettings);
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil4.SetclProSettings(yil4.clProSettings);
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
}
void yildiz3
{
deger='3';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil1.SetclProSettings(yil1.clProSettings);
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil2.SetclProSettings(yil2.clProSettings);
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil3.SetclProSettings(yil3.clProSettings);
Form1.AddNewEvent(yil3,tbeOnClick,'bosyildiz');
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil4.SetclProSettings(yil4.clProSettings);
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
}
void yildiz4
{
deger='4';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil1.SetclProSettings(yil1.clProSettings);
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil2.SetclProSettings(yil2.clProSettings);
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil3.SetclProSettings(yil3.clProSettings);
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil4.SetclProSettings(yil4.clProSettings);
Form1.AddNewEvent(yil4,tbeOnClick,'bosyildiz');
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
}
void yildiz5
{
deger='5';
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil1.SetclProSettings(yil1.clProSettings);
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil2.SetclProSettings(yil2.clProSettings);
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil3.SetclProSettings(yil3.clProSettings);
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil4.SetclProSettings(yil4.clProSettings);
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/6hJnI4B5g8Ck.png" rel="nofollow - https://r.resimlink.com/6hJnI4B5g8Ck.png ';
yil5.SetclProSettings(yil5.clProSettings);
Form1.AddNewEvent(yil5,tbeOnClick,'bosyildiz');
}
void insertyorum
{
resmimi=' https://r.resimlink.com/cIjO-ub_N4M.png" rel="nofollow - https://r.resimlink.com/cIjO-ub_N4M.png ';
incomingProductList = Clomosy.StringListNew;
incomingProductList = Clomosy.GlobalVariableStringList;
for (i = 0 to incomingProductList.count - 1)
{
if(0==i){
adad=Clomosy.StringListItemString(incomingProductList,i);
}
/*if(1==i){
foto=Clomosy.StringListItemString(incomingProductList,i);
}
if(2==i){
fiyat=Clomosy.StringListItemString(incomingProductList,i);
}
if(3==i){
markasi=Clomosy.StringListItemString(incomingProductList,i);
}*/
}
try
Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Yorumbilgisi (Esyaisim, Resim,Ad_soyad,Cevap,YildizPuan) VALUES ('+QuotedStr(adad)+', '+QuotedStr(resmimi)+',' +QuotedStr(isimedit.Text)+',' +QuotedStr(cevapedit.Text)+',' +QuotedStr(deger)+')';
Clomosy.DBSQLiteQuery.OpenOrExecute;
ShowMessage('Kayıt Olundu!');
ShowMessage(deger);
except
ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
}
Form1.clShow;
Unit1.UnitName = 'yorumsayfasi';
Unit1.CallerForm = Form1;
Unit1.Run;
}
{
Form1 = TclForm.Create(Self);
Unit1 = TclUnit.Create;
yorumlarbaslik = Form1.AddNewProButton(Form1,'yorumlarbaslik','Yorum Sayfası');
yorumlarbaslik.Align = alTop;
yorumlarbaslik.Width = 200;
yorumlarbaslik.Height = 50;
yorumlarbaslik.Margins.Right = 75;
yorumlarbaslik.Margins.Left = 75;
yorumlarbaslik.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1dc948');
yorumlarbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
yorumlarbaslik.clProSettings.RoundHeight = 15;
yorumlarbaslik.clProSettings.RoundWidth = 15;
yorumlarbaslik.clProSettings.BorderWidth = 3;
yorumlarbaslik.clProSettings.FontSize = 12;
yorumlarbaslik.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
yorumlarbaslik.clProSettings.FontHorzAlign = palCenter;
yorumlarbaslik.clProSettings.IsFill = True;
yorumlarbaslik.clProSettings.IsRound = True;
yorumlarbaslik.SetclProSettings(yorumlarbaslik.clProSettings);
isimedit = Form1.AddNewProEdit(Form1,'isimedit','İsminizi Giriniz');
isimedit.Align = alCenter;
isimedit.Width = 200;
isimedit.Height = 45;
isimedit.Margins.Bottom= 500;
isimedit.Margins.Right= 180;
isimedit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
isimedit.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
isimedit.clProSettings.RoundHeight = 15;
isimedit.clProSettings.RoundWidth = 15;
isimedit.clProSettings.BorderWidth = 3;
isimedit.clProSettings.FontSize = 12;
isimedit.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
isimedit.clProSettings.FontHorzAlign = palCenter;
isimedit.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];
isimedit.clProSettings.IsFill = True;
isimedit.clProSettings.IsRound = True;
isimedit.SetclProSettings(isimedit.clProSettings);
isimedit.SetFocus;
cevapedit = Form1.AddNewProEdit(Form1,'cevapedit','');
cevapedit.Width = 380;
cevapedit.Height = 200;
cevapedit.Margins.Bottom= 200;
// cevapedit.Margins.Right= 100;
cevapedit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
cevapedit.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
cevapedit.clProSettings.RoundHeight = 15;
cevapedit.clProSettings.RoundWidth = 15;
cevapedit.clProSettings.BorderWidth = 3;
cevapedit.clProSettings.FontSize = 12;
cevapedit.clProSettings.FontVertAlign = palLeading;//palLeading , palCenter , palTrailing
cevapedit.clProSettings.FontHorzAlign = palCenter;
cevapedit.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];
cevapedit.clProSettings.IsFill = True;
cevapedit.clProSettings.IsRound = True;
cevapedit.SetclProSettings(cevapedit.clProSettings);
yil1=Form1.AddNewProButton(Form1,'yil1', '');
yil1.Height=25;
yil1.Width=25;
yil1.Align=alCenter;
yil1.Margins.Bottom =500;
yil1.Margins.Left = 100;
yil1.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil1.SetclProSettings(yil1.clProSettings);
Form1.AddNewEvent(yil1,tbeOnClick,'yildiz1');
yil2=Form1.AddNewProButton(Form1,'yil2', '');
yil2.Height=25;
yil2.Width=25;
yil2.Align=alCenter;
yil2.Margins.Bottom =500;
yil2.Margins.Left = 150;
yil2.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil2.SetclProSettings(yil2.clProSettings);
Form1.AddNewEvent(yil2,tbeOnClick,'yildiz2');
yil3=Form1.AddNewProButton(Form1,'yil3', '');
yil3.Height=25;
yil3.Width=25;
yil3.Align=alCenter;
yil3.Margins.Bottom =500;
yil3.Margins.Left = 200;
yil3.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil3.SetclProSettings(yil3.clProSettings);
Form1.AddNewEvent(yil3,tbeOnClick,'yildiz3');
yil4=Form1.AddNewProButton(Form1,'yil4', '');
yil4.Height=25;
yil4.Width=25;
yil4.Align=alCenter;
yil4.Margins.Bottom =500;
yil4.Margins.Left = 250;
yil4.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil4.SetclProSettings(yil4.clProSettings);
Form1.AddNewEvent(yil4,tbeOnClick,'yildiz4');
yil5=Form1.AddNewProButton(Form1,'yil5', '');
yil5.Height=25;
yil5.Width=25;
yil5.Align=alCenter;
yil5.Margins.Bottom =500;
yil5.Margins.Left = 300;
yil5.clProSettings.PictureSource = ' https://r.resimlink.com/r9PZ6wsoT.png" rel="nofollow - https://r.resimlink.com/r9PZ6wsoT.png ';
yil5.SetclProSettings(yil5.clProSettings);
Form1.AddNewEvent(yil5,tbeOnClick,'yildiz5');
gonderbtn=Form1.AddNewProButton(Form1,'onayla', 'Gönder');
gonderbtn.Align=alCenter;
gonderbtn.Height=50;
gonderbtn.Width=160;
gonderbtn.Margins.Top=100;
gonderbtn.Margins.Left=200;
gonderbtn.Margins.Right=20;
gonderbtn.Margins.Bottom=10;
gonderbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#6332ec');
gonderbtn.ClProSettings.RoundHeight=20;
gonderbtn.ClProSettings.RoundWidth=10;
gonderbtn.ClProSettings.FontColor=clAlphaColor.clHexToColor('#FFFFFF');
gonderbtn.ClProSettings.FontSize=16;
gonderbtn.ClProSettings.borderWidth=2;
gonderbtn.SetClProSettings(gonderbtn.ClProSettings);
Form1.AddNewEvent(gonderbtn,tbeOnClick,'insertyorum');
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');
Form1.Run;
}