delphi 流程单打印

1.添加声明

f_count1: double;

2.得到拆分页数量

// Modified by 884 2018-04-20 14:50:18 AM0057
with aqTpCount do
begin
Active := false;
sql.Clear;
s_sql := 'select sum(tp_count) as tp_count from tpage ' + 'where list_no='''
+ list_no + ''' and tp_no=''' + tp_no + ''' and tp_status=1 ';
sql.Add(s_sql);
Active := true;
f_count := fields[0].AsFloat;
end;
qlCount_AM.Caption := floattostrf(f_count, ffFixed, 6, 1);
qlCount_AM_1.Caption := floattostrf(f_count, ffFixed, 6, 1);
qlCount_AM_mul.Caption := floattostrf(f_count, ffFixed, 6, 1);
// Added by 884 2018-04-20 14:50:31 AM0057
f_count1 := f_count;

3.设置程序取得值

procedure TListRep_SDForm_AM.FR_AMGetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'js' then
Value := floattostrf(f_count1, ffFixed, 6, 0);
end;

4.在模板中要设置【js】

5.

在镶工单中添加 aqStyle aqTab aq_pic1，
然后添加
frdDD_style frxDD_tab frdDD_pic1

修改DataSet为 aqStyle aqTab aq_pic1
修改UserName为 aq_style aq_tab Pic
6.

双击 frdDD_style frxDD_tab frdDD_pic1

重置 更新 确
7.点击模模板的数据 勾上去