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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور (/showthread.php?tid=5191)

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

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

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

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

الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور - piratewar - 12-05-2013

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

الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور - onexite - 14-05-2013

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

[صورة: 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; 

الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور - onexite - 16-05-2013

[صورة: 20130516132456.jpg]

اضافة مهمة

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; 

الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور - gaza-dz - 29-07-2013

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

الدرس الثاني عمل تقرير بواسطة mydac و الكويك رابور - hmidadz - 30-07-2013

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