Clomosy | Forum : tclproedit

Clomosy | Forum : tclproedit https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 16:31:15 +0000 Wed, 17 Jul 2024 17:20:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=687 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[tclproedit : Merhaba İrem,Scroll yapıldığı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=687&PID=1049#1049 Yazar: Developer
Konu: 687
Gönderim Zamanı: 17 Temmuz 2024 Saat 17:20

Merhaba İrem,

Scroll yapıldığı zaman id edit değer göstermemeye başlıyor. Yakın zaman da bu hata düzelteceğiz.

]]> Wed, 17 Jul 2024 17:20:00 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=687&PID=1049#1049 <![CDATA[tclproedit : varform:TCLform;giris,bilgi:TC...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=687&PID=1041#1041 Yazar: iremNisak
Konu: 687
Gönderim Zamanı: 17 Temmuz 2024 Saat 15:08

var

form:TCLform;

giris,bilgi:TClProLabel;

id:TclProEdit;

ad,soyad,meslek,dinlenme_bas,dinlenme_bitis,mesai_baslangic,mesai_bitis:TClProButton;

adstr,soyadstr,meslekstr,dinlenme_basstr,dinlenme_bitisstr,mesai_baslangicstr,mesai_bitisstr:String;

vScroll:TCLVertScrollBox;

query:TClSqlQuery;

void clik_Ad;{

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_adi = ' + QuotedStr(adstr) +

'WHERE kisi_id = ' + id.Text;

InputQuery('ÖZELLİK', 'Ad Bilgisini Giriniz', adstr);

ShowMessage('Veri güncelleme başarılı');

query.ExecSql;

except

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

}

void clik_Soyad;{

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_soyad = ' + QuotedStr(soyadstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Soyad Bilgisini Giriniz', soyadstr);

ShowMessage('Veri güncelleme başarılı');

except

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

}

void clik_Meslek;{

if (VarIsNull(id.Text))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_meslegi = ' + QuotedStr(meslekstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Meslek Bilgisini Giriniz', meslekstr);

ShowMessage('Veri güncelleme başarılı');

except

ShowMessage('id giriniz');

}

void clik_mesai_baslangic;{

// DateTimeToStr(mesai_baslangicstr);

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_vardiya_baslangic = ' + QuotedStr(mesai_baslangicstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Mesai Başlangıç Bilgisini Giriniz', mesai_baslangicstr);

ShowMessage('Veri güncelleme başarılı');

except

ShowMessage('id giriniz');

}

void clik_mesai_bitis;{

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_vardiya_bitis = ' + QuotedStr(mesai_bitisstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Mesai Başlangıç Bilgisini Giriniz', mesai_bitisstr);

ShowMessage('Veri güncelleme başarılı');

except

ShowMessage('id giriniz');

}

void clik_dinlenme_bas;{

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_dinlenme_bas = ' + QuotedStr(dinlenme_basstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Mesai Başlangıç Bilgisini Giriniz', dinlenme_basstr);

ShowMessage('Veri güncelleme başarılı');

except

ShowMessage('id giriniz');

}

void clik_dinlenme_bitis;{

if (VarIsNull(id))

ShowMessage('id Giriniz');

else{

try

query.SQL.Text = 'UPDATE vardiyaa ' +

'SET kisi_dinlenme_bitis = ' + QuotedStr(dinlenme_bitisstr) +

'WHERE kisi_id = ' + id.Text;

query.ExecSql;

InputQuery('ÖZELLİK', 'Mesai Başlangıç Bilgisini Giriniz', dinlenme_bitisstr);

ShowMessage('Veri güncelleme başarılı');

except

ShowMessage('id giriniz');

}

//ShowMessage('Adı '+adstr+'olarak güncellendi');

{

form=TCLform.Create(self);

form.clSetCaption('Kullanıcı Kayıt Bilgilerini Güncelleme Sayfası');

form.SetFormColor('#b387e8', '', clGNone);

vScroll = form.AddNewVertScrollBox(form,'ScrollBoxY');

vScroll.Align = alClient;

giris = form.AddNewproLabel(vScroll, 'giris', 'Değiştirmek İstediğiniz Kişinin ID Numarasını Giriniz');

clComponent.setupComponent(giris,

"Align":"top","Width":80,"Height":50,

"TextColor":"#ad0154","TextSize":25,"TextVerticalAlign":"center",

"TextHorizontalAlign":"alLeft","TextBold":"yes","MarginBottom":50

}');

id=form.AddNewProEdit(vScroll, 'id', 'ID Bilgisi:');

clComponent.setupComponent(id,

"Align":"top","Width":25,"Height":50,

"TextColor":"#ad0154","TextSize":5,"TextBold":"yes"

}');

id.clTypeOfField = taFloat;

id.MaxLength = 11;

bilgi = form.AddNewproLabel(vScroll, 'bilgi', 'Hangi Özelliği Değiştirmek İstiyorsanız Aşağıdan Seçiniz');

clComponent.setupComponent(bilgi,

"Align":"top","Width":50,"Height":50,

"TextColor":"#ad0154","TextSize":20,"TextVerticalAlign":"center",

"TextHorizontalAlign":"alLeft","TextBold":"yes","MarginBottom":10

}');

ad=form.AddNewProButton(vScroll, 'ad', 'AD');

clComponent.setupComponent(ad,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

soyad=form.AddNewProButton(vScroll, 'soyad', 'SOYAD');

clComponent.setupComponent(soyad,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

meslek=form.AddNewProButton(vScroll, 'meslek', 'MESLEK');

clComponent.setupComponent(meslek,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

mesai_baslangic=form.AddNewProButton(vScroll, 'mesai_baslangic', 'VARDİYA BAŞLANGIÇ');

clComponent.setupComponent(mesai_baslangic,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

mesai_bitis=form.AddNewProButton(vScroll, 'mesai_bitis', 'VARDİYA BİTİŞ');

clComponent.setupComponent(mesai_bitis,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

dinlenme_bas=form.AddNewProButton(vScroll, 'dinlenme_bas', 'DİNLENME BAŞLANGIÇ');

clComponent.setupComponent(dinlenme_bas,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

dinlenme_bitis=form.AddNewProButton(vScroll, 'dinlenme_bitis', 'DİNLENME BİTİŞ');

clComponent.setupComponent(dinlenme_bitis,

"Align":"top","Width":20,"Height":80,"MarginTop":10,"MarginBottom":10,

"TextColor":"#c7237b","TextSize":20,"RoundHeight":50,"RoundWidth":50,

"BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5

}');

form.AddNewEvent(ad,tbeOnClick,'clik_Ad');

form.AddNewEvent(soyad,tbeOnClick,'clik_Soyad');

form.AddNewEvent(meslek,tbeOnClick,'clik_Meslek');

form.AddNewEvent(mesai_baslangic,tbeOnClick,'clik_mesai_baslangic');

form.AddNewEvent(mesai_bitis,tbeOnClick,'clik_mesai_bitis');

form.AddNewEvent(dinlenme_bas,tbeOnClick,'clik_dinlenme_bas');

form.AddNewEvent(dinlenme_bitis,tbeOnClick,'clik_dinlenme_bitis');

query = TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server','172.16.222.117','sa','irem1234','vardiyaa',50000);

query.Connection = Clomosy.DBSQLServerConnection;

form.Run;

}

/*edit üzerinde id numarasını giriyorum ama bazen yazdığım gözükmüyor hiçbirşey yazılmıyor gibi oluyor*/

]]> Wed, 17 Jul 2024 15:08:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=687&PID=1041#1041