|
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*/
|