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

最新推荐文章于 2022-07-20 14:48:08 发布

原创最新推荐文章于 2022-07-20 14:48:08 发布 · 1.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#数据库 #exception #user

DELPHI日记专栏收录该内容

2 篇文章

订阅专栏

在Delphi程序中，通过ADOQuery组件连接到数据库，查询[user]表中的所有数据。当点击打印按钮时，加载FastReport预定义的'Operator.fr3'报告，并设置FrmPrintView窗体上的frxPreview控件进行预览。如果在打印过程中发生异常，会弹出错误提示。在窗体显示时，自动执行SQL查询并打开数据集。

//打印按钮的时候动作

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;