المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
السلام عليكم و رحمة الله و بركاته
ما هي طريقة فلترة الجدول مرتين.
مثال: لدي جدول يحتوي على أسماء، أريــد أن أظهر الأسماء التي تحتوي على محمد فقط و من ثم مواليد 1990 فقط
النتيجة: يظهر في الجدول أسامي محمد مواليد 1990 فقط
و جزاكم الله خيرا
لا إله إلا الله محمد رسول الله
المشاركات : 171
المواضيع 24
:
: 0
الإنتساب : Jan 2009
السلام عليكم
كود :
http://fr.wikibooks.org/wiki/Programmation_SQL/Langage_de_manipulation_de_donn%C3%A9es
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
شكرا عنتر، و لكني أنا لا أستخدم Sql
لا إله إلا الله محمد رسول الله
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
السلام عليكم
مثال
كود :
with ADODataSet1 do begin
Filtered := False;
Filter := 'State = ' + QuotedStr('CA') + ' OR ' +
'State = ' + QuotedStr('CA');
Filtered := True;
end;
كود :
http://docwiki.embarcadero.com/Libraries/XE5/en/Data.DB.TDataSet.Filter
بالتوفيق
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
الكود لم يعمل أخي عبد الجليل، و هذدا الكود الذي استخدمته قبلا
كود :
if checkbox1.Checked then
form3.abstable1.Filter := 'datee like' + quotedstr (edit1.Text)
+'and'+'Nom_Cln like'+ quotedstr (edit2.Text);
form3.ABSTable1.Filtered := true ;
لا إله إلا الله محمد رسول الله
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
السلام عليكم
ينقصك % في like
و في التاريخ إستعمل = بدل like
بالتوفيق
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
و عليكم السلام و رحمة الله و بركاته
لم يعمل الكود أخي الكريم، فهو يفلتر لمرة واحدة فقط، علما أني جربت هذا و نفس المشكلة
كود :
[align=left]if radiobutton1.Checked then
begin
with (form3.abstable1) do
begin
if edit1.Text = '' then
filtered := false
else
begin
Filter := 'datee like ' + QuotedStr('%'+Edit1.Text + '%')
+'and'+'Nom_Cln like ' + QuotedStr('%'+Edit2.Text + '%')
;;
filtered := true ;
end;
end;
end;
[/align]
لا إله إلا الله محمد رسول الله
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
الحمد لله أن وفقني الله للحل و هو :
في الـ
Edit1 حيث أريـد أن أفلتر البيانات حول كلمة '
محمد' أضع الكود التالي:
كود :
form3.ABSTable1.Filter := 'datee like ' + quotedstr('%'+edit1.Text+'%')
+ 'and ' + 'Nom_Cln like ' + quotedstr('%'+edit2.Text+'%');
form3.ABSTable1.Filtered := true ;
و في الـ
Edit2 حيث أريـد أن أفلتر البيانات حول
التاريخ أضع نفس الكود
سؤال جانبي: ما هو الكود المناسب لتأخذ الـ Edit2 نفس كود Edit1 بدون أن أضطر لكتابة الكود مرتين ؟
و صل اللهم على سيدنا محمد و على آله وصحبه اجمعين
و شكرا للجميع ...
لا إله إلا الله محمد رسول الله
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
الحمد لله
كود :
سؤال جانبي: ما هو الكود المناسب لتأخذ الـ Edit2 نفس كود Edit1 بدون أن أضطر لكتابة الكود مرتين ؟
* في حدث OnChange الخاص بـ Edit2 ضع
كود :
Edit1Change(sender);
* أو في الـ ObjectInspector الخاص بـ Edit2 إختر الحدث Edit1Chang في OnChange
بالتوفيق