利用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，单击事件写上frxPreview.Print;就OK了。

 

///窗体显示的时候直接将数据取出

procedure TForm1.FormShow(Sender: TObject);
begin
    try
      with ADOQuery1 do
      begin
          ADOQuery1.Close;
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('select * from [user]');
          ADOQuery1.Open;
         // ADOQuery1.ExecSQL;

      end;
    except

    end;
end;