في Delphi.net ، Vcl.net له ندمان:
1. لا يمكن استخدام ADO (DBGO) ، ولكن وفقًا لـ Li Wei ، سيكون لدى Delphi8.1 لهذا الشهر هذا المكون.
2. لا يمكنك استخدام ADO.NET و BDP ، سيكون هذا هو موضوع مقالتي.
في منطقة الاتصالات في دلفي في بورلاند ، قال داني ذات مرة: "في Delphi.net ، يمكن لـ VCL.NET استدعاء مكونات Winform ، ويمكن لـ Winform أيضًا استدعاء مكونات VCL.NET."
من أجل التحقق من الجملة الأولى ، حاولت ذلك. بمعنى آخر ، على الرغم من أنه لا يمكن رؤية مكون .NET في لوحة مكون VCL.NET ، يمكن استخدام جميع فئات مكونات .NET ، VCL.NET! ومع ذلك ، فإن مجموعة بيانات ADO.NET غير متوافقة مع مكون مجموعة بيانات VCL.NET ، وبالتالي لا يمكن استدعاء مكون إدراك البيانات مباشرة. ومع ذلك ، بعد النظر إلى Li Wei داخل VCL ، اكتشفت أن هناك مكون AdonetConnector.
أولاً ، يحتوي DLL لمكون VCL.NET شكل. ثم أضف dbgrid ، db ... ، dataSource ... ، طالما أن datasource.dataset: = adonetConnector1. الآخرون هم نفس دلفي الأصلي ، فقط افعل ذلك. رمزتي المحددة كما يلي
الوحدة 1 ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
مربعات الحوار ،
system.data.sqlclient ،
System.Data ، System.componentModel ، Borland.vcl.stdctrls ،
borland.vcl.extctrls ، borland.vcl.dbctrls ، borland.vcl.grids ،
Borland.vcl.dbgrids ، Borland.vcl.db ، Borland.vcl.adonetdb ؛
يكتب
tform1 = فئة (tform)
Button1: Tbutton ؛
AdonetConnector1: TadonetConnector ؛
DataSource1: tdatasource ؛
dbGrid1: tdbgrid ؛
dbnavigator1: tdbnavigator ؛
الإجراءات button1click (المرسل: tobject) ؛
خاص
{إعلانات خاصة}
الاتصال: SQLConnection ؛
Prodataset: DataSet ؛
محول: sqldataadapter ؛
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
تطبيق
{$ r *.nfm}
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
الاتصال: = sqlconnection.create (
"مصدر البيانات = 192.168.76.170 ؛ '+
"الكتالوج الأولي = sfieCerp ؛ '+
"كلمة المرور = qwert ؛ '+
"استمر في معلومات الأمان = صواب ؛"+
"معرف المستخدم = SA ؛ '+
"حجم الحزمة = 4096 ؛"+
"عمر الاتصال = 0 ؛ '+
"إعادة ضبط الاتصال = false ؛ '+
"تجميع = خطأ ؛"+
"حجم حمام السباحة الأقصى = 100 ؛ حجم حمام السباحة دقيقة = 0 ') ؛
الاتصال.
prodataset: = dataset.create ؛
محول: = sqldataAdapter.create ('Select * from tproduct' ، connection) ؛
adapter.fill (prodataset ، 'Product') ؛
adonetConnector1.Datatable: = prodataset.tables [0] ؛
نهاية؛
نهاية.
في Delphi.net ، Vcl.net له ندمان:
1. لا يمكن استخدام ADO (DBGO) ، ولكن وفقًا لـ Li Wei ، سيكون لدى Delphi8.1 لهذا الشهر هذا المكون.
2. لا يمكنك استخدام ADO.NET و BDP ، سيكون هذا هو موضوع مقالتي.
في منطقة الاتصالات في دلفي في بورلاند ، قال داني ذات مرة: "في Delphi.net ، يمكن لـ VCL.NET استدعاء مكونات Winform ، ويمكن لـ Winform أيضًا استدعاء مكونات VCL.NET."
من أجل التحقق من الجملة الأولى ، حاولت ذلك. بمعنى آخر ، على الرغم من أنه لا يمكن رؤية مكون .NET في لوحة مكون VCL.NET ، يمكن استخدام جميع فئات مكونات .NET ، VCL.NET! ومع ذلك ، فإن مجموعة بيانات ADO.NET غير متوافقة مع مكون مجموعة بيانات VCL.NET ، وبالتالي لا يمكن استدعاء مكون إدراك البيانات مباشرة. ومع ذلك ، بعد النظر إلى Li Wei داخل VCL ، اكتشفت أن هناك مكون AdonetConnector.
أولاً ، يحتوي DLL لمكون VCL.NET شكل. ثم أضف dbgrid ، db ... ، dataSource ... ، طالما أن datasource.dataset: = adonetConnector1. الآخرون هم نفس دلفي الأصلي ، فقط افعل ذلك. رمزتي المحددة كما يلي
الوحدة 1 ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
مربعات الحوار ،
system.data.sqlclient ،
System.Data ، System.componentModel ، Borland.vcl.stdctrls ،
borland.vcl.extctrls ، borland.vcl.dbctrls ، borland.vcl.grids ،
Borland.vcl.dbgrids ، Borland.vcl.db ، Borland.vcl.adonetdb ؛
يكتب
tform1 = فئة (tform)
Button1: Tbutton ؛
AdonetConnector1: TadonetConnector ؛
DataSource1: tdatasource ؛
dbGrid1: tdbgrid ؛
dbnavigator1: tdbnavigator ؛
الإجراءات button1click (المرسل: tobject) ؛
خاص
{إعلانات خاصة}
الاتصال: SQLConnection ؛
Prodataset: DataSet ؛
محول: sqldataadapter ؛
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
تطبيق
{$ r *.nfm}
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
الاتصال: = sqlconnection.create (
"مصدر البيانات = 192.168.76.170 ؛ '+
"الكتالوج الأولي = sfieCerp ؛ '+
"كلمة المرور = qwert ؛ '+
"استمر في معلومات الأمان = صواب ؛"+
"معرف المستخدم = SA ؛ '+
"حجم الحزمة = 4096 ؛"+
"عمر الاتصال = 0 ؛ '+
"إعادة ضبط الاتصال = false ؛ '+
"تجميع = خطأ ؛"+
"حجم حمام السباحة الأقصى = 100 ؛ حجم حمام السباحة دقيقة = 0 ') ؛
الاتصال.
prodataset: = dataset.create ؛
محول: = sqldataAdapter.create ('Select * from tproduct' ، connection) ؛
adapter.fill (prodataset ، 'Product') ؛
adonetConnector1.Datatable: = prodataset.tables [0] ؛
نهاية؛
نهاية.