ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery (/showthread.php?tid=2067)

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - saber-bsa - 02-06-2010

السلام عليكم ورحمة الله وبركاته
:bye1::bye1::bye1::bye1:
اولا اتقدم بجزيل الشكر للقائمين على هذا المنتدى الرئع
والذي أفادني كثيرا
كما هو موضح في العنوان كيف ا املئ مكون ComboBox
بمحتوى ناتج ال ADOQuery من الحقل Mat_ch

لقد مشاركة أحد الأخوة لكن لم أفهمها جيدا :oops:
http://www.delphi4arab.net/forum/showthread.php?tid=982

جزاكم الله كل الخير

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - محمد عبد العزيز - 03-06-2010

السلام عليكم

إقتباس :لم أفهمها جيدا

ما الذي لم تفهمه ؟
ما قام به هو أخذ ناتج استعلام SQL
والقيام بحلقة لاضافة الحقل بمكون الComboBox

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - saber-bsa - 03-06-2010

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

أخي بارك الله فيك على الرد

كود :
procedure fillcombo(cmb:tcombobox;q:tibquery ; tbl,fld:string);
begin
q.SQL.Clear;
q.SQL.Add('select * from "'+tbl+'"');
q.Open;
if q.RecordCount<>0 then
  begin
    cmb.Items.Clear;
    Cmb.Text:='';
    q.First;
    while not q.Eof do
    begin
      Cmb.Items.Add(trim(q[fld]));
      q.Next;
    end;
  end;
end;

لم أفهم :
fillcombo
هل هذا يعني أنه قام بعمل procedure
خاص به .
tbl : هل يقصد بها جدول أم ماذا .
وماذا يعني بهذا fld.

أخي أنا مبتدأ في الدلفي لكن الحمد لله بفضل الله عزوجل ثم هذا المنتدى انااتحسن شيئ فشيئ

جزاك الله كل خير

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - kachwahed - 03-06-2010

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

إقتباس :هل هذا يعني أنه قام بعمل procedure

أجل، هو اسم الإجراء

إقتباس :tbl : هل يقصد بها جدول أم ماذا .
وماذا يعني بهذا fld.

هي معلمات (Parameters) هنا:

كود :
procedure fillcombo(cmb:tcombobox;q:tibquery ; [color=Blue]tbl[/color],[color=Blue]fld[/color]:[color=Red]string[/color]);

انصحك بمتعابعة دروس دورة دلفي للعرب، ودروس دورة الأخ omf_12000
ولا تنسى البحث قبل طرح السؤال Smile

بالتوفيق.

ملء مكون كمبوبوكس ComboBox بعناصر من ADOQuery - saber-bsa - 05-06-2010

السلام عليكم شباب
بارك الله فيكم نجح الأمر
جزاكم الله كل خير :monster1: