<![CDATA[delphi4arab منتديات دلفي للعرب - دلفي و التعامل مع قواعد البيانات]]>

<![CDATA[delphi4arab منتديات دلفي للعرب - دلفي و التعامل مع قواعد البيانات]]> https://delphi4arab.net/forum/ Thu, 12 Nov 2026 21:32:33 +0000 MyBB <![CDATA[دلفي والتعامل مع قواعد بيانات PostgreSQL]]> https://delphi4arab.net/forum/showthread.php?tid=12875 Tue, 18 Feb 2025 21:05:54 +0100 justnick]]> https://delphi4arab.net/forum/showthread.php?tid=12875

]]>

]]> <![CDATA[InterBase 7.5 Client-Server (windows7)]]> https://delphi4arab.net/forum/showthread.php?tid=12474 Thu, 14 Dec 2023 23:53:40 +0100 larbiparadox]]> https://delphi4arab.net/forum/showthread.php?tid=12474
فيديو يشرح ربط InterBase 7.5 بين جهازين

كود :
https://mega.nz/file/sLJBQSbA#4RIoI0eT9ZEVyYDevAozc6XplPNFwUsukuq6kRk3KoE

]]>
فيديو يشرح ربط InterBase 7.5 بين جهازين

كود :
https://mega.nz/file/sLJBQSbA#4RIoI0eT9ZEVyYDevAozc6XplPNFwUsukuq6kRk3KoE

]]> <![CDATA[InterBase 7.5 تثبيت ، إنشاء قاعدة بيانات ، وربط بدلفي 7]]> https://delphi4arab.net/forum/showthread.php?tid=12466 Sat, 09 Dec 2023 14:27:08 +0100 larbiparadox]]> https://delphi4arab.net/forum/showthread.php?tid=12466 السلام عليكم ورحمة الله

كان هذا طلب أحد الأعضاء ، ليستفيد الجميع وضعته على شكل موضوع

ما يهمنا في الموضوع :

1 ـ شرح تثبيت دلفي 7 على أنظمة التشغيل 7 و 10 وحتى 11

2 ـ شرح تثبيت InterBase نسخة 7.5

3 ـ شرح إنشاء قاعدة بيانات بواسطة IBConsole المثبت مع InterBase نسخة 7.5

4 ـ شرح ربط دلفي 7 مع قاعدة البيانات

بعض المعلومات حول InterBase :

تعريف InterBase :

InterBase هو نظام لإدارة قواعد البيانات (يُختصر بـ SGBD أو RDBMS لـ "نظام إدارة قواعد البيانات العلائقية") تتم صيانته وتوزيعه بواسطة شركة Embarcadero Technologies. وهو يتميز عن أنظمة قواعد البيانات الأخرى بمتطلباته الإدارية الخفيفة للغاية وببنيته المرنة للغاية.

تاريخه :

تم إنشاؤه في الأصل بواسطة جيم ستاركي. تم بيع InterBase لشركة Ashton-Tate (ناشر dBase) في عام 1991، والتي اشترتها شركة Borland نفسها، والتي أعلنت عن المصدر المفتوح في عام 2000. في عام 2001، تم اكتشاف باب خلفي في كود InterBase3. في أواخر عام 2002، أصدر بورلاند الإصدار 7 من InterBase، والذي تم دمجه في النهاية في CodeGear Delphi واستحوذت عليه شركة Embarcadero Technologies في عام 2008.

في عام 2010، أعلنت شركة Embarcadero عن إصدار Interbase XE، الذي يقدم عميل وخادم 64 بت، مع أمان محسّن وأداء محسّن.

SGBD : هو نظام إدارة قواعد البيانات

باللغة الفرنسية :

SGBD : Système de Gestion de Bases de Données

SGBDR : Système Gestion de Base de Données Relationnelle

باللغة إنجليزية :

DBMS : DataBase Management System

RDBMS : Relational DataBase Management System

ـ لكل قاعدة بيانات لها رقم إصدار يرمز له ODS هو إختصار لـ On Disk Structure ويتغير رقم ODS حسب كل نسخة InterBase .

أمثلة :

ـ بالنسبة لنسخة InterBase 4.0 أو 4.1 رقم إصدار ODS 8.0

ـ بالنسبة لنسخة InterBase 4.2 رقم إصدار ODS 8.2 ، يمكن فتح ODS 8.0 بواسطة نسخة 4.2 ويتم ترقيتها أليًا إلى 8.2

ـ بالنسبة لنسخة InterBase 5.0 أو 5.1 رقم إصدار ODS 9.0 ، و يمكن فتح قاعدة بيانات رقم ODS 8.2

ـ بالنسبة لنسخة InterBase 5.5 أو 5.6 رقم إصدار ODS 9.1 ، و يمكن فتح قاعدة بيانات رقم ODS 8.2

ـ بالنسبة لنسخة InterBase 6.0 رقم إصدار ODS 10.0 ، يمكن فتح ODS 9.0 و 9.1 ، من هذه النسخة تم إصدار أول نسخة Firebird 1.0

ـ توجد النسخة InterBase 6.5 تأتي مع دلفي 7

ـ بالنسبة لنسخة InterBase 7.0 أو 7.1 أو 7.5 رقم إصدار ODS على الترتيب 11.0 ، 11.1 ، 11.2

ـ يوجد InterBase : 2007 ، 2009 ، XE ، XE3 ، XE7 ، 2017 ، 2020

ملاحظة :

· تابع ملف قاعدة البيانات InterBase من نسخ 7.0 ما خلف هو .ib و بعدها إلى حين .gdb وبالنسبة لسخ فيبيرد .fdb

· الإسم التلقائي هو : sysdba

· وكلمة المرور التلقائية: masterkey

· والمنفذ التلقائي هو : 3050

الروابط :

1 ـ شرح تثبيت دلفي 7 على أنظمة التشغيل 7 و 10 وحتى 11 في الفيديو التالي :

كود :
https://mega.nz/file/BXBBGJKA#46sWCieTD4WYSlIlu3WninVkSoUJATdfTojJfntzIwo

2 ـ شرح تثبيت InterBase نسخة 7.5 في الفيديو التالي :

كود :
https://mega.nz/file/EHpliCiK#DH7aEI8He0H6hMM-PXoHtJg7hgTVb0gjTas_MWUc90o

3 ـ شرح إنشاء قاعدة بيانات بواسطة IBConsole المثبت مع InterBase نسخة 7.5 :

كود :
https://mega.nz/file/ReohFIzY#d97HaFVr7CcN1zW2H0IpEk0aZeBVrJ_kxTgk5Ztm2ZY

4 ـ شرح ربط دلفي 7 مع قاعدة البيانات :

كود :
https://mega.nz/file/YHJCXQQa#3N6lp05FC6oX4EcIFSYWQxmWiynrPNXxHPnGbi2RxcU

]]> السلام عليكم ورحمة الله

كان هذا طلب أحد الأعضاء ، ليستفيد الجميع وضعته على شكل موضوع

ما يهمنا في الموضوع :

1 ـ شرح تثبيت دلفي 7 على أنظمة التشغيل 7 و 10 وحتى 11

2 ـ شرح تثبيت InterBase نسخة 7.5

3 ـ شرح إنشاء قاعدة بيانات بواسطة IBConsole المثبت مع InterBase نسخة 7.5

4 ـ شرح ربط دلفي 7 مع قاعدة البيانات

بعض المعلومات حول InterBase :

تعريف InterBase :

تاريخه :

في عام 2010، أعلنت شركة Embarcadero عن إصدار Interbase XE، الذي يقدم عميل وخادم 64 بت، مع أمان محسّن وأداء محسّن.

SGBD : هو نظام إدارة قواعد البيانات

باللغة الفرنسية :

SGBD : Système de Gestion de Bases de Données

SGBDR : Système Gestion de Base de Données Relationnelle

باللغة إنجليزية :

DBMS : DataBase Management System

RDBMS : Relational DataBase Management System

ـ لكل قاعدة بيانات لها رقم إصدار يرمز له ODS هو إختصار لـ On Disk Structure ويتغير رقم ODS حسب كل نسخة InterBase .

أمثلة :

ـ بالنسبة لنسخة InterBase 4.0 أو 4.1 رقم إصدار ODS 8.0

ـ بالنسبة لنسخة InterBase 4.2 رقم إصدار ODS 8.2 ، يمكن فتح ODS 8.0 بواسطة نسخة 4.2 ويتم ترقيتها أليًا إلى 8.2

ـ بالنسبة لنسخة InterBase 5.0 أو 5.1 رقم إصدار ODS 9.0 ، و يمكن فتح قاعدة بيانات رقم ODS 8.2

ـ بالنسبة لنسخة InterBase 5.5 أو 5.6 رقم إصدار ODS 9.1 ، و يمكن فتح قاعدة بيانات رقم ODS 8.2

ـ بالنسبة لنسخة InterBase 6.0 رقم إصدار ODS 10.0 ، يمكن فتح ODS 9.0 و 9.1 ، من هذه النسخة تم إصدار أول نسخة Firebird 1.0

ـ توجد النسخة InterBase 6.5 تأتي مع دلفي 7

ـ بالنسبة لنسخة InterBase 7.0 أو 7.1 أو 7.5 رقم إصدار ODS على الترتيب 11.0 ، 11.1 ، 11.2

ـ يوجد InterBase : 2007 ، 2009 ، XE ، XE3 ، XE7 ، 2017 ، 2020

ملاحظة :

· تابع ملف قاعدة البيانات InterBase من نسخ 7.0 ما خلف هو .ib و بعدها إلى حين .gdb وبالنسبة لسخ فيبيرد .fdb

· الإسم التلقائي هو : sysdba

· وكلمة المرور التلقائية: masterkey

· والمنفذ التلقائي هو : 3050

الروابط :

1 ـ شرح تثبيت دلفي 7 على أنظمة التشغيل 7 و 10 وحتى 11 في الفيديو التالي :

كود :
https://mega.nz/file/BXBBGJKA#46sWCieTD4WYSlIlu3WninVkSoUJATdfTojJfntzIwo

2 ـ شرح تثبيت InterBase نسخة 7.5 في الفيديو التالي :

كود :
https://mega.nz/file/EHpliCiK#DH7aEI8He0H6hMM-PXoHtJg7hgTVb0gjTas_MWUc90o

3 ـ شرح إنشاء قاعدة بيانات بواسطة IBConsole المثبت مع InterBase نسخة 7.5 :

كود :
https://mega.nz/file/ReohFIzY#d97HaFVr7CcN1zW2H0IpEk0aZeBVrJ_kxTgk5Ztm2ZY

4 ـ شرح ربط دلفي 7 مع قاعدة البيانات :

كود :
https://mega.nz/file/YHJCXQQa#3N6lp05FC6oX4EcIFSYWQxmWiynrPNXxHPnGbi2RxcU

]]> <![CDATA[كيف تحول قاعدة بيانات فايربيرد قديمة الى نسخة احدث]]> https://delphi4arab.net/forum/showthread.php?tid=12218 Tue, 21 Feb 2023 17:18:52 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=12218

لو عندك قاعدة بيانات قديمة مصممة على فايربيرد 2.5 مثلا وتريد تحويلها الى فايربيرد 3 او 4 ولنفرض الى النسخة 4

وقتها تقوم بتثبيت فايربيرد 4 تم تتصل بقاعدة البيانات القديمة عن طريق المكتبة Embbeded وتعمل لها نسخ احتياطي وبعدها تقوم بعملية استرجاع لها كقاعدة بيانات جديدة على فايربيرد 4
حيث سيطلب منك عدة معطيات مثل هل تريد انشاء قاعدة البيانات اذا كانت غير موجودة ام تريد ان تضيفها الى قاعدة بيانات موجودة
وتحدد ما الذي ستنقله هل كل شئ حتى البيانات ام تريد ان تستني مثلا القوادح وهكذا]]>

لو عندك قاعدة بيانات قديمة مصممة على فايربيرد 2.5 مثلا وتريد تحويلها الى فايربيرد 3 او 4 ولنفرض الى النسخة 4

وقتها تقوم بتثبيت فايربيرد 4 تم تتصل بقاعدة البيانات القديمة عن طريق المكتبة Embbeded وتعمل لها نسخ احتياطي وبعدها تقوم بعملية استرجاع لها كقاعدة بيانات جديدة على فايربيرد 4
حيث سيطلب منك عدة معطيات مثل هل تريد انشاء قاعدة البيانات اذا كانت غير موجودة ام تريد ان تضيفها الى قاعدة بيانات موجودة
وتحدد ما الذي ستنقله هل كل شئ حتى البيانات ام تريد ان تستني مثلا القوادح وهكذا]]> <![CDATA[ربط قاعدة بيانات FireBird بواسطة مكون الاتصال FireDac]]> https://delphi4arab.net/forum/showthread.php?tid=11318 Fri, 09 Apr 2021 13:39:06 +0100 larbiparadox]]> https://delphi4arab.net/forum/showthread.php?tid=11318
ربط قاعدة بيانات FireBird بواسطة مكون الاتصال FireDac

FireBird :

[b]نبذة تاريخية[/b]

انبثقت فايربيرد من الشفرة المصدرية لقاعدة بيانات انتربيس 6.0 من بورلاند. وهي مفتوحة المصدر ولا يوجد بها ترخيص مزدوج. وسواء احتجت إليها لتطبيقات تجارية أو مفتوحة المصدر، فهي مجانا بالكامل!

تقنية فايربيرد قيد الاستخدام منذ 20 عاما، مما يجعلها منتجا شديد النضوج والاستقرار.
المميزات الرئيسية
لا يغرنك حجم المثبت! فايربيرد هو نظام قوي ومكتمل المزايا لإدارة قواعد البيانات العلائقية. ويمكنه مناولة قواعد بيانات حجمها من مجموعة كيلو بايت فقط إلى العديد من الغيغابايت مع أداء جيد ودون الحاجة إلى صيانتها في أغلب الأحوال!

