dbgrid控件查询出的数据要打印如何办

2004-05-08 05:42:19 291 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

bobzhu2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

PreparedStatement防SQL注入原理、盲区与纵深防御实践 SQL注入是Web应用中最常见且危险的安全漏洞之一，攻击者通过构造恶意输入，篡改原始SQL语句的逻辑，从而窃取、篡改或破坏数据库数据。其核心原理在于混淆了代码与数据的边界。要有效防御，关键在于采用参数化查询技术，将用户输入严格作为数据处理，而非可执行的SQL代码。这项技术的工程价值在于从根源上切断注入途径，是构建安全数据访问层的基石。在实际开发中，广泛应用于用户登录、数据查询、订单处理等涉及数据库交互的场景。本文聚焦于Java生态中广泛使用的PreparedStatement，深入解析其通过预编译机制实现参阅读详情

我这dbgrid的数据表是超长列宽的

可能要分两页才打的下

要做到可以打印和预览，请问选哪个报表控件来做比较合适

急求帮助

谢谢

QQ：12665590

有人愿意帮我解决的巧妙的话我也愿意适当出点费用的

...全文

【Kettle】利用循环遍历实现数据库表自动化SQL处理本文详细介绍了如何使用Kettle的循环遍历功能实现数据库表自动化SQL处理。通过JavaScript脚本和变量控制，开发者可以高效批量处理数据库表，包括添加字段、清理数据等操作，大幅提升工作效率。文章包含环境配置、核心步骤实现、高级技巧及实际案例，特别适合需要处理大量数据库表的ETL工程师。阅读详情

bobzhu2002

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

sailprint 2004-07-24

打赏
举报

这个可以满足你的要求！不用写代码！

下载地址：http://www.sailprint.com

简介：

SailPrint打印组件是一套VCL打印控件。目前最新版本是3.0，可以打印DBGrid,StringGrid,ListView以及直接打印数据源。SailPrint有以下几大特点：

一、SailPrint的特点是快速生成报表，灵活易用，只需几分钟即可完成漂亮的报表。

二、最终用户可以修改报表，开发人员只需调用setoption 这个过程即可让最终用户设置报表。

　　　SailPrint并且保留了设置窗口的源代码，开发人员也可以自己订制设置窗口，这样可以可以跟系统

　　　风格更为一致。包括打印预览窗口也保留了源代码，窗口样式可以随意修改。

三、自动折行功能，估计大家都理解不用多说了，好不好用一试便知。

四、主细表功能，这是新加入的功能，并且支持公式统计。支持的函数有：sum,count,avg以及函数之间

　　　的加减乘除。例如：sum([字段1])/count（[字段2]）

五、支持流存储，可以将报表的设置或者将整个报表保存为流，这样可以简单的将报表设置保存到数据

　　　库中，当然也可以保存成文件。这样最终用户修改了报表设置可以方便的保存。

六、多表头功能，设置方法可能与其他控件不一样。大家可以下载试一下。

以上是一些主要特点，还有一些细小功能就不一一列举了，大家下载体验一下吧。

ghchen 2004-07-14

打赏
举报

quick report 也行

liuqifeiyu 2004-07-12

打赏
举报

用report machine 吧，很简单的

冰刀封情 2004-07-12

打赏
举报

fastReport 可以打印控件内容，也很方便

kepingwen 2004-07-11

打赏
举报

FastReport，非常简单！

mmxcpu 2004-07-06

打赏
举报

