23-03-2010, 07:11 PM
إقتباس :اخي الكريم ان قمت بنزع الشرط whereإفعل ذلك فقط أثناء تصميمك للبرنامج لـ:
فلا يصبح استعلام وما فائدته
إقتباس :يتسنى لك معيانة النتائج في مصمم التقاريربالتوفيق.
23-03-2010, 07:11 PM
23-03-2010, 10:37 PM
16-03-2011, 11:45 PM
19-03-2011, 03:56 PM
20-03-2011, 12:55 AM
20-03-2011, 08:46 PM
السلام عليكم
ألق نظرة على :
فيديو شرح صنع تقارير ب rave raports
الدرس الثاني rave reports تصميم واجهات الصفحات
الدرس الثالث rave reports اعداد رأس و قدم الجسم
http://www.delphi4arab.net/forum/showpos...ostcount=9
ليكن في العلم أن RvDataSetConnection يتصل بأي كلاس منحدرة من TDataSet ـ (ADOTable/ADOQuery/ADODataSet) وبالتالي يحمل تسجيلاتها و التي يمكن الوصول إليها من DirectDataView في Rave
+ إذا أردت الطباعة/المعاينة دون إنشاء ملف التقرير ( برمجيا ) هذا مثال بإستخدام RvSystem
في الحدث OnPrint
التنفيذ
بالتوفيق
ألق نظرة على :
فيديو شرح صنع تقارير ب 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;20-03-2011, 09:37 PM
هل منكم اخواني من جرب طباعة تقرير من خلال استعلام يحتوي على عدة جداول ...لأني غالبا أبرمج قواعد البيانات من خلال االدوت نت ... مجبر 
وأنوي أن أقنع زملائي بتجربة قواعد البيانات بلغة دلفي 
milie_xp:
وأنوي أن أقنع زملائي بتجربة قواعد البيانات بلغة دلفي milie_xp:20-03-2011, 09:57 PM
20-03-2011, 10:07 PM
20-03-2011, 10:20 PM
بالطبع يمكن
محرر التقارير لا يهمه الإستعلام من جدول أو من مئة (ربط داخلي / خارجي / كلي ....) بطريقة ( DirectDataView) كل ما يهمه هو نتيجة الإستعلام في الـ DataSet
+ جربت للتو طريقة Database Connection + Driver Data View تعمل أيضا
هل واجهت مشكل فيها ؟
محرر التقارير لا يهمه الإستعلام من جدول أو من مئة (ربط داخلي / خارجي / كلي ....) بطريقة ( DirectDataView) كل ما يهمه هو نتيجة الإستعلام في الـ DataSet
+ جربت للتو طريقة Database Connection + Driver Data View تعمل أيضا
هل واجهت مشكل فيها ؟