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. |
memoya yazı eklerken 2 tane hata alıyorum |
Yanıt Yaz |
Yazar | |
yazilimci21
Yeni Üye Kayıt Tarihi: 10 Temmuz 2024 Durum: Aktif Değil Puanlar: 8 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı yazilimci21
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Gönderim Zamanı: 24 Temmuz 2024 Saat 15:24 |
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; } |
|
Yanıt Yaz | |
Tweet |
Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |