+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تغير قيمة الكومبوبوكس؟ (/showthread.php?tid=11219)
تغير قيمة الكومبوبوكس؟ - ALG2009 - 27-01-2021
السلام عليكم
عندي خانة في قاعدة البيانات إما 1 أو 0، للذكر 1 وللأنثى 0
أريد أن أغير الكمبوبوكس إما ذكر أو أنثى على حسب قيمة الخانة في قاعدة البيانات ما هي الطريقة المثلى
كيف يمكن ذلك؟
RE: تغير قيمة الكومبوبوكس؟ - Delphi4Us - 27-01-2021
وعليكم السلام ورحمة الله
ماهو المكون الذي تستخدمه
هل هو TComboBox ام TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب
RE: تغير قيمة الكومبوبوكس؟ - ALG2009 - 27-01-2021
(27-01-2021, 08:01 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله
ماهو المكون الذي تستخدمه
هل هو TComboBox ام TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب
أريد أفضلهم إن كان من الأفضل إستخدام TComboBox سأستخدمه وإن كان TDBComboBox هو الأفضل أحسن
أريد نصيحتكم مع كيفية الجلب من قاعدة البيانات
RE: تغير قيمة الكومبوبوكس؟ - Delphi4Us - 28-01-2021
تضع بالكمبوبوكس ذكر وأنثى
وعند الحفظ تستخدم شئ مثل
كود :
ADOTable1.Edit;
if ComboBox1.ItemIndex = 0
then ADOTable1.FieldByName('MyFiled').Value:=0
else
ADOTable1.FieldByName('MyFiled').Value:=1;
ADOTable1.Post;اذا كان المستخدم قد اختار ذكر فاجعل قيمة الحقل صفر والا فواحد تم حفظ
او تختصر الكود الى
كود :
ADOTable1.Edit;
ADOTable1.FieldByName('MyFiled').Value:=ComboBox1.ItemIndex;
ADOTable1.Post;وطبعا في حدث التحميل للنموذج وعند استقبال قيمة الحقل تكون مثل
كود :
ComboBox1.ItemIndex:=ADOTable1.FieldByName('MyFiled').Value;RE: تغير قيمة الكومبوبوكس؟ - ALG2009 - 28-01-2021
(28-01-2021, 02:19 AM)Delphi4Us كتب : وطبعا في حدث التحميل للنموذج وعند استقبال قيمة الحقل تكون مثل
كود :ComboBox1.ItemIndex:=ADOTable1.FieldByName('MyFiled').Value;
تم حل المشكل جزاك الله خيرا