طلب مساعدة في برنامج الدلفي *معلوماتية*

[solam]

بشرح كيفية (تعديل - بحث - حذف) على السجلات من خلال الدلفي


البحث

قم باضافة button جديد الى النموذج وسمي خاصية ال caption ب بحث

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

tadotable1.first;

يتوجه المؤشر الى اول سجل بقاعدة البيانات

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

هنا تتم عملية المعالجة في حال حدوث تتطابق ووجدنا السجل

begin

text2.text := tadotable1['ename'] ;

نقل قيمة الاسم من الجدول الى المربع الموجود على الفورم

edit3.Text := tadotable1['address'] ;

نقل قيمة العنوان من الجدول الى المربع الموجود على الفورم

exit;

تجعلنا نخرج من التنفيذ لهذا الكود لاننا وجدنا ما نريد

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');



التعديل

باضافة button جديد الى النموذج وسمي خاصية ال caption ب تعديل سجل

واكتب هذا الكود داخله - سنقوم بالبحث واذا وجدنا السجل المطلوب نحدث عليه

tadotable1.first;

يتوجه المؤشر الى اول سجل بقاعدة البيانات

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

هنا تتم عملية التعديل في حال حدوث تتطابق ووجدنا السجل

begin

tadotable1.edit ;

فتح السجل الحالي للتعديل

tadotable1['telno'] := edit1.Text

استبدال القيمه الموجودة بقاعدة البيانات بالموجودة على الفورم

tadotable1['ename'] := text2.text ;

استبدال القيمه الموجودة بقاعدة البيانات بالموجودة على الفورم

tadotable1['ename'] := text3.text ;

استبدال القيمه الموجودة بقاعدة البيانات بالموجودة على الفورم

tadotable1.post;

تثبيت عملية التعديل

showmessage('تم تعديل السجل المطلوب');

exit;

تجعلنا نخرج من التنفيذ لهذا الكود لاننا وجدنا وعدلنا ما نريد

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');



الحذف

علينا اجراء عملية بحث عن السجل المراد حذفه ومن ثم حذفه

باضافة button جديد الى النموذج وسمي خاصية ال caption ب حذف سجل

واكتب هذا الكود داخله - سنقوم بالبحث واذا وجدنا السجل المطلوب نحذفه

tadotable1.first;

يتوجه المؤشر الى اول سجل بقاعدة البيانات

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

هنا تتم عملية الحذف في حال حدوث تتطابق ووجدنا السجل

begin

tadotable1.delete ;

أمر يستخدم لحذف السجل الحالي

showmessage('تم حذف السجل المطلوب');

exit;

تجعلنا نخرج من التنفيذ لهذا الكود لاننا حذفنا ما نريد

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');

منقوللللللللللللللللل

هذا التخصص ياأختي يتطلب الاجتهاد والبحث ( في مذكرة التخرج يطلب انشاء برنامج )
توجد منتديات ومدونات ومواقع خاصة بكتب الدلفي مبسطة ابحثي عنها
بالتوفيق