yeni kullanıcılar

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
asena
Üye
Mesajlar: 1
Kayıt: 03 Ara 2005 04:04

yeni kullanıcılar

Mesaj gönderen asena »

arkadaşlar ben bilgisayar prog. 2. sınıf öğrencisiyim delphide daha yeniyim ama bir sorunum var stok prog. hazırlıyorum 5 edittan oluşan bir prog. (kaydet,yeni giriş, önceki kayıt,sonraki kayıt ve değiştir butonlarım var) bu butonlardan değiştir butonunun kodunu bulamıyorum eğer biliyorsanız bana EN KISA ZAMANDA yardımcı olursanız sevirim.
Kullanıcı avatarı
y.kulac
Üye
Mesajlar: 276
Kayıt: 08 Kas 2003 12:03
Konum: serdivan/sakarya

Mesaj gönderen y.kulac »

değiştirden kastınız nedir. neyi değiştirmek istiyorsunuz. sorunuzu biraz faha ayrıntılı yazabilirseniz yardımcı olmaya çalışırız.
Kullanıcı avatarı
delphist
Üye
Mesajlar: 595
Kayıt: 05 Oca 2005 04:34

Mesaj gönderen delphist »

s.a. Hocam eğer programınızı Ado bileşenleri ile Adoquery veya Adodataset ile yapıyorsanız veya benzeri bileşenlerle ......

1. Table1.append; ile yeni kayıt açabilir...
2. Table1.delete; ile kaydı silebilir.
3. Table1.updaterecord;
Table1.post; yazarak kaydı değiştirebilirsiniz...Edit işleminin çalışması için Kayıtlarda değişiklik yapılması gerekir. Yoksa Dataset not insert or edit mode diye bir hata alırsın...
Kayıtların durumu yani kişi yeni kayıt butonuna bastımı tablo append edilmeden kaydet butonuna basarsada aynı hatayı alacaktır. onun için yeni kayıt butonuna

Kod: Tümünü seç


 if not (Table1.state in [dsedit, dsinsert]) then
            begin
              Table1.append; 
            end;
bu şekilde yazarsan iki kere append önler ve yeni kayıt butonunu çalıştırmış olursun.

Kaydet butonunda ise

Kod: Tümünü seç

if (table1.state = [dsinsert]) then
         begin
           Table1.post;
          end;
bu kodlarla eğer yeni kayıt açılmışsa kaydet şeklinde kontrolünü yapabilirsin.

Son kez sorunun cevabı da şu....

Kod: Tümünü seç

if (Table1.state = dsedit) then
          begin
            Table1.updaterecord;
           Table1.post;

          end;
şeklinde kaydını değiştirebilirsin...


Son olarak delete işlemindede...

Kod: Tümünü seç

if not (Table1.state in [dsedit, dsinsert]) then
          begin
            Table1.delete;
         end;
kaydın değişmediğini veya yeni kayıt butonuna basılmadığını anlayarak silme işlemini yaabliirsinz...

İyi Çalışmalar
ASE
Kıdemli Üye
Mesajlar: 518
Kayıt: 28 Ağu 2003 03:17
Konum: samsun
İletişim:

Mesaj gönderen ASE »

Kod: Tümünü seç

Table1.edit
Kolay gelsin...
Allah'ım!...
Yol boyunca bırakma elimi...
Düşerim sonra...


ASE YAZILIM
Cevapla