FastReport快速入门

//载入报表文件并打印
procedure TForm1.Button2Click(Sender: TObject);
begin
  frxReport1.Clear;
  frxReport1.LoadFromFile('test.fr3');
  frxReport1.ShowReport();
end;

//根据数据源筛选数据只打印部分内容
procedure TForm1.Button1Click(Sender: TObject);
var
  sqlStr: string;
begin
  sqlStr := 'SELECT * FROM Employees where city=''' + Edit1.Text + '''';
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add(sqlStr);
    open;
  end;
end;