Form'dan FastReporta Veri Göndermek

[EmrahOzgur]

Merhabalar. En basit haliyle şunu yapmak istiyorum. Formumdaki edit1 nesnesinin içerisindeki metini frxReport1 raporumdaki memo1 e yazdırmak istiyorum. Dizayn esnasında memo1 de hiçbir metin yok. Formda edit1 nesnesini dolduracak ve yazdır dediği zaman rapordaki boş olan memo1'e yazmasını istiyorum.

Formdaki değeri rapora nasıl gönderebilirim? Bunu nasıl yapabilrim ?

[quadr]

form + buton + frxReport1
frxReport1 diye bir rapor nesnemiz olsun.
frxReport1 deki componentleri arayalım.türlerine bakalım.bizim türe uyanın adına bakalım ve atama yapalım.
Bunları bir butona basılınca gerçekleştirelim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  frxReport1.LoadFromFile(raporun yolu);
  for i := 0 to frxReport1.ComponentCount - 1 do
  begin
    if frxReport1.Components[i] is TfrxMemoView then
    if TfrxMemoView(frxReport1.Components[i]).Name = 'memo1' then
    TfrxMemoView(frxReport1.Components[i]).Text := Edit1.text;
  end;
frxReport1.ShowReport(True);
end;

[esistem]

Selam;
Yada şöyle yapın,
frxreport1 de report->variables kısmında bir varyant (değişken) tanımlayın, mesela adı "deger" olsun, daha sonra,frxreport1 events kısmında OnGetValue olayına çift tıklayıp şu kodu yazın.

Kod: Tümünü seç

IF VarName='deger' THEN Value:=edit1.text;

[EmrahOzgur]

Sorunumu bu şekilde kolay bir biçimde çözdüm.. İlginize teşekkür ederim....

Selam;
Yada şöyle yapın,
frxreport1 de report->variables kısmında bir varyant (değişken) tanımlayın, mesela adı "deger" olsun, daha sonra,frxreport1 events kısmında OnGetValue olayına çift tıklayıp şu kodu yazın.

Kod: Tümünü seç

IF VarName='deger' THEN Value:=edit1.text;

[csunguray]

Şunu da kullanabilirsiniz:

Kod: Tümünü seç

function TForm1.SetFRMemo(Report1: TfrxReport; MemoName: string; StrValue: string): Boolean;
var
  Memo1: TfrxMemoView;
begin
  Result := False;
  Memo1 := TfrxMemoView(Report1.FindObject(MemoName));
  if Memo1 <> nil then
  begin
    Memo1.Memo.Text := StrValue;
    Result := True;
  end;
end;

Kullanımı:

Kod: Tümünü seç

procedure TForm1.ActionGosterExecute(Sender: TObject);
begin
  SetFRMemo(frxReport1, 'Memo1', Edit1.Text);
  frxReport1.ShowReport;
end;