+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم (/showthread.php?tid=5048)
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - boughagha - 22-03-2013
السلام عليكم
كيف نقوم ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم
متلا في جدول الزبائن اسم الحقل هو اسم الزبون في كل مرة نبيع سلعة هناك زبون جديد او نفس الزبون
وشكرا
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - Mr.DOS - 22-03-2013
من جدول الزبائن طبعا
اضافة العنصر dblookupcombobox وربطه مع الجدول الزبائن
listsource : datasource 1 or 2 or 3 ..
listField : اسم الحقل
KeyField : اسم حقل المفتاح الاساسي لجدول الزبائن
إقتباس :كيف نقوم ادراج اسماء الزبائن في مكون combobox ولا يمكننا تكرار الاسممن خصائص الحقل (اسم الزبون)
اختر عدم تكرار
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - boughagha - 23-03-2013
شكرا لك
لكن اردت استعمال combobox لانه احسن من dblookupcombobox
هل من طريقة لاستعمال combobox
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - AnoirsoftDeveloper - 23-03-2013
وعليكم السلام
تفضل أخي،
كود :
Table1.First;
while not Table1.Eof do
begin
ComboBox1.Items.Add(Table1Users.value);
Table1.Next;
end;Table1Users : حقل اسم الزبون أو رقمه
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - Najy Ibraheem - 24-03-2013
السلام عليكم...
للحصول على قائمة بالأسماء دون تكرار تحتاج إلى استعمال المكون Query (أو ADOQuery) مع جملة SQL كالتالي:
كود :
SELECT DISTINCT CustName FROM Customersكود :
// احذف السطرين التاليين إذا كتبت الجملة أثناء التصميم
Query1.Close;
Query1.SQL.Text := 'SELECT DISTINCT CustName FROM Customers';
// ========================================
Query1.Open
while not Query1.Eof do begin
ComboBox1.Items.Add(Query1.FieldByName('CustName').AsString);
Query1.Next;
end;
Query1.Close;و يمكنك إضافة عبارة ORDER BY لجملة SELECT لترتيب الأسماء:
كود :
SELECT DISTINCT CustName FROM Customers ORDER BY CustNameنرجو الاستفادة و السلام.
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - boughagha - 24-03-2013
شكرا لكم
طريقة ناجحة ولكن يتكرر الاسم
هل من طريقة لعدم تكرار الاسم
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - Najy Ibraheem - 24-03-2013
السلام عليكم...
مستحيل أن يتكرر الاسم بوجود كلمة distinst ضمن عبارة select.
إذا لم تضبط معك فأرفق قاعدة البيانات.
سلام.
كيف ادراج اسماء الزبائن في مكون combobox دون تكرار الاسم - boughagha - 25-03-2013
شكرا جزيلا لكم وخاصة Najy Ibraheem
نجحت العملية مع Query و تعليمة distinct فهي لا تعيد تكرار الاسم
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text := 'SELECT DISTINCT client FROM ventes';
Query1.Open;
while not Query1.Eof do begin
ComboBox1.Items.Add(Query1.FieldByName('client').AsString);
Query1.Next;
end;
Query1.Close;
end;
end.