Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - tclproedit
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

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.

tclproedit
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
iremNisak Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 10 Temmuz 2024
Konum: konya
Durum: Aktif Değil
Puanlar: 25 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı iremNisak Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: tclproedit
    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*/
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 388 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,047 Saniyede Yüklendi.