+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طباعة اخر ما ادخل في الجدول ؟ (/showthread.php?tid=6139)
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 01-05-2014
السلام عليكم
استعمل 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;
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 02-05-2014
السلام عليكم
وجدت حل للمشكلة الاولى و سيكون الكود بهدا الشكل
كود :
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;طباعة اخر ما ادخل في الجدول ؟ - Mr.DOS - 02-05-2014
السلام عليكم
قم بعمل تحديث للجدول الذي تمت فيه الاضافة tbl1.refresh اول استعمل
tbl1.active:=false
tbl1.active:=true
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 02-05-2014
شكرا لك اخي على المتابعه
جربت هده الطريقة من قبل لكن للاسف لم ينجح الامر
جربت ايضا وما نفع
form1.tbl1.close;
form1.tbl2.open;
على كل حال انسى الكود الاول ساغير السؤال وابسطه كي تفهمني جيدا
لدينا fiche1 تحتوي على زرين زر ادخال معلومات وزر طباعة
ما هي الطريقة لطباعة اخر ما ادخل للجدول يعني بعد ادخال سجلات الشخص الاول بزر الادخال نقوم بطباعة معلوماته بزر الطباعة ؟
وشكرا
طباعة اخر ما ادخل في الجدول ؟ - Mr.DOS - 03-05-2014
السلام عليكم
عليك وضع المؤشر على اخر سجل يعني بعد الاضافة انت مضطر لوضع الامر
tbl1.last;
شاهد المثال المرفق
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 03-05-2014
بارك الله فيك اخي Mr.DOS
هدا ما ابحث عنه لكن انا استعمل quickraport في مشروعي وليس rave raport ممكن تعدل على المثال لتوضيح الفكرة احسن لاني تقدمت كثيرا في مشروعي ولا يمكنني البدا من جديد و سامحني اتعبتك معي
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 03-05-2014
بارك الله فيك اخي Mr.DOS
لقد نجح الامر مع الكود الاول
اكتشفت ان تعليمة كانت ناقصة في زر الطباعة الا وهي
form3.qry1.close; بعدها نكتب تعليمة form3.qry1.Open;
وشكرا لمثالك فهو قيم جداا لقد اظفت لي فكرة اخرى لطباعة اخر عنصر في جدول
طباعة اخر ما ادخل في الجدول ؟ - Lam.Abdeldjalil - 09-05-2014
السلام عليكم
في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟
طباعة اخر ما ادخل في الجدول ؟ - bassem_43 - 10-05-2014
Lam.Abdeldjalil كتب :السلام عليكمشكرا لك على التوضيح يا استاد عبد الجليل
في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟
نعم quickraport يملك DataSet الخاصة به التي ترتبط ب query التي تحتوي على تعليمات sql كما هو معروف.
بالنسبة لطباعة اخر ما ادخل للجدول فقد تحايلت بفكرة ونجحت والكود في الاعلى يوضح ما قمت به .