المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
السلام عليكم
كما هو معروف أن عمليه الإدخال تتم عن طريق هذا الامر Insert
كود :
procedure TForm3.btn1Click(Sender: TObject);
begin
DataModule4.tbl1.Insert;
end;
end
والكود يعمل جيدا وأغلب الشروحات تكتفي بهذا الأمر للإدخال
المشكلة التي أقع فيها هو عند غلق البرنامج وفتحه اجد الحقول ليست فارغة بل مكثوب فيها أول تسجيله في الجدول وعند الكتابه عليها يتم الكتابه فوقها وافقد تلك النسجيلة
من المفروض عند الضغط على زر insert تأتي الحقول فارغه لإتخال تسجيلة جديده فلماذا دائما تتغير اول تسجيلة
وهل كل الشروحات خاظئه في شرح عملية الإدخال؟
المشاركات : 56
المواضيع 8
:
: 2
الإنتساب : Jun 2009
كود :
Table1.Insert;
Table1.FieldByName('FieldName').Text := 'Value';
Table1.Post;
المشاركات : 543
المواضيع 34
:
: 463
الإنتساب : Apr 2013
وعليكم السلام
انا استعمل هده الطريقة المبين في الدرس الموجود في الرابط اسفله ولا اجد اي مشكل معها كما انها تجنبك كتابةالكثير من الاكواد
كود :
http://www.mediafire.com/download/14fx4h4ph7k9c8z/adotable_controls.rar#1
بالتوفيق
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
بارك الله فيكما وجزاكم الله خير
يبدو أن الدلفي بدأ يأخذ كل وقتي :d
المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
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
المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
phpbb3 كتب :كود :
Table1.Insert;
Table1.FieldByName('FieldName').Text := 'Value';
Table1.Post;
أظن أنه عند غلق البرنامج وفتحه سيكتب فوق التسجيلة يبقى نفس المشكل الوقت متأخر سأجرب غدا إن شاء الله
مع أني متأكد بأنه نفس المشكلة إن لم تكت هناك append
ولكن الذي حيرني كيف جميع الشروحات تكتب Insert فقط دون Append
هل يعمل عندهم الكود ؟
المشاركات : 56
المواضيع 8
:
: 2
الإنتساب : Jun 2009
يا اخي قمت بعمل برنامج مخزون تجاري وجاري العمل عليه منذ سنتين
وانا استخدم Post; لارسال البيانات وتعمل بشكل ممتاز وبدون مشاكل
وسأقوم في الايام القادمه بوضع نسخه تجريبيه في هذا المنتدى ليستفيد الاعضاء الكرام