كيف تتم الطباعة من استعلام في الريف ريبورت

[kachwahed]

اخي الكريم ان قمت بنزع الشرط where
فلا يصبح استعلام وما فائدته

إفعل ذلك فقط أثناء تصميمك للبرنامج لـ:

يتسنى لك معيانة النتائج في مصمم التقارير

بالتوفيق.

[yahia1921]

مشكور اخي على تفاعلك
نعم هو لا حل يوجد بالنسبة لهذه الحالة اذا يجب توفر الخاصيات
بارك الله فيك

[saber-bsa]

السلام عليكم لقد واجهت نفس المسكلة ألا يوجد حل عملي او طريقة ما
لقد حاولت لكن دون فائدة

[Lam.Abdeldjalil]

السلام عليكم

لم أفهم ما هو المشكل ؟ هل تريد إنشاء تقرير برمجيا ؟

[saber-bsa]

ما هو المشكل ؟

كيف يمكن طباعة تقرير ناتج من إستعلام (adoquery) بارمتري
كما نعلم ان نتائج الإستعلام تخرج اثناء تفيذ البرنامج
لهذا لا يمكنني ان أصمم صفحة التقرير بحقول الفاتورة قبل التنفيذ
لانها غير موجودة !

[Lam.Abdeldjalil]

السلام عليكم

ألق نظرة على :
فيديو شرح صنع تقارير ب rave raports
الدرس الثاني rave reports تصميم واجهات الصفحات
الدرس الثالث rave reports اعداد رأس و قدم الجسم

كما نعلم ان نتائج الإستعلام تخرج اثناء تفيذ البرنامج

وكذلك في وقت التنفيذ

http://www.delphi4arab.net/forum/showpos...ostcount=9

ليكن في العلم أن RvDataSetConnection يتصل بأي كلاس منحدرة من TDataSet ـ (ADOTable/ADOQuery/ADODataSet) وبالتالي يحمل تسجيلاتها و التي يمكن الوصول إليها من DirectDataView في Rave

+ إذا أردت الطباعة/المعاينة دون إنشاء ملف التقرير ( برمجيا ) هذا مثال بإستخدام RvSystem

في الحدث OnPrint

كود :

procedure TForm1.RvSystem1Print(Sender: TObject); begin with Sender as TBaseReport do begin NewLine; SetFont('Arial',20); FontColor := clRed; PrintCenter('Dynamic Reporting in Rave',3); NewLine; NewLine; ClearTabs; // Column Header SetTab(0.3, pjLeft, 0.5, 0, 0, 0); SetTab(0.6, pjLeft, 1.1, 0, 0, 0); SetTab(2.1, pjLeft, 1.0, 0, 0, 0); SetTab(3.0, pjLeft, 1.0, 0, 0, 0); SetFont('Arial', 10); Bold := True; // Column Header Captions PrintTab('N°'); PrintTab('Client'); PrintTab('Nbr'); PrintTab('Note'); Bold := False; NewLine; ADODataSet1.first; // Lines (Rows) while not ADODataSet1.Eof do begin Printtab(ADODataSet1.FieldByName('n').Text); Printtab(ADODataSet1.FieldByName('client').Text); Printtab(ADODataSet1.FieldByName('nbr').Text); Printtab(ADODataSet1.FieldByName('note').Text); newline; ADODataSet1.Next; if (LinesLeft < 4) and (not ADODataSet1.Eof) then begin NewPage; end; end; end; end;

التنفيذ

كود :

RvSystem1.Execute;

بالتوفيق

[me_delphi]

هل منكم اخواني من جرب طباعة تقرير من خلال استعلام يحتوي على عدة جداول ...لأني غالبا أبرمج قواعد البيانات من خلال االدوت نت ... مجبر وأنوي أن أقنع زملائي بتجربة قواعد البيانات بلغة دلفي milie_xp:

[Lam.Abdeldjalil]

السلام عليكم

طباعة تقرير من خلال استعلام يحتوي على عدة جداول

لم أفهمها ؟ إذا كان بالإمكان التوضيح بمثال / صورة

[me_delphi]

مثلا الطباعة من خلال هدا الاستعلام

Select n1,n2,n3 From Table1 INNER JOIN Table2 ON Table1.id=Table2.id

[Lam.Abdeldjalil]

بالطبع يمكن
محرر التقارير لا يهمه الإستعلام من جدول أو من مئة (ربط داخلي / خارجي / كلي ....) بطريقة ( DirectDataView) كل ما يهمه هو نتيجة الإستعلام في الـ DataSet
+ جربت للتو طريقة Database Connection + Driver Data View تعمل أيضا

هل واجهت مشكل فيها ؟