ربط Crystalreport مع Oracle Forms

1-أنشاء فورم جديدة
2- عمل control block وليكن اسمه control
3- عمل content canvas وليكن اسمه REPCAN
4 - عمل ActiveX control على canvas وليكن اسمه CrystalReport1
5- عمل Image item وليكن اسمه REP ( ويكون الصورة كاملة على ActiveX control)
كبر الصورة لتملاء النافذة
5 - بالنقر بالزر الايمن على ActiveX control واختار Insert Object ومن القائمة واختار
Crystal Report Control
6 - اختار Program ثم ->Import OLE Library Interface
7 - اختار من القائمة Crystal.CrystalReport from
وده هيعرض طريقتان CrystalCtrl and IRowCursor
وحدث CrystalReprotEvent
اختار الثلاث ثم زر موافق (علشان يكون لهم pl/sql)

وفي When-New-Form-Instance" trigger
اكتب الكود التالي

DECLARE
charWinHandle VARCHAR2(50);
numWinHandle NUMBER;

BEGIN Set_Application_Property(Cursor_Style,'BUSY');

charWinHandle := Get_Item_Property('Control.Rep',Window_Handle);
numWinHandle := To_Number(charWinHandle);

:Item('Control.CrystalReport1').OCX.Crystal.Crysta lReport.WindowParentHandle
:= numWinHandle;

:Item('Control.CrystalReport1').OCX.Crystal.Crysta lReport.WindowState := 2;

:Item('CONTROL.CRYSTALREPORT1').OCX.Crystal.Crysta lReport.Connect 
:= 'DSN=;UID=' || Get_Application_Property(UserName) ||
';pwd=' || Get_Application_Property(password) || ';dsq=;';

Crystal_CrystalCtrl.ReportFileName( :Item('Control.CrystalReport1').interface,
'C:\Sample_Rep.Rpt' );

Set_Window_Property( Forms_Mdi_Window, Window_State,Maximize );
Set_Window_Property( 'MAIN', Window_State, Maximize );

:reptitle := 'Report Preview Window';

numWinHandle := Crystal_CrystalCtrl.PrintReport( :Item('Control.CrystalReport1').interface );
Set_Application_Property(Cursor_Style,'DEFAULT');

END;