VC中直接向水晶报表中添加图片

最新推荐文章于 2023-06-08 16:58:18 发布

原创最新推荐文章于 2023-06-08 16:58:18 发布 · 2.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #report #null #application #测试

本文档展示了如何在Visual C++（VC）中直接向水晶报表添加图片，并详细介绍了设置图片属性和边框样式的过程。通过创建 Crystal Reports 对象、打开或新建报表，然后使用接口方法在特定区域添加图片并调整其大小、位置和样式。最后，保存报表并显示在查看器中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//头文件定义

_ConnectionPtr m_pConnection;
_RecordsetPtr m_pRecordset;

ICROleObjectPtr pCROleObj;
IGraphObjectPtr pChartObj;
ISectionsPtr pSections;
ISectionPtr pSection ;

IParameterFieldDefinitionsPtr pParamFields;
IParameterFieldDefinitionPtr pParamField;

ILineObjectPtr pLineObj;

//cpp实现

m_Application.CreateInstance (__uuidof(Application));
_bstr_t strRptName = "E://Cristal//MultDetailsExamp//DataAndPic.rpt";
_bstr_t strPicName = "E://Cristal//MultDetailsExamp//AreaStudytemp.jpg";
m_Report =m_Application->OpenReport((_bstr_t)strRptName);

//新建一个报表
//m_Report = m_Application->NewReport();
//直接向水晶报表内部添加图片并修改属性 bmp jpg 都可以导入
pChartObj = NULL;
pSections = NULL;
pSection = NULL;
pCROleObj = NULL;

_variant_t var;
VariantInit(&var);
var.vt = VT_I2;
var.iVal = 1;
//向某个特定区域比如头文件详细部分添加图片
pSections = m_Report->GetAreas()->GetItem("D")->GetSections();
pSection = pSections->GetItem(var);
pSection->PutName("test");
pCROleObj = pSection->AddPictureObject((_bstr_t)strPicName, 0, 0);

//修改图片属性报表中的位置
pCROleObj->Name = "水晶报表测试图例";
pCROleObj->BackColor = RGB(111,111,111);
pCROleObj->Left = 1000;
pCROleObj->Top = 500;
pCROleObj->XScaling = 0.80;
pCROleObj->YScaling = 0.80;

//设定边框颜色和边框线形
pCROleObj->BorderColor    = RGB(0,255,255);
pCROleObj->BottomLineStyle = crLSSingleLine ;
pCROleObj->TopLineStyle    = crLSSingleLine;
pCROleObj->RightLineStyle = crLSSingleLine;
pCROleObj->LeftLineStyle   = crLSSingleLine;
//..具体属性设置,可以参考craxddrt.dll中的接口属性说明

//添加参数数据
pParamField = m_Report->GetParameterFields()->GetItemByName("MyName");
pParamField->AddCurrentValue("HuTianYu");

m_Report->GetParameterFields()->GetItemByName("MyCountry")->AddCurrentValue("China");

//向区域中添加一条线,矩形框等...
pLineObj = pSection->AddLineObject(500,400,400,1000);

m_Report->SaveAs("DataAndPicTmp.rpt", (CRReportFileFormat)0);

m_wndCRViewer.put_ReportSource(m_Report);
m_wndCRViewer.ViewReport();
m_wndCRViewer.Refresh();