+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : combox et edit استخدام (/showthread.php?tid=5578)
combox et edit استخدام - hmidadz - 21-09-2013
لديا قاعدة بيانات بها جدول به اسماء تلاميد زائد كود لكل منهم
في الفورم يوجد combobox و tEdit كيف يمكن ان اظهر اسم التلميد في EDIT عند كتابة الكود في COMBOBX
و شكرا
combox et edit استخدام - makhlouf - 22-09-2013
السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك الفلترة باستخدام الكود ثم جعل 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;
begin
table1.Filtered:=false;
table1.Filter:='';
table1.Filter:='EmpNo='''+combobox1.Text+'''';
table1.Filtered:=true;
edit1.Text:=table1.fieldbyname('LastName').asstring;
end;
بالتوفيق
combox et edit استخدام - King SofT - 22-09-2013
السلام عليكم و رحمة الله تعالى و بركاته:
كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = '' then Exit;
if Table1.Locate('Num',ComboBox1.Text,[]) then
Edit1.Text:=Table1.FieldValues['LastName'];
end;