[b97er]

السلام عليكم ورحمه الله وبركاته  

كما هوه واضح في العنوان 

طلب اضافه خاصيه بحث بلغه لزروس او لغه فري

باسكال 

---

يرجئ الرد باسرع وقت مع جزيل الشكر والامتنان

[abu ammar]

وعليكم السلام .. أفضل مكتبة للتعامل مع قواعد البيانات في لازاروس هي مكتبة 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;