Creating Reports with Delphi and ADO

procedure TForm1.rsysPrint(Sender: TObject);

begin

with Sender as TBaseReport do begin

SetFont('Arial', 15);

NewLine;

SetFont('Arial',18);

FontColor := clRed;

Print('Welcome to Code Based Reporting in Rave');

NewLine;

NewLine;

ClearTabs;

SetTab(0.2, pjLeft, 0.4, 0, 0, 0);

SetTab(0.4, pjRight, 2.1, 0, 0, 0);

SetTab(2.1, pjRight, 3.0, 0, 0, 0);

SetTab(3.0, pjRight, 4.0, 0, 0, 0);

SetFont('Arial', 10);

Bold := True;

PrintTab('Name');

PrintTab('Surname');

PrintTab('Age');

PrintTab('Occupation');

Bold := False;

NewLine;

q1.Open;

q1.first;

while not q1.Eof do begin

Printtab(q1.FieldByName('name').Text);

Printtab(q1.FieldByName('surname').Text);

Printtab(q1.FieldByName('age').Text);

Printtab(q1.FieldByName('occupation').Text);

newline;

q1.Next;

if (LinesLeft <>

NewPage;

end;

if q1.Eof then begin

q1.ClearFields;

end;

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

q1.Close;

q1.SQL.Add(memo1.lines.text);

q1.Parameters.ParamByName('sname').value:=edit1.Text;

q1.Open;

RSys.Execute;

end;