Delphi Can
Çözüldü. Fastreport ta çalışma anında dataset atama - Baskı Önizleme

+- Delphi Can (http://www.delphican.com)
+-- Forum: Delphi (http://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (http://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Çözüldü. Fastreport ta çalışma anında dataset atama (/showthread.php?tid=3795)



Çözüldü. Fastreport ta çalışma anında dataset atama - cinarbil - 11-07-2019

Hayırlı akşamlar
Fastreport ta çalışma anında masterdata bandına dataset atama yapmak istiyorum.
Yardımcı olabilir misiniz. 

Aşağıdaki kod ile fast_rapor ikonunu çift tıklar ve sayfa üstündeki Data sekmesindeki datasetlerden
boya_DB_set  seçer ve masterband secili iken dataset olarak boya_DB_set seçersen rapor çalışıyor.
bu işlemi çalışma anında kod ile yapmak istiyorum ama masterband dataset ataması yapamadım.

 
 data_form.fast_rapor.Clear;
 boya_DB_set.Dataset := data_form.siparis_sorgu;
 data_form.fast_rapor.DataSets.Add(boya_DB_set);
 data_form.fast_rapor.DataSet:=boya_DB_set;
 data_form.fast_rapor.DataSets[0].DataSetName := 'boya_DB_set';
 data_form.fast_rapor.FileName := cal_yol + 'data\Rapor\boya_rapor.fr3';
 data_form.fast_rapor.LoadFromFile(cal_yol + 'data\Rapor\boya_rapor.fr3',true); // true dosya bulunmasa hata ver false verme
 (data_form.fast_rapor.FindObject('boya_logo') as Tfrxpictureview).Picture.LoadFromFile(cal_yol + 'logonuz.bmp');
 (data_form.fast_rapor.FindObject('boya_kul') as Tfrxmemoview).Memo.Text := hextoascii(giris_prg.lisans_sahibi);
 (data_form.fast_rapor.FindObject('boya_tarih1') as Tfrxmemoview).Memo.Text := datetostr(bas_trh.Date);
 (data_form.fast_rapor.FindObject('boya_tarih2') as Tfrxmemoview).Memo.Text := datetostr(bit_trh.Date);
 (data_form.fast_rapor.FindObject('boya_im1') as Tfrxmemoview).Memo.Text := im_bas.Text;
 (data_form.fast_rapor.FindObject('boya_im2') as Tfrxmemoview).Memo.Text := im_bit.Text;

 if rapor_turu.ItemIndex = 0 then data_form.fast_rapor.ShowReport(true); // true hafızadaki son raporu siler



Fastreport ta çalışma anında dataset atama - 3ddark - 11-07-2019

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Buraya bakınız. Bir örnek verilmiş.


Cvp: Fastreport ta çalışma anında dataset atama - cinarbil - 11-07-2019

bu şekilde bir komut olmalı.

data_form.fast_rapor.FindObject('MasterData1') as TfrxMasterData.DataSet := 'boya_DB_set';

(11-07-2019, Saat: 17:54)3ddark Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Buraya bakınız. Bir örnek verilmiş.

emeğiniz için teşekkür ederim. bu siteyi inceledim.
create edin sonra atama yapıyor.
direk atama yapamaz isem bu kullanacağım.

Yanlış sıralama sonucu zaman kaybetmişim.
önce raporu yükle sonra atamaları yap.
işlem aşağıdaki gibi tamam.


data_form.fast_rapor.Clear;
  data_form.fast_rapor.FileName := cal_yol + 'data\Rapor\boya_rapor.fr3';
 data_form.fast_rapor.LoadFromFile(cal_yol + 'data\Rapor\boya_rapor.fr3',true); // true dosya bulunmasa hata ver false verme
 boya_DB_set.Dataset := data_form.siparis_sorgu;
 data_form.fast_rapor.DataSets.Add(boya_DB_set);
 data_form.fast_rapor.EnabledDataSets.Add(boya_DB_set);