combox et edit استخدام

[hmidadz]

لديا قاعدة بيانات بها جدول به اسماء تلاميد زائد كود لكل منهم
في الفورم يوجد combobox و tEdit كيف يمكن ان اظهر اسم التلميد في EDIT عند كتابة الكود في COMBOBX
و شكرا

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك الفلترة باستخدام الكود ثم جعل 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;

بالتوفيق

[King SofT]

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

كود :

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