سلام مجدد

ادامه آموزش :


1.[8] جستجو

پیاده سازی جستجو همانند بخش قبل(دریافت رکوردها) بوده، با این تفاوت که واکشی رکوردها بر اساس پارامتر مشخص شده ای صورت می پذیرد.
با این اوصاف باید ابتدا مقدار پارامتر مشخص شود و سپس نحوه واکشی و نمایش اطلاعات دریافتی پیاده سازی شود.
فرض میکنیم که در فرم TContactsForm یک Edit جهت دریافت پارامتر مورد نظر کاربر بر روی فرم قرار گرفته و دکمه ای نیز جهت اجرای جستجو در مجاورت این Edit قرار دارد. با فشرده شدن دکمه جستجو، پروسیجر جستجو اجرا شده و نتیجه جستجو در گرید نمایش داده خواهد شد.



procedure TContactsForm.FindContacts(Param:string);    

begin   

  FContacts.Free;    

  FContacts := FManager.Find<TContact>().Where(TLinq['FirstName'].Contains(Param)).List;    

    

  AureliusDataset1.Close;    

  AureliusDataset1.SetSourceList(FContacts);    

  AureliusDataset1.Open;    

end;