طباعة اخر ما ادخل في الجدول ؟

[bassem_43]

السلام عليكم
استعمل 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]

السلام عليكم
وجدت حل للمشكلة الاولى و سيكون الكود بهدا الشكل

كود :

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 لا يعمل تحديث لقاعدة البيانات هل من حل وشكرا لكم ؟؟؟

[Mr.DOS]

السلام عليكم

قم بعمل تحديث للجدول الذي تمت فيه الاضافة tbl1.refresh اول استعمل
tbl1.active:=false
tbl1.active:=true

[bassem_43]

شكرا لك اخي على المتابعه
جربت هده الطريقة من قبل لكن للاسف لم ينجح الامر
جربت ايضا وما نفع
form1.tbl1.close;
form1.tbl2.open;
على كل حال انسى الكود الاول ساغير السؤال وابسطه كي تفهمني جيدا
لدينا fiche1 تحتوي على زرين زر ادخال معلومات وزر طباعة
ما هي الطريقة لطباعة اخر ما ادخل للجدول يعني بعد ادخال سجلات الشخص الاول بزر الادخال نقوم بطباعة معلوماته بزر الطباعة ؟
وشكرا

[Mr.DOS]

السلام عليكم

عليك وضع المؤشر على اخر سجل يعني بعد الاضافة انت مضطر لوضع الامر
tbl1.last;
شاهد المثال المرفق

[bassem_43]

بارك الله فيك اخي Mr.DOS
هدا ما ابحث عنه لكن انا استعمل quickraport في مشروعي وليس rave raport ممكن تعدل على المثال لتوضيح الفكرة احسن لاني تقدمت كثيرا في مشروعي ولا يمكنني البدا من جديد و سامحني اتعبتك معي

[bassem_43]

بارك الله فيك اخي Mr.DOS
لقد نجح الامر مع الكود الاول
اكتشفت ان تعليمة كانت ناقصة في زر الطباعة الا وهي
form3.qry1.close; بعدها نكتب تعليمة form3.qry1.Open;
وشكرا لمثالك فهو قيم جداا لقد اظفت لي فكرة اخرى لطباعة اخر عنصر في جدول

[Lam.Abdeldjalil]

السلام عليكم

في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟

[bassem_43]

السلام عليكم

في rave و Fastreport فيهما خاصية طباعة الحقل الحالي (الموضوع عليه المؤشر) Current لا أدري إن كان quickraport يملكها أو لا ، هل يملك quickraport ـ DataSet خاصة به ؟

شكرا لك على التوضيح يا استاد عبد الجليل
نعم quickraport يملك DataSet الخاصة به التي ترتبط ب query التي تحتوي على تعليمات sql كما هو معروف.
بالنسبة لطباعة اخر ما ادخل للجدول فقد تحايلت بفكرة ونجحت والكود في الاعلى يوضح ما قمت به .