موسوعة السورس الكود

فكرة جميلة جدا و ناجحة لو تعاون الجميع و خاصة المحترفين و المطلعين

الحقيقة في الانترنت آلاف الأكواد لكن وين تلقى اللي تحتاجه وهذه فكرة للترتيب و الفهرسة و مشروحة بالعربي

طبعا منها فائدة و منها دروس

فيه سكربتات لفهرسة الأكواد و البريامج ياليت تدور عليه

الموضوع محتاج اشراف و تجريب و تأكد اذا لم يكن صالح يحذف

الله يقوي الجميع

الموضوع :الترشيح Filter

الادوات :table1,edit1,DataSource1,DBLookupListBox1

تحضير :

1- ربط table1 بالقاعدة وفتحها

- filteroptions

- foCaselnsensitive=== true لعدم التفريق بينالحروف

الصغيرة والكبيرة.

2- ربط DataSource1 بالtable1.

3- ربط DBLookupListBox1

- listsource بال DataSource1 .

- keyfield بالحقل .

- listfield بنفس الحقل المراد ترشيحه .

- visible ====false .

الكود :

procedure TForm1.Edit1Change(Sender: TObject);

begin

if edit1.text='' then

begin

table1.Filtered:=false;

DBLookupListBox1.Visible:=false;

end

else

begin

DBLookupListBox1.Visible:=true;

table1.Filtered:=true;

table1.Filter:='name='''+edit1.text+'*''';

case table1.RecordCount of

1:{edit1.text := table1name.Value};

2..10:DBLookupListBox1.RowCount:=table1.RecordCount;

end;

end;

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 40 then

if DBLookupListBox1.Visible then

DBLookupListBox1.SetFocus

else

Edit1Change(Sender);

end;

procedure TForm1.DBLookupListBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 13 then

begin

edit1.text := table1name.Value;

edit1.SetFocus;

edit1.SelectAll;

table1.Filtered:=false;

DBLookupListBox1.Visible:=false;

end;

end;

لا انسي شكري لاخي ميداس

اظن ان الكود سهل للفهم وتعليماته بسيطة وعن اي استفسار انا في الخدمة .

ارجوانني وفقت في توصيل الفكرة .

شكرا

كما ارجو من الاخوة عند كتابة اي كود التوضيح بالفهرس والعنوان كي يتسنى لي الترتيب.

اسف الاتصال غير جيد لدلك لم استطع ارفاق المثال(f)

شكرا لك و بداية موفقة و نطمع بالمزيد من الدروس والأكواد

ياليت انه يرفق مثال مع الأكواد

ممكن سؤال حول المرشحات وهي هل أستطيع و ضع مرشح لأكثر من حقل

مثلا اريد مثلا

مدينة = الرياض

العمر = 24

المهم للترشيح أكثر من حقل

لأني حاولت لا يقب and or وكذا لا يقبل الا مرشح و احد ياليت تعطينا فكرة و ترفق مثال