Delphi Forum

Orhancc hocam çok teşekkür ediyorum.

Hah şimdi oldu;
Bu işle hobi olarak uğraştığım için anlamadığım ve hatta hiç bilmediğim kısmı programın bitbtn hafızasını nerede ve nasıl tuttuğu veya tutacağı idi ve kısa cevaptan tam olarak anlayamadım ve yeniden sordum.

İni olayını şimdi araştırmaya başlıyorum çözdüğümde tam bir anlatımla ...

Arkadaşım sorduğum konunun nasıl yapılabileceği hakkında bilgi arıyorum.
Cevabınızdan bir şey anlamadığımdan da yeniden sordum.
Forumda soru sormanın veya kod aramanın yasak olduğuna dair bir ibare görmedim.
Eğer yasaksa veya tümüyle yanlış bir şey soruyorsam forum yöneticilerinden rica ediyorum ...

Bu soruya cevap verebilecek bir arkadaş yokmu?

Cevap için teşekkür ederim. Tam olarak nasıl yapabileceğim hakkında bilgi vermeniz mümkünmü?

Selamlar;

Çalışma anında bitbtn üzerindeki resmi dosyadan seçtiğim bir başkası ile değiştirmek istiyorum.

bitbtn1.Glyph:=nil;

IF OpenPictureDialog1.Execute then;
bitbtn1.Glyph.LoadFromFile(openpicturedialog1.filename);

Resim değişiyor ancak program kapanıp yeniden açıldığında yine defauld bmp ...

Evet bu oldu önce sorguladım sonra insert işlemini yaptım oldu. Teşekkür ederim.

Tekrar teşekkür ederim;

Sonradan yine deneme yanılma yoluyla son verdiğiniz
if dm.IBQs.RowsAffected=0 then
showmessage('Aradığınız Kayıt Bulunamadı!!!');
Şeklindeki ifadeyi de aynen kullandım bunda da diğerleri gibi kayıt olsa da olmasa da mesaj veriyor. Sanıyorum işlem içim insertsiz başka bir ...

Cevap için teşekkür ederim;
dm.IBQs data modüldeki IBQuery;

Hazırda veri olan tablonun bir alanındaki veriye göre arama yapıp aynı satırdaki diğer alanlardaki verilerle beraber diğer tabloya ekliyorum. Bu işlemi dediğiniz şekilde yani önce sorgulayıp bulursa ekleme işini nasıl yapabilirim?

Biraz ...

unicorn64 cevap için teşekkürler evet parametreye göre seçilen kaydı diğer tabloya kaydediyorum ve isteğim parametreli alanda istenen aynı değer yoksa mesaj vermesi. Hata verdi.

Arama yapmıyorsun ki kayıt bulacaksın

Nasıl yani aramıyorsak neyi buluyoruz?

Bir tablodan diğerine parametreye göre ilgili alanları insert yapıyorum Kodum şöyle;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
dm.IBQs.close;
dm.IBQs.SQL.Clear;
dm.IBQs.sql.add('insert into veri_girilen_t(veri_girilen_t_alanalrı_1,2,3) select veri ...

Selamlar;

Tablodan tabloya insert yapan sp yi IBStoredProc ile çalıştırıyorum.
İşlem sırayla;

1. ilk tabloya veri alınıyor;
2. ilk tablodaki veri sp ile ikinci tabloya insert oluyor.
3. ilk tablodaki veri siliniyor.
4. İşlem aynı sırada başa dönüyor.

İşlem başa döndüğünde 1. maddedeki ilk ...

Arkadaşım çok sağol Allah senden razı olsun saatlerce uğraştım. Sayende oldu.

Selamlar.

Firebird veri tabanına bağlı tabloyu;

IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.add('delete From tablo');
IBQuery1.open;

IBQuery1.close;
IBQuery1.open;

Şeklinde tabloyu boşaltıyorum.



Problem tablo boşaldıktan sonra dbgrid deactive olup bağlantısını kaybediyor. Ancak ...