const
LeftBlank=1; //¶¨ÒåÒ³±ß¾à£¬µ¥Î»ÀåÃ×
RightBlank=1;
TopBlank=1;
BottomBlank=1;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s:string;
x,y:integer;
i:integer;
begin //»ñÈ¡µ±Ç°´òÓ¡»úµÄ·Ö±æÂÊ
PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
//¸ù¾Ý´òÓ¡»úºÍÆÁÄ»µÄ·Ö±æÂÊ¼ÆËã³ö´ÓÆÁÄ»×ª»»µ½´òÓ¡»úµÄ±ÈÀý¡¡
PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch+0.5);
printer.Orientation:=poLandscape; //ºáÏò´òÓ¡
//´òÓ¡µÄ×ÖÌåºÍ´óÐ¡
printer.Canvas.Font.Name:='ËÎÌå';
printer.canvas.Font.Size:=10;
//¸ù¾Ý×ÖÌåµÄ´óÐ¡È·¶¨Ã¿ÐÐµÄ¸ß¶È
s:='华一软业';
PrintStep:=printer.canvas.TextHeight(s)+16;
//´òÓ¡µÄÆðµãÎ»ÖÃ
x:=PointX*LeftBlank;
y:=PointY*TopBlank;
//DataSource1ÊÇDBGrid1ËùÁ¬½ÓµÄÊý¾ÝÔ´
if ((DataSource1.DataSet).Active=true) and ((DataSource1.DataSet).RecordCount>0) then
begin
printer.BeginDoc;
DataSource1.DataSet.First;
while not (DataSource1.DataSet).Eof do
begin //´òÓ¡DBGridÖÐµÄËùÓÐÁÐ
for i:=0 to DBGrid2.FieldCount-1 do
begin //¼ÙÈçËùÒª´òÓ¡µÄÁÐ³¬³öÁË´òÓ¡·¶Î§£¬ÔòºöÂÔ¸ÃÁÐ
if(x+DBGrid2.Columns.Items[i].Width*PointScale)<=(Printer.PageWidth-PointX*RightBlank) then
begin //»±í¸ñÏß
//Ã¿Ò³µÄµÚÒ»ÐÐ´òÓ¡±íÍ·
Printer.Canvas.Rectangle(x,y,x+DBGrid2.Columns.Items[i].Width*PointScale,y+PrintStep);
if y=PointY*TopBlank then
Printer.Canvas.TextOut(x+8,y+8,DBGrid2.Columns[i].Title.Caption)
else
Printer.Canvas.TextOut(x+8,y+8,DBGrid2.Fields[i].asString);
end; //¼ÆËãÏÂÒ»ÁÐµÄºá×ø±ê
x:=x+DBGrid2.Columns.Items[i].Width*PointScale;
end;
if not (y=PointY*TopBlank) then
DataSource1.DataSet.next;
x:=PointX*LeftBlank;
y:=y+PrintStep; //»»Ò³
if (y+PrintStep)>(Printer.PageHeight-PointY*BottomBlank) then
begin
Printer.NewPage;
y:=PointY*TopBlank;
end;
end;
printer.EndDoc;
DataSource1.DataSet.First;
Application.MessageBox('´òÓ¡Íê³É£¡','XDLÂ¼Òô¹ÜÀíÏµÍ³',48);
end;
end;

bobzhu2002 2004-07-04

打赏
举报

本问题结帖

大家有兴趣可以联系我

我可以提供用QR实现打印的例子，数据库是IB

programingfans 2004-07-04

打赏
举报

mark

kldlu123 2004-06-22

打赏
举报

ehlib ok

water2ice 2004-05-14

打赏
举报

mark

tetsuya 2004-05-12

打赏
举报

ehlib 很好用

jude0824 2004-05-12

打赏
举报

up～
我也很想知道～

mthcz 2004-05-12

打赏
举报

偶也想知道，看看怎么用

mthcz 2004-05-12

打赏
举报

拜托，偶也看一下，

bobzhu2002 2004-05-09

打赏
举报

哪位可以告诉我详细点如何做

或者去处买哪本书看一下吗？

安优小青和他的程序生活 2004-05-09

打赏
举报

用ehlib 控件组合的dbgrid + printdbgrid控件可以直接打印

breadhead004 2004-05-09

打赏
举报

WWWWA 2004-05-09

打赏
举报

用FR、QR均可打。

bobzhu2002 2004-05-08

打赏
举报

补充
delphi7+ib7的开发平台

谢谢

dbgrid控件查询出的数据要打印如何办

相关推荐