利用ADOQuery控件连接数据库，然后用fastreport打印出来

//打印按钮的时候动作

procedure TForm1.Button1Click(Sender: TObject);
var
  AppPath: string;
begin

      AppPath := ExtractFilePath(Application.ExeName);
      try
           frxReport1.LoadFromFile(AppPath + 'Operator.fr3', True);
           Application.CreateForm(TFrmPrintView,FrmPrintView);
           frxReport1.Preview := FrmPrintView.frxPreview;

      except
           on e: Exception do
           begin
             Application.MessageBox(PChar('打印出现异常，请重试！或与系统管理员联系！'), '提示', MB_OK + MB_ICONERROR);
             Exit;
           end;
      end;

      Try
           frxReport1.ShowReport;
           FrmPrintView.ShowModal;
       Finally
           FrmPrintView.Free;
           FrmPrintView := Nil;
       End;

end;

 

在FrmPrintView窗体中放置一打印按钮，控件frxPreview，单击事