المشاركات : 35
المواضيع 14
:
: 0
الإنتساب : Oct 2010
السلام
عندي مشكله في التعامل مع الحقول في قاعدة البيانات عند كتابة البرنامج
حيث عند كتابه هذا الايعاز يعترض if (table1.field[i].age <20 )then x[1]:=l فما هو الايعاز المناسب
المشاركات : 563
المواضيع 28
:
: 0
الإنتساب : Dec 2008
و عليكم السلام و رحمة الله و بركاته
- وضح أكثر , ممكن تضع رسالة الخطأ ..
- إستخدم Try/Except لتسيير الأخطاء
- راجع هدا الموضوع : [URL="http://www.delphi4arab.net/forum/showthread.php?tid=519"]هنا
[/URL]بالتوفيق,,
المشاركات : 35
المواضيع 14
:
: 0
الإنتساب : Oct 2010
السلام
رسالة الخطأ هي [Error[bpnn.pas(66): Undeclared identifier: 'table1'
المشاركات : 563
المواضيع 28
:
: 0
الإنتساب : Dec 2008
السطر 66 من الوحدة Pas :
- لم تقم بإظافة المكون Table1 للفورم , أو أعطيته
إسم مغاير في Name (خصائص المكون) ....
المشاركات : 35
المواضيع 14
:
: 0
الإنتساب : Oct 2010
السلام
انا مشكلتي هي اختبر على حقول بفاعدة البيانات وبناء مصفوفه استحدمها في معادله معينه اعتمادا على قيم الحقول فمثلا اذا كان قيم حقل العمر للشحص الاول اكبر من 20 فان العنصر الاول للمصفوفة يساوي 1
واذا كان قيم حقل العمر للشحص الثاني اكبر من 20 واقل من 30 فان العنصر الثاني للمصفوفة يساوي 9
وهكذا
فما هو الايعاز المناسب
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
و عليكم السلام و رحمة الله
جرب
كود :
Table1.FieldByName('age').Value
أو
كود :
Table1.Fields[0].Value
عوض
بالتوفيق
المشاركات : 35
المواضيع 14
:
: 0
الإنتساب : Oct 2010
السلام
هذا الكود جميل لكن كيف احدد قيم حقل العمر للشحص الاول عن قيم حقل العمر للشحص الثاني
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
و عليكم السلام و رحمة الله
لم أفهم قصدك ؟ ( وضح أكثر )
المشاركات : 35
المواضيع 14
:
: 0
الإنتساب : Oct 2010
السلام
اقصد اذا كان لدي بيانات مجموعه من الاشخاص حيث لكل شخص عمر وراتب واعتمادا على العمر احدد الراتب فكيف يتم الاختبار لكل الاشخاص
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
مثال :
كود :
Table1.First ;
Table1.DisableControls ;
while not Table1.Eof do
begin
if Table1.FieldByName('age').Value>[COLOR=Blue]30 [/COLOR]Then
begin
Table1.edit;
Table1.FieldByName('Salary').Value=[COLOR=Blue]5000[/COLOR];
Table1.Post;
end
else
begin
Table1.edit;
Table1.FieldByName('Salary').Value=[COLOR=Blue]3000[/COLOR];
Table1.Post;
end;
Table1.Next ;
end;
Table1.EnableControls ;
بالتوفيق
