Crystal report viewer 控件TCrystalActiveXReportViewer的使用
来源:互联网 发布:c语言怎么写驱动 编辑:程序博客网 时间:2024/06/12 01:02
procedure TGL_CC_ReportCollection.OpenReport( const ReportFileName: string;
fromMenuPrinc : Boolean);
var
FormCrystal : TForm;
begin
try
Screen.Cursor := crHourGlass;
try
FormCrystal := TFormCrystal.Create(Forms.Application);
FormCrystal.Name := 'TFormCrystal';
Try
CrystalActiveXReportViewer :=
TCrystalActiveXReportViewer.Create(FormCrystal);
oApp :=CreateOleObject('CrystalRuntime.Application');
oRpt:=oApp.openreport(ReportFileName,1);
CrystalActiveXReportViewer.ReportSource := oRpt;
InitializeReport(CrystalActiveXReportViewer, FormCrystal);
ShowReport(CrystalActiveXReportViewer, FormCrystal);
End; (* Try *)
except
on E:Exception do
begin
raise;
end; // on..end
end; // try..except
finally
Screen.Cursor := crDefault;
end; // try..finally
end; // OpenReport..end
fromMenuPrinc : Boolean);
var
FormCrystal : TForm;
begin
try
Screen.Cursor := crHourGlass;
try
FormCrystal := TFormCrystal.Create(Forms.Application);
FormCrystal.Name := 'TFormCrystal';
Try
CrystalActiveXReportViewer :=
TCrystalActiveXReportViewer.Create(FormCrystal);
oApp :=CreateOleObject('CrystalRuntime.Application');
oRpt:=oApp.openreport(ReportFileName,1);
CrystalActiveXReportViewer.ReportSource := oRpt;
InitializeReport(CrystalActiveXReportViewer, FormCrystal);
ShowReport(CrystalActiveXReportViewer, FormCrystal);
End; (* Try *)
except
on E:Exception do
begin
raise;
end; // on..end
end; // try..except
finally
Screen.Cursor := crDefault;
end; // try..finally
end; // OpenReport..end
- Crystal report viewer 控件TCrystalActiveXReportViewer的使用
- Crystal Report的使用
- 关于Crystal Report动态分组的使用
- [Crystal Report]使用技巧
- Crystal Report制作使用
- Crystal Report制作使用
- Crystal Report制作使用
- crystal report 的安装
- VS2003 + Crystal Report 使用小节
- 制作水晶报表------crystal report designer 的使用和 安装
- Crystal Report的setdatasource出错
- Crystal Report 的一些问题?
- crystal report
- Crystal Report
- 水晶报表7子报表填充数据(VB)使用Crystal Report控件
- 使用“ReportViewer 控件 (Visual Studio)”,抛弃水晶报表(crystal report)
- .Net 中使用Crystal Report几个问题
- VC# .Net中使用Crystal Report
- 在C#中实现串口通信
- EJB CORE规范(第十三章 事务)
- JAVA之迭代器模式easy come easy go!
- ftpd之xferlog日志格式解读
- IPMSG中的多语言支持
- Crystal report viewer 控件TCrystalActiveXReportViewer的使用
- 关于集合类,equals,HashCode,Comparable,Iterator总结
- Ogre网站
- 某外企SQL Server面试题
- IT知名企业常见面试题实例与详解
- C语言历史介绍
- 关于自然语言计算机处理的几点思考
- JAVA面试常见问题
- Java精华积累:每个初学者都应该搞懂的问题!