الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في التعديل

بدأه delph2008 في 16 يوليو 2008 · 10 رد · 878 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وتعالى وبركاته

أنا أستخدم قاعدة البيانات bde ولما أستخدم الكود تعديل يطلع خطأ

الكود

table1.edit;

edit1.text:=table1nom.valeu;

edit2.text:=table1prenom.value;

table1.post;

وشكرا لكم جميعا

#2

و عليكم السلام و رحمة الله تعالى و بركاته

طبعا ، هل الإضافة تتم من الجدول إلى Edit أم العكس ؟

Table1[color= #339933;].Edit[color= #339933;];

Table1[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'nom'[color= #009900;])[color= #339933;].asString    [color= #339933;]:= Edit1[color= #339933;].text[color= #339933;];

Table1[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'prenom'[color= #009900;])[color= #339933;].asString [color= #339933;]:= Edit2[color= #339933;].Text[color= #339933;];

Table1[color= #339933;].Post[color= #339933;];
#3

كما يمكن استخدام الكود التالي وهو يشبه الاول الى حد ما

Table1.Edit;
Table1.FieldByName('prenom').Value:=Edit1.Text;
Table1.FieldByName('nom').Value:=Edit2.Text;
Table1.Post;

تحياتي

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#4

السلام عليكم ورحمة الله وتعالى وبركاته

بارك الله فيك وجزاك الله ألف خير

#5

السلام

سؤال إذا كان رقم هل أكتب asString

تاريخ asString

#6

بالطبع لا فهذا خطا

Table1.Edit;
Table1.FieldByName('num_emp').Value:=StrToInt(Edit1.Text);
Table1.Post;

او

Table1.Edit;
Table1.FieldByName('num_emp').AsInteger:=StrToInt(Edit1.Text);
Table1.Post;

بالتوفيق

تم تعديل هذه المشاركة بواسطة علي .ع في 16 يوليو 2008 في 23:24

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#7

شكرا لك وجزاك الله خيرا

تم تعديل هذه المشاركة بواسطة delph2008 في 16 يوليو 2008 في 23:38

#8

السلام عليكم ورحمة الله وتعالى وبركاته

يا أخ على إدا كانت combobox1

ماهو الكود من فضلك

#9

أخى لا تطلب من شخص بعينة كود لأن هذا مخالف من قواعد المشاركات

أنظر الكود

  1.  
  2. Table1.Edit;
  3. Table1.FieldByName('Name').asString := ComboBox1.Text;
  4. Table1.Post;
  5.  

Comming Soon

#10

السلام عليكم...

للاختصار يمكن استعمال الصيغة التالية لإعطاء قيم للحقول دون الاهتمام بنوع الحقل حيث تتم معاملة القيمة كـ Variant و بالتالي يمكن أن تكون من أي نوع.

  1. Table1.Edit;
  2. Table1['nom'] := Edit1.text;
  3. Table1['prenom'] := Edit2.Text;
  4. Table1.Post;
  5.  

و حسب تعليمات دلفي فإن هذه الطريقة قد تكون أبطأ قليلاً في حالة معالجة كمبات ضخمة من البيانات.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#11

السلام عليكم

جزاكم الله ألف خيرا

وشكرا

مواضيع مشابهة