Grid ile Sabit-Hareket Tarzında Rapor Hazırlama

Ekran üzerine iki tane grid ekliyoruz. Birinci gride stoklistesini çekiyoruz. Bu işlemi formun create olayında yapıyoruz.

procedure RptStokHareketCreate(Sender: TObject);

begin

  with GrdSabit do

  begin

      Close;                

      BtRun := True;

      BtSQL.Text := 'SELECTSTOK_KODU,STOK_ADI FROM TBLSTOKSB';

     Open;                 

      SetWidthAllColumns;

      FirstUpCaption;     

  end;                        

end;

Sabit gridi dolduktan sonra seçmiş olduğumuz stoğun hareketlerinigrdhareket gridimize çekiyoruz.

procedure GrdSabitDblClick(Sender: TObject);

begin

  with GrdHareket do

  begin

      Close;

      BtRun :=True;                                             

      BtSQL.Text := 'SELECTCARI_KODU,CARI_ADI,BELGE_NO,BELGE_ADI,TARIH,GCMIK,OLCU_BR FROMPRG_VIEW_STOKHAREKET WHERE STOK_KODU=' +QuotedStr(GrdSabit.GetValueByName('STOK_KODU')); //QuotedStr stringi tırnakiçerisine almaya yarar.

     Open;                 

      SetWidthAllColumns;

      FirstUpCaption;

  end;  

end;