报表打印时回写打印人/打印时间/打印次数

zhouf

报表打印时回写打印人/打印时间/打印次数

1. 进入报表设计环境
　　
2. 开始编写代码
　　
3. 填写代码内容（参见附Ａ）
　　

附Ａ：

1. procedure rptMainOnReportPrint(Sender: TfrxComponent);
   
2. var
   
3.   sBillNo: string;
   
4.   qryCmd: TfrxADOQuery;         
   
5. begin
   
6.   //获取数据集的单据号列表            
   
7.   with TfrxADOQuery(MasterData1.DataSet) do
   
8.   begin
   
9.     first;
   
10.     while not Eof do
    
11.     begin
    
12.       sBillNo := sBillNo+','+FieldByName('入检单号').Asstring;
    
13.       Next;
    
14.     end;           
    
15.   end;
    
16.   //ShowMessage(sBillNo);
    
17. 
    
18.   //回写打印次数/打印人/打印时间               
    
19.   qryCmd := TfrxADOQuery.Create(nil);
    
20.   //qryCmd.Database := TfrxADOQuery(MasterData1.DataSet).Database;
    
21.   try
    
22.     qryCmd.SQL.Text :=
    
23.       ' UPDATE a SET '
    
24.      +'  iPrintCount = ISNULL(a.iPrintCount,0)+1 '
    
25.      +'  ,sPrintMan = '+QuotedStr(<CurrentUserId>)
    
26.      +'  ,tPrintTime = GETDATE() '
    
27.      +' FROM dbo.imClothesInHdr a(NOLOCK) '
    
28.      +' WHERE a.sBillNo IN (SELECT * FROM dbo.fnpbConvertStringToTable('+ QuotedStr(sBillNo) +','',''))'
    
29.      +'   AND (a.tPrintTime IS NULL OR a.tPrintTime < DATEADD(SECOND,-2,GETDATE()));';  //两次报表防止重复更新
    
30.     //qryCmd.Open;
    
31.     qryCmd.ExecSQL;
    
32.   finally
    
33.     qryCmd.Free;                             
    
34.   end;
    
35. end;

复制代码