السلام
عندي مشكله في التعامل مع الحقول في قاعدة البيانات عند كتابة البرنامج
حيث عند كتابه هذا الايعاز يعترض if (table1.field[i].age <20 )then x[1]:=l فما هو الايعاز المناسب
و عليكم السلام و رحمة الله و بركاته
- وضح أكثر , ممكن تضع رسالة الخطأ ..
- إستخدم Try/Except لتسيير الأخطاء
- راجع هدا الموضوع : [URL="http://www.delphi4arab.net/forum/showthread.php?tid=519"]هنا
[/URL]بالتوفيق,,
السلام
رسالة الخطأ هي [Error[bpnn.pas(66): Undeclared identifier: 'table1'
السطر 66 من الوحدة Pas :
- لم تقم بإظافة المكون Table1 للفورم , أو أعطيته
إسم مغاير في Name (خصائص المكون) ....
السلام
انا مشكلتي هي اختبر على حقول بفاعدة البيانات وبناء مصفوفه استحدمها في معادله معينه اعتمادا على قيم الحقول فمثلا اذا كان قيم حقل العمر للشحص الاول اكبر من 20 فان العنصر الاول للمصفوفة يساوي 1
واذا كان قيم حقل العمر للشحص الثاني اكبر من 20 واقل من 30 فان العنصر الثاني للمصفوفة يساوي 9
وهكذا
فما هو الايعاز المناسب
و عليكم السلام و رحمة الله
جرب
كود :
Table1.FieldByName('age').Value
أو
كود :
Table1.Fields[0].Value
عوض
بالتوفيق
السلام
هذا الكود جميل لكن كيف احدد قيم حقل العمر للشحص الاول عن قيم حقل العمر للشحص الثاني
و عليكم السلام و رحمة الله
لم أفهم قصدك ؟ ( وضح أكثر )
السلام
اقصد اذا كان لدي بيانات مجموعه من الاشخاص حيث لكل شخص عمر وراتب واعتمادا على العمر احدد الراتب فكيف يتم الاختبار لكل الاشخاص
مثال :
كود :
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 ;
بالتوفيق