استعمال Radiobutton

السلام عليكم ورحمة الله

اختي هبة الله يمكنك ان تقومي بذلك بالطريقة التالي

 
case RadioGroup1.ItemIndex of
0:DM.Table1.Locate('Num Inscription',Edit1.Text,[]);
1:DM.Table1.Locate('Nom',Edit1.Text,[]);
2:DM.Table1.Locate('Prenom',Edit1.Text,[])
else
ShowMessage(' Ce Fichier n`existe pas ...?? ');
end;

طبعا الكود باستخدام المكون RadioGroup

if RadioButton1.Checked then
DM.Table1.Locate('Num Inscription',Edit1.Text,[]);
if RadioButton2.Checked then
DM.Table1.Locate('Nom',Edit1.Text,[]);
if RadioButton2.Checked then
DM.Table1.Locate('Prenom',Edit1.Text,[]);

الكود باستخدام RadioButton

اتمنى ان يكون المطلوب

وفقنا الله واياكم

hbate_allah كتب:

السلام عليكــم ورحمـة الله وبركاتــه

اريد ان انجز في برنامجي

لكن لم اعرف كيفية انجازها

فانا كيفية انجاز الفكرة اذا لم يكن هناك مكان وحيد لادخال المعلومات اي اعرف انجازها اذا وضعت 3 مناطق لادخال المعلومات اي و احدة لرقم التسجيل و اخرى للاسم و الاخيرة للقب

لكن لم اتمكن من اتنجاز واحدة كهذه

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

و اذا اخترت خانة البحث بالسم فانه ياخذ بعين الاعتبار انه في الخانة مكتوب اسم و يبحث على اساسه

جربي احد الاكواد التي قدمتها وستجدين طلبك

احذفي dm من الكود لانني استعمل Datamodule في تطبيقاتي عادتا اما انتي فيظهر انك لم تستخديميها

اختي الكريمة اكتبي الكود هكذا

case RadioGroup1.ItemIndex of
0:Table1.Locate('Num Inscription',Edit1.Text,[]);
1:Table1.Locate('Nom',Edit1.Text,[]);
2:Table1.Locate('Prenom',Edit1.Text,[])
else
ShowMessage(' Ce Fichier n`existe pas ...?? ');
end;

بالنسبة للاول

if RadioButton1.Checked then
Table1.Locate('Num Inscription',Edit1.Text,[]);
if RadioButton2.Checked then
Table1.Locate('Nom',Edit1.Text,[]);
if RadioButton2.Checked then
Table1.Locate('Prenom',Edit1.Text,[]);

بالنسبة للكود الثاني

وفقنا الله واياكم

ساحاول

إعادة كتابة كود اخي علي :

وبطرقة سريعة لاني لااملك دلفي في هذا الجهاز

   private// Private Declaration Block

	   Procedure _RechPar(OprCode:Integer;Src:TTable;Fld,Find:String);

   .
   .
   implementation
   procedure TForm1._RechPar(OprCode: Integer;Src: TTable;  Fld,
	 Find: String);
   begin
   Find:='';
   Case OprCode of
   0:Src.Locate(Fld,Trim(Find),[]);
   1:Src.Locate(Fld,Trim(Find),[]);
   2:Src.Locate(Fld,Trim(Find),[]);
   else
   ShowMessage(' Ce Fichier n`existe pas ...?? ');
   end;



   procedure TForm1.Button1Click(Sender: TObject);
   begin
   _RechPar(RadioGroup1.ItemIndex,Table1,'Prenom',edit1.Text);
   end;

نعم عليك ان تكتبيه في الزر

bouton rechercher

عليك ارفاق السورس اذا اختي الكريمة

ملاحظة الكود يفرق بين الاحرف الكبيرة والصغيرة

projet.rar

الاخت الكريمة هبة الله

وضعتي مكون RadioGroup وما دمتي قد وضعتي هذا المكون فالخيارت تضاف من الخاصية Item

وليس وضع مكونات RadioButton هذا هو الخطا

ببساطة ItemIndex في الحالة التي وضعتي = -1

لذا ينقل الى التعليمة Else

المرفق يحتوي على التعديل وفقنا الله واياكم

projet.rar

السلام عليكم

بطريقة أخرى

   table.Filtered := false;
   if radiobutton1.Checked then
	  table1.Filter := 'field1 like ''%'+edit1.Text+'%''';
   if radiobutton2.Checked then
	  table.Filter := 'field2 like ''%'+edit1.Text+'%''';
   if radiobutton3.Checked then
	  table.Filter := 'field3 = '''+edit1.Text+'''';
   table.Filtered := true;

طبعا طريقة الأخ علي أفضل

عندما احاول التنفيذ

يقول لي انني لم اعرف

radiobutton1

وهذا صحيح لانك قد استبدلتها ب

radiogroup1