Delphi Forum

Çok saolun dediğinizi yaptım oldu. İlginiz için tşk.

Eski projemde kullandığım, formlarla oluşturmuş olduğum hata mesajlarımı yeni projemde de kullanmayı istiyorum. Yeni projeye başka projelerdeki formları nasıl ekleyebilirim?

@Selman hocam dediğinin aynısını yaptım ama çalışmıyor bi türlü. Bir yerlerde bi hata yapıyorum eğer elinizde hazır bir örnek varsa zahmet olmazsa yollayabilir misiniz? Adminler konuyu kapatmaz inşallah.

http://www.ardajans.com/salim/fullvers/form.jpg

Yukarıdaki resimde görüldüğü gibi 3 tane tablo var. Birisi hasta kayıtlarını, birisi tanı kayıtlarını, diğeri ise hastaların tanılarını saklıyor. 3. tabloda görmüş olduğunuz üzere hasta adı ve tanısı alanlarında sadece id numarası gözüküyor ...

Delphi 6 ile gelen standart IBX bileşenlerini kullanıyorum. Bende gereksiz diye düşünüyorum. Aynı şeyi 2 kodla birlikte yapmanın faydasını daha önce hiç görmedim. Commitretaining kullanmak çok daha mantıklı.

Eyvallah çok saolun, yardımlarınız için tşkler.

İlginiz için teşekkürler. O kadar uğraşıp yazmışsınız ama benim asıl sorduğum kısaca kaydederken (post işlemi) commitretaining yapıp kayıttan sonra da applyupdates kullanınca herhangi bir sorun olup olmayacağıydı.

Button1.Click;
IBTable1.Post;
IBTransaction1.commitretaining;

IBTable1.AfterPost ...

Slm arkadaşlar. Bir konu hakkında görüşlerinizi alabilir miyim?

IBTransaction1.Commit;
IBTransaction1.Commitretaining;
IBDataset.ApplyUpdates;
IBTable1.Post;
IBTable1.Append;

Bu kodların yaptığı iş biliyorsunuz ki özetle yapılan kayıtları veritabanına kaydediyor. (Post ve Append'i çıkarın aradan ...

Ben bunun için kendimce şöyle bir çözüm buldum. Tabii bu ayrı program olarak yada form olarak çalışır. Formun Create olayında Quickrep1.Show; komutu var, bu bana boş bir report sayfası gösteriyor. Kaydet ve Aç butonları default olarak var zaten. Oradaki aç butonuyla rahatça dosyaları açıp ...

Arkadaşlar hepinize önerileriniz için çok teşekkürler. @selman hocam, Locate ile nereye kadar gidebilirim ki? Tablomda şu anda 20000 in üzerinde kayıt var, gün gelecek milyonları geçicek. Günde 1000 civarında kayıt yapılıyor. Bu durum için bana en uygun yol olarak Query (SQL) geldi ve onu kullandım ...

@bLue aLonE hocamın verdiği kodda da ExecData bölümünde hata verdi. Bu komut kısaltılmış olabilir mi acaba? Execute fln gibi? Bu şekilde çalışmadı çünkü. Belki Delphi versiyonundan da kaynaklanabilir. Benim kullandığım versiyon Delphi 6. Kusura bakmayın bu sorunun üstüne gitmeyi bırakıcam artık ...

Artık gülim mi ağliim mi naapıcaamı bende şaşırdım wallaa. İçinizden küfür etmeyin ama bu yine olmadı. Zaten daha önceki denemelerimde de last komutunu kaldırmıştım. Olmadığını görünce ekledim. Tekrar sildim ve show yaptırdım. Bilin bakalım nooldu? İlk kayıtta duruyor. (Yani hiçbir değişiklik yok ...

Çok özür diliyorum o kodları şimdi gördüm, demeseniz farkında olmayacakmışım. Kusura bakmayın kafamı çok kurcalıyo bu konu böyle küçük atlamalar olabiliyor şimdi sizin verdiğiniz kodlara bakıyorum.

pro_imaj, o dediğiniz olayı daha önceden yapmıştım. Ama olmadı. Showla ana formu gösteriyorum ama ilgili kayıta konumlanmıyor. Programın açılışında son kayda gitmesini istedim (ibtable1.last;) onun için olabilir mi? Yada sorgulama yaptığım bileşen IBQuery, düzenleme ve kaydetme yaptığım bileşen ise ...

@selman hocam, yaptığım işi şöyle anlatim size. İki farklı formum var. Form1 ve Form2. Form1'den veritabanına kayıt yapıyorum, Form2'den ise aradığım ismi bulmak için Edit kutuları yardımıyla sorgulama yapıyorum. Ada göre arama yapıp çıkan sonuçları dbgrid içerisinde listeletiyorum. Tablo da ...