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

   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;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
mervenur.demic Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ekim 2018 Durum: Aktif Değil Puanlar: 262	Mesaj Seçenekleri Yanıt Yaz Alıntı mervenur.demic Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Grid ile Sabit-Hareket Tarzında Rapor Hazırlama Gönderim Zamanı: 27 Ekim 2018 Saat 11:37
	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;