بشرح كيفية (تعديل - بحث - حذف) على السجلات من خلال الدلفي
البحث
قم باضافة 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('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');
منقوللللللللللللللللل
هذا التخصص ياأختي يتطلب الاجتهاد والبحث ( في مذكرة التخرج يطلب انشاء برنامج )
توجد منتديات ومدونات ومواقع خاصة بكتب الدلفي مبسطة ابحثي عنها
بالتوفيق