delphi4arab منتديات دلفي للعرب

السلام عليكم
هذا مثال كامل على الفلترة واستخدام mydac في الطباعة والتقارير
تم تعديل التقرير باضافة صورة و رقم الصفحة وتوقيع المسهول
بعض الصور
الصفحة الاولى
[صورة: 20130505090443.jpg]

في نهاية كل صفحة
[صورة: 20130505090542.jpg]

والنتيجة النهائية
[صورة: 20130505090824.jpg]

:d :d :d
جزاكم الله خيراً

ما تم اضافته
تم اضافة تلوين الاسطر
تم اضافة بار جميل يختفي ( المكون في المرفقات )
تم نعديل معلومات الدخول والربط بين المكونات
الصور

[صورة: 20130514122855.jpg]

PHP كود :
try
  MyConnection1.Pooling := true;
  MyConnection1.PoolingOptions.MinPoolSize := 1;
  MyConnection1.LoginPrompt := false;
  MyConnection1.Options.Charset := 'utf8';
  MyConnection1.Options.Direct := true;
  MyConnection1.Options.UseUnicode := true;
  MyConnection1.Username:='root' ;
  MyConnection1.Password:='' ;
  MyConnection1.Server:='127.0.0.1' ;
  MyConnection1.Port:=3306 ;
  MyConnection1.Database:='base_02' ;
  MyConnection1.Connect;
  MyTable1.Connection:=MyConnection1;
  MyTable1.TableName:='base_02';
  MyDataSource1.DataSet :=MyTable1;
  dbgrd1.DataSource:=MyDataSource1;
  MyTable1.Active:=True;
  if MyConnection1.Connected then begin
   btn1.Enabled:=True ; btn2.Enabled:=True ;btn3.Enabled:=True
   end else begin btn3.Enabled:=False ;btn1.Enabled:=False;btn2.Enabled:=False;  end;
  except
    on E: Exception do
      ShowMessage(Format('Error Message: %s',[ E.Message]));
    end; 

اضافة مهمة

PHP كود :
if MyConnection1.Connected then begin
    cbb1.Clear;cbb1.Items:=MyTable1.FieldList; cbb1.ItemIndex:=1; 

لزر بحث نستخدم

PHP كود :
MyTable1.Filter:=cbb1.text+' LIKE "%'+edt2.Text+'%"';
MyTable1.Filtered:=true; 

محاولاتي كل البحث من دون اختيار لاكنها فاشلة نوعا ما

PHP كود :
var any :string;
begin
any:=AnsiLowerCase(edt1.Text);
MyTable1.Filter:='site LIKE "%'+any+'%" OR username LIKE "%'+any+'%" OR Country LIKE "%'+any+'%" OR app LIKE "%'+any+'%" OR nampc LIKE "%'+any+'%" OR Windows LIKE "%'+any+'%" OR ip LIKE "%'+any+'%"';
MyTable1.Filtered:=true; 

الف شكراااا اخي الكريم

اين اضع الملف يا اخي
لانه تاتيني رسالة مكتوب فيها egnorer annulé , egnorer tout

onexite

piratewar

onexite

onexite

gaza-dz

hmidadz