[/url]
[url=https://www.firebirdnews.org/docs/fb2min_ar.html]المصدر من الموقع الرسمي

النسخ النهائية للتحميل

Firebird 2.5

Firebird 3.0

للتحميل من الموقع الرسمي

كما توجد Firebird 4.0 فهي تطوير مستمر Beta ليست نهائية

لتحميل من الموقع

FireDAC :
هو عبارة عن مجموعة فريدة من مكونات الوصول الشامل إلى البيانات المصممة لتطوير تطبيقات قواعد البيانات متعددة الأجهزة لـ Delphi و C ++ Builder. بفضل بنيته المشتركة ، يسمح FireDAC بالوصول المباشر والسريع والأصلي من دلفي إلى InterBase و SQLite و MySQL و SQL Server و Oracle و PostgreSQL و IBM DB2 و SQL Anywhere و Access و Firebird و Informix ، إلخ.

للتعرف أكثر على المكون

كود :
http://docwiki.embarcadero.com/RADStudio/Sydney/fr/FireDAC

* ملاحظة :
لو ثبتنا Firebird 2.5 وأنشأنا بها قاعدة البيانات فستكون نسختها اصدار (ODS) 11.2 فلا يمكن فتحها بنسخة أخرى

إذا ما هو ODS هو إختصار لـ On Disk Structure أي تحتوي كل قاعدة بيانات Firebird على بنية محددة جيدًا. يشير رقم إصدار ODS (على بنية القرص) المخزن في صفحة رأس قاعدة البيانات إلى إصدار ODS المستخدم في قاعدة البيانات هذه.

نسخة Firebird 2.5 رقم اصدار البنية الخاص بها ODS هو 11.2

نسخة Firebird 3.0 رقم اصدار البنية الخاص بها ODS هو 12.0

للمعلومات أكثر

كود :
https://ib-aid.com/en/articles/all-firebird-and-interbase-on-disk-structure-ods-versions/

* شرح الربط :

01 - تثبيت FireBird النسخة 3 :

عند تثبيت النسخة الثالثة يكون مسار كالتالي في Windows 32 bit:

كود :
C:\Program Files\Firebird\Firebird_3_0

و يتم أيضا نسخ FBCLIENT.DLL إلى C:\Windows\System32 فمكون الدلفي تلقائيا يبحث عنه في هذا المسار

[صورة: 102759561.png]

02 - الان نحتاج الى المكونات التالية للربط :

FDConnection1 : للاتصال بقاعدة البيانات
FDPhysFBDriverLink1 : نستعمله لتحديد مسار ملف FBCLIENT.DLL في حالة عدم تثبيت FireBird نحتاج الى هذا الملف

FDGUIxWaitCursor1 : دور هذا المكون عند الاتصال أو تنفيذ إجراء يغير صورة مؤشر الفأرة الى مأشر أخر يبن لنا عملية التنفيذ و عند الانتهاء يعيد المؤشر الى حالته

FDQuery1 : لفتح جدول
DataSource1 : لاظهار الحقول في مكونات اخرى
DBGrid1 : اظهار الحقول على شكل جدول

03 - الربط في جهاز محلي Local + مع تثبيت FireBird

بعد تثبيت FireBird ، نقوم بالربط كمايلي

* سنربط FDConnection1 مع قاعدة البيانات EMPLOYEE.FDB هي قاعدة بيانات تأتي مع تثبيت FireBird الموجودة في المسار التالي

كود :
C:\Program Files\Firebird\Firebird_3_0\examples\empbuild

إعدادات FDConnection1 للاتصال في جهاز محلي

[صورة: 218507526.png]

1 _ LoginPrompt نقوم بإلغاء تنشيط هذه الخاصية
2 _ نختار نوع قاعدة البيانات ، FB هي إختصار لـ FireBird
3 _ مسار قاعدة اليانات
4 _ اسم المستعمل ، تلقائية sysdba
5 _ كلمة المرور ، تلقائية masterkey
6 _ Protocol هو نوع الاتصال محلي Local ، أو عبر شبكة TCPIP .... إلخ

النتيجة

03 - الربط مع جهاز أخر مع ترك تثبيت FireBird

معلومات عن الجهاز الذي سأتصل به

[صورة: 467047550.png]

1 _ إسم الجهاز و إذا كان IP ثابت يمكن إستبدال إسم الجهاز بـ IP
2 _ مسار قاعدة البيانات كمثال C:\TestPC02
3 _ ملف قاعدة البيانات

الاعدادات للاتصال بجهاز أخر

[صورة: 946393114.png]

1 _ نختار نوع قاعدة البيانات ، FB هي إختصار لـ FireBird
2 _ مسار قاعدة اليانات في للجهاز الاخر
3 _ اسم المستعمل ، تلقائية sysdba
4 _ كلمة المرور ، تلقائية masterkey
5 _ Protocol هو نوع الاتصال عبر شبكة TCPIP
6 _ server نكتب فيه إسم الجهاز أو Ip الخاص الجهاز الذي نتصل به
7 _ Port منفذ الاتصال بالنسبة للفيربيرد ، المنفذ التلقائي هو 3050 و يمكن تغييره في حالات تثبيت نسختين مختلفتين
8 _ CharacterSet في حالة بيانات المخزنة في قاعدة البيانات باللغة العربية يمكننا اختيار UTF8

النتيجة : لم تتم عملية الاتصال بالجهاز الاخر PC-LAR02

[صورة: 820423038.png]

الحل : السبب في الجهاز الذي يحتوي على قاعدة البيانات الان الجدار الناري يسد الاتصال عبر المنفذ [صورة: 497282226.png]

FireWall

يوجد حلان :
01 _ عدم تنشيط الجدار

[صورة: 521477015.png]

02 _ الحل الثاني اضافة تصريح لرقم المنفذ الاتصال

[صورة: 465012812.png]

في الأخير تسمية المنفذ بأي اسم للدلالة فقط

إعادة النتيجة

[صورة: 417826972.png]

ملاحظ مهمة : في حالة وجود مضاد الفيروسات ، فإن الجدار الناري الخاصل بالنضام يكون متوقف ، فيجب عليك الدخول الى اعدادات مضاد الفيروسات و سماح لمنفذ الاتصال و ip الخاصة بالجهاز المتصل و الاعدادات تختلف من برنامج مضاد للفيروسات إلى أخر أو لتحقق من الاتصال :أوقف تشغيل مضاد الفيروسات مؤقتا للتجريب و هذا يكون على مستوى الجهاز الذي يحتوي قاعدة البيانات المراد الاتصال بها.

04 - الربط مع جهاز أخر بواسطة ملف FBCLIENT.DLL فقط
1 _ ننسخ الملف FBCLIENT.DLL الموجود في المسار

كود :
C:\Program Files\Firebird\Firebird_3_0

2 _ نلغي تثبيت FireBird

3 _ نحدد مسار الملف لمكون FDPhysFBDriverLink1

[صورة: 406469978.png]

بالنسبة للربط بواسطة دلفي 7

كود :
https://delphi4arab.net/forum/showthread.php?tid=10741

بالنسبة لتضمين قاعدة البايانات

كود :
https://delphi4arab.net/forum/showthread.php?tid=10906&highlight=embedded

]]>
ربط قاعدة بيانات FireBird بواسطة مكون الاتصال FireDac

FireBird :

[b]نبذة تاريخية[/b]

كود :
http://docwiki.embarcadero.com/RADStudio/Sydney/fr/FireDAC

كود :
https://ib-aid.com/en/articles/all-firebird-and-interbase-on-disk-structure-ods-versions/

* شرح الربط :

01 - تثبيت FireBird النسخة 3 :

عند تثبيت النسخة الثالثة يكون مسار كالتالي في Windows 32 bit:

كود :
C:\Program Files\Firebird\Firebird_3_0

و يتم أيضا نسخ FBCLIENT.DLL إلى C:\Windows\System32 فمكون الدلفي تلقائيا يبحث عنه في هذا المسار

[صورة: 102759561.png]

كود :
C:\Program Files\Firebird\Firebird_3_0\examples\empbuild

إعدادات FDConnection1 للاتصال في جهاز محلي

[صورة: 218507526.png]

النتيجة

03 - الربط مع جهاز أخر مع ترك تثبيت FireBird

معلومات عن الجهاز الذي سأتصل به

[صورة: 467047550.png]

الاعدادات للاتصال بجهاز أخر

[صورة: 946393114.png]

الحل : السبب في الجهاز الذي يحتوي على قاعدة البيانات الان الجدار الناري يسد الاتصال عبر المنفذ [صورة: 497282226.png]

FireWall

يوجد حلان :
01 _ عدم تنشيط الجدار

[صورة: 521477015.png]

02 _ الحل الثاني اضافة تصريح لرقم المنفذ الاتصال

[صورة: 465012812.png]

في الأخير تسمية المنفذ بأي اسم للدلالة فقط

إعادة النتيجة

[صورة: 417826972.png]

كود :
C:\Program Files\Firebird\Firebird_3_0

2 _ نلغي تثبيت FireBird

3 _ نحدد مسار الملف لمكون FDPhysFBDriverLink1

[صورة: 406469978.png]

بالنسبة للربط بواسطة دلفي 7

كود :
https://delphi4arab.net/forum/showthread.php?tid=10741

بالنسبة لتضمين قاعدة البايانات

كود :
https://delphi4arab.net/forum/showthread.php?tid=10906&highlight=embedded

]]> <![CDATA[[Firebird] تغيير خاصية حقل يقبل NULL إلى NOT NULL]]> https://delphi4arab.net/forum/showthread.php?tid=10934 Mon, 29 Jun 2020 18:19:13 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=10934 في هذا اليوم احتجت تغيير خاصية حقل كان يقبل قيم NULL ، أرد تغييرها إلى NOT NULL.

إذا كان الجدول اسمه MyTable و الحقل اسمه MyCOLUMN

للتغيير من NULL إلى NOT NULL

PHP كود :
UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG =  1

WHERE RDB$FIELD_NAME = 'MyCOLUMN' AND RDB$RELATION_NAME = 'MyTable ; 

للتغيير من NoT NULL إلى NULL

PHP كود :
UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG =  0

WHERE RDB$FIELD_NAME = 'MyCOLUMN' AND RDB$RELATION_NAME = 'MyTable'; 

ربما هناك من سيستفيد منها مثلي . Cool

]]> في هذا اليوم احتجت تغيير خاصية حقل كان يقبل قيم NULL ، أرد تغييرها إلى NOT NULL.

