السلام عليكم ورحمة الله وبركاته
يا اخواني واخواتي عندي كود في جدول المدينة ما يشتغل صحيح
انا اريده اد ادخل المستخدم اسم مدينة موجود مسبقا في dbedit تظهر رسالة تبين ان الاسم مستخدم
مشكلتي هي انه بتظهر رسالة ان الاسم مستخدم دائما حتى لو كان الاسم غير مستخدم رجاء الرد
with dm.city do
begin
open;
if locate('city_name',dbedit1.Text,[])then
showmessage('البيانات موجودة مسبقاً')
else
begin
dm.city.post;
showmessage('تمت عملية الحفظ بنجاح');
nohaa كتب:السلام عليكم ورحمة الله وبركاته
يا اخواني واخواتي عندي كود في جدول المدينة ما يشتغل صحيح
انا اريده اد ادخل المستخدم اسم مدينة موجود مسبقا في dbedit تظهر رسالة تبين ان الاسم مستخدم
مشكلتي هي انه بتظهر رسالة ان الاسم مستخدم دائما حتى لو كان الاسم غير مستخدم رجاء الرد
with dm.city do
begin
open;
if locate('city_name',dbedit1.Text,[])then
showmessage('البيانات موجودة مسبقاً')
else
begin
dm.city.post;
showmessage('تمت عملية الحفظ بنجاح');
الكود هذا في اي مكان كاتبه؟
شكرا على الردت الكو مكتوب في button في حدت Click
procedure TForm7.sBitBtn2Click(Sender: TObject);
وعليكم السلام ورحمة الله وبركاته
ممكن التجرية على مشروع جديد فارغ مرفق هنا.