环思产品论坛

标题: 报表中对数据集排序、筛选及回写打印时间 [打印本页]
作者: zhouyangping    时间: 2014-12-11 10:55
标题: 报表中对数据集排序、筛选及回写打印时间
本帖最后由 zhouyangping 于 2014-12-11 11:30 编辑

排序
在报表代码里 begin end 中第一行写
  1. begin
  2.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Sort :='sSalesGroupName,sSalesName';
  3. end.
复制代码
或
  1. begin
  2. TCustomADODataSet(TfrxDBDataSet(Report.GetDataset('NAME')).DataSet).Sort :='sSalesGroupName,sSalesName';
  3. end.
复制代码

筛选
在报表代码里 begin end 中第一行写
  1. begin
  2.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Filter := 'bSelected=1';
  3.   TCustomADODataSet(TfrxDBDataSet(MasterData1.DataSet).DataSet).Filtered := True;
  4. end.
复制代码


回写打印时间示例
  1. var
  2. slist:string;                                    

  4. procedure Page1OnBeforePrint(Sender: TfrxComponent);
  5. var
  6.   qry:TCustomADODataSet;              
  7. begin
  8.   qry := TCustomADODataSet(TfrxDBDataSet(Report.getDataSet('查询结果1')).DataSet);
  9.   qry.Filter :='bSelected=1';
  10.   qry.Filtered := True;
  11.   slist := '';                           
  12.   qry.First;
  13.   while not qry.Eof do
  14.   begin
  15.     qry.Next;                                 
  16.     slist := slist + ','''+qry.FieldByName('uGUID').AsString+'''';                                                                                                                             
  17.   end;            
  18.   if slist <> '' then
  19.     delete(slist,1,1);
  20. end;  


  23. procedure rptMainOnReportPrint(Sender: TfrxComponent);
  24. var   
  25.   up:TfrxADOQuery;
  26. begin
  27. if slist <> '' then
  28. begin
  29.   up := TfrxAdoQuery.Create(nil);
  30.   try        
  31.     up.SQL.Text :='update mmhwInDtl set tInprintTime=getdate() where uguid in ('+slist+')';
  32.     up.execsql;
  33.   finally               
  34.     up.Free;
  35.   end;         
  36. end;         

  38. end;

  40. begin

  42. end.
复制代码







欢迎光临 环思产品论坛 (http://bbs.huansi.cn/) Powered by Discuz! X3.2