إذا كان الجدول اسمه MyTable و الحقل اسمه MyCOLUMN

للتغيير من NULL إلى NOT NULL

PHP كود :
UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG =  1

WHERE RDB$FIELD_NAME = 'MyCOLUMN' AND RDB$RELATION_NAME = 'MyTable ; 

للتغيير من NoT NULL إلى NULL

PHP كود :
UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG =  0

WHERE RDB$FIELD_NAME = 'MyCOLUMN' AND RDB$RELATION_NAME = 'MyTable'; 

ربما هناك من سيستفيد منها مثلي . Cool

]]> <![CDATA[طريقة حساب المجاميع لفاتورة ما]]> https://delphi4arab.net/forum/showthread.php?tid=10737 Fri, 03 Apr 2020 19:14:01 +0100 bouh25]]> https://delphi4arab.net/forum/showthread.php?tid=10737 هذه الطريقة لا تصلح مع ADO لل FireDAC فقط
---------------------------------------------------------------
طريقة حساب المجاميع لفاتورة ما
الدلفي مسهلة الأمر لأبعد الحدود ولا يلزم لا كويري خاص ولا فانكشن ولا شيء
أولا كيفية حساب المجموع والذي يتم لكل سجل على حدا
المجموع = الكمية * سعر الوحدة
Total = Qty * UnitPrice
ويتم حسابه باستخدام
Calculated Fields
لنفرض ان اسم مكون الكويري لديك هو
qryItems
نضغط باليمين عليه ونختار عرض كافة الحقول
Fields Editor
Add all fields
ثم نضغط باليمين ونختار اضافة حقل جديد
New field
تظهر نافدة نكتب فيها اي اسم للحقل وليكن
Total
ثم نختار النوع وهو اختياري
Currency
ثم نختار خيار
Calculated
نضغط اوكي
ثم نذهب الى حدث
OnCalcFields
ونكتب فيه
qryItemsTotal.Value := qryItemsQty.Value * qryItemsUnitPrice.Value;

لاحظ اسماء الحقول ملاصقة لاسم الكويري
ثم نأتي لمكون
DBGrid
مثلا ونختار حقل جديد ونربطه بحقلنا الذي انشأنه
Total
**************************************
ثانيا كيفية حساب المجموع الكلي (الخط الأزرق)
والذي يتم حسابه على كل السجلات
المجموع الكلي = مجموع(الكمية * سعر الوحدة)
GrandTotal = Sum(Qty*UnitPrice)
ويتم حسابه باستخدام
Aggregate Fields
نضغط باليمين علي نفس مكون الكويري ونختار اضافة حقل جديد
New field
تظهر نافدة نكتب فيها اي اسم للحقل وليكن
GrandTotal
ثم نختار خيار
Aggregate
نضغط اوكي
ثم نذهب لخواص هذا الحقل
وبشكل اختياري يمكن اختيار خاصية
Currency
المهم نختار الخاصية
Expression
ونكتب فيه المعادلة المطلوبة مثلا
Sum(Qty*UnitPrice)
ثم نفعل خاصية
Active
ثم نفعل خاصية
Visible
ثم نختار الكويري ونذهب ونفعل خاصية
AggregateActive
فقط
نضع مكون مثلا
DBEdit
ونربطه مع الحقل الجديد
GrandTotal
*************************
إن شاء الله يكون الشرح مفهوم]]> هذه الطريقة لا تصلح مع ADO لل FireDAC فقط
---------------------------------------------------------------
طريقة حساب المجاميع لفاتورة ما
الدلفي مسهلة الأمر لأبعد الحدود ولا يلزم لا كويري خاص ولا فانكشن ولا شيء
أولا كيفية حساب المجموع والذي يتم لكل سجل على حدا
المجموع = الكمية * سعر الوحدة
Total = Qty * UnitPrice
ويتم حسابه باستخدام
Calculated Fields
لنفرض ان اسم مكون الكويري لديك هو
qryItems
نضغط باليمين عليه ونختار عرض كافة الحقول
Fields Editor
Add all fields
ثم نضغط باليمين ونختار اضافة حقل جديد
New field
تظهر نافدة نكتب فيها اي اسم للحقل وليكن
Total
ثم نختار النوع وهو اختياري
Currency
ثم نختار خيار
Calculated
نضغط اوكي
ثم نذهب الى حدث
OnCalcFields
ونكتب فيه
qryItemsTotal.Value := qryItemsQty.Value * qryItemsUnitPrice.Value;

لاحظ اسماء الحقول ملاصقة لاسم الكويري
ثم نأتي لمكون
DBGrid
مثلا ونختار حقل جديد ونربطه بحقلنا الذي انشأنه
Total
**************************************
ثانيا كيفية حساب المجموع الكلي (الخط الأزرق)
والذي يتم حسابه على كل السجلات
المجموع الكلي = مجموع(الكمية * سعر الوحدة)
GrandTotal = Sum(Qty*UnitPrice)
ويتم حسابه باستخدام
Aggregate Fields
نضغط باليمين علي نفس مكون الكويري ونختار اضافة حقل جديد
New field
تظهر نافدة نكتب فيها اي اسم للحقل وليكن
GrandTotal
ثم نختار خيار
Aggregate
نضغط اوكي
ثم نذهب لخواص هذا الحقل
وبشكل اختياري يمكن اختيار خاصية
Currency
المهم نختار الخاصية
Expression
ونكتب فيه المعادلة المطلوبة مثلا
Sum(Qty*UnitPrice)
ثم نفعل خاصية
Active
ثم نفعل خاصية
Visible
ثم نختار الكويري ونذهب ونفعل خاصية
AggregateActive
فقط
نضع مكون مثلا
DBEdit
ونربطه مع الحقل الجديد
GrandTotal
*************************
إن شاء الله يكون الشرح مفهوم]]> <![CDATA[استخراج جميع المعلومات من قاعدة بيانات Firebird/Interbase]]> https://delphi4arab.net/forum/showthread.php?tid=10505 Sat, 19 Oct 2019 08:34:27 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=10505
كنت أبحث في النت عن كيفية استخراج قائمة الجداول الموجودة في قاعدة بيانات الخاصة بي من نوع Interbase ،

فوجدت هذه التعليمات (استعلامات SQL ) و تنطبق أيضا على ال Firebird.

أضعها هنا للفائدة :

1- قائمة الجدوال Tables :

كود :
SELECT DISTINCT RDB$RELATION_NAME
  FROM RDB$RELATION_FIELDS
WHERE RDB$SYSTEM_FLAG=0;
  
-- or
  
SELECT RDB$RELATION_NAME
  FROM RDB$RELATIONS
WHERE RDB$SYSTEM_FLAG=0;

2- قائمة الفيوز ViEWS :

كود :
SELECT DISTINCT RDB$VIEW_NAME
  FROM RDB$VIEW_RELATIONS;

-- show only the VIEWs referencing a given table
-- إظهار الفيوز الخاص بجدول معين و ليكن TEST

SELECT DISTINCT RDB$VIEW_NAME
  FROM RDB$VIEW_RELATIONS
WHERE RDB$RELATION_NAME='TEST';

3- قائمة المستخدمين USERS :

كود :
SELECT DISTINCT RDB$USER

  FROM RDB$USER_PRIVILEGES;

4- قائمة INDICES:

كود :
--  خاصة بالجدول TEST2
SELECT RDB$INDEX_NAME
  FROM RDB$INDICES
WHERE RDB$RELATION_NAME='TEST2'

5- أسماء الحقول FIELDS لجدول معين :

كود :
SELECT RDB$FIELD_NAME
  FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='TEST2';

6- تفلصيل أكثر عن الحقول لجدول معين :

