DbGrid Seçilen Kaydı Göstermiyor?

[shochan]

Selamun Aleyküm;



Resimde 1 numaralı butona tıkladığımda 2 numaralı formum create oluyor ve oradan hangi dönemi seçip çift tıklarsam 1 numaraları edite yazıyor 3 numaralı butona tıkladığımda dbgridde listeliyor buraya kadar sorun yok.

Fakat dönem raporu formunu (Listeleme yaptığım form) kapatıp 2. kez açtığımda dönem neyi seçersem seçeyim ilk kaydı edite yazıyor ilk açılışta hiç böyle bir sorun yok bu neden oluyordur yardımcı olabilir misiniz?

Dönem seç formundaki dbgrid çift tıklamada ki kodlarım şu şekilde:

Kod: Tümünü seç

  RPR_DONEM.EDT_DONEM.Text:=RPR_DONEM.IBTable1.FieldByName('DONEM_ADI').AsString;
  FRM_DONEM_SEC.Close;

EDIT: Şimdilik Dönem seç formuna dbedit ekleyip onun text'ini Dönem raporundaki editin textine eşitleyerek sorunu çözdüm ama ek bir edit kullanmadan yapmak istiyorum. Yani ilk açılışta olupta 2.kez açıldığında neden olmuyor??

[badkursat]

Eğer Dialog şeklinde kullanacaksanız formu şu şekilde kullanmanızı öneririm

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TDialogForm,DialogForm);
  if DialogForm.ShowmModal = mrOk Then
    Begin
      Edit1.Text := DialogForm.ADOQuery1.FieldByName('KolonIsmi').AsString;
    end;
end;

Dialog formununda ise şunu demen yeterli

Kod: Tümünü seç

procedure TDialogForm.DBGrid1DblClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

[shochan]

Aynı sorunu yaşıyorum dediğin gibi yapıncada hocam.

[3ddark]

Kod: Tümünü seç

RPR_DONEM.EDT_DONEM.Text:=RPR_DONEM.IBTable1.FieldByName('DONEM_ADI').AsString;	//Seçili satırdaki bilgiyi edite yaz.
  FRM_DONEM_SEC.Close;	//Formu kapat

Sen zaten buradaki koda göre seçilen satır/lardaki kodlardan tek bir satır alıyorsun görünüyor. Tam kodu eklersen yol gösterme adına yardımcı olmaya çalışırım.

[shochan]

Dönem seçtiğim o küçük formda başka kod yok ki dediğin gibi normalde seçileni edite yazması lazım ama yazmıyor hatta indicator seçtiğim satırda konumlanıyor ama olmuyor. Bende dönem seçtiğim forma bir adet dbedit ekleyip visible özelliğini false yaptım ve o şekilde aktarıyorum.

Kod: Tümünü seç

  RPR_DONEM.EDT_DONEM.Text:=EDT_DONEM.Text;
  FRM_DONEM_SEC.Close;

[fesiharslan]

Büyük bir ihtimalle query nesnesi siz seçim yaptıktan sonra ilk satıra konumlanıyor yada query'nin bağlı olduğu dataset kapatılıp yeniden açılıyor.