DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: randy522732557
今日帖子: 23
在线用户: 13
导航: 论坛 -> 经典工具 斑竹:liumazi,ruralboy  
作者:
男 wangkexian (wangkexian) ★☆☆☆☆ -
普通会员
2005/7/8 21:27:16
标题:
太伤心了——功能更强,只因代码简单就不给发布 浏览:5566
加入我的收藏
楼主: 太伤心了——功能更强,只因代码简单就不给发布

FastReport报表设计器

请对比附件中的rar文件(共15行,只有9行是真正要自己写)
与http://www.2ccc.com/article.asp?articleid=2322
运行时设计FastReport的Frf格式文件的工具 (含代码)

//只需.prj,无需.pas和.dfm
//FrfDsgner.prj

{      报表设计器(.frf)
       王克鲜 于2005年6月完成

 使用方法:
 1.直接执行FrfDsgner.exe:
     根据需要选取"文件"菜单下的"新建"或"打开"菜单项。
 2.与.frf文件关联:
     在资源管理器中双击.frf文件,window会问"打开方式",
     选择FrfDsgner.exe,并选中"以后都用这个程序打开",单击"确定"。
 3.调用FrfDsgner.exe的方法:以rep.frf文件为例
     Dos 命令行:FrfDsgner.exe rep.frf
     Delphi源码:WinExec('FrfDsgner.exe '+'rep.frf',SW_SHOW);
}
program FrfDsgner;
uses
  FR_Desgn, FR_Class; //需要注意
var
  frReport1: TfrReport; //需要注意
//{$R *.res} //此行可以去掉,FrfDsgner.res亦可删除
begin //代码开始
  frReport1 := TfrReport.Create(nil);
  try
    frReport1.LoadFromFile(ParamStr(1));
    frReport1.DesignReport;
  finally
    frReport1.Free;
  end; //代码结束
end.
此帖子包含附件:wangkexian_20057821267.rar 大小:595.1K
----------------------------------------------
-
作者:
男 liangkan (小冰) ★☆☆☆☆ -
普通会员
2005/7/8 23:00:54
1楼: 很好.顶.顺便问一下.我要打印一份有图片的文稿.我想图片部用高分辩率打印,没有图片部自动用低分辩率打印,如何设计*.prj
----------------------------------------------
难者不会,会者不难。
作者:
男 hsgrass (hsgrass) ★☆☆☆☆ -
盒子活跃会员
2005/12/22 11:57:40
2楼: 好, 简单我喜欢 :)
----------------------------------------------
-
作者:
男 wangkexian (wangkexian) ★☆☆☆☆ -
普通会员
2006/1/15 10:23:34
3楼: {**********}
{       报表设计器(.fr3)          }
{          }
{       王克鲜 于2005年6月完成          }
{**********}
{使用方法:
 1.直接执行Fr3Dsgner.exe:
     根据需要选取"文件"菜单下的"新建"或"打开"菜单项。
 2.与.fr3文件关联:
     在资源管理器中双击.fr3文件,window会问"打开方式",
     选择Fr3Dsgner.exe,并选中"以后都用这个程序打开",单击"确定"。
 3.调用Fr3Dsgner.exe的方法:以rep.fr3文件为例
     Dos 命令行:Fr3Dsgner.exe rep.fr3
     Delphi源码:WinExec('Fr3Dsgner.exe '+'rep.fr3',SW_SHOW);
}
program Fr3Dsgner;
uses
  FRxDesgn, FRxClass; //需要注意
var
  frxReport1: TfrxReport; //需要注意
{$R *.res} //此行可以去掉,Fr3Dsgner.res亦可删除
begin //代码开始
  frxReport1 := TfrxReport.Create(nil);
  try
    frxReport1.LoadFromFile(ParamStr(1));
    frxReport1.DesignReport;
  finally
    frxReport1.Free;
  end; //代码结束
end.
此帖子包含附件:wangkexian_200611510239.rar 大小:643.4K
----------------------------------------------
-
作者:
男 dinglj1760 (最爱天王,还是丐帮) ★☆☆☆☆ -
盒子活跃会员
2006/4/28 9:19:41
4楼: 呵呵,
----------------------------------------------
-
作者:
男 jacarcheng (jacar) ★☆☆☆☆ -
普通会员
2006/12/2 14:53:25
5楼: 文字历害
----------------------------------------------
-
作者:
女 yanzipeng (燕子) ★☆☆☆☆ -
普通会员
2007/3/7 15:44:15
6楼: 为什么我按你的思路执行不了呀
----------------------------------------------
学习ing
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行85.9375毫秒 RSS