كود :
SELECT r.RDB$FIELD_NAME AS field_name,
        r.RDB$DESCRIPTION AS field_description,
        r.RDB$DEFAULT_VALUE AS field_default_value,
        r.RDB$NULL_FLAG AS field_not_null_constraint,
        f.RDB$FIELD_LENGTH AS field_length,
        f.RDB$FIELD_PRECISION AS field_precision,
        f.RDB$FIELD_SCALE AS field_scale,
        CASE f.RDB$FIELD_TYPE
          WHEN 261 THEN 'BLOB'
          WHEN 14 THEN 'CHAR'
          WHEN 40 THEN 'CSTRING'
          WHEN 11 THEN 'D_FLOAT'
          WHEN 27 THEN 'DOUBLE'
          WHEN 10 THEN 'FLOAT'
          WHEN 16 THEN 'INT64'
          WHEN 8 THEN 'INTEGER'
          WHEN 9 THEN 'QUAD'
          WHEN 7 THEN 'SMALLINT'
          WHEN 12 THEN 'DATE'
          WHEN 13 THEN 'TIME'
          WHEN 35 THEN 'TIMESTAMP'
          WHEN 37 THEN 'VARCHAR'
          ELSE 'UNKNOWN'
        END AS field_type,
        f.RDB$FIELD_SUB_TYPE AS field_subtype,
        coll.RDB$COLLATION_NAME AS field_collation,
        cset.RDB$CHARACTER_SET_NAME AS field_charset
  FROM RDB$RELATION_FIELDS r
  LEFT JOIN RDB$FIELDS f ON r.RDB$FIELD_SOURCE = f.RDB$FIELD_NAME
  LEFT JOIN RDB$COLLATIONS coll ON f.RDB$COLLATION_ID = coll.RDB$COLLATION_ID
  LEFT JOIN RDB$CHARACTER_SETS cset ON f.RDB$CHARACTER_SET_ID = cset.RDB$CHARACTER_SET_ID
  WHERE r.RDB$RELATION_NAME='TEST2'  -- table name

ORDER BY r.RDB$FIELD_POSITION;

7- قائمة المولدات GENERATOR :

كود :
SELECT RDB$GENERATOR_NAME
  FROM RDB$GENERATORS
WHERE RDB$SYSTEM_FLAG=0;

8- قائمة TRIGGERS:

كود :
SELECT * FROM RDB$TRIGGERS

 WHERE RDB$SYSTEM_FLAG=0;

9- قائمة TRIGGERS خاصة بجدول معين :

كود :
SELECT * FROM RDB$TRIGGERS
 WHERE RDB$SYSTEM_FLAG = 0
  AND RDB$RELATION_NAME='TEST2';

10-قائمة الدوال UDF المستخدمة :

كود :
SELECT * FROM RDB$FUNCTIONS

 WHERE RDB$SYSTEM_FLAG=0;

11- قائمة الإجراءات المخزنة Stored Procedures :

كود :
SELECT * FROM RDB$PROCEDURES;

12- استخراج معلومات أكثر عن TRIGGER معين وليكن مثلا MYTRIGGER :

كود :
SELECT RDB$TRIGGER_NAME AS trigger_name,
      RDB$RELATION_NAME AS table_name,
      RDB$TRIGGER_SOURCE AS trigger_body,
      CASE RDB$TRIGGER_TYPE
        WHEN 1 THEN 'BEFORE'
        WHEN 2 THEN 'AFTER'
        WHEN 3 THEN 'BEFORE'
        WHEN 4 THEN 'AFTER'
        WHEN 5 THEN 'BEFORE'
        WHEN 6 THEN 'AFTER'
      END AS trigger_type,
      CASE RDB$TRIGGER_TYPE
        WHEN 1 THEN 'INSERT'
        WHEN 2 THEN 'INSERT'
        WHEN 3 THEN 'UPDATE'
        WHEN 4 THEN 'UPDATE'
        WHEN 5 THEN 'DELETE'
        WHEN 6 THEN 'DELETE'
      END AS trigger_event,
      CASE RDB$TRIGGER_INACTIVE
        WHEN 1 THEN 0 ELSE 1
      END AS trigger_enabled,
      RDB$DESCRIPTION AS trigger_comment
  FROM RDB$TRIGGERS
WHERE UPPER(RDB$TRIGGER_NAME)='MYTRIGGER'

13- معلومات أكثر عن VIEW معين و ليكن مثلا MYVIEW :

كود :
SELECT d.RDB$DEPENDENT_NAME AS view_name,
        r.RDB$FIELD_NAME AS field_name,
        d.RDB$DEPENDED_ON_NAME AS depended_on_table,
        d.RDB$FIELD_NAME AS depended_on_field
    FROM RDB$DEPENDENCIES d
    LEFT JOIN RDB$RELATION_FIELDS r ON d.RDB$DEPENDENT_NAME = r.RDB$RELATION_NAME
        AND d.RDB$FIELD_NAME = r.RDB$BASE_FIELD
  WHERE UPPER(d.RDB$DEPENDENT_NAME)='MYVIEW'
    AND r.RDB$SYSTEM_FLAG = 0
    AND d.RDB$DEPENDENT_TYPE = 1
ORDER BY r.RDB$FIELD_POSITION

14- وفي إصدار Firebird 2.1 فما فوق ، يمكن استخراج المعلومات التالية (لم أجرب هذه التعليمة) :

كود :
SELECT RDB$GET_CONTEXT('SYSTEM', 'ENGINE_VERSION') AS engine_version,
      RDB$GET_CONTEXT('SYSTEM', 'NETWORK_PROTOCOL') AS protocol,
      RDB$GET_CONTEXT('SYSTEM', 'CLIENT_ADDRESS') AS address
  FROM RDB$DATABASE;

هذا ما تم جمعه ،
أرجو أن أكون قد وفقت لاختيار هذا الموضوع.
نفع الله به.
بالتوفيق للجميع.]]>
كنت أبحث في النت عن كيفية استخراج قائمة الجداول الموجودة في قاعدة بيانات الخاصة بي من نوع Interbase ،

فوجدت هذه التعليمات (استعلامات SQL ) و تنطبق أيضا على ال Firebird.

أضعها هنا للفائدة :

1- قائمة الجدوال Tables :

كود :
SELECT DISTINCT RDB$RELATION_NAME
  FROM RDB$RELATION_FIELDS
WHERE RDB$SYSTEM_FLAG=0;
  
-- or
  
SELECT RDB$RELATION_NAME
  FROM RDB$RELATIONS
WHERE RDB$SYSTEM_FLAG=0;

2- قائمة الفيوز ViEWS :

كود :
SELECT DISTINCT RDB$VIEW_NAME
  FROM RDB$VIEW_RELATIONS;

-- show only the VIEWs referencing a given table
-- إظهار الفيوز الخاص بجدول معين و ليكن TEST

SELECT DISTINCT RDB$VIEW_NAME
  FROM RDB$VIEW_RELATIONS
WHERE RDB$RELATION_NAME='TEST';

3- قائمة المستخدمين USERS :

كود :
SELECT DISTINCT RDB$USER

  FROM RDB$USER_PRIVILEGES;

4- قائمة INDICES:

كود :
--  خاصة بالجدول TEST2
SELECT RDB$INDEX_NAME
  FROM RDB$INDICES
WHERE RDB$RELATION_NAME='TEST2'

5- أسماء الحقول FIELDS لجدول معين :

كود :
SELECT RDB$FIELD_NAME
  FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='TEST2';

6- تفلصيل أكثر عن الحقول لجدول معين :

كود :
SELECT r.RDB$FIELD_NAME AS field_name,
        r.RDB$DESCRIPTION AS field_description,
        r.RDB$DEFAULT_VALUE AS field_default_value,
        r.RDB$NULL_FLAG AS field_not_null_constraint,
        f.RDB$FIELD_LENGTH AS field_length,
        f.RDB$FIELD_PRECISION AS field_precision,
        f.RDB$FIELD_SCALE AS field_scale,
        CASE f.RDB$FIELD_TYPE
          WHEN 261 THEN 'BLOB'
          WHEN 14 THEN 'CHAR'
          WHEN 40 THEN 'CSTRING'
          WHEN 11 THEN 'D_FLOAT'
          WHEN 27 THEN 'DOUBLE'
          WHEN 10 THEN 'FLOAT'
          WHEN 16 THEN 'INT64'
          WHEN 8 THEN 'INTEGER'
          WHEN 9 THEN 'QUAD'
          WHEN 7 THEN 'SMALLINT'
          WHEN 12 THEN 'DATE'
          WHEN 13 THEN 'TIME'
          WHEN 35 THEN 'TIMESTAMP'
          WHEN 37 THEN 'VARCHAR'
          ELSE 'UNKNOWN'
        END AS field_type,
        f.RDB$FIELD_SUB_TYPE AS field_subtype,
        coll.RDB$COLLATION_NAME AS field_collation,
        cset.RDB$CHARACTER_SET_NAME AS field_charset
  FROM RDB$RELATION_FIELDS r
  LEFT JOIN RDB$FIELDS f ON r.RDB$FIELD_SOURCE = f.RDB$FIELD_NAME
  LEFT JOIN RDB$COLLATIONS coll ON f.RDB$COLLATION_ID = coll.RDB$COLLATION_ID
  LEFT JOIN RDB$CHARACTER_SETS cset ON f.RDB$CHARACTER_SET_ID = cset.RDB$CHARACTER_SET_ID
  WHERE r.RDB$RELATION_NAME='TEST2'  -- table name

