المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
27-01-2021, 05:40 PM
(آخر تعديل لهذه المشاركة: 27-01-2021, 05:41 PM بواسطة ALG2009.)
السلام عليكم
عندي خانة في قاعدة البيانات إما 1 أو 0، للذكر 1 وللأنثى 0
أريد أن أغير الكمبوبوكس إما ذكر أو أنثى على حسب قيمة الخانة في قاعدة البيانات ما هي الطريقة المثلى
كيف يمكن ذلك؟
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
وعليكم السلام ورحمة الله
ماهو المكون الذي تستخدمه
هل هو TComboBox ام TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
(27-01-2021, 08:01 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله
ماهو المكون الذي تستخدمه
هل هو TComboBox ام TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب
أريد أفضلهم إن كان من الأفضل إستخدام TComboBox سأستخدمه وإن كان TDBComboBox هو الأفضل أحسن
أريد نصيحتكم مع كيفية الجلب من قاعدة البيانات
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
28-01-2021, 02:19 AM
(آخر تعديل لهذه المشاركة: 28-01-2021, 02:24 AM بواسطة Delphi4Us.)
تضع بالكمبوبوكس ذكر وأنثى
وعند الحفظ تستخدم شئ مثل
كود :
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;
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008
(28-01-2021, 02:19 AM)Delphi4Us كتب : وطبعا في حدث التحميل للنموذج وعند استقبال قيمة الحقل تكون مثل
كود :
ComboBox1.ItemIndex:=ADOTable1.FieldByName('MyFiled').Value;
تم حل المشكل جزاك الله خيرا
