delphi4arab منتديات دلفي للعرب

نسخة كاملة : تغير قيمة الكومبوبوكس؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي خانة في قاعدة البيانات إما 1 أو 0، للذكر 1 وللأنثى 0
أريد أن أغير الكمبوبوكس إما ذكر أو أنثى على حسب قيمة الخانة في قاعدة البيانات ما هي الطريقة المثلى
كيف يمكن ذلك؟
وعليكم السلام ورحمة الله

ماهو المكون الذي تستخدمه 
هل هو  TComboBox ام  TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب
(27-01-2021, 08:01 PM)Delphi4Us كتب : [ -> ]وعليكم السلام ورحمة الله

ماهو المكون الذي تستخدمه 
هل هو  TComboBox ام  TDBComboBox
ام مكون اخر لشركة اخرى فلكل مكون طريقة خاصة به
بعض المكونات مثل StyleControl مثلا تقدم حلول على طبق من ذهب

أريد أفضلهم إن كان من الأفضل  إستخدام  TComboBox سأستخدمه وإن كان TDBComboBox  هو الأفضل أحسن
أريد نصيحتكم مع كيفية الجلب من قاعدة البيانات
تضع بالكمبوبوكس ذكر وأنثى 
وعند الحفظ تستخدم شئ مثل

كود :
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;
(28-01-2021, 02:19 AM)Delphi4Us كتب : [ -> ]وطبعا في حدث التحميل للنموذج وعند استقبال قيمة الحقل تكون مثل

كود :
ComboBox1.ItemIndex:=ADOTable1.FieldByName('MyFiled').Value;

تم حل المشكل جزاك الله خيرا