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

نسخة كاملة : كيف يمكن إدخال تسجيلة جديده؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

كما هو معروف أن عمليه الإدخال تتم عن طريق هذا الامر Insert

كود :
procedure TForm3.btn1Click(Sender: TObject); begin DataModule4.tbl1.Insert; end; end

والكود يعمل جيدا وأغلب الشروحات تكتفي بهذا الأمر للإدخال

المشكلة التي أقع فيها هو عند غلق البرنامج وفتحه اجد الحقول ليست فارغة بل مكثوب فيها أول تسجيله في الجدول وعند الكتابه عليها يتم الكتابه فوقها وافقد تلك النسجيلة

من المفروض عند الضغط على زر insert تأتي الحقول فارغه لإتخال تسجيلة جديده فلماذا دائما تتغير اول تسجيلة

وهل كل الشروحات خاظئه في شرح عملية الإدخال؟
كود :
Table1.Insert; Table1.FieldByName('FieldName').Text := 'Value'; Table1.Post;
وعليكم السلام
انا استعمل هده الطريقة المبين في الدرس الموجود في الرابط اسفله ولا اجد اي مشكل معها كما انها تجنبك كتابةالكثير من الاكواد
كود :
http://www.mediafire.com/download/14fx4h4ph7k9c8z/adotable_controls.rar#1
بالتوفيق
بارك الله فيكما وجزاكم الله خير

يبدو أن الدلفي بدأ يأخذ كل وقتي :d
bassem_43 كتب :وعليكم السلام
انا استعمل هده الطريقة المبين في الدرس الموجود في الرابط اسفله ولا اجد اي مشكل معها كما انها تجنبك كتابةالكثير من الاكواد
كود :
http://www.mediafire.com/download/14fx4h4ph7k9c8z/adotable_controls.rar#1
بالتوفيق

يعني append وحدها لا تكفي فهي تذهب بالمؤشر إلى أخر الجدول في مكان فارغ أي آخر تعليمه

بمعنى إذا كان عندي زر به الإدخال فقط يكون الكود كالتالي

كود :
procedure TForm3.btn1Click(Sender: TObject); begin DataModule4.tbl1.Append DataModule4.tbl1.Insert; end; end

أو هكذا

كود :
[align=left][CODE]procedure TForm3.btn1Click(Sender: TObject); begin DataModule4.tbl1.Append DataModule4.tbl1.post; end; end
[/CODE][/align]

أظن أن كلاهما صحيح أليس كذلك مع أني أرى بأنه لا يوجد فرق بين post و Insert
phpbb3 كتب :
كود :
Table1.Insert; Table1.FieldByName('FieldName').Text := 'Value'; Table1.Post;

أظن أنه عند غلق البرنامج وفتحه سيكتب فوق التسجيلة يبقى نفس المشكل الوقت متأخر سأجرب غدا إن شاء الله

مع أني متأكد بأنه نفس المشكلة إن لم تكت هناك append

ولكن الذي حيرني كيف جميع الشروحات تكتب Insert فقط دون Append

هل يعمل عندهم الكود ؟
يا اخي قمت بعمل برنامج مخزون تجاري وجاري العمل عليه منذ سنتين

وانا استخدم Post; لارسال البيانات وتعمل بشكل ممتاز وبدون مشاكل

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