السلام عليكم و رحمة الله
قد تحتاج في مشروع قواعد بيانات إلى عملية البحث أو الفلترة لا بل أكيد ستحتاج لها
هذا درس بسيط يشرح لك العملية بكل تبسيط
مشاهدة ممتعة
كود سور الإجراء
//-------------------------------------------------------------------------------------------------------
if spSkinEdit1.text <> '' then
begin
ADOTable1.Filter := 'Nom like ' + quotedstr(spSkinEdit1.text);
ADOTable1.Filtered := True;
end else
ADOTable1.Filtered := False;
begin
ADOTable1.Filter := 'Nom like ' + quotedstr(spSkinEdit1.text);
ADOTable1.Filtered := True;
end else
ADOTable1.Filtered := False;
//-------------------------------------------------------------------------------------------------------
0 comments: