批量打印工作证，这是一个Delphi源码，数据库使用的是Access，本程序可以实现用姓名查找某个人的工作证并打印，也可以打印所有人的工作证。本例是用Qreport打印控件编写的打印模版，使用了QRLable标签控件、QRDBText显示数据文本控件、QRShape图形控件。注意：来电的号码和查询的号码必须一至，否则查询的客户信息会不准确。

　　Delphi批量打印工作证实现过程：

　　（1）新建一个标准工程，创建一个新窗体，默认名为Form1。

　　（2）在BDE的Standard标签页中选择两个GroupBox控件放在Form1窗体上,并分别设置Align的属性为alLeft、alClient。

　　（3）在BDE的Data Controls标签页中选择两个DBGrid控件分别放在两个GroupBox上，并设置DBGrid的Align属性为alClient。

　　（4）在BDE的Standard标签页中选择Panel控件放在Form1窗体上，并设置Align的属性为alBottom。

　　（5）在BDE的Standard标签页中选择Button控件放在Panel上。

　　（6）在BDE的System标签面中选择Timer控件放在Form1窗体上。

　　（7）获取电话号的主要程序代码。

　　

-Batch printing work permit, which is a Delphi source code, using the Access database, the program can achieve Name Find a personal work permit and print can also print a work permit for all. This case is to to control written Qreport Print Print templates, use the QRLable label control, QRDBText, the data text controls, QRShape, graphical controls. Note: the caller s number and the number of queries must be one to inaccurate or query customer information.

Delphi batch printing work permit implementation process:

(1) to create a new standard project, to create a new form, default named the Form1.

(2) BDE Standard tab, select two GroupBox controls on the Form1 form and set the the properties for alLeft alClient Align.

Align property (3) in the BDE Data Controls tab, select two DBGrid control were placed in two GroupBox and set the DBGrid alClient.

(4) BDE Standard tab, select Panel control on the Form1 form, and set the Align attribute alBottom.

(5) in the Standard tab in the BDE B