delphi4arab منتديات دلفي للعرب

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

عندي قاعدة بيانات access مربوطة بجدوا عبر ado ولقد طورتها ليجعل edit يبحث عن الاسماة داخلها
عندما يبعث عن الاسماء يعطي المعلومات عن الشخص مثلا اسم المستخدم سمير وعند ادخال اسم المستخدم يضهر في edit1 وedit2وedit3 و... معلوماته مثلا تاريخ الميلاد و المكان و ...

فهمت من كلامك أنك تريد البحث في قاعدة البيانات و إليك الحل ان شاء الله

أنا استعملت المكون Tabel1 و سيكون البحث في قاعدة البيانات كالتالي:

إقتباس : Table1.first
While not table1.Eof do
Begin
If Table1.name.AsString = edit1.text then
begin
;Edit2.text := Age
;Edit3.text := First Name
end
else
; '(show message (' No Exist
;end
tABLE1.NEXT
;end

حيث أني استعملت حلقة While و قلت له ابدأ من أول الجدول فإن كان ما هو موجود في Edi1.text موجود في قاعدة البيانات أظهر لي في Edt2.text و Edit3.text اللقب و السن، و إلا أظهر لي رسالة تقول لي أن السام غير موجود .

هذا و الله أعلى و اعلم

اي اضع هاذا الكود