دخول

معمر محسن · 02-03-2009, 01:48 AM

لااعلم ان كان هذا هو المكان الصحيح لهذه المشاركة ولكنها ليست برنامج كامل حتى اضعها في قسم برامج الاعضاء
انتبهت اخيرا للدروس التى بهذا المنتدى عندما كان الدرس الاخير هو الدرس السابع ووجدتها ممتازة في المعلومات وفي التصميم والتقديم و انتهز هذه الفرصة لاتقدم بالتحية لكل من ساهم فيها واكثر ما شد انتباهي هو درس الاجراءات والدوال وقد قمت بهذه المحاولة التطبيقية
حيث انني استخدم كثيرا كود لملء مكونات الكمبوبوكس بعناصر من جداول قاعدة بيانات مستخدما مكون كويري في ذلك فاي برنامج من برامج قواعد البيانات مبيعات ومخزون مثلا يتطلب ملء كمبو باسماء الاصناف المباعة والمشتراة واسماء الزبائن واسماء الموردين والمصارف والمستخدمين والحسابات وغيرها واجد ان جزء كبير من الكود في البرنامج هو ملء الكمبو فقمت بكتابة هذا الاجراء للقيام بذلك

كود :
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(combobox1,ibquery1 , 'custs','custname');

وتم بالفعل ملء الكمبو 1 بالحقل custname من الجدول custs وبهذا يمكن توفير الوقت والجهد في كتابة كود لملء كل كمبو في البرنامج كما قلت كمية الكود فتسهل قراءته
اكرر شكري للاخوة القائمين على الدروس

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة