السلام عليكم
استعمل delphi7 و اكسس في مشروعي
ما هي طريقة طباعة اخر تسجيلة ادخلت الى جدول قاعدة بيانات يعني عند الضغط على زر الطباعة كيف سيكون الفلثر(Filter) الدي تتم به التصفية والطباعة (الفلثرة تكون على الحقل الاول للجدول من نوع رقمي)
هدا الكود غير مكتمل للتوضيح فقط عما ابحث عنه
PHP كود :
procedure TForm2.BitBtn2Click(Sender: TObject);// زر الطباعه
var rep,filtre:string;
begin
form3.qry1.Open;
form3.qry1.Refresh;
form3.qry1.Filtered:=False;
rep:= // هدا ما ابحث عنه
if (rep <>'')then
begin
filtre:='N°='+rep ;
form3.qry1.Filter:=filtre;
form3.qry1.Filtered:=true;
form3.qckrp1.preview;
end;
end;
end;
end;
اتمنى ان الفكرة وصلت وشكرا
السلام عليكم
وجدت حل للمشكلة الاولى و سيكون الكود بهدا الشكل
كود :
procedure TForm2.BitBtn2Click(Sender: TObject);// زر الطباعه
var rep,filtre:string;
begin
form1.tbl1.Open;
form3.qry1.Open;
form3.qry1.Refresh;
form3.qry1.Filtered:=False;
rep:= Form1.tbl1.fieldbyname('N°').Value;
if (rep <>'')then
begin
if form3.qry1.locate('N°',rep,[])= False then
begin
form3.qry1.Filtered:=False;
showmessage ('Ce N° de patient :'+rep+ chr(13)+' ne possède pas de Carte');
end
else
begin
filtre:='N°='+rep ;
form3.qry1.Filter:=filtre;
form3.qry1.Filtered:=true;
form3.qckrp1.preview;
end;
end;
end;
end;
لكن ظهرت معي مشكلة اخرى وهي عند محاولة طباعة اخر تسجيلة ادخلت للجدول تظهر رسالة تخبرك ان الشخص الدي تريد طباعة التسجيلة الخاص به غير موجود بالرغم انه موجود حقيقية في قاعدة البيانات ويظهر جليا في dbgrid وبعد اعادة تشغير البرنامج فقط استطيع طباعة المعلومات الخاص به كان الجدول او استعلام sql لا يعمل تحديث لقاعدة البيانات هل من حل وشكرا لكم ؟؟؟
السلام عليكم
قم بعمل تحديث للجدول الذي تمت فيه الاضافة tbl1.refresh اول استعمل
tbl1.active:=false
tbl1.active:=true
شكرا لك اخي على المتابعه
جربت هده الطريقة من قبل لكن للاسف لم ينجح الامر
جربت ايضا وما نفع
form1.tbl1.close;
form1.tbl2.open;
على كل حال انسى الكود الاول ساغير السؤال وابسطه كي تفهمني جيدا
لدينا fiche1 تحتوي على زرين زر ادخال معلومات وزر طباعة
ما هي الطريقة لطباعة اخر ما ادخل للجدول يعني بعد ادخال سجلات الشخص الاول بزر الادخال نقوم بطباعة معلوماته بزر الطباعة ؟
وشكرا
السلام عليكم
عليك وضع المؤشر على اخر سجل يعني بعد الاضافة انت مضطر لوضع الامر
tbl1.last;
شاهد المثال المرفق
بارك الله فيك اخي Mr.DOS
هدا ما ابحث عنه لكن انا استعمل quickraport في مشروعي وليس rave raport ممكن تعدل على المثال لتوضيح الفكرة احسن لاني تقدمت كثيرا في مشروعي ولا يمكنني البدا من جديد و سامحني اتعبتك معي
بارك الله فيك اخي Mr.DOS
لقد نجح الامر مع الكود الاول
اكتشفت ان تعليمة كانت ناقصة في زر الطباعة الا وهي
form3.qry1.close; بعدها نكتب تعليمة form3.qry1.Open;
وشكرا لمثالك فهو قيم جداا لقد اظفت لي فكرة اخرى لطباعة اخر عنصر في جدول
السلام عليكم
في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟
Lam.Abdeldjalil كتب :السلام عليكم
في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟
شكرا لك على التوضيح يا استاد عبد الجليل
نعم quickraport يملك DataSet الخاصة به التي ترتبط ب query التي تحتوي على تعليمات sql كما هو معروف.
بالنسبة لطباعة اخر ما ادخل للجدول فقد تحايلت بفكرة ونجحت والكود في الاعلى يوضح ما قمت به .