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

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

procedure RptStokHareketCreate(Sender: TObject);

begin

  with GrdSabit do

  begin

      Close;                 

      BtRun := True;

      BtSQL.Text := 'SELECT STOK_KODU,STOK_ADI FROM TBLSTOKSB';

      Open;                 

      SetWidthAllColumns;

      FirstUpCaption;     

  end;                        

end;

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

procedure GrdSabitDblClick(Sender: TObject);

begin

  with GrdHareket do

  begin

      Close;

      BtRun := True;                                              

      BtSQL.Text := 'SELECT CARI_KODU,CARI_ADI,BELGE_NO,BELGE_ADI,TARIH,GCMIK,OLCU_BR FROM PRG_VIEW_STOKHAREKET WHERE STOK_KODU=' + QuotedStr(GrdSabit.GetValueByName('STOK_KODU')); //QuotedStr stringi tırnak içerisine almaya yarar.

      Open;                  

      SetWidthAllColumns;

      FirstUpCaption;

  end;  

end;