delphi4arab منتديات دلفي للعرب
مكتبة AsDelphi لانشاء برامج سريعة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : مكتبة AsDelphi لانشاء برامج سريعة (/showthread.php?tid=10373)



مكتبة AsDelphi لانشاء برامج سريعة - Delphi4Us - 10-08-2019

لماذا اسمها AsDelphi ...؟

في دلفي تعاملنا مع قواعد البيانات بسيط وسهل جدا ، لهذا اسميتها مثل دلفي

الاداة عبارة عن مكونين 
مكون الاتصال
ومهمته الاتصال بقاعدة البيانات ولا يطلب الا اسم قاعدة البيانات فقط والتي تكون بمجلد المشروع
[صورة: attachment.php?aid=4069]
[size=small]
.jpg   1.jpg (الحجم : 17.78 ك ب / التحميلات : 182) [/size]


مكون الجدول

ومهمته الاتصال بجدول معين وربط الادوات بالحقول ولا يطلب إلا اسم الجدول فقط
[صورة: attachment.php?aid=4070]
[size=small][size=small]
.jpg   2.jpg (الحجم : 18.79 ك ب / التحميلات : 170) [/size]
[/size]


هنا اجريت مثال على طريقة الاستخدام لمثال كامل من اضافة وتعديل وحذف .
[صورة: attachment.php?aid=4071]
[size=small][size=small][size=small]
.jpg   5.jpg (الحجم : 75.75 ك ب / التحميلات : 172) [/size]
[/size]
[/size]



لاضافة سجل جديد

[size=small]كود :[/size]
كود :
Table1.Append()

لحذف سجل


[size=small]كود :[/size]
كود :
Table1.Remove()

للحصول على موقع المؤشر


[size=small]كود :[/size]
كود :
Label1.Text = "Courent Postion : " & int.ToString


لفتح الاتصال


[size=small]كود :[/size]
كود :
  Connection1.Open = True        Table1.open()


لربط اداة بمصدر البيانات


[size=small]كود :[/size]
كود :
DataGridView1.DataSource = Table1.DataSource


لربط مكونات بمصدر البيانات


[size=small]كود :[/size]

كود :
TextBox1.DataBindings.Add("text", Table1.DataSource, "mname")        TextBox2.DataBindings.Add("text", Table1.DataSource, "note")        TextBox3.DataBindings.Add("text", Table1.DataSource, "phon1")        TextBox4.DataBindings.Add("text", Table1.DataSource, "phon2")        TextBox5.DataBindings.Add("text", Table1.DataSource, "FIRST_DATE")        TextBox6.DataBindings.Add("text", Table1.DataSource, "LAST_DATE")        TextBox7.DataBindings.Add("text", Table1.DataSource, "EMAIL")


ايضا اضفت لها مكون Query تماما مثل دلفي لا يرتبط بالجدول مباشرة وانما لانشاء استعلامات معقدة

وجربت المكتبة على باسكال دوت نت 
[صورة: attachment.php?aid=4073]

.jpg   4.jpg (الحجم : 154.21 ك ب / التحميلات : 173)


لنحميل المكتبة

.rar   AsDelphi.rar (الحجم : 9.69 ك ب / التحميلات : 100)