ORDER BY r.RDB$FIELD_POSITION;

7- قائمة المولدات GENERATOR :

كود :
SELECT RDB$GENERATOR_NAME
  FROM RDB$GENERATORS
WHERE RDB$SYSTEM_FLAG=0;

8- قائمة TRIGGERS:

كود :
SELECT * FROM RDB$TRIGGERS

 WHERE RDB$SYSTEM_FLAG=0;

9- قائمة TRIGGERS خاصة بجدول معين :

كود :
SELECT * FROM RDB$TRIGGERS
 WHERE RDB$SYSTEM_FLAG = 0
  AND RDB$RELATION_NAME='TEST2';

10-قائمة الدوال UDF المستخدمة :

كود :
SELECT * FROM RDB$FUNCTIONS

 WHERE RDB$SYSTEM_FLAG=0;

11- قائمة الإجراءات المخزنة Stored Procedures :

كود :
SELECT * FROM RDB$PROCEDURES;

12- استخراج معلومات أكثر عن TRIGGER معين وليكن مثلا MYTRIGGER :

كود :
SELECT RDB$TRIGGER_NAME AS trigger_name,
      RDB$RELATION_NAME AS table_name,
      RDB$TRIGGER_SOURCE AS trigger_body,
      CASE RDB$TRIGGER_TYPE
        WHEN 1 THEN 'BEFORE'
        WHEN 2 THEN 'AFTER'
        WHEN 3 THEN 'BEFORE'
        WHEN 4 THEN 'AFTER'
        WHEN 5 THEN 'BEFORE'
        WHEN 6 THEN 'AFTER'
      END AS trigger_type,
      CASE RDB$TRIGGER_TYPE
        WHEN 1 THEN 'INSERT'
        WHEN 2 THEN 'INSERT'
        WHEN 3 THEN 'UPDATE'
        WHEN 4 THEN 'UPDATE'
        WHEN 5 THEN 'DELETE'
        WHEN 6 THEN 'DELETE'
      END AS trigger_event,
      CASE RDB$TRIGGER_INACTIVE
        WHEN 1 THEN 0 ELSE 1
      END AS trigger_enabled,
      RDB$DESCRIPTION AS trigger_comment
  FROM RDB$TRIGGERS
WHERE UPPER(RDB$TRIGGER_NAME)='MYTRIGGER'

13- معلومات أكثر عن VIEW معين و ليكن مثلا MYVIEW :

كود :
SELECT d.RDB$DEPENDENT_NAME AS view_name,
        r.RDB$FIELD_NAME AS field_name,
        d.RDB$DEPENDED_ON_NAME AS depended_on_table,
        d.RDB$FIELD_NAME AS depended_on_field
    FROM RDB$DEPENDENCIES d
    LEFT JOIN RDB$RELATION_FIELDS r ON d.RDB$DEPENDENT_NAME = r.RDB$RELATION_NAME
        AND d.RDB$FIELD_NAME = r.RDB$BASE_FIELD
  WHERE UPPER(d.RDB$DEPENDENT_NAME)='MYVIEW'
    AND r.RDB$SYSTEM_FLAG = 0
    AND d.RDB$DEPENDENT_TYPE = 1
ORDER BY r.RDB$FIELD_POSITION

14- وفي إصدار Firebird 2.1 فما فوق ، يمكن استخراج المعلومات التالية (لم أجرب هذه التعليمة) :

كود :
SELECT RDB$GET_CONTEXT('SYSTEM', 'ENGINE_VERSION') AS engine_version,
      RDB$GET_CONTEXT('SYSTEM', 'NETWORK_PROTOCOL') AS protocol,
      RDB$GET_CONTEXT('SYSTEM', 'CLIENT_ADDRESS') AS address
  FROM RDB$DATABASE;

هذا ما تم جمعه ،
أرجو أن أكون قد وفقت لاختيار هذا الموضوع.
نفع الله به.
بالتوفيق للجميع.]]> <![CDATA[شرح التنصيب الصامت للفيربيرد Firebird Silent Install]]> https://delphi4arab.net/forum/showthread.php?tid=10171 Wed, 24 Apr 2019 13:36:05 +0100 S.FATEH]]> https://delphi4arab.net/forum/showthread.php?tid=10171 شرح فيديو مصور مع الصوت للتنصيب الصامت للـ Firebird باستخدام Inno Setup و ISTool
اي سآل تفضل بطرحه لم اشرح الاكواد لكي لا يطول الفيديو لكي تفهم العملية احيلك :
شرح تنصيب أكثر نسختين FireBird الى جانب بعض

التحميل

كود :
https://drive.google.com/open?id=1eZ4xow-kMp0GNaooC34Qjqg4VUQ5n61K

لا تنسونا من صالح دعائكم]]> شرح فيديو مصور مع الصوت للتنصيب الصامت للـ Firebird باستخدام Inno Setup و ISTool
اي سآل تفضل بطرحه لم اشرح الاكواد لكي لا يطول الفيديو لكي تفهم العملية احيلك :
شرح تنصيب أكثر نسختين FireBird الى جانب بعض

التحميل

كود :
https://drive.google.com/open?id=1eZ4xow-kMp0GNaooC34Qjqg4VUQ5n61K

لا تنسونا من صالح دعائكم]]> <![CDATA[شرح تنصيب أكثر نسختين FireBird الى جانب بعض]]> https://delphi4arab.net/forum/showthread.php?tid=9976 Thu, 27 Dec 2018 19:13:10 +0100 S.FATEH]]> https://delphi4arab.net/forum/showthread.php?tid=9976 هذا شرح فيديو تنصيب نسختين من FireBird الى جانب بعض
نسخة 2.5
نسخة 3.0

PHP كود :
https://drive.google.com/open?id=12ZrYylylhnZDPMY3rcZZOIPfpDkHc9ys 

]]> هذا شرح فيديو تنصيب نسختين من FireBird الى جانب بعض
نسخة 2.5
نسخة 3.0

PHP كود :
https://drive.google.com/open?id=12ZrYylylhnZDPMY3rcZZOIPfpDkHc9ys 

]]> <![CDATA[الفلترة داخل ال DataSet]]> https://delphi4arab.net/forum/showthread.php?tid=8046 Fri, 29 Jul 2016 10:27:43 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=8046 إن باستعمال أوامر ال Sql وباستعمال ااشرط LIKE ، نسنتطيع تحديد السجلات التي تخضع لهذا الشرط.
لكن هذا يعني أننا في كل مرة نقوم بالاتصال بالخادم لإجراء هذا الأمر ، وربما كان الخادم (Server) ثقيل نوعا ما ، أو أن الطلبات عليه متزايدة .
وفي الحقيقة هذا المشكل أرقني خاصة إذا كان الإجراء ال Sql معقد نوعا ما و يلزم الوقت لتطبيقه.
بحثت عن الفكرة لزمن طويل و طرحت المشكلة حتى في منتدنا هذا لكن لم أجد إجابة شافية.
كان الحل الأول هو استعمال CliuentDataSet أو أي مكون آخر InMemoryTable.
لكن بعد البحث الطويل Big Grin

وجدت أحدهم في أحد المنتديات الأجنبية طرح فكرة رائعة للبحث داخل ال DataSet ، يمكن تطبيقها على أي نوع من الDataSet سواء table , Query ....
للأمانة العلمية أنقل لكم الحل كما وجدته :

