دخول

**Lam.Abdeldjalil** · 20-03-2011, 08:46 PM

السلام عليكم

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

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

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

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;

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة