Witam serdecznie mam nastepujący problem tworze raport w rave reports i stworzylem w visualu global page przekazalem parametry i wszystko dziala jak nalezy niestety mam pewien problem. Otoz musze do tego raportu przekazac parametry z bazy danych ( w moim przypadku 3 strony ulozone w swojego rodzaju tabelke). Moje pytanie jak wpisac dane z bazy aby automatycznie wpisaly sie w ten szablon i kazda nastepna strona tworzyla sie w ten sposob ?? Gdy zrobilem to z kodu udalo mi sie uzyskac ten efekt tylko pytanie czy da sie to z visuala zrobic ??
var
imie,nazwisko,devices, fotka:string;
Bitmap:TBitmap;
i:double;
j: integer;
begin
Bitmap := TBitmap.Create;
with Report do
begin
MarginLeft := 0.2;
MarginRight := 0.2;
MarginTop := 0.2;
MarginBottom := 0.2;
SetFont('Arial', 10);
NewLine;
Bitmap.LoadFromFile('test.bmp');
PrintBitmapRect(MarginLeft ,MarginTop ,2,1, Bitmap);
PrintXY(2.1, Ypos + 0.1, 'Firma: ' + dmMain.qrLicencjanazwa.AsString);
NewLine;
PrintXY(2.1, YPos + 0.1, 'Nip: ' + dmMain.qrLicencjanip.AsString);
for j := 0 to 4 do
NewLine;
SetFont('Arial', 15);
FontColor := clRed;
PrintCenter('Raport użytkowników ', PageWidth/2);
NewLine;
NewLine;
SetFont('Arial', 12);
Bold := True;
PrintXY(0.4,YPos,'Dane osobowe');
Bold := False;
NewLine;
qrUsers.Open;
qrUsers.First;
qrUID.Open;
qrUID.First;
while not qrUsers.Eof do
begin
SetFont('Arial', 10);
if (LinesLeft < 3) and (not qrUsers.Eof) then
begin
NewPage;
NewLine;
NewLine;
end;
devices := '';
PrintXY(0.4,YPos,qrUsersdane.AsString);
NewLine;
while not qrUID.Eof do
begin
devices := devices + qrUIDnazwa_urzadzenia.AsString + ', ';
qrUID.Next;
end;
SetFont('Arial', 8);
PrintXY(0.6,YPos,devices);
NewLine;
NewLine;
qrUsers.Next;
end;
end;
Bitmap.Free
end;