02-03-2009, 01:48 AM
لااعلم ان كان هذا هو المكان الصحيح لهذه المشاركة ولكنها ليست برنامج كامل حتى اضعها في قسم برامج الاعضاء
انتبهت اخيرا للدروس التى بهذا المنتدى عندما كان الدرس الاخير هو الدرس السابع ووجدتها ممتازة في المعلومات وفي التصميم والتقديم و انتهز هذه الفرصة لاتقدم بالتحية لكل من ساهم فيها واكثر ما شد انتباهي هو درس الاجراءات والدوال وقد قمت بهذه المحاولة التطبيقية
حيث انني استخدم كثيرا كود لملء مكونات الكمبوبوكس بعناصر من جداول قاعدة بيانات مستخدما مكون كويري في ذلك فاي برنامج من برامج قواعد البيانات مبيعات ومخزون مثلا يتطلب ملء كمبو باسماء الاصناف المباعة والمشتراة واسماء الزبائن واسماء الموردين والمصارف والمستخدمين والحسابات وغيرها واجد ان جزء كبير من الكود في البرنامج هو ملء الكمبو فقمت بكتابة هذا الاجراء للقيام بذلك
علما باني استعمل قاعدة بيانات انتربيز
وعند استدعاء الاجراء
وتم بالفعل ملء الكمبو 1 بالحقل custname من الجدول custs وبهذا يمكن توفير الوقت والجهد في كتابة كود لملء كل كمبو في البرنامج كما قلت كمية الكود فتسهل قراءته
اكرر شكري للاخوة القائمين على الدروس
انتبهت اخيرا للدروس التى بهذا المنتدى عندما كان الدرس الاخير هو الدرس السابع ووجدتها ممتازة في المعلومات وفي التصميم والتقديم و انتهز هذه الفرصة لاتقدم بالتحية لكل من ساهم فيها واكثر ما شد انتباهي هو درس الاجراءات والدوال وقد قمت بهذه المحاولة التطبيقية
حيث انني استخدم كثيرا كود لملء مكونات الكمبوبوكس بعناصر من جداول قاعدة بيانات مستخدما مكون كويري في ذلك فاي برنامج من برامج قواعد البيانات مبيعات ومخزون مثلا يتطلب ملء كمبو باسماء الاصناف المباعة والمشتراة واسماء الزبائن واسماء الموردين والمصارف والمستخدمين والحسابات وغيرها واجد ان جزء كبير من الكود في البرنامج هو ملء الكمبو فقمت بكتابة هذا الاجراء للقيام بذلك
كود :
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 وبهذا يمكن توفير الوقت والجهد في كتابة كود لملء كل كمبو في البرنامج كما قلت كمية الكود فتسهل قراءته
اكرر شكري للاخوة القائمين على الدروس