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

نسخة كاملة : عندي مشكلة في الجداول يعني اطبق هذا الكود if not t1.locate('email',edit1.text,
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي مشكلة في الجداول يعني اطبق هذا الكود

if not t1.locate('email',edit1.text,[]) then
begin
t1.open;
t1.edit;
t1.appaned;
t1email.value:=edit1.text;
t1.post;
t1.close;
end;
المسكلة هي ان التسجيلات تضظاف عادي
ولكن عندما اعيد تشغيل الحاسوب اجد ان الجدول فارغ ولما اضغط على الزر يسجل تسجيلة جديدة والتي سجلتهم من قبل يختفو الرجاء من لديه حل فليتفضل به
اخي ما قرض من الكود هل هو اضافة ام تعديل
appaned يستخدم لاضافة حقل جديد
edit يستخدم لتعديل حقل موجود
لا يمكنك اسنخدام الاثنين في نفس الوقت
اذا كان قصدك اضافة في حالة عدم وجودها وتعديل في حالة وجودها يكون الكود الاتي


كود :
t1.open; if not t1.locate('email',edit1.text,[]) then begin t1.appaned; t1email.value:=edit1.text; t1.post; t1.close; end else begin t1.edit; t1email.value:=edit1.text; t1.post; t1.close; end;
اخي المشكلة ان الجداول يمحى مافيها لما يتوقف الجهاز عن العمل أما اذ اوضعنا الكود كما قلت فيقول لي الجدول ليس في وضعية للكتابة لذلك وضعية edit
السلام عليكم ما هي المكونات المستعملة في الاتصال اخي
جدول في الفورم عادي واتعامل معاهtatable
اقصد اذا كنت تسخدم مكونات dbexpress فيجب ان تستدعي ApplyUpdates عند كل عملية تحديث حذف او اضافة
للبيانات نفس الشيئ اذا كنت تستخدم مكونات خارجية تحفض البيانات في الذاكرة يجب ان تبحث عن الخاصية التي
تجعل البيانات تسجل من الذاكرة الى قاعدة البيانات