زر par defeult لتعبئة جدول ببيانات - نسخة قابلة للطباعة

زر par defeult لتعبئة جدول ببيانات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : زر par defeult لتعبئة جدول ببيانات (/showthread.php?tid=3880)

زر par defeult لتعبئة جدول ببيانات - magicabdou - 15-02-2012

عملت برنامج و أردت ان أجعل بعض البيانات قاعدية (standard )
اي لما اضغط على الزر par defeult
تطهر في dbedit ; dbcombobox ; dbmemo
بيانات عامة عند اغلب الناس
مثلا اغلب الزبائن يشترون الحليب
فلما اضغط على par defeult تظهر في dbcombobox الحليب
مشكورين

زر par defeult لتعبئة جدول ببيانات - magicabdou - 15-02-2012

استعملت

dbcombobox1.itemindex=0;

و لكن في قاعدة البيانات لم تحفظ

زر par defeult لتعبئة جدول ببيانات - محمد عبد العزيز - 15-02-2012

اكتب قيم الحقول مباشرة
مثلا لديك الحقول Name/Adress/Age
يكفي كتابة شيئ مثل

كود :
if Not (Table1.State in [DsEdit,DsInsert]) then Table1.Insert; 
  Table1.FieldByName('Name').AsString:='Mohammed';
  Table1.FieldByName('Adress').AsString:='Somewhere near...Algiers,Algeria';
  Table1.FieldByName('Age').AsInteger:=4;

أنتبه لنوع الحقول...AsInteger/AsFloat/AsBoolean/AsString...

زر par defeult لتعبئة جدول ببيانات - magicabdou - 15-02-2012

الحمد لله لقد استفدت منكم كثيرا

بارك الله فيك

زر par defeult لتعبئة جدول ببيانات - kachwahed - 15-02-2012

يمكنك استخدام الحدث OnNewRecord عوض الزر:

PHP كود :
procedure TForm1.Table1NewRecord(DataSet: TDataSet);
begin
  Table1.FieldByName('Article').Value := 'Lait';
end; 

عوض تحديد نوع الحقل (AsInteger/AsString...) استخدم Value كنوع Variant
بالتوفيق.

زر par defeult لتعبئة جدول ببيانات - magicabdou - 17-02-2012

لم افهم تاكود الذي كتبته

حبذا لو تشرح اخي kachwahed

زر par defeult لتعبئة جدول ببيانات - kachwahed - 17-02-2012

حبذا لو تحدد الذي لم تفهمه؟

كود :
Value := 'Lait'

أي الكتابة في الحقل مهما كان نوعه القيمة 'Lait' أي باعتباره Variant ليس له نوع محدد.

زر par defeult لتعبئة جدول ببيانات - magicabdou - 17-02-2012

شكرا لك لقد توضح الامر

زر par defeult لتعبئة جدول ببيانات - محمد عبد العزيز - 24-02-2012

بطريقة اخرى عندما تكتب

كود :
C:=A+B;

دلفي (Delphi Compiler) يحول المتغيرات لتوافق
ان كان C من نوع Real دلفي يحول ناتج جمع A و B الى Real ان كانو من نوع اخر مثلا Integer والا حدث خطا (ونفس الشيئ بالنسبة للمتغيرين عند الجميع)
القاعدة:
الطرفين دائما من نفس النوع
ان لا، غير احد الطرفين ليتوافق مع الأخر

عندما نكتب .AsInteger فاننا نخبر دلفي ان يتعامل مع المتغير كنص
عندما نكتب .AsBoolean نخبره انه منطقي من نوع Boolean
وهكذا نخبر الCompiler نوع المتغير ليتعامل معه بالشكل الصحيح

عندما نستخدم Value نترك لدلفي حرية التحويل حسب النوع الملائم!