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

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

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

الاداة عبارة عن مكونين
مكون الاتصال
ومهمته الاتصال بقاعدة البيانات ولا يطلب الا اسم قاعدة البيانات فقط والتي تكون بمجلد المشروع
[صورة: attachment.php?aid=4069]

[size=small][attachment=4069][/size]

مكون الجدول

ومهمته الاتصال بجدول معين وربط الادوات بالحقول ولا يطلب إلا اسم الجدول فقط
[صورة: attachment.php?aid=4070]

[size=small][size=small][attachment=4070][/size][/size]

هنا اجريت مثال على طريقة الاستخدام لمثال كامل من اضافة وتعديل وحذف .
[صورة: attachment.php?aid=4071]

[size=small][size=small][size=small][attachment=4071][/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]

[attachment=4073]

لنحميل المكتبة
[attachment=4072]

Delphi4Us