المشاركات : 54
المواضيع 5
:
: 0
الإنتساب : Oct 2009
السلام عليكم ورحمة الله وبركاته
:bye1::bye1::bye1::bye1:
اولا اتقدم بجزيل الشكر للقائمين على هذا المنتدى الرئع
والذي أفادني كثيرا
كما هو موضح في العنوان كيف ا املئ مكون ComboBox
بمحتوى ناتج ال ADOQuery من الحقل Mat_ch
لقد مشاركة أحد الأخوة لكن لم أفهمها جيدا :oops:
http://www.delphi4arab.net/forum/showthread.php?tid=982
جزاكم الله كل الخير
شمعة تحترق من اجل الآخرين
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم
إقتباس :لم أفهمها جيدا
ما الذي لم تفهمه ؟
ما قام به هو أخذ ناتج استعلام SQL
والقيام بحلقة لاضافة الحقل بمكون الComboBox
المشاركات : 54
المواضيع 5
:
: 0
الإنتساب : Oct 2009
03-06-2010, 01:02 PM
(آخر تعديل لهذه المشاركة: 03-06-2010, 02:33 PM بواسطة kachwahed.)
السلام عليكم ورحمة الله وبركاته
أخي بارك الله فيك على الرد
كود :
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.
أخي أنا مبتدأ في الدلفي لكن الحمد لله بفضل الله عزوجل ثم هذا المنتدى انااتحسن شيئ فشيئ
جزاك الله كل خير
شمعة تحترق من اجل الآخرين
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
وعليكم السلام ورحمة الله وبركاته
إقتباس :هل هذا يعني أنه قام بعمل procedure
أجل، هو اسم الإجراء
إقتباس :tbl : هل يقصد بها جدول أم ماذا .
وماذا يعني بهذا fld.
هي معلمات (Parameters) هنا:
كود :
procedure fillcombo(cmb:tcombobox;q:tibquery ; [color=Blue]tbl[/color],[color=Blue]fld[/color]:[color=Red]string[/color]);
ولا تنسى البحث قبل طرح السؤال 
بالتوفيق.
المشاركات : 54
المواضيع 5
:
: 0
الإنتساب : Oct 2009
السلام عليكم شباب
بارك الله فيكم نجح الأمر
جزاكم الله كل خير :monster1:
شمعة تحترق من اجل الآخرين
