استخدام Crystalreport مع الاوراكل

[sherifmans]

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;

**NOTE: Change the report name and path according to your required file name and path in
the "Crystal_CrystalCtrl.ReportFileName" method call. Also, the connection string shown
assumes that you will use the current USER and PASSWORD for the Form.

12. To make the above Form generic so that you can run any Crystal report from it, then create
a parameter for the report name and pass it to the Form using CALL_FORM from any other Form.
Then just replace the file name with the passed parameter.

13. Run the Form.

[elagaty_tv]

السلام عليكم

اخوانى الاعزاء انا جربت التعامل مع الكريستال ريبورت واتبعت الاجراءات التى قلتم عليها وتظهر لى رسالة تقول الاتى

Frm-41344 : ole object not defined for crystalreport1 in the current record

[جلال شواقفه]

جاري التجربه

[mtdeep2002]

i need to run CR from forms 10g as u know that the ACTIVEx not avaliable anymore in 10g
please advice