+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم اسئلة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=215)
+--- الموضوع : اضافه خاصيه بحث عن اسم الزبائن في برنامج اداره الديون (/showthread.php?tid=40227)
اضافه خاصيه بحث عن اسم الزبائن في برنامج اداره الديون - b97er - 11-12-21
السلام عليكم ورحمه الله وبركاته
كما هوه واضح في العنوان
طلب اضافه خاصيه بحث بلغه لزروس او لغه فري
باسكال
يرجئ الرد باسرع وقت مع جزيل الشكر والامتنان
RE: اضافه خاصيه بحث عن اسم الزبائن في برنامج اداره الديون - abu ammar - 03-09-22
وعليكم السلام .. أفضل مكتبة للتعامل مع قواعد البيانات في لازاروس هي مكتبة Zeosdb وتثبيتها سهل باستخدام online package manager ويفضل أن يتم تثبيت مكتبة RX و اختيار كل المكتبات الأخرى المرتبطة بها ومنها مكتبة zeosdb المخصصة للاتصال بقواعد البيانات المختلفة بنفس الكود وهي شبيه بمكتبة أدو في دلفي وسيتم تثبيت مكتبة أخرى مع هذه الحزمة وهي مخصصة لتصدير الجريد الى اكسل و مكتبة RX مهمة لأنها بها الجريد تقوم بالفلترة التلقائية والتحكم باظهار واخفاء الاعمدة اثناء التشغيل والتصدير الى اكسل .. الخ بكل سهولة .
وهذا اجراء من برنامج خاص بي للبحث والفلترة باسم الموظف ورقمه القومي باستخدام مكتبة zeosdb
PHP كود :
procedure Temp_frm.txtSearchChange(Sender: TObject);
begin
if (txtSearch.Text <> null) then
begin
dm.qry_emp.Filter := 'card like ' + QuotedStr(trim(txtSearch.Text) + '*') +
' or ' + 'fname like ' + QuotedStr('*' + trim(txtSearch.Text) + '*');
dm.qry_emp.Filtered := True;
end
else
dm.qry_emp.Filtered := False;
grid_emp.Refresh;
end;