الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور

[onexite]

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


في نهاية كل صفحة


والنتيجة النهائية

[piratewar]

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

[onexite]

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

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; 


[onexite]

اضافة مهمة

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; 


[gaza-dz]

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

[hmidadz]

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