كود :
// this method returns true if matching record found, else it returns false
function TForm1.Search(const AStr: string; ADataset: TDataset): Boolean;
var
 i: Integer;
begin
 Result := False;
 if ADataset.IsEmpty then Exit;

 ADataset.DisableControls;
 try
   ADataset.First;
   while not ADataset.Eof do
   begin
     for i := 0 to ADataset.FieldCount-1 do
       if not ADataset.Fields[i].IsBlob then
       begin
         Result := Pos(AStr, ADataset.Fields[i].AsString) > 0;
         if Result then
           Exit;
       end;
     ADataset.Next;
   end;
 finally
   ADataset.EnableControls;
 end;
end;

**************************************

كود :
// this method returns true if matching record found, else it returns false
function TForm1.Search(const AStr, AField: string;
 ADataset: TDataset): Boolean;
var
 vField: TField;
begin
 Result := False;
 if ADataset.IsEmpty then Exit;
 vField := ADataset.FieldByName(AField);
 if (vField=nil) or vField.IsBlob then Exit;

 ADataset.DisableControls;
 try
   ADataset.First;
   while not ADataset.Eof do
   begin
     Result := Pos(AStr, vField.AsString) > 0;
     if Result then
       Exit;
     ADataset.Next;
   end;
 finally
   ADataset.EnableControls;
 end;
end;

***********************************************

كود :
 TForm1 = class(TForm)
   ...
   ...
   function Search(const AStr: string; ADataset: TDataset): Boolean; overload;
   function Search(const AStr, AField: string; ADataset: TDataset): Boolean; overload;
   ...
   ...
 end;

و هناك مثال كامل في المرفقات (طبعا هو لصاحب الفكرة.)
استفدت من هذا الحل فنقلته لكم هنا للاستفادة. Cool

بالتوفيق.

FullDbSearch.zip (الحجم : 16.65 ك ب / التحميلات : 187) ]]> إن باستعمال أوامر ال Sql وباستعمال ااشرط LIKE ، نسنتطيع تحديد السجلات التي تخضع لهذا الشرط.
لكن هذا يعني أننا في كل مرة نقوم بالاتصال بالخادم لإجراء هذا الأمر ، وربما كان الخادم (Server) ثقيل نوعا ما ، أو أن الطلبات عليه متزايدة .
وفي الحقيقة هذا المشكل أرقني خاصة إذا كان الإجراء ال Sql معقد نوعا ما و يلزم الوقت لتطبيقه.
بحثت عن الفكرة لزمن طويل و طرحت المشكلة حتى في منتدنا هذا لكن لم أجد إجابة شافية.
كان الحل الأول هو استعمال CliuentDataSet أو أي مكون آخر InMemoryTable.
لكن بعد البحث الطويل Big Grin

كود :
// this method returns true if matching record found, else it returns false
function TForm1.Search(const AStr: string; ADataset: TDataset): Boolean;
var
 i: Integer;
begin
 Result := False;
 if ADataset.IsEmpty then Exit;

 ADataset.DisableControls;
 try
   ADataset.First;
   while not ADataset.Eof do
   begin
     for i := 0 to ADataset.FieldCount-1 do
       if not ADataset.Fields[i].IsBlob then
       begin
         Result := Pos(AStr, ADataset.Fields[i].AsString) > 0;
         if Result then
           Exit;
       end;
     ADataset.Next;
   end;
 finally
   ADataset.EnableControls;
 end;
end;

**************************************

كود :
// this method returns true if matching record found, else it returns false
function TForm1.Search(const AStr, AField: string;
 ADataset: TDataset): Boolean;
var
 vField: TField;
begin
 Result := False;
 if ADataset.IsEmpty then Exit;
 vField := ADataset.FieldByName(AField);
 if (vField=nil) or vField.IsBlob then Exit;

 ADataset.DisableControls;
 try
   ADataset.First;
   while not ADataset.Eof do
   begin
     Result := Pos(AStr, vField.AsString) > 0;
     if Result then
       Exit;
     ADataset.Next;
   end;
 finally
   ADataset.EnableControls;
 end;
end;

***********************************************

كود :
 TForm1 = class(TForm)
   ...
   ...
   function Search(const AStr: string; ADataset: TDataset): Boolean; overload;
   function Search(const AStr, AField: string; ADataset: TDataset): Boolean; overload;
   ...
   ...
 end;

و هناك مثال كامل في المرفقات (طبعا هو لصاحب الفكرة.)
استفدت من هذا الحل فنقلته لكم هنا للاستفادة. Cool

بالتوفيق.

FullDbSearch.zip (الحجم : 16.65 ك ب / التحميلات : 187) ]]> <![CDATA[قاعدة بيانات أوراكل Express Edition]]> https://delphi4arab.net/forum/showthread.php?tid=8002 Sat, 09 Jul 2016 22:24:30 +0100 لؤي]]> https://delphi4arab.net/forum/showthread.php?tid=8002
تضع شركة أوراكل الشهيرة في قاعدة البيانات طبعة سلسة عبارة عن Express Edition ميزتها:

- أنها لها قوة الطبعات التجارية

- مجانية ممكن لك بيعها مع منتج مطور يحتاج لقاعدة بيانات

- تساعد على من يريد إكتساب خبرة في أوراكل فهي توفر مشابهة تماما للنسخة التجارية

- يصل حجم القاعدة الى 11 Gb والذاكرة حتي إلى 1 M

- تساعد الطلاب والمبرمجين المستقلين للعمل على قاعدة حقيقية بدون قيود

- في حالة الإنتقال من .Express Edition إلى نسخة أعلى تجارية تكون العملية سلسة

PHP كود :
http://www.oracle.com/technetwork/database/database-technologies/express-edition/overview/index.html 

]]>
تضع شركة أوراكل الشهيرة في قاعدة البيانات طبعة سلسة عبارة عن Express Edition ميزتها:

- أنها لها قوة الطبعات التجارية

- مجانية ممكن لك بيعها مع منتج مطور يحتاج لقاعدة بيانات

- تساعد على من يريد إكتساب خبرة في أوراكل فهي توفر مشابهة تماما للنسخة التجارية

- يصل حجم القاعدة الى 11 Gb والذاكرة حتي إلى 1 M

- تساعد الطلاب والمبرمجين المستقلين للعمل على قاعدة حقيقية بدون قيود

- في حالة الإنتقال من .Express Edition إلى نسخة أعلى تجارية تكون العملية سلسة

PHP كود :
http://www.oracle.com/technetwork/database/database-technologies/express-edition/overview/index.html 

]]> <![CDATA[كيف اظهار قيمة حقل فى dbgrid على شكل hint]]> https://delphi4arab.net/forum/showthread.php?tid=7766 Wed, 27 Apr 2016 16:25:31 +0100 justnick]]> https://delphi4arab.net/forum/showthread.php?tid=7766 --
سؤال كيف اظهار قيمة حقل فى dbgrid على شكل hint ؟

الاجابة :
فى الحقيقة اجابة هذا السؤال سهلة للغاية فالكمبوننت dbgrid غنى جدا بالخصائص وممكن تطويعه لعمل اشياء كثيرة ولكن يلزمه قليل من التعديل
تخيل ان عندنا جدول به مجموعة من الصفوف والاعمدة نريد اظهار قيمة الحقل عند المرور عليه بالmouse
مبدئيا نحتاج للتعامل مع الحدث onMouseMove الخاص بال dbgrid
ونحدد مكان الحقل
ثم ننتقل الى الحقل المراد اظهاره ونقراه من ال Activelink
ثم نقوم باظهاره على شكل hint
الطريقة وحدة وحدة
نعرف متغير من النوع TGridCoord
ونجعله ياخذ قيمته من الدالة mousecoord

كود :
var
   Cell : TGridCoord;

كود :
Cell := DBGrid1.MouseCoord(X, Y);

نحن نريد ان نستثنى كل من العمود المخصص للindicator والصف المخصص للtitle
لذلك سنبحث فى الoptions الخاصة بالdbgrid عن كل من الخاصيتين

كود :
if dgTitles in DBGrid1.Options then
   Dec(Cell.Y);
   if dgIndicator in DBGrid1.Options then
   Dec(Cell.X);

الان نريد ان نعرف اذا كانت الdbgrid متصلة بمصدر بيانات ام لا لذلك نلجا الى اختبار الdatalink.active ولكن انتظر
الخاصية datalink هى خاصية محمية فى dbgrid فما العمل
العمل هو الوراثة ----
"الخواص المحمية فى المورث يمكن استخدامها بشكل عام فى الوارث"
بالفعل الخاصية Datalink محمية protected
لذلك سنلجا الى الوراثة وهنا انا قمت بانشاء كمبوننت جديد لمجرد اضافة هذه الخاصية ولكن بعدها تراجعت عن استخدامه وقمت بعملية الوراثة فى الunit نفسها التى اعمل عليها بتعريف نوع جديد كالاتى

كود :
type TmyCustomDBbgrid = class (TDBGrid);

الان يمككنا اختبار اذا كان الdatalink فى الوضع Active او لا

كود :
TmyCustomDBbgrid(DBGrid1).DataLink.Active

كل الاشياء القادمة سهلة للغاية
اول شئ نحفظ المكان الاصلى للdatalink.ActiveRecord وهو من النوع integer
ثم ننقل الActiveRecord الى الصف الذى يشير اليه الmouse بالاستعانة بCell.Y
ثم نقرا الfield المشار اليه بالmouse بالاستعانة بالcell.x
نسند قيمة الحقل المقرؤه الى الhint الخاصة بالdbgrid
وفى النهاية نرجع الى المكان الاصلى الخاص بالActiveRecord

كود :
try
   ActiveRecordBok := TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord;
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := Cell.Y;
   DBGrid1.Hint := DBGrid1.Fields[Cell.x].AsString;
   Application.ActivateHint(DBGrid1.ClientToScreen(point(x, y)));
  finally
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := ActiveRecordBok;
  end;

ليصبح الكود النهائى على الشكل التالى

كود :
procedure TFrMain.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
   Cell : TGridCoord;
   ActiveRecordBok : Integer;
  begin
   Cell := DBGrid1.MouseCoord(X, Y);
   if dgTitles in DBGrid1.Options then
   Dec(Cell.Y);
   if dgIndicator in DBGrid1.Options then
   Dec(Cell.X);
if (TmyCustomDBbgrid(DBGrid1).DataLink.Active) and (Cell.X >= 0) and (cell.Y >= 0) then
begin
  try
   ActiveRecordBok := TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord;
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := Cell.Y;
   DBGrid1.Hint := DBGrid1.Fields[Cell.x].AsString;
   Application.ActivateHint(DBGrid1.ClientToScreen(point(x, y)));
  finally
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := ActiveRecordBok;
  end;
end;

end;

هذا كل شئ والسلام عليكم ورحمة الله
اللهم ارحم ابى وانر قبره وتجاوز عن سيئاته وزد فى احسانه]]> --
سؤال كيف اظهار قيمة حقل فى dbgrid على شكل hint ؟

الاجابة :
فى الحقيقة اجابة هذا السؤال سهلة للغاية فالكمبوننت dbgrid غنى جدا بالخصائص وممكن تطويعه لعمل اشياء كثيرة ولكن يلزمه قليل من التعديل
تخيل ان عندنا جدول به مجموعة من الصفوف والاعمدة نريد اظهار قيمة الحقل عند المرور عليه بالmouse
مبدئيا نحتاج للتعامل مع الحدث onMouseMove الخاص بال dbgrid
ونحدد مكان الحقل
ثم ننتقل الى الحقل المراد اظهاره ونقراه من ال Activelink
ثم نقوم باظهاره على شكل hint
الطريقة وحدة وحدة
نعرف متغير من النوع TGridCoord
ونجعله ياخذ قيمته من الدالة mousecoord

كود :
var
   Cell : TGridCoord;

كود :
Cell := DBGrid1.MouseCoord(X, Y);

كود :
if dgTitles in DBGrid1.Options then
   Dec(Cell.Y);
   if dgIndicator in DBGrid1.Options then
   Dec(Cell.X);

كود :
type TmyCustomDBbgrid = class (TDBGrid);

الان يمككنا اختبار اذا كان الdatalink فى الوضع Active او لا

كود :
TmyCustomDBbgrid(DBGrid1).DataLink.Active

كود :
try
   ActiveRecordBok := TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord;
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := Cell.Y;
   DBGrid1.Hint := DBGrid1.Fields[Cell.x].AsString;
   Application.ActivateHint(DBGrid1.ClientToScreen(point(x, y)));
  finally
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := ActiveRecordBok;
  end;

ليصبح الكود النهائى على الشكل التالى

كود :
procedure TFrMain.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
   Cell : TGridCoord;
   ActiveRecordBok : Integer;
  begin
   Cell := DBGrid1.MouseCoord(X, Y);
   if dgTitles in DBGrid1.Options then
   Dec(Cell.Y);
   if dgIndicator in DBGrid1.Options then
   Dec(Cell.X);
if (TmyCustomDBbgrid(DBGrid1).DataLink.Active) and (Cell.X >= 0) and (cell.Y >= 0) then
begin
  try
   ActiveRecordBok := TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord;
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := Cell.Y;
   DBGrid1.Hint := DBGrid1.Fields[Cell.x].AsString;
   Application.ActivateHint(DBGrid1.ClientToScreen(point(x, y)));
  finally
   TmyCustomDBbgrid(DBGrid1).DataLink.ActiveRecord := ActiveRecordBok;
  end;
end;

end;

هذا كل شئ والسلام عليكم ورحمة الله
اللهم ارحم ابى وانر قبره وتجاوز عن سيئاته وزد فى احسانه]]> <![CDATA[تصدير قواعد البيانات لملف الإكسل]]> https://delphi4arab.net/forum/showthread.php?tid=7701 Fri, 08 Apr 2016 09:41:07 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=7701 في الحقيقة هذا الموضوع طرحه أحد الإخوة القدامى أظنه مروان او الأخ MusK .
لكن مع الترقية الجديدة للمنتدى لم يعد بالإمكان مشاهدة الموضوع.
وحتى يبقى الأجر متواصل لصاحب الموضوع (وأسأل الله أن يجعل لي نصيبا من الأجر).
هذا الموضوع هو كيفية تصدير قواعد البيانات إلى ملف الإكسل. و هو برنامج رائع لا يحتاج إلى مكونات إضافية.

.rar

DB_To_Excel.rar (الحجم : 9.74 ك ب / التحميلات : 681) ]]> في الحقيقة هذا الموضوع طرحه أحد الإخوة القدامى أظنه مروان او الأخ MusK .
لكن مع الترقية الجديدة للمنتدى لم يعد بالإمكان مشاهدة الموضوع.
وحتى يبقى الأجر متواصل لصاحب الموضوع (وأسأل الله أن يجعل لي نصيبا من الأجر).
هذا الموضوع هو كيفية تصدير قواعد البيانات إلى ملف الإكسل. و هو برنامج رائع لا يحتاج إلى مكونات إضافية.

.rar

DB_To_Excel.rar (الحجم : 9.74 ك ب / التحميلات : 681) ]]> <![CDATA[صورة تحوي جدول لتعليمة Join في ال SQL]]> https://delphi4arab.net/forum/showthread.php?tid=7615 Tue, 15 Mar 2016 07:54:35 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=7615 هذه صورة تحوي ملخص سبع حالات لتعليمة SELECT JOIN وجدتها في أحد المواقع الغربية ، نقلتها هنا للاستفادة منها.

والموقع جد رائع لمن يريد تعلم ال SQL بالأمثلة.

كود :
http://sql.sh/

SQLJoin.png (الحجم : 354.83 ك ب / التحميلات : 94) ]]> هذه صورة تحوي ملخص سبع حالات لتعليمة SELECT JOIN وجدتها في أحد المواقع الغربية ، نقلتها هنا للاستفادة منها.

والموقع جد رائع لمن يريد تعلم ال SQL بالأمثلة.

كود :
http://sql.sh/

SQLJoin.png (الحجم : 354.83 ك ب / التحميلات : 94) ]]>