تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] سؤال بخصوص ActiveReports
#1
Question 
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته


------------------------------------------------------------------------


لدي ثلاثة استفسارات


أولاً : كيف اقوم بتحديد (ConnectionString) عن طريق الكود وليس المعالج اذا كنت استخدم (ADO) ؟


ثانياً : كيف اقوم باسناد الاستعلام (Source) عن طريق الكود ايضاً ؟


ثالثاً : كيف اقوم بتصدير التقرير على هيئة (PDF) ؟
الرد }}}
تم الشكر بواسطة:
#2
في المثال المرفق , حل الأسئلة كلها , بالنسبة للثالث فيه مشكلة في تصدير التقرير في الخطوط العربيه تتحول في البي دي إف بشكل معكوس ومفصله لم أتوصل إلى حل هذه المشكلة إلى الآن , أيضاً تأكد من إضافة مكتبة التصدير البي دي إف التابعة للأكتف ريبورت للمشروع , إسم المكتبة : ActiveReports PDF Export Filter


الملفات المرفقة
.rar   ActiveReport_Exa.rar (الحجم : 14.61 ك ب / التحميلات : 143)
الرد }}}
تم الشكر بواسطة: administrator , sendbad100
#3
(10-11-14, 11:27 PM)Ahmed_Mansoor كتب : في المثال المرفق , حل الأسئلة كلها , بالنسبة للثالث فيه مشكلة في تصدير التقرير في الخطوط العربيه تتحول في البي دي إف بشكل معكوس ومفصله لم أتوصل إلى حل هذه المشكلة إلى الآن , أيضاً تأكد من إضافة مكتبة التصدير البي دي إف التابعة للأكتف ريبورت للمشروع , إسم المكتبة : ActiveReports PDF Export Filter

جاري التجربة 
وفقك الله دنيا وآخره

ممتاز جداُ ( اشكرك Shy )


استفسار آخر


كيف أجعل كل سطر بالتقرير بلون


مثلاً ( احمر ابيض احمر ابيض احر ابيض ... وهكذا) يعني مثلاً تكون الاسطر الزوجيه بلون والفرديه بلون اخر
الرد }}}
تم الشكر بواسطة:
#4
إنسخ هذا الكود وألصقة داخل كود التقرير , يعني إضغط على أي مكان في التقرير دبل كلك , ملاحظة : لابد أولاً من تغيير خاصية الـ BackStyle التابعة لقسم الـ Detail إلى القيمة 1 أو Normal :
كود :
Dim zCounter As Integer


Private Sub ActiveReport_ReportStart()

zCounter = 0

End Sub


Private Sub Detail_Format()

If zCounter Mod 2 = 0 Then
   Detail.BackColor = &H80FFFF
Else
   Detail.BackColor = &HE0E0E0
End If

zCounter = zCounter + 1

End Sub
الرد }}}
تم الشكر بواسطة: administrator
#5
(11-11-14, 12:31 AM)Ahmed_Mansoor كتب : إنسخ هذا الكود وألصقة داخل كود التقرير , يعني إضغط على أي مكان في التقرير دبل كلك , ملاحظة : لابد أولاً من تغيير خاصية الـ BackStyle التابعة لقسم الـ Detail إلى القيمة 1 أو Normal :

كود :
Dim zCounter As Integer


Private Sub ActiveReport_ReportStart()

zCounter = 0

End Sub


Private Sub Detail_Format()

If zCounter Mod 2 = 0 Then
  Detail.BackColor = &H80FFFF
Else
  Detail.BackColor = &HE0E0E0
End If

zCounter = zCounter + 1

End Sub

ممتاز جزاك الله كل خير ورفع قدرك

تم التطبيق بنجاح

وان شاء الله تنحل مشلكة اللغة العربية ( جاري البحث عن حل )
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#6
شكراً لك , إن شاء الله , وإذا لقيت الحل ياريت تفيدنا به .
الرد }}}
تم الشكر بواسطة:
#7
معليش استفسار اخير
كثير اسئله بس تحملني




عندي حقل في قاعدة البيانات عبارة عن رابط صوره ( وليكن مثلاً صورة الموظف )

اضفة اداة picture على التقرير
اريد ان يتم عرض الصوره من الرابط

اما بطريقه مباشره عن طريق الرابط
او عن طريق تحميل الصور اولاً الى الجهاز ومن ثم استدعائها بشكل مباشر حسب اسم الصوره
الرد }}}
تم الشكر بواسطة:
#8
هل قصدك إن مسار الصورة فقط يعني الحقل نصي مثلاً : C:\Images.jpg , أرجوا سرعة الرد لأني معليش مستعجل شوي .
الرد }}}
تم الشكر بواسطة:
#9
نعم نصي
وليس كصوره

الحقل سيكون ام رابط على مركز تحميل
او على مسارشبكة
الرد }}}
تم الشكر بواسطة:
#10
معليش الوقت الحين مايسعفني لكن لاحقاً بعد ساعات , أحط المثال .
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم