var

unitform:tclform;

panel:TCLProPanel;

img,img1:TCProLImage;

text1:TCLProEdit;

list:TCLMemo;

sozler: TclStringList;

testlabel:TClProLabel;

box,box1:tclcheckbox;

a:String;

i:float;

insertQuery: TclSqlQuery;

daylabel:TCLProlabel;

selectQuery, veriSorgusu : TClSqlQuery;

k:Integer;

void AddDataToListview;

  try

selectQuery= Clomosy.DBSQLServerQueryWith('SELECT  * FROM yapilacaklar WHERE  gunismi = ' + QuotedStr(daylabel.text));

    selectQuery.Open;

    while (Not selectQuery.EOF)

    {

    

     

      box1=unitform.addnewcheckbox(list,'b'+IntToStr(k),'');

box1.Position.Y=box1.Position.Y+i*21;   

box1.margins.right=150;

 

 list.Lines.Add((selectQuery.FieldByName('notlar').AsString));

 i=i+1;

 k=k+1;

    selectQuery.Next;

    }

  except

    ShowMessage('1'+LastExceptionMessage);

 }

void InsertToDatabase;

{

  try

    Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO yapilacaklar (gunismi,notlar) VALUES ('+QuotedStr(daylabel.text)+', '+QuotedStr(text1.Text)+')';

    Clomosy.DBSQLServerQuery.ExecSql;

    ShowMessage('Veri ekleme başarılı');

  except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

}

void img1OnClick;

{

box=unitform.addnewcheckbox(list,'a'+IntToStr(k),'');

box.Position.Y=box.Position.Y+i*21;   

box.margins.right=150;

 list.Lines.Add('     '

 +list.Lines.Add(text1.Text));

 text1.Text = '';

 i=i+1;

 k=k+1;

 InsertToDatabase;

}

void sozler1; 

 {

   sozler= Clomosy.StringListNew; 

     sozler.Capacity = 7; 

 

     sozler.Add('“Hayatınızı ortaya koymazsanız,

 hayatınızı kazanamazsınız.”');

     sozler.Add('“Dünden ders çıkar, bugünü yaşa,

     yarın için umut et!”');

     sozler.Add('“İyi düşünmek iyidir

     iyi hareket etmek,çok iyidir.”');

     sozler.Add('“Öne geçmenin sırrı, başlamaktır.”');

     sozler.Add('“Hareket etmeyen,

     zincirlerin farkına varamaz.”');

     sozler.Add('“Tehlikeli olan gelişmemektir.”');

     sozler.Add('“Başarı,her gün küçük

     çabaların birikimidir.”');

 

   }

 

{

insertQuery = TclSqlQuery.Create(nil);

  if (Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.124', 'sa', '123456', 'aaaa', 50000))

  {

    ShowMessage('Bağlandı');

  }

  else 

  {

    ShowMessage('Bağlanmadı');

  }

selectQuery = TClSqlQuery.Create(nil);

  selectQuery.Connection = Clomosy.DBSQLServerConnection;

unitform=tclform.Create(self);

unitform.SetFormColor('#ffffff','',clGNone);

panel=unitform.AddNewProPanel(unitform, 'panel');

clcomponent.setupcomponent(panel,'{

 "height":550,

 "width":450

}'); 

 

text1=unitform.AddNewProEdit(unitform,'text1','');

text1.width=220;

text1.margins.right=20;

text1.styledsettings=ssFamily;

text1.margins.bottom=575;

text1.TextSettings.FontColor = clAlphaColor.clHexToColor('#000000');

clcomponent.setupcomponent(text1,'{

"bordercolor":"#000000",

"borderwidth":1,

"Roundheight":5,

"roundwidth":5,

"textcolor":"#000000",

"height":40

  

  

  

}');

img=unitform.AddNewProImage(panel,'img');

unitform.SetImage(img,'https://i.hizliresim.com/5z3h5t3.jpg');

clcomponent.setupcomponent(img,'{

  

 "align":"client" 

}');

img1=unitform.AddNewProImage(panel, 'img1');

unitform.SetImage(img1,'https://clomosy.com/demos/add-list.png');

clcomponent.setupcomponent(img1,'{

  

 "height":50,

 "width":50,

 "marginbottom":575,

 "marginleft":250

}');

list=unitform.AddNewMemo(unitform,'list', '');

list.width=280;

list.align=alCenter;

list.height=390;

list.margins.top=70;

list.margins.left=20;

 sozler1;

 

testlabel=unitform.AddNewProLabel(unitform, 'sozlerr', 'sozlerr');

clcomponent.setupcomponent(testlabel,'{

  

"width":300,

  "height":35,

   "marginbottom":650,

   "marginleft":100

  

  

  

}');

testlabel.text = sozler[clMath.GenerateRandom(0,6)];

i=-0.23;

k=0;

unitform.AddNewEvent(img1,tbeOnClick,'img1OnClick');

daylabel=unitform.AddNewProLabel(unitform, 'daylabel', '');

daylabel.align=albottom;

daylabel.margins.bottom=(unitform.clheight*2)/100;

daylabel.margins.left=(unitform.clheight*22)/100;

daylabel.text=(testlist.clSelectedItemData(dayname));

sozler1;

AddDataToListview;

unitform.run; 

}