ارجو المساعده فى تعبئه الكومبو

حمل المرفق من الرابط

http://www.4shared.com/file/132508867/89da7858/test.html

أرجو أن يفيدك

شكرا لك ياعزيزى على اهتمامك بطلبى

وانا سوف انزل المثال واطلع عليه

وعلى كلى اشكرك

الاخ العزيز شكرا على الاهتمام

بع الاطلاع على المثال وجدت انه هو المطلوب وشكرا لك

ارجو منك بان ترسل لى مثال به

عندما اختار اسم من الكومبو يحضر لى رقم العميل ويضعه فى تكست

واكون شاكر افضالك

سلامه بيومى

http://www.4shared.com/file/132769367/ffbba477/test1.html

لا فضل لأحد على أحد يا أخي بل مجرد مساعدة

و لكن أرجو منك أن تقدم محاولة و لو كانت صغيرة في سؤالك القادم :wink:

شكرا لك اخى الفاضل على مساعدتك لى واهتمامك بسؤالى

فعلا انا استفدت كثيرا

في الحد ث on drop down اكتب الكود التالي لشحن الcombo باسماء الحقول

procedure Ttrans.cbb1DropDown(Sender: TObject);
begin
 cbb1.Clear;
   with DM.qrycbb   do
	  begin

		 Close;
		 SQL.Clear;

		 begin

		 SQL.Add('SELECT ship FROM ships ');
		 Prepared;
		 Open;
		 DM.qrycbb.First;
		 while not DM.qrycbb.Eof  do
		 begin
		   cbb1.Items.Add(DM.qrycbb.fieldbyname('ship').asstring);
		   DM.qrycbb.Next;
		 end;


		end;
	  end;
end;

,واذا اردت تنفيذ امر معين عند الضغط , اكتب الكود في الحدث on click

واذا كنت تتعامل مع ado table ,او Table يمكنك استخدام المكون DBLookupcombobox فهو جاهز لللعمل من دون اكواد