DELPHI技巧:为Delphi中数据库报表加网格计算机二级考试

文章作者 100test 发表时间 2009:06:15 07:13:55
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　计算机等级考试四级应用题解析汇总

　　2009年下半年全国计算机二级考试时间是2009年9月19日至23日。2009年下半年全国计算机二级考试报名时间会在考前两个月开始报名！更多优质资料尽在百考试题论坛 百考试题在线题库。

　　我们实际上就是要把DBGrid的内容直接输出到打印机。以下程序在Win 98 Delphi 4下编译通过，代码如下：
　　procedure TForm1.Button2Click(Sender: TObject).
　　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.
　　(DataSo e1.DataSet).First.
　　while not (DataSource1.DataSet).Eof do
　　begin //打印DBGrid中的所有列
　　for i:=0 to DBGrid1.FieldCount－1 do
　　begin
　　//假如所要打印的列超出了打印范围，则忽略该列
　　if (x DBGrid1.Columns.Items[i].Width*PointScale)〈=(Printer.PageWidth－PointX*RightBlank) then
　　begin //画表格线
　　//每页的第一行打印表头
　　Printer.Canvas.Rectangle(x,y,x DBGrid1.Columns.
　　Items[i].Width*PointScale,y PrintStep).
　　if y=PointY*TopBlank then
　　Printer.Canvas.TextOut(x 8,y 8,DBGrid1.Columns[i].Title.Caption)
　　else
　　Printer.Canvas.TextOut(x 8,y 8,DBGrid1.Fields[i].asString).
　　end. //计算下一列的横坐标
　　x:=x DBGrid1.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(′打印完成′,′打印′,32).
　　end.
　　end.

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　全国计算机等级考试历年真题及答案

　　2009年上半年全国计算机等级考试试题及答案<./p