注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

reportmachine for delphi  

2014-09-30 02:35:02|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
procedure TFreportcontrol.setRmportVars(vRmreport: Trmreport);
var
 c_nm,c_pnm  : string;
begin
  try
    with vRmreport.Dictionary.Variables do
    begin
      //clear;
      AddCategory('模块自定义变量');
      Asstring['用户编号'] := mainForm.UseInfo.UseID;
      Asstring['用户名称'] := mainForm.UseInfo.UseName;
      Asstring['报表编号'] := ADSreports.fieldbyname('R_ID').AsString ;
      Asstring['报表名称'] := ADSreports.fieldbyname('R_Name').AsString ;
      Asstring['报表备注'] := ADSreports.fieldbyname('R_remark').AsString ;
      Asstring['ISO编号'] := ADSreports.fieldbyname('ISO_no').AsString ;
      Asstring['启用日期'] := ADSreports.fieldbyname('qy_date').AsString ;
      Asstring['修订次数'] := ADSreports.fieldbyname('xd_c').AsString;
      Asstring['修订日期'] := ADSreports.fieldbyname('xd_date').AsString;
      Asstring['保存期限'] := ADSreports.fieldbyname('bc_n').AsString ;

      rvars.Close;

      ClientDataModule.FillData(rvars,'select var_nm,var_define from app_sys_reportvariants where r_id='''+ADSreports.fieldbyname('r_id').AsString+''' and form_id='''+formid+'''');

      rvars.First;
      while not rvars.Eof  do
      begin
        c_pnm := rvars.fieldbyname('var_nm').AsString ;
        c_nm := rvars.fieldbyname('var_define').AsString;
        c_nm := copy(c_nm,1,pos('.',c_nm)-1);
        if aF.FindComponent(c_nm)<>nil then
        begin
          if aF.FindComponent(c_nm).InheritsFrom(TcxCustomTextEdit) then
          Asstring[c_pnm] := TcxCustomTextEdit(aF.FindComponent(c_nm)).text
          else if aF.FindComponent(c_nm).InheritsFrom(TEdit) then
          Asstring[c_pnm] := TEdit(aF.FindComponent(c_nm)).text;
        end;
        rvars.Next;
      end;
      rvars.Close;
    end;
  finally
    rvars.Close;
  end;
end;
  评论这张
 
阅读(302)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017