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

نسخة كاملة : combox et edit استخدام
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لديا قاعدة بيانات بها جدول به اسماء تلاميد زائد كود لكل منهم
في الفورم يوجد combobox و tEdit كيف يمكن ان اظهر اسم التلميد في EDIT عند كتابة الكود في COMBOBX
و شكرا
السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك الفلترة باستخدام الكود ثم جعل edit تحمل اسم التلميذ
جرب هذا اكود لعله ينفع:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
table1.Filtered:=false;
table1.Filter:='';
table1.Filter:='EmpNo='''+combobox1.Text+'''';
table1.Filtered:=true;
edit1.Text:=table1.fieldbyname('LastName').asstring;
end;

بالتوفيق
السلام عليكم و رحمة الله تعالى و بركاته:

كود :
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text = '' then Exit; if Table1.Locate('Num',ComboBox1.Text,[]) then Edit1.Text:=Table1.FieldValues['LastName']; end;