|
我用的是VS2005中的内嵌水晶报表，在采用拉模式下，我们可以将数据库中的大字段（Access是ole，Oracle是blob，SQL Server是image）直接拉至水晶报表相应位置并显示出来。但是这种方法有一个很严重的缺陷，那就是预设大小是无法改变的。在对象格式中，“图片大小”选项卡中图片宽、高是没有公式可以编辑的，这样如果数据库中保存的图片和预设大小不相同，就产生变形，为了解决这个问题，我在网上找了很长时间，也没有好的简单办法，在运行时动态改变图片大小看来是唯一解决途径了。
软件环境：WinXP\VS2005 VC++\内嵌水晶报表\SQL Server
解决步骤：
一、VC++中使用水晶报表的一般步骤，如不会请看：/html/c/ctool/20080425/1360.html
二、再增加一个类成员变量：
ISectionsPtr m_Sections; //水晶报表的节接口
三、增加一个类成员函数：
ISectionPtr CRptDialog::GetReportSection(int SectionNum)
// 函数名：GetReportSection
//用途：通过节下标，得到相应的节接口ISectionPtr
//SectionNum为节下标，从1(报表布眉)开始，以此类推，得到节接口
{
ISectionPtr pSection = NULL;
VARIANT var;
VariantInit (&var);
var.vt = VT_I2;
var.lVal = SectionNum;
HRESULT hr = m_Sections->get_Item(var, (ISection**) &pSection);
ASSERT(SUCCEEDED(hr));
VariantClear(&var);
return pSection;
}
四、添加以下代码，我们的目标是动态改变第3节（即详细资料a节）中的一个对象名为xjaaagzimage1的数据库图片的宽和高。
try{
this->m_Application.CreateInstance(__uuidof(Application));
m_Report = m_Application->OpenReport("d:\\zjA4.rpt");
//m_Report->SetReportVariableValue(_bstr_t("xjID"), _variant_t((m_pView->GetDocument()->ReadXjID()))); //这种方法无效，控件不能显示
//向水晶报表中传递参数xjID
m_Report->ParameterFields->GetItemByName("xjID")->AddCurrentValue(_variant_t((short)10));
//因为小结管柱图是直接从数据库图像字段中显示，长宽是设计时预设固定的，也没有公式编辑，没有天理哪！
HRESULT hr = m_Report->get_Sections((ISections**) &m_Sections);
ASSERT(SUCCEEDED(hr));
ISectionPtr pSection = GetReportSection(3); //得到第三节（即详细资料a）的接口指针
IReportObjectsPtr pReportObjects = NULL;
IReportObjectPtr pReportObject = NULL;
hr = pSection->get_ReportObjects((IReportObjects**)&pReportObjects); //得到详细资料a节内所有对象接口
ASSERT(SUCCEEDED(hr));
VARIANT var;
VariantInit(&var);
var.vt = VT_I2;
long objCount = 0;
pReportObjects->get_Count(&objCount); //得到对象数目
for (long i = 1; i <= objCount; i++) //水晶报表对象数组下标是从1开始（应该是普遍现象），不能想当然地从0开始，否则会有异常
{
var.lVal = i;
pReportObjects->get_Item(var, (IDispatch**)&pReportObject);
//得到对象名称，如果是管柱图xjaaagzimage1，就将长宽进行设置
BSTR objNameBSTR;
pReportObject->get_Name(&objNameBSTR); //得到对象名称
CString sObjName(objNameBSTR);
SysFreeString(objNameBSTR);
if (sObjName == "xjaaagzimage1") //找到对象（用CompareNoCase是否更好？），就设置其宽和高，注意它好象是用VC++编写的，模式是MM_HIMETRIC即1mm=100。水晶报表的度量单位是缇，缇（1厘米＝567缇，1英寸＝1440缇，1磅＝20缇，1像素＝15缇）
{
pReportObject->put_Width(576); //1cm宽
pReportObject->put_Height(576); //1cm高
}
else
{
continue;
}
}
//设置完毕，继续水晶报表操作的一般步骤
//设置数据源，注意jbServer是我的ODBC中的DSN名称。
m_Report->Database->Tables->Item[1]->SetLogOnInfo("jbServer","jianbong","jb_designer","zcgys");
m_Report->put_ReportAuthor((_bstr_t)"青蛙王子");
m_pRptViewer.put_ReportSource(m_Report);
m_pRptViewer.put_EnableGroupTree(FALSE);
m_pRptViewer.Refresh();
m_pRptViewer.ViewReport();
}
catch(...)
{
}好了，按下F5运行一把吧，祝你成功！
| 
