16-10-2023, 08:06 PM
سلام عليكم
1 - عليك بعمل بحث عن الاسم او الرقم قبل الاضافة اولا : استعمل جمل الاستعلام SQL
ان وجد :- if query.recordCount > 0
قم بإظهار رسالة تفيد بوجود السجل مع امكانية التعديل على السجل بـ نعم / لا : استعمل :if MessageDlg
نعم : قم بإظهار فورم خاص بالتعديل على السجل الموجود
لا :عد الى فورم الادخال واعمل setfocus على edit الخاصة بإدخال الاسم
ان لم يجد شيئ :- if query.rrecorddCountt <=0
قم بعمل اضافة بشكل سلس دون اي رسالة
1 - عليك بعمل بحث عن الاسم او الرقم قبل الاضافة اولا : استعمل جمل الاستعلام SQL
ان وجد :- if query.recordCount > 0
قم بإظهار رسالة تفيد بوجود السجل مع امكانية التعديل على السجل بـ نعم / لا : استعمل :if MessageDlg
نعم : قم بإظهار فورم خاص بالتعديل على السجل الموجود
لا :عد الى فورم الادخال واعمل setfocus على edit الخاصة بإدخال الاسم
ان لم يجد شيئ :- if query.rrecorddCountt <=0
قم بعمل اضافة بشكل سلس دون اي رسالة
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر