البحث بإستعمال ال SQL

البحث عن طريق Query

with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from Employee where LastName='+ QuotedStr( Edit1.Text));
Open;
If Eof Then
begin
ShowMessage('ÇáÇÓã ÛíÑ ãæÌæÏ');
Close;
Edit1 . SetFocus;
End;
end;

وهذا يقوم بي البحث حسب الحاجة(LINK)

عرض جميع الاسماء التي تبدأ باسم محمد

Select* from Employee Where LastName like 'محمد%';

عرض جميع الاسماء التي تتضمن اسم محمد

Select  from Employee Where LastName like '%محمد%';

.....................................

Edit

Select  from Employee Where LastName like Like ' + Edit1 . Text+'%';

:rolleyes:

لو ممكن توضح أكثر أخي سيف الدين لأني أنا أول مره هستعمل ال SQL في برامجي لذلك مش فاهم حاجه ولو تعمل Example يبقى أروع

:rolleyes:

T1.rar

السلام عليكم أخي سيف الدين شكرا على النموذج ولكن كيف يمكن البحث في النصوص بهته الطريقة وليكن مثلا قاعدة البيانات 001.db و العمود الخاص بالنصوص إسمه BBB

شكرا لتعاونك و دعمك

تحياتي

السلام عليكم يجماعه حد يرد عليا المشاركة بقلها مده هنا محدش بيرد

اخي العزيز للاسف لم استطع رؤية مثال الاخ سيف الدين

ولكن سأخبرك بفكرة قد تفيدك

في المثال المرفق تجد مثال للبحث عن نص بامكانك التعديل عليه حتى يناسب طلبك

ومن ثم تستطيع ان تلائمه مع قواعد البيانات عن طريق المكون TDBMemo

Text_Editor.rar

تستطيع عمل بجث في نص بالطريقة التالية

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean; 
var 
  StartPos, Position, Endpos: Integer; 
begin 
  StartPos := 0; 
  with RichEdit do 
  begin 
    Endpos := Length(RichEdit.Text); 
    Lines.BeginUpdate; 
    while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do 
    begin 
      Endpos   := Length(RichEdit.Text) - startpos; 
      Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]); 
      Inc(StartPos, Length(SearchText)); 
      SetFocus; 
      SelStart  := Position; 
      SelLength := Length(SearchText); 
    end; 
    Lines.EndUpdate; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchForText_AndSelect(RichEdit1, 'Some Text'); 
end;

عموما يوجد مكون TDBRichEdit لملائمة المثال نع قواعد البيانات

الملف المرفق يبين كيفية استخدام المثال

Text_Editor.rar

السلام عليكم شكرا اخي العزيز romanof ولكن أن لجوئي لل SQL كان بسبب سرعة البحث فانا أبحث عن طريقة جد سريعة للبحث في Tmemo

إيه يجماعه مفيش حد يرد ولا إيه

ليس من الضروري استخدام sql إذا لم توجد لديك قاعدة بيانات , لإنه إذا لم تعطك sql ماتريد تماما ... فأنت مضطر لاستخدام أمور أخرى (لإنه لايمكن برمجتها هذه )

إذا كنت تريد عمل بحث في القرآن الكريم فراجع المكون ArFindar في قسم المكونات , بني خصيصا لهذه الغاية ولغايات مشابهه

وفيه خيارات جيدة , ولكن لن تستطيع تطبيق فكرة كلمة في أول النص وكلمة في آخر النص (أصلا لم أفهم مالمقصود بها , هل من الممكن مثال ؟؟ )

سأعمل قريبا على إعداد نسخة من المكون بمزايا إضافية وقابلية البحث بالملفات مباشرة ...

ربما ستصبح بعدها مناسبة تماما للبحث في النصوص العربية عن تطابق جزئي أو تطابق كامل أو تطابق بداية أو تطابق نهاية

رابط المشاركه هنا حسب ما أعتقد

/index.ph...026&hl=arfindar

إضطلع عليه , وهات تعليقاتك حتى أضعها بالحسبان في النسخة المقبلة

كنت أقصد أخي عروه أنا أول كلمة من الآية تحتوي على هته الكلمة و آخر كلمة من الآية تحتوي على الكلمة هل فهمتني الآن

أخي عروه أنا لم أرد إستعمال ال Sql إلى بعد أن رأية ثقل البحث و علمة بسرعة ال SQL و منه فأنا أبحث عن وسيلة أستطيع من خلالها تحطيم حاجز الوقت في البرنامج خلال البحث