البحث في قاعدة بيانات بالدلفي

Université de souk ahras

Module base de donnée on delphi 6 By

Programmer :

Nabil keziz

Email : [email protected]

‫ام  ور  ا ورآ‬ ‫"! ل‬# $‫ ا‬%&‫ *) (و‬+, $‫ ت ا‬.*"‫ق  ه ا ا رس إ   ا  ا‬ .‫; ا" ا"وح ه‬1 <‫ ا‬/4‫ ا)= ور‬/>‫< "!  ا‬.) '‫ن‬.#‫ 'زا‬/‫ إ‬01 ‫ ت‬2 +# ‫  ة‬4 252‫إذا أ‬ ‫ات‬.G‫ * ا‬H1‫ ا @ < إ‬+* ‫ن‬.#‫   زا‬# ‫م‬.)2 ;+‫ آ‬C #D‫  ا‬+‫  د آ‬F  ‫إذا آ ن‬ + ‫ا‬ :   "O ‫ ت  ا‬2 +# ‫  ة‬4 ‫ ء‬2‫ إ‬+O+‫ان " آ‬. 0J K L ‫ و‬M# N‫ ا رس ا‬0"< 4 ‫ن‬.1 ‫= ان‬LF ‫ ه ا ا رس‬/
Université de souk ahras

 "< ++V P @.1 ‫ ول‬L‫ ا‬WC XP +#  ‫و‬,‫ ت‬2 +‫  ة ا‬4 S+ *&‫ ول ا ي و‬L‫ ر ا‬G2 ‫رة‬.X‫ ا‬%&.1 "‫ آ‬filtered‫و‬filter "‫ا ه‬+"

Université de souk ahras

filtered‫و‬Filter @.1 table WC XP +# 

:Filtered 1

Université de souk ahras ‫     م‬False +"+4 P51 ‫ وه‬SC Y‫ ا أو إ‬+Y1  !""‫ وا‬+‫*= دور آ‬1 +V G‫ا‬ false ‫ن‬.1 < +C )‫" ا‬+)‫ ا و ا‬+V P +Y1    true "+)‫ا و ا‬

:Filter 1

F2 "‫  آ‬# ‫م‬.) ‫ ه ا‬+V G‫ ا‬K ‫ه‬ # # ‫م‬.)2, ali S&O‫ و‬/>‫ن  أ س ا‬.#‫ا‬D‫   ا‬# ‫م‬.)2 ‫ أن‬2‫! ل إذا أرد‬

5P ‫ دون أي‬Filter +V G‫دة أ م ا‬.@."‫ ا‬2 G‫  ا‬+ ‫" ا‬L‫ا‬ +V G‫*" ا‬1  true‫ إ‬false "+)‫ ا‬++Y1 =LF  Nom_cl=’ali’

:  'a* '

'ali '‫ ل‬# HZ2 ‫ أن‬OF ‫\ اف‬O# ‫ أ‬1 ‫" ء ا‬$‫  آ ا‬2 

K( ‫ ] ا ي‬2‫  ا‬+V G‫ ا‬K <# / # ‫م‬.)2 ;+‫ آ‬.‫ا" ا"وح ا^ن ه‬ :+ ‫ات ا‬.G‫ ا‬H1 ‫` إ_ أن‬+  ‫ آ"  ا‬standar edit  &a# ‫م‬.)2

Université de souk ahras

text +V G‫  ا‬edit P‫@ ة دا‬."‫ ا‬# ‫ ا‬%N"# ‫م‬.)2 + ‫ ا‬$‫= ا‬2‫ و‬edit  ‫دوج‬D )2

Procedure TForm1.Edit1Change (Sender: TObject); Var x: string; Begin If Edit1.Text='' then DataModule2.Table1.Filtered:=false Else

Université de souk ahras

Begin X: =Edit1.Text+'*'; DataModule2.table1.Filter:='Nom_cl='+QuotedStr(x); DataModule2.table1.Filtered:=true; end; end; :‫رة‬.X‫ ] آ"  ا‬2‫ن ا‬.+‫و‬

‫  ه ا ا رس‬/1 O‫ إ‬/2‫ و أ‬/+‫ة إ‬O‫ ا‬0V‫ أو‬4 ‫ن‬.‫ ان أآ‬.@‫أر‬ c‫ ء ا‬d ‫ إن‬F @ ‫إ ا) ء  درس‬

Université de souk ahras