Kod: Tümünü seç
Begin
End.
FastReportta kullandığımız nesnelere aşağıdaki nesnelere kolaylıkla atama yapabiliriz.
Kod: Tümünü seç
Memo1.Color := clRed; //memo rengini kırmızı yapar.
Kod: Tümünü seç
<DegşiskenAdi>
Get(‘DegşiskenAdi’) // Değişken değerini alır
Set(' DegşiskenAdi’, 10); // değişkene 10 değerini atıyoruz.
if Get(‘DegşiskenAdi ') = 10 then ... // değişkenin değeri 10’sa
Alanların kullanımı
<frxDBDatasetAdi."AlanAdi">
Kod: Tümünü seç
borç Alacak Bakiye
100 0 100
50 0 150
0 25 125
Kod: Tümünü seç
Set('Bakiye',<frxDBDataset1."ALACAK">-<frxDBDataset 1."BORC">+<Bakiye>);
Kod: Tümünü seç
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
Var
Say:Double;
begin
Say:=<frxDBDataset1."ALACAK">-<frxDBDataset1."BORC" >+Say;
MemoBakiye.Text:=FloatToStr(Say);
end;
Şimdiki örnekte A harfi ile Başlayan Kayıtları Listeleyelim. MasterData Bandının OnBeforePrint olayına aşağıdaki kodu yazın
Kod: Tümünü seç
if Copy(<frxDBDataset1."Adi">, 1, 1) = 'A' then
MasterData1.Visible := True else
MasterData1.Visible := False;