download

اعداد خالد الجديع kal_judaia@hotmail.com 

مقدمة عامة عن بيئة الدوت نت 

أولا : 

البيئة المتصلة 

: تعريفها • 

• 

البيئة المتصلة 

هي 

بمصدر البيانات طوال فترة التعامل مع البيانات.‏ 

: عليها أمثلة 

البيئة التي يكون فيها المستخدم متصلا باستمرار 

أحد الأمثلة هي أن يكون هناك نظام شؤون موظفين يكون فيه المستفيد 

على اتصال مباشر بقواعد البيانات 

. 

: فوائدها • 

-١ 

تحكم أقوى بالعمل الجماعي : 

لأن المستفيد في البيئة المتصلة حين يقوم بتحديث 

بيانات فإنه يتم إغلاق عملية التحديث لهذه البيانات حتى ينتهي هذا المستفيد من تحديث البيانات و 

تتم عملية إغلاق التحديث للمستفيدين الآخرين لكيلا يحدث تعارض في تحديث البيانات.‏ 

عملية 

إغلاق السجلات هي عملية يستطيع مدير قواعد البيانات أو المطور التحكم بها فقد 

يكون إغلاق السجلات على مستوى الصف أو على مستوى الجدول أو قد يكون عند تحرير 

الحقول أو عند تحديثها فقط 

. 

-٢ 

البيانات الأخيرة 

حداثة أكثر في البيانات : 

وذلك 

ما لم يكن هناك تحديث لها في فترة الاسترجاع،‏ 

الاسترجاع أثناء فترة التحديث وهو ما سيتم شرحه لاحقا.‏ 

• عيوبها : 

١- وجوب وجود شبكة اتصال دائم : 

أنك حين تسترجع البيانات فإن هذه البيانات هي 

مع العلم أنه يمكن منع 

نظرا لأن قناة الاتصال بقواعد البيانات مفتوحة 

فلا بد من وجود شبكة اتصال دائمة بقواعد البيانات وهو ما لا يتوفر في كل الأحيان.‏ 

البيانات،‏ 

٢- ضعف في التوسع و الامتداد 

: 

كل مستخدم في البيئة المتصلة له اتصال مع قواعد 

لا يمكن لأي مستخدمين أن يشتركا في نفس الاتصال مما يعني أنه مع زيادة عدد 

المستفيدين يجب علينا زيادة الاتصالات طردا وهو ما يجعل العملية شبه مستحيلة لحالة مثل 

موقع على الانترنت يرتاده مئات الألوف كل يوم.‏ 

2


المنفصلة البيئة ثانيا : 

• تعريفها : 

• 

• 

يمكن تعريف هذه البيئة بأنها 

مصدر البيانات و تعديلها 

إلى مصدر البيانات.‏ 

البيانات.‏ 

أمثلة عليها : 

في 

بعيدا عن قواعد البيانات 

مجموعة من البيانات يتم نسخها 

ومن ثم 

من 

إرجاع هذه التعديلات 

هذه البيئة لا توجد قناة اتصال مفتوحة مع قواعد 

المواقع التجارية في الانترنت مثل موقع يبيع منتجات ما فإنك 

عند تصفح أحد المنتجات لا تقوم بإغلاق عملية الشراء عن أي متصفح 

فقد يتم شراء المنتج الذي تقوم بتصفحه من قبل متصفح آخر.‏ 

فوائدها 

: يمكن ذكر فائدتين للبيئة المتصلة وهما 

١- إمكانية اشتراك أكثر من مستخدم بنفس الاتصال : 

: 

لذا آخر،‏ 

نظرا لأن المستخدم يقوم بالاتصال ثم 

نسخ البيانات ثم قطع الاتصال فإن فترة وجود الاتصال مع المستخدم فترة ضئيلة جدا،‏ 

يمكن أن يستفيد مستخدم آخر من نفس الاتصال بعد أن ينتهي منه المستخدم الأول.‏ 

٢- أداء عالي و قابل للتوسع بشكل كبير مقارنة بالبيئة المتصلة : 

يحجز الاتصال فإن عدد المستخدمين حين يزيد فإننا قد 

أحواض الاتصال 

– 

كبيرة من الاتصالات.‏ 

لذا 

نظرا لأن المستخدم لا 

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

سيأتي لها الكلام في فصل الاتصال بقواعد البيانات-‏ وهو ما يوفر أعدادا 

عيوبها : 

-٢ 

١- عدم حداثة البيانات : لو رجعنا إلى مثال المتصفح الذي يريد شراء 

منتج من الانترنت لوجدنا أن البيانات التي توجد عنده غير البيانات الحقيقة،‏ 

بمعنى أن رصيد الكتب مثلا الموجود أمامه غير الرصيد الحقيقي لأنه قد قام عدة 

متصفحين بشراء نفس الكتاب أثناء تصفحه له.‏ 

التضارب : 

إمكانية حدوث تضارب عند تحديث البيانات وهو ما يتطلب حل هذا 

وهو ما يتضح بالمثال فلو افترضنا أن هناك برنامجا لشؤون 

الموظفين و أنا أقوم بتحديث عمر الموظف و صادف أن كان هناك موظف 

• 

3


غيري يقوم بتحديث بيان العمر لنفس الموظف فإن 

تضاربا في التحديث يتطلب حلا وهو ما ستعرف كيف تقوم به.‏ 

هذا الشيء سوف يحدث 

نظرا لأن البيئة غير متصلة فلا يوجد أي قفل على البيانات في قواعد البيانات،‏ 

فالتضارب وارد بشكل كبير.‏ 

لذا 

نماذج الوصول إلى قواعد البيانات : 

.A 

يوجد أربعة نماذج أساسية للوصول إلى قواعد البيانات،‏ هذه النماذج لا تعتمد على بيئة أو لغة 

معينة إنما هي نماذج عامة.‏ 

نموذج الطبقة الواحدة : 

١- مثال عليه 

: 

يحوي كل أجزاء النظام.‏ 

: 

يمكن تمثيل هذا النموذج بمستفيد يعمل على جهاز واحد فيه برنامج 

‎٢‎‏-مزاياه نظرا لأن كل شيء في نفس المكان لا توجد أي صعوبات في الوصول 

إلى كل جزء من أجزاء النظام.‏ 

‎٣‎‏-العيوب : 

عند تعديل أي جزء من النظام يجب إعادة توزيع التعديلات على كل 

مستفيد.‏ 

ولعلنا عند ذكر طبقات النظام نعطي تقسيما أوليا لثلاث طبقات شهيرة : 

الطبقة 

طبقة واجهة المستفيد 

طبقة قواعد العمل 

طبقة الوصول للبيانات 

الشرح 

تحوي هذه الطبقة واجهة المستفيد مثل أزرار الأمر و مربعات النص 

وقد تحتوي هذه الطبقات على بعض التدقيقات التي لا تحتاج الوصول 

إلى قواعد البيانات مثل تدقيق أقصى طول لحقل ما أو تدقيق أن تاريخ 

الميلاد يمثل تاريخا صحيحا.‏ 

تحتوي هذه الطبقة الوظائف التي تطبق قواعد العمل مثل الوظيفة التي 

تدقق استحقاق موظف ما لإجازة من عدمه.‏ 

هذه الطبقة هي التي تقوم بالاتصال بقواعد البيانات و عمل التحديثات 

عليها.‏ 

4


.B 

نموذج الطبقتين 

• 

فكرة النموذج : 

.I 

.II 

.III 

فكرة هذا النموذج تتمثل في أحد الخيارات الثلاثة : 

إما اجتماع طبقة واجهة المستفيد و طبقة قواعد العمل مع بعضيهما ومن ثم 

تكون الطبقة الثانية هي طبقة البيانات.‏ 

أو اجتماع طبقة البيانات مع طبقة قواعد العمل.‏ 

أو توزيع طبقة قواعد العمل بين طبقة واجهة المستفيد و طبقة البيانات.‏ 

مثاله : 

المزايا : 

من أمثلة هذا النموذج ما يسمى بالخادم/المستفيد.‏ 

يمكن القول بأن أبرز مميزات هذا النموذج هي 

الفصل 

الجزئي لوظائف 

• 

• 

النظام.‏ 

• العيوب : 

١- صعوبة التوسع المستقبلي للخلط بين طبقتي قواعد البيانات و واجهة المستفيد وهو 

ما يسمى بالمستخدم المتضخم 

.“Fat Client” 

٢- صعوبة الصيانة المستقبلية وذلك عند تعديل أي جزء من أجزاء النظام فإن ذلك 

يتطلب إعادة توزيع النظام على كل المستخدمين وهو ما يكون مكلفا عندما يكثر 

عدد المستخدمين.‏ 

٣- اختلاط 

أجزاء النظام بعضها ببعض مما يعني صعوبة 

لتبعثر قواعد العمل في أماكن مختلفة.‏ 

C‏.نموذج الطبقات الثلاث : 

• 


إجراء تعديلات على النظام 

يمكن تمثيل هذا النموذج بأنه النموذج الذي ينقسم إلى ثلاث 

: طبقات وهي 

طبقة واجهة المستفيد 

طبقة البيانات انظر الشكل (١-١) 

، 

. 

طبقة قواعد العمل،‏ 

5


المزايا 

العيوب 

: 

سهولة الصيانة ولو كانت واجهة المستفيد Web لكانت تكلفة صيانة 

أجهزة المستفيد 

= صفر.‏ 

: 

قد تبرز تكاليف جديدة مثل تكاليف خادم البيانات.‏ 

• 

• 

-١ ١ : شكل 

نموذج الطبقات الثلاث 

طبقة طبقة واجهة ولجهة المستفيد المستفيد 

طبقة البيانات 

طبقة قواعد العمل 

.D 

• 

• 

نموذج الطبقات المتعددة 


: المزايا 

• 

يمكن تمثيل هذا النموذج بأكثر من ثلاث طبقات حسب احتياج كل 

منشأة يمكن أن يكون هناك طبقة رابعة مثل طبقة للتعامل مع الأمن و إعطاء 

تصاريح الدخول للنظام وغير ذلك حسب الحاجة.‏ 

تجعل من السهولة الامتداد و اتصال مجموعة من التطبيقات على أنظمة تشغيل مختلفة.‏ 

: العيوب 

-١ 

عيوب أمنية لاتصال عدة أجهزة ببعضها البعض.‏ 

٢- صعوبة التطوير و التنفيذ وذلك لازدياد عدد الطبقات وهو ما ينشئ تعقيدا في التطوير و 

التنفيذ.‏ 

6


بيئة الدوت نت 

WinForms) (CLR, FCL, ASP, انظر الشكل .(٢-١) 

.vs.net,office،win.net 

يمكن تقسيمها إلى ثلاثة عناصر : 

١- إطار العمل و يشمل 

٢- منتجات مثل 

٣- خدمات منتجة من قبل أي جهة.‏ 

١- إطار العمل 

يعتبر إطار العمل قلب بيئة الدوت نت لذلك لابد من تهيئة إطار العمل في أي جهاز سوف 

يعمل عليه تطبيق صمم في بيئة الدوت نت.‏ يمكن إنزال إطار العمل مجانا من موقع 

مايكروسوفت.‏ يمكن تقسيم إطار العمل إلى قسمين أساسيين هما : 

Common Language Runtime 

Common Language Specification 

التشغيل المشترك للغات 

المواصفات المشتركة للغات 

.I 

.II 

شكل ٢-١ : 

إطار العمل في بيئة الدوت نت 

ASP.NET 

Windows Forms 

Web Services Web Forms Controls Drawing 

The The .NET Class Library 

ADO.NET IO XML Threading Security 

Common Language Runtime 

Type System Metadata Execution 

Windows API 

API 

COM+ Services 

7


.I 

التشغيل المشترك للغات 

(CLR) 

يمثل أحد الأجزاء الأساسية لنطاق العمل في الدوت نت ويمكن وصفه بأنه مكينة تنفيذ الكود 

بالإضافة إلى كونه يقدم خدمات تجعل التطوير أسهل.‏ هذه الخدمات متوفرة لأي لغة تطور 

بناء على المواصفات المشتركة للغات CLS وهو ما يعني أن CLR يستطيع استضافة لغات 

البرمجة المختلفة.‏ وقد تم إضافة أكثر من عشرين لغة إلى 

CLR 

VB,C#,C++,Delphi,COBOL 

ويجري تطوير الكثير من اللغات لتضاف إلى 

وهو ما يجعل بيئة الدوت نت بيئة غير معتمدة على لغة برمجة ما.‏ 

يقدم عدد كبير من الفوائد للمطورين منها 

منها 

CLR 

: 

: 

(١ 

(٢ 

(٣ 

(٤ 

(٥ 

الأمن.‏ 

متابعة الكود 

– Debugging– 

تستطيع القفز أثناء المتابعة من كود إلى آخر حتى 

لو كانا مكتوبان بلغات مختلفة.‏ 

دعم أقوى للإصدارات المتعددة وهو ما أنهى مشكلة ما يسمى ب 

إدارة الذاكرة و تجميع النفايات 

إدارة 

.DLL Hell 

. 

.Thread 

.II 

المواصفات المشتركة للغات 

CLS 

يعرف CLS معيارا قياسيا لأنواع البيانات لجميع لغات CLR وهو مايعني أن كل لغات 

CLS سوف يكون لها نفس الحجم للأنواع الصحيحة و الطويلة 

هذا المعيار يعني تعاونا أكثر بين اللغات 

-Integers,Long– 

، 

سوف يكون بإمكانك إرسال مرجع إلى فئة من 

كائن إلى آخر حتى لو كانا مكتوبين بلغات مختلفة.‏ كل لغة لا تطبق هذه المعايير لن تستفيد 

من الخدمات التي تقدم من قبل .CLR يمكن تلخيص هذه المواصفات بالنقاط التالية 

: 

-١ 

-٢ 

-٣ 

أنواع بيانات قياسية.‏ 

مصفوفات قياسية 

معالجة هيكلية للأخطاء.‏ 

– كل فهارس المصفوفات لابد أن يبدأ من صفر-.‏ 

٤- طرق الوصول إلى الأنظمة التطبيقية الخاصة بإطار العمل.‏ 

8


مع العلم أن اللغات المستضافة في بيئة الدوت نت لها الحق في زيادة مميزات أخرى لكن هذه 

المميزات لن تستطيع الوصول إلى كائنات الدوت نت.‏ 

الكود 

المدار و الكود غير 

المدار 

الكود المطور بلغة موافقة ل CLS يسمى كود مدار 

أما الكود الذي يعتمد على تقنية 

–Managed Code 

COM أو 

WIN32 API يسمى كود غير مدار 

لذا يمكن القول بأن فيجوال بيسك ٦ كود غير مدار بنسبة مائة بالمائة و على النقيض منه 

الكود في بيئة الدوت نت هو كود مدار بنسبة مائة بالمائة.‏ 

المدار لن يستفيد من الخدمات المقدمة من قبل .CLR 

لذا يمكن القول بأن الكود غير 

اللغة الوسطية لميكروسوفت 

MSIL 

– 

عندما تقوم بإنتاج الكود 

-Compile– 

. -Native code 

a. لغة وسطية 

في بيئة الدوت نت فإنه لا يتم تأليفه إلى كود أولي 

يقوم مؤلف الدوت نت بإنشاء ملف يحوي التالي 

b. بيانات واصفة 

: 

: 

:Metadata 

.IL 

وتحوي معلومات مثل 

١- معلومات عن جميع الأنواع التي استخدمتها.‏ 

٢- معلومات عن كل أنواع الدوال.‏ 

٣- الدوال التي توجد لها مرجعية في كودك.‏ 

وغيرها من البيانات التي يحتاجها CLR في البيئة التشغيلية انظر الشكل 

(٣-١) 

9


شكل -١ ٣ : 

أسلوب إنتاج الكود في بيئة الدوت نت 

الانتاج 

Source 

Code 

Language 

Compiler 

Code (IL) 

Assembly 

Metadata 

Native 

Code 

JIT 

Compiler 

استدعاء النظام لأول مرة عند 

التنفيذ 

نظرا لأن الملف المؤلف في بيئة الدوت نت يحتوي على الشيئين السابقين فإنه يعتبر ملفا 

موضحا لمحتواه لذا فلا يوجد أي حاجة بعد اليوم لمكتبات الأنواع 

إلى ملفات IDL كما لا توجد حاجة لتعريفات في الريجستري.‏ 

Type Library ولا 

• 

المؤلف في الوقت المحدد JIT 

بالطبع فإن ملف IL لا يدوم كما هو لأن IL يعتبر ملف يعتمد على نظام التشغيل فإنه عند 

تشغيل هذا الملف يتم تأليفه إلى كود أولي.‏ تتم عملية التأليف بواسطة أداة من أدوات نطاق 

العمل تسمى المؤلف في الوقت المحدد انظر الشكل السابق.‏ 

أسماء الامتدادات 

NameSpaces 

يقسم إطار العمل في بيئة الدوت نت الوظائف إلى امتدادات منطقية.‏ الهدف من هذا التقسيم هو 

ترتيب وتنظيم الوظائف 

، 

هذه الامتدادات موزعه على أشكال هرميه تسمى 

NameSpaces أو 

أسماء الامتدادات.‏ على سبيل المثال،‏ كلّ‏ الوظائف التي تعمل مع نظام الملفات ّ ت ُجمع في المجموعة 

.(System.IO) 

10


طرق إضافة مرجع إلى فضاءات الأسماء 

يوجد هناك طريقتان أساسيتان لإضافة مرجع إلى فضاءات الأسماء ما وهما : 

١- إضافة عبارة Imports من محرر الكود مباشرة:‏ عندما تقوم بإضافة مرجع إلى فضاءات 

أسماء ما عن طريق عبارة Imports فإنك تستطيع استخدام كل الوظائف في ذلك الفضاء الاسمي 

مباشرة ودون الحاجة إلى كتابة الاسم الكامل،‏ و لعلنا نأخذ المثال التالي 

من الكود السابق نلاحظ ما يلي 

– 

أرجوا أن تهتم بالفكرة و ليس بالمحتوى-‏ 

: 

.I 

.II 

.III 

في بداية الكود أضفنا مرجع إلى فضاء اسم 

System.Convert 

ثم قمنا بمكان آخر باستخدام الدالة ToInt32 و التي تنتمي إلى فضاء الاسم 

، System.Convert 

لذلك قمنا بكتابة اسم الدالة مباشرة.‏ 

لو لم نضف مرجع إلى فضاء الاسم System.Convert لوجب عليك عند 

استخدام الدالة ToInt32 أن تكتب الاسم كاملا وهو : 

System.convert.ToInt32 

جملة.‏ 

عند 

إضافة مرجع إلى 

فضاء الاسم ما لابد من وضع جملة الاستيراد في بداية الكود قبل أي 

11


‎٢‎‏-عن طريق مستكشف الحل 

مستكشف الحل 

: 

: 

.I 

انقر بزر الفأرة الأيمن على مجلد 

الحلول كما يظهر من الشكل (١-٤) 

اتبع الخطوات التالية لإضافة مرجع عن طريق 

Refrences 

الموجود في مستكشف 

-١ ٤ : شكل 

إضافة مرجع 

(٥-١) 

انقر على 

Add Refrence 

قم باختيار المرجع الذي تريد.‏ 

ليظهر لك الشكل 

.II 

.III 

-١ ٦ : شكل 

اختيار المرجع 

الجدول التالي يوضح بعض الامتدادات في بيئة الدوت نت و فوائدها 

الشرح 

الامتداد 

System.Collections 

System.Data 

System.Drawing 

System.IO 

System.XML 

يقدم أنواع المجموعات مثل 

queues, linked lists, hash 

.sorted lists 

يقدم وظائف معالجة قواعد البيانات عند المستفيد.‏ 

للوصول إلى الوظائف الخاصة بالرسومات.‏ 

معالجة الملفات.‏ 

للعمل مع ملفات إكس إم إل 

12

خالد الجديع kal_judaia@hotmail.com 

مقدمة لبناء تطبيقات الوندوز 

قبل أن تبدأ بالتطوير في بيئة الدوت نت عليك بتفحص بيئة التطوير.‏ نعني ببيئة 

التطوير كل ما تتعامل معه أثناء تطويرك لبرنامج ما في بيئة الدوت نت.‏ عندما تشغل 

بيئة الدوت نت فإن كل ما تراه أمامك هو بيئة التطوير.‏ سوف نحاول جاهدين في هذا 

الفصل أن نتعرض لأهم ما تحتاجه أثناء تطوير نظام في بيئة الدوت نت.‏ قد لا نشرح كل 

شيء في بيئة التطوير لكن لن نترك شيئا مهما تحتاجه باستمرار إلا و سنتعرض له إما 

بالتصريح أو بالتلميح.‏ 

طريقة الدخول إلى 

Visual Studio.Net 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

انقر فوق زر Start الموجود على شريطا المهام في نظام التشغيل 

سوف تظهر لك قائمة اختر 

.Windows 

.Programs 

سوف تظهر لك قائمة فرعية فيها العديد من البرامج.‏ 

انقر على القائمة 

انقر على 

Microsoft Visual Studio.Net 

Microsoft Visual Studio كما يظهر في الشكل (٢-١). 

٢-١: شكل 

تشغيل فيجوال ستوديو دوت نت 

15


بعد الدخول على 

تلاحظ في الشكل 

الصفحة الأولى 

برنامج فيجوال ستوديو دوت نت فإن أول ما سيواجهك هو الصفحة الأولى كما 

. ٢-٢ 

-٢ ٢ : شكل 

الصفحة الأولى بعد دخول بيئة التطوير 

تتكون هذه الصفحة من جزأين هما : 

الجزء الأوسط 

: 

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

: 

.I 

المشاريع الأخيرة التي سبق و عملت عليها و تندرج تحت شريط 

كما Projects 

أنه يمكنك إنشاء مشروع جديد من هنا أو فتح مشروع سابق كما يظهر من الشكل 

.(٣-٢) 

-١ 

٢-٣ شكل 

16


البحث في المشاريع:‏ وهي طريقة سريعة للبحث عن مساعدة في جميع المشاريع 

المتوفرة لديك كعينة من قبل بيئة الدوت نت كما يظهر من شكل 

.(٤-٢) 

.II 

-٢ ٤ : شكل 

البحث في المشاريع 

الجزء الأيسر : 

تستطيع من 

خلاله 

زيارة موقع 

و ميكروسوفت 

الإطلاع على مجموعات 

-٢ 

الأخبار و آخر التحديثات و العديد من الأشياء الأخرى.‏ 

الملف الشخصي 

My Profile 

هو أحد خواص الصفحة الأولى و يمكنك من اختيار بعض الإعدادات التي سوف تستمر 

معك في كل المشاريع التي تنشئها في بيئة الدوت نت انظر الشكل 

تستطيع عمل أيا مما يلي 

.(٥-٢) 

: 

-١ 

-٢ 

-٣ 

-٤ 

تغيير أسلوب عرض النماذج من الأسلوب الحديث في الدوت نت إلى أسلوب عرض 

النماذج في فيجوال بيسك ٦ إذا أردت أن لا تتغير طريقة عرض النماذج.‏ 

حصر المساعدة في بيئة الدوت نت على خيار محدد مثل أن تختار حصر المساعدة في 

المواضيع المتعلقة بفيجوال بيسك أو بالمواضيع المتعلقة بلغة سي شارب انظر الشكل 

(٥-٢) 

فتح آخر مشروع عملت فيه آليا كلما فتحت بيئة الدوت نت.‏ 

عرض مربع فتح مشروع أو إنشاء مشروع جديد كلما فتحت بيئة الدوت نت.‏ 

17


٥-٢ : شكل 

الملف الشخصي 

ملاحظة : 

تعتبر 

اعدادات الملف الشخصي من 

الاعدادات الكمالية التي قد لا تحتاج أن ترجع لها 

طوال فترة التطوير في بيئة الدوت نت 

أنواع المشاريع في بيئة الدوت نت 

قبل إنشاء أول مشروع في بيئة الدوت نت يحسن بنا أن نرشدك إلى أنواع المشاريع التي يمكنك 

بنائها في بيئة الدوت نت.‏ 

نوع المشروع 

الشرح 

يستخدم لإنشاء تطبيقات.‏ 

طريقة لإنشاء مكونات دوت نت لاستخدامها في تطبيقات أخرى.‏ 

WindowsApplication 

ClassLibrary 

لسطح 

المكتب مع العلم أنة 

لا يوجد لهذا النوع من التطبيقات واجهة 

مرئية يتعامل معها المستخدم.‏ 

يحوي هذا النوع من التطبيقات 

وظائف يمكن استخدامها في باقي أنواع التطبيقات.‏ 

تطبيقات تهدف لإنشاء أدوات يمكن استخدامها في تطبيقات وندوز.‏ 

فهل فكرت يوما بطريقة بناء أداة مربع النص أو أداة القائمة.‏ هذا 

Windows Control 

Library 

النوع من التطبيقات يمكنك من بناء أدوات ومن ثم استخدامها وقد 

18


تتمكن من بيعها إذا كانت أداة ذات قيمة.‏ 

Web تطبيقات 

و هي التطبيقات التي تعمل من خلال المتصفح.‏ 

وأصبح الآن من السهولة بمكان 

إنشاء 

تطبيقات ترتبط بقواعد 

البيانات وكتابة الكود بشكل مساو لسهولة كتابته في تطبيقات وندوز.‏ 

خدمات 

Web من نوع 

.XML 

إلى أداء خدمة يكون ناتجها ملف 

العملات عبر 

الانترنت.‏ 

ليعطيك النتيجة على شكل اكس ام ال.‏ 

تطبيق مماثل لتطبيقات الدوس 

و يهدف هذا النوع من التطبيقات 

.XML 

مثل خدمة تحويل 

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

.DOS 

تطبيقات خدمات وندوز و تعمل قبل أن يسجل المستخدم الدخول إلى 

وندوز.‏ 

وتستطيع إنشاء خدمات وندوز لأداء هدف ما بسهولة وهو 

ما كان متعذرا إلا على محترفي البرمجة.‏ 

تطبيقات تهدف لإنشاء أدوات يمكن استخدامها في تطبيقات الوب 

كما هو الحال في أدوات وندوز 

. 

ASP.NET Web 

Application 

ASP.NET Web 

Service 

Consol Application 

Windows Service 

Web Control Library 

إنشاء مشروع جديد في بيئة الدوت نت 

أين تنشأ المشاريع في بيئة الدوت نت وكيف يتم ذلك ؟ 

من الفرو قات الأساسية بين بيئتي فيجوال بيسك ٦ و بيئة الدوت نت أنه بمجرد ضغطك على زر 

موافق عند إنشاء مشروع جديد في بيئة الدوت نت فإن فيجوال ستوديو دوت نت يقوم بإنشاء كل 

الملفات و تخزينها في مجلد بالاسم الذي اخترته وفي المكان الذي اخترته.‏ 

عند إنشاء مشروع جديد من نوع وندوز يقوم فيجوال ستوديو بإنشاء ما يسمى بالحل،‏ وهو عبارة 

عن تطبيق يمكن أن يحوي أكثر من مشروع.‏ داخل هذا الحل يقوم فيجوال ستوديو بإنشاء مشروع 

واحد كما يقوم بإنشاء نموذج داخل هذا المشروع.‏ 

لإنشاء مشروع قم بالخطوات التالية 

: 

-١ 

قم بفتح برنامج فيجوال ستوديو دوت نت.‏ 

19


(٧-٢) 

من القائمة الرئيسية اختر 

File New Project كما هو واضح من الشكل 

-٢ 

-٢ ٧ : شكل 

كيف تنشئ مشروع جديد 

-٣ 

سوف يظهر لك الشكل (٢-٨) و الذي ينقسم إلى ثلاثة أجزاء 

: 

• 

• 

• 

الجزء الأيسر و تستطيع من خلاله تحديد اللغة التي سوف تكتب التطبيق فيها.‏ 

الجزء الأيمن و الذي يحوي نوع التطبيق الذي تريد إنشائه 

الجزء السفلي و الذي تستطيع من خلاله تحديد اسم المشروع 

سوف يخزن فيه 

ومن ثم تحديد ما إذا أردت 

المفتوح إن وجد أو بدء مشروع جديد.‏ 

الذي و المسار 

إضافة هذا المشروع إلى المشروع 

قم باختيار لغة فيجوال بيسك ثم قم باختيار Windows Application ثم اكتب اسم 

المشروع MyFirstApplication ثم انقر على زر موافق 

-٢ ٨ : شكل 

خيارات إنشاء مشروع جديد 

20

وفل 


ما الذي حدث ؟ 

بمجرد ضغط على زر موافق قام فيجوال ستوديو بإنشاء حل مكون من مشروع واحد 

اسمه MyFirstAppl هذا المشروع يحتوي على نموذج واحد اسمه 

Form1.vb 

لاحظ أن امتداد النموذج هو vb وهذا الامتداد يتم إنشاؤه بناء على اللغة التي 

اخترت أن تكتب بها التطبيق.‏ 

امتداد النماذج سوف يكون CS وهو اختصار 

قمت باختيار لغة #C لتكون لغة كتابة التطبيق فإن 

.C Sharp 

التعرف على مكونات فيجوال ستوديو دوت نت 

قبل أن نكمل كتابة أول برنامج يحسن بنا أن نتعرف على بعض المكونات في بيئة 

الدوت نت و التي سوف تساعدنا في إنشاء المشاريع في المستقبل إن شاء االله.‏ 

نافذة مستكشف الحلول 

توجد في الجهة اليمنى في بيئة التطوير و تعتبر الأداة الأساسية للعمل مع الحلول و مع المشاريع 

شكل – انظر 

- (٩-٢) 

وهي أداة مماثلة لنافذة المشروع Project Window التي كانت في 

الإصدار السادس غير أنها تحمل إضافات أخرى مثل عرضها للمراجع التي يستخدمها المشروع.‏ 

ويعرض متصفح المشاريع كل عناصر برنامجك من مشاريع ومكونات،‏ وما يندرج تحت كل منها 

من أعضاء وعناصر،‏ بحيث يمكنك بنقر أي منها مرتين أن تعرضه في مصمم النماذج لو كان 

من العناصر التي تعرض واجهة أو فتحه في محرر الكود لو كان ملف ًا نصيا فحسب.‏ 

كما يمكنك أن ت ُظهر القائمة الموضعية بضغط زر الفأرة الأيمن فوق أي عنصر،‏ حيث يمكنك 

اختيار الأمر ‏"خصائص"‏ ،Properties لتعرض نافذة الخصائص،‏ لتعدل خصائص هذا العنصر 

. 

وإذا كان المشروع يحتوي على أكثر من نموذج،‏ وتريد أن تجعل أحدها هو أول ما يظهر لك عند 

تشغيل البرنامج،‏ فاضغط الأمر ‏"اجعله كائن بدء التشغيل"‏ 

الموضعية.‏ 

Set As StartUp Object من القائمة 

من العناصر التي يمكن أن تجدها في هذه النافذة كل النماذج التي توجد في المشروع فلو 

نظرت إلى الشكل(‏‎٩-٢‎‏)‏ لوجدت أنه لا يوجد لدينا إلا نموذج واحد وهو 

Form1.vb الذي 

21


قامت بيئة الدوت نت بإنشائه لنا.‏ 

خصائصه.‏ 

من خلال ايقونات صغيرة تظهر في 

عند اختيار أي عنصر في المستكشف تستطيع 

قائمة المستكشف.‏ 

إظهار 

: ٩ شكل‎٢‎‏-‏ 


إذا أردت الانتقال إلى أي عنصر في المستكشف يمكنك النقر المزدوج على هذا العنصر.‏ 

على سبيل المثال لو كان لديك أكثر من نموذج في نفس المشروع فإنه يمكنك الانتقال من 

نموذج إلى آخر بالنقر المزدوج على النموذج الذي ترغب فيه وسوف يظهر أمامك.‏ عند 

اختفاء نافذة مستكشف الحلول وتستطيع إظهارها من خلال Ctrl+Alt+L أو القائمة 

View Solution Explorer 

إضافة عنصر آخر إلى المشروع فإذا كنت تريد إضافة نموذج آخر إلى المشروع 

الذي أنشأته.‏ قم بما يلي 

: 

‎١‎‏-انقر بزر الفأرة الأيمن على اسم المشروع – في مستكشف الحلول-‏ لتظهر لك قائمة 

اختر Add سوف تظهر لك قائمة فرعية اختر Add New Item انظر شكل 

(١٠-٢) 

22

: ١٠ -٢ tmail.com 

خالد الجديع شكل إضافة عنصر kal_judaia@ho للمشروع 

٢- سوف يظهر لك الشكل (٢-١١) و الذي يحوي عدد من أنواع العناصر التي يمكن أن 

تضيفها إلى المشروع.‏ فعلى سبيل المثال تستطيع إضافة نظام تطبيقي إلى المشروع و 

HTML إذا احتجت إلى ذلك.‏ ما نريد أن نضيفه إلى مشروعنا هو نموذج من نوع 

ويندوز وهو ما يوجد باسم Window Form قم بالتظليل عليه.‏ سوف تلاحظ في الأسفل 

مربع نص لاختيار اسم النموذج الذي تريد إضافته.‏ تستطيع تغييره أو تركه كما هو.‏ 

اضغط على زر 

Open 

١١-٢ : شكل 

أنواع العناصر التي يمكن إضافتها للمشروع 

23


ارجع إلى نافذة مستكشف الحلول لتلاحظ أنه قد أضيف نموذج آخر كما يظهر من 

الشكل 

.(١٢-٢) 

شكل 

فإذا أردت التنقل بين النموذجين يمكنك اختيار احد الطريقتين التاليتين 

: 

: ١٢ -٢ 

التنقل بين النماذج 

.I 

.II 

النقر المزدوج على النموذج الذي تريد الانتقال إليه من خلال نافذة مستكشف 

الحلول.‏ 

النقر مرة واحدة على النموذج ثم النقر على عناصر قائمة مستكشف الحلول وهي 

View Designer Form كما يظهر من الشكل(‏‎١٣-٢‎‏)‏ 

٢- شكل 

بين النماذج 

: ١٣ طريقة أخرى للتنقل 

إذا أردت أن تحذف عنصرًا باستخدام 

يقوم بحذف ملف العنصر من الجهاز نهائيا 

،Exclude From Project 

، حيث 

فإن هذا الأمر لا 

تستطيع إعادته للمشروع من جديد.‏ إذا 

أردت حذف الملف نهائيًا من المشروع والقرص الصلب استخدم الأمر ‏"حذف"‏ 

.Remove 

24


صندوق الأدوات 

يوجد في الجهة اليسرى في بيئة التطوير و هو المكان الذي يحوي الأدوات المستخدمة في 

بناء التطبيقات كما يظهر لك من الشكل 

. (١٤-٢) 

٢- شكل 

‎١٤‎‏:صندوق الأدوات 

يوجد ثلاثة طرق لإضافة أداة إلى نموذج ما وهى كما يلي 

: 

-١ 

-٢ 

-٣ 

ملاحظة 

السحب و الإفلات 

محيط النموذج.‏ 

: 

عن طريق النقر المزدوج 

: 

وهو ما سيضيفها إلى النموذج.‏ 

النسخ 

و ذلك بسحب الأداة المراد و ضعها في النموذج ومن ثم إفلاتها في 

وذلك بالنقر المزدوج على الأداة – انتبه للملاحظة التالية 

– 

: 

: 

محرر الكود.‏ 

وذلك بنسخ أداة موجودة مسبقا على النموذج ومن ثم لصقها على النموذج.‏ 

لإضافة أداة إلى نموذج لابد أن يكون النموذج مفتوحا بشكله التصميمي و ليس بشكل 

من الإضافات الجديدة إلى بيئة الدوت نت فيما يختص بصندوق الأدوات هي أنك 

تستطيع إضافة مدخل جديد إلى صندوق الأدوات أو حذف أو تعديل و هي إضافة قوية للتحكم 

بتنظيم الأدوات انظر الشكل 

. (١٦-٢) 

25


ولإضافة شريط جديد -Tab– قم بالتالي 

: 

-١ 

النقر بزر الفأرة الأيمن على صندوق الأدوات كما يظهر من الشكل 

القائمة التي تراها ثم اختر 

(٢-١٥) لتظهر لك 

Add Tab 

١٥-٢ : شكل 

إضافة شريط جديد إلى صندوق الأدوات 

(١٦-٢) 

سوف يفتح لك مكانا لكتابة اسم 

الشريط كما يظهر من الشكل 

) لاحظ أنني 

-٢ 

( 

كتبت This Is New Tab 

شكل 

ال جديد 

: ١٦ -٢ 

تسمية الشريط 

26


ويحتوي صندوق الأدوات على الأشرطة التالية:‏ 

تقارير كريستال 

:Crystal Reports 

وبها الأدوات اللازمة لإنشاء و تصميم التقارير المختلفة.‏ النسخة التي تأتي مع الدوت نت نسخة 

محدودة الامكانات.‏ 

‏"قواعد البيانات"‏ 

:Data 

وتحتوي على الأدوات التي تستخدمُ‏ للاتصال بقواعد البيانات وقراءة وتحديث بياناتها.‏ 

‏"نماذج الويندوز"‏ 

:Windows Forms 

وتحتوي على الأدوات التي تستخدم مع نماذج الويندوز.‏ 

Web Control تعطي 

‏"نماذج الإنترنت"‏ 

وهذه الأدوات 

:Web Forms 

وتحتوي على الأدوات التي تستخدم مع نماذج الإنترنت 

سهولة في تصميم تطبيقات الانترنت.‏ 

‏"أدوات :HTML 

وتحتوي على الأدوات التي تستخدم مع نماذج الإنترنت.‏ 

27


كتابة البرنامج 

ملاحظة 

التالي 

تستطيع كتابة البرنامج من خلال محرر الكود ‏(الشفرات).‏ 

أ كيفية الوصول إلى محرر الكود : 

للوصول إلى محرر الكود قم بإضافة زر أمر من صندوق الأدوات ثم نفذ أي من الطرق 

: الثلاث التالية 

: 

للتعرف أكثر على هذه الأداة اقرأ الجزء الخاص بخصائص زر الأمر في الفصل 

للوصول إلى محرر الكود يوجد ثلاثة طرق 

: 

النقر المزدوج 

الكود.‏ 

: 

: 

عند النقر المزدوج على أي أداة فإن ذلك سوف يقوم بنقلك إلى محرر 

من خلال مستكشف الحلول الأيقونة الأولى من مستكشف الحلول تنقلك إلى محرر 

الكود كما يظهر من الشكل (٢-١٧) و الأيقونة التي بجانبها تنقلك إلى وضع تصميم 

النموذج.‏ 

-١ 

-٢ 

-٢ ١٧ : شكل 


الوصول إلى محرر الكود من خلال 

28


النقر بزر الفأرة الأيمن على أي أداة موجودة على النموذج ثم اختيار ViewCode كما 

يظهر من شكل 

(١٨-٢) 

-٣ 

-٢ ١٨ : شكل 

الوصول إلى محرر الكود من النموذج 

بعد الانتقال إلى محرر الكود أنظر الشكل 

(٢-١٩) وهو ما يمثل واجهة محرر الكود.‏ 

شكل 

للرجوع إلى 

واجهة تصميم 

النموذج 

١٩-٢ 

الكود المنتج من 

قبل فيجوال 

ستوديو 

29


ب 

مميزات محرر الكود في بيئة الدوت نت : 

توجد عدة مميزات لمحرر الكود في بيئة الدوت نت يجدر بك معرفتها لأنها تسهل 

: 

العمل أثناء عملية البرمجة،‏ 

سوف نتعرض 

لخمس ميزات 

منها 

نمط الاختيار المربع 

: ويمكنك من التظليل الدقيق لما تريد من كود،‏ 

و يحصل عند 

.I 

(٢٠-٢) 

ضغط زر 

alt و تحريك الفأرة لأسفل انظر الشكل 

التحرير الذكي 

: حيث تقوم بيئة الدوت نت بترتيب الكود الذي تكتبه ترتيبا يسهل 

.II 

عرضه و 

قراءته مثل ترتيب جمل الشرط و جمل 

التكرار.‏ 

لن تحتاج بعد اليوم إلى 

البحث عن جملة If وجملة Else if 

لوضعهما بوضع متوازي فسوف تقوم بيئة 

الدوت نت بعمل ذلك نيابة عنك.‏ 

select case,if,do 

إكمال مثل الجمل إكمال : 

تركيب الجمل المشهورة مثل 

.III 

وغيرها.و لن تحتاج بعد اليوم إلى حفظ صيغة جملة Select Case 

If أو جملة 

فبمجرد ما تكتب جملة 

If ثم الشرط ثم تقوم 

بضغط زر 

Enter سوف تقوم الدوت 

نت بإكمال الجملة نيابة عنك.‏ 

Edit Advance Word Wrapping 

تجزئ الجمل : 

من خلال 

.IV 

عند إعمال هذه المميزة سوف تقوم الدوت نت بتقسيم الأسطر الطويلة إلى سطرين أو 

أكثر لتسهل عملية قراءة الكود.‏ 

: ترقيم الأسطر 

تتيح لك هذه الميزة الترقيم الآلي لأسطر الكود.‏ 

Tool – Option – Text Editor - General – All Language – Line Numbers 

.V 

٢٠-٢ : شكل 

طريقة دقيقة لتظليل الكود 

30


الخصائص 

Properties 

تتميز كل أداة في بيئة الدوت نت بمجموعة من الخصائص.‏ 

أنها 

ما 

يمكن أن 

يتميز به الكائن من مواصفات مثل الطول،‏ العرض،‏ اللون 

قد يتشابه بعضها بين أداتين مختلفتين وهو 

على 

الخصائص تعرف 

‏...الخ.‏ 

ما يتكرر كثيرا و قد تتميز كل 

أكثر لا توجد إلا فيها.‏ يوجد طريقتين لتعيين خاصية لأداة ما هما 

ملاحظة 

: 

-١ 

-٢ 

: 

إعطاء هذه الخاصية أثناء وقت التصميم.‏ 

إعطاء هذه الخاصية أثناء وقت التشغيل.‏ 

وهذه الخصائص 

أداة بخاصية أو 

يوجد فصل كامل يتكلم عن خصائص الأدوات و القيم التي تأخذها و شرح كل قيمة و 

مثال تطبيقي عليها.‏ يجدر بك مراجعة هذا الفصل و التمرن عليه جيدا 

أ كيف تعين خصائص أداة 

توجد نافذة تسمى نافذة الخصائص انظر شكل 

(٢٢-٢) Window– -Propherty وتوجد 

عادة في الجهة اليمنى لبيئة التطوير،‏ وهدف هذه النافذة هي تعيين خصائص الأدوات.‏ يوجد 

عدة طرق للوصول إلى هذه النافذة 

: 

-١ 

النقر بزر الفأرة الأيمن على أي أداة موجودة على النموذج ثم اختيار 

يظهر من الشكل 

Properties كما 

(٢١-٢) 

-٢ ٢١ : شكل 

الوصول إلى خصائص أداة ما 

31


الطريقة الثانية للوصول إلى نافذة الخصائص أن تقوم باختيار التالي من القائمة الرئيسية 

View Property Window 

-٢ 

شكل ٢٢-٢ : 

قائمة الأدوات قائمة الأدوات 

خيارات عرض الخصائص 

خيارات عرض الخصائص 

أقسام نافذة الخصائص 

لاحظ وجود خصائص فرعية 

لخاصية الخط 

٣- الضغط على زر F4. 

ب طرق عرض ترتيب الخصائص 

: 

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

: 

.i 

.ii 

الترتيب الألف بائي 

: 

وهو ترتيب الخصائص حسب الحروف الأبجدية 

فعلى سبيل المثال سوف نجد أن خاصية Font تأتي قبل خاصية 

لأن حرف F يسبق حرف 

الترتيب التصنيفي 

Text 

.T 

: 

وفي هذا الترتيب يتم تصنيف الخصائص إلى 

مجموعات انظر الشكل (٢-٢٣) ومن ثم إدراجها تحت تلك 

المجموعات فعلى سبيل المثال مجموعة 

Backcolor و خاصية 

Appearance 

.Font 

تحوي خاصية 

32


-٢ ٢٣ : شكل 

للخصائص 

العرض التصنيفي 

: ج تطبيق 

-١ 

-٢ 

-٣ 

قم بإضافة زر أمر 

انقر بزر الفأرة الأيمن عليه ثم اختر 

Properties 

اذهب إلى خاصية Text و اكتب محاولة تغيير 

الخصائص.‏ 

٤- لاحظ كيف تغير النص المكتوب على زر الأمر 

33


الأحداث 

Events 

يمكن تعريفه بزمن حصوله حيث يحصل عند قيام المستخدم أو النظام بعمل ما تجاه أداة ما،‏ مثل 

نقر بالفأرة على زر أمر،‏ لتغيير محتوي صندوق النص.‏ فلو أخذنا على سبيل المثال أداة زر 

الأمر لوجدنا أنه بمجرد نقر الفأرة على زر الأمر فإن حدث النقر سوف يعمل.‏ فإذا أردت أن 

تظهر رسالة عند النقر على زر الأمر فإنك سوف تكتب الكود في حدث النقر الخاص بزر الأمر.‏ 

كيف تصل إلى الحدث لكتابة الكود 

-١ 

للوصول إلى الحدث الذي ينفذ عند النقر على زر الأمر.‏ افعل ما يلي : 

أضف زر أمر إلى النموذج كما يظهر من الشكل 

(٢٤-٢) 

شكل ٢٤-٢ : 

الوصول إلى الحدث بالنقر المزدوج 

.(٢٥-٢) 

انقر مزدوجا على زر 

الأمر ليظهر لك الشكل 

يمكن 

القول الآن أنك داخل 

-٢ 

الحدث فكل ما ستكتبه 

في هذا الإجراء سوف ينفذ عند النقر 

٢٥- ٢ : شكل 

بعد النقر المزدوج على زر الأمر تم الانتقال إلى حدث النقر الخاص بهذا الزر 

نت 

الدوت 

تقوم بيئة 

معلومات 

بانشاء 

الحدث 

34


شكل ٢٦-٢ : 

طريقة الوصول لحدث ما.‏ 

اختر الحدث اختر الحدث 

اختر الأداة التي تريد الوصول 

لأحداثها 

تصغير او تكبير الكود 

تصغير او تكبير الكود 

يمكننا تقسيم هذه الشاشة إلى ثلاثة أقسام 

: 

.I 

.II 

: القسم الأول 

القسم هو الفئة 

من بدء عبارة 

Public Class Form1 إلى عبارة End Class هذا 

-Class– 

الخاص بالنموذج.‏ حيث أن بيئة الدوت نت أصبحت 

مطابقة مائة بالمائة لمواصفات البرمجة الشيئية فإن النموذج الذي أنشأته هو عبارة 

عن فئة و كل ما يندرج تحته من أداوت سوف ترث الخصائص الخاصة بالنموذج 

ما لم تقم بتغييرها على مستوى الأداة نفسها.‏ بالطبع فإن الفئة للنموذج سوف 

يحوي بداخلة كل تعريفات الأحداث و خصائصها و الأحداث الخاصة بها.‏ 

يبدأ من كلمة : القسم الثاني 

End Sub إلى Private Sub Button1_Click 

وهذا هو الإجراء الذي أنشأته لك بيئة الدوت نت لتقوم بكتابة الكود داخلة ليعمل عند النقر على 

زر الأمر.‏ تلاحظ أن السطر الأول طويل جدا،‏ ولكي تتمكن من رؤيته على الشاشة كاملا دون أن 

تضطر لاستخدام المنزلق الأفقي 

،Horizontal ScrollBaar فإن 

VB.NET يمنحك الرمز 

" _" 

الذي هو عبارة عن مسافة وشرطة منخفضة ،Underscore والذي بإضافته لنهاية السطر،‏ يعتبر 

VB.NET أن السطر لم ينتهِ‏ بعد،‏ وأن السطر الذي يليه هو مكمل له.‏ وبهذا يمكنك أن تشطر 

الأسطر الطويلة إلى عدة أسطر،‏ دون أن تتسبب في خطأ في قواعد اللغة 

.Syntax 

وهناك 

طريقة أخرى وهي تجزيء الجمل ارجع إلى مميزات محرر الكود لمعرفة هذه الطريقة وتعتبر 

هذه الطريقة أسهل من الطريقة الأولى.‏ 

35


: ملاحظة 

عند النقر المزدوج على أية أداة في بيئة الدوت نت فإن بيئة الدوت نت سوف تقودك 

إلى محرر الكود و تضعك في الحدث الخاص بتلك الأداة 

III‏-القسم الثالث 

: 

ويوجد أمامه علامة زائد 

وهو عبارة 

Windows Form Designer generated code 

+ 

لو ضغطت عليها لظهر لك حجم كبير من العبارات.‏ 

هي ما يسمى بالكود المنتج من قبل بيئة الدوت نت ويحوي عدة أشياء منها 

شرحها 

العبارة 

: 

Inherits System.WinForms.Form 

Public Sub New() 

MyBase.New() 

'This call is required by 

the Windows Form Designer. 

InitializeComponent() 

'Add any initialization 

after the InitializeComponent() 

call 

End Sub 

لاكتساب المعالم الأساسية للنموذج من 

WinForms.Form ومعنى ذلك أن هذا 


Form1 قائم ومعتمد ومكتسب 

هذه المنطقة 

للخصائص الأساسية لWinForms.Form 

وبدون هذه الجملة لا يمكن أن يعمل النموذج.‏ 

يتم تنفيذ هذا الإجراء عند بدء تحميل 

النموذج.‏ وهو 

يحل محل 

Form_Intialize 

والتي كانت موجودة في الإصدار السابق من 

فيجوال بيسك.‏ 

إذا أردت عمل شيء ما في 

بداية البرنامج فاكتبه في السطر الذي يلي دالة 

.InitializeComponent() 

Protected Overloads Overrides Sub 

Dispose(ByVal disposing As 

Boolean) 

If disposing Then 

If Not (components Is 

Nothing) Then 

components.Dispose() 

End If 

End If 

MyBase.Dispose(disposing) 

End Sub 

يتم تنفيذ هذا الإجراء عند 

إنهاء 

يقوم هذا الإجراء بإزالة كل 

بالبرنامج من الذاكرة.‏ 

Form_Terminate 

Private Sub InitializeComponent() 

Me.Button1 = New 

System.Windows.Forms.Button() 

إلى نهاية هذا الإجراء 

End Sub 

في الإصدار السادس.‏ 

البرنامج.‏ 

ما يتعلق 

هذا الإجراء حل محل 

و 

هذا الإجراء مهم جدا وهو 

الذي كان موجودا 

إجراء يحفظ كل 

الخصائص التي غيرتها أثناء تصميم النموذج 

‏.لكن 

لا تحاول تعديل الخصائص من هنا 

. 

36


ومن فوائد هذا الإجراء أنه يمكنك تصميم 

نموذج بالطريقة التي تريدها ثم نسخ هذا 

الإجراء ووضعه في نماذج أخرى مثل نماذج 

. الإنترنت 


دراية تامة بما تعمل.‏ 

أنصح بعدم محاولة تعديل القسم الثالث و الذي يمثل الكود المنتج إلا إذا كنت على 

37


مقدمة 

لمعالجة الأخطاء 

عند اكتمال أي برنامج فإن هناك عدد من الأخطاء المتوقعة و غير المتوقعة قد تحث في النظام 

أثناء عمله.‏ 

مهما بلغ احتراف المبرمج فإنه لن يستطيع أن يخلي برنامجه من الأخطاء.‏ 

بالذكر هنا ذكر أنواع الأخطاء بصفة عامة،‏ يمكن تقسيم أنواع الأخطاء إلى ثلاثة أقسام وهي 

من الجدير 

: 

-١ 

عند 

الأخطاء البنائية : 

بصيغة تخالف قواعد لغة البرمجة.‏ 

وهو النوع الشائع من الأخطاء ويحصل عند كتابة عبارة في الكود 

ويمكن التمثيل لهذا النوع من الأخطاء بمثالين 

: 

.a 

الخطأ الإملائي في كتابة دالة ما;‏ 

كما يظهر من المثال التالي 

لاحظ الخطأ الإملائي في دالة ctype حيث لم نكتب حرف e في آخر الدالة.‏ 

Dim a As String 

Dim b As Integer 

ctyp(a, b) 

.b 

فقدان جزء من الجمل المركبة مثل 

لاحظ الخطأ وهو نسيان جملة 

Dim a As Integer 

If a > 10 Then 

a = a + 10 

: 

end if و التي يفترض أن تأتي بعد نهاية جملة 

.If 

وجود خطأ بنائي فإن بيئة الدوت نت تظهر خطا متعرجا تحت العبارة التي يكمن فيها 

الخطأ وتظهر هذه الأخطاء في نافذة المهام عند محاولة إنتاج النظام.‏ 

الأخطاء التشغيلية : ويحصل هذا الخطأ عند محاولة تنفيذ جملة من المستحيل تنفيذها.و 

لا يظهر هذا النوع من الأخطاء إلا بعد تنفيذ النظام.كما انه لا يمكن اكتشاف هذه 

الأخطاء عند إنتاج النظام ولعل أبرز الأمثلة على هذا النوع هو محاولة القسمة على 

صفر وهاك مثال آخر ماذا لو حاول البرنامج الاتصال بقاعدة البيانات لكن الخادم الذي 

توجد فيه قاعدة البيانات كان لا يعمل لسبب أو لآخر فإن هذا الخطأ هو خطأ تشغيلي 

بحت.و عند عدم معالجة هذا النوع من الأخطاء قد يتوقف البرنامج بعد حدوث الخطأ.‏ 

-٢ 

.Try Catch 

يتم 

معالجة هذا النوع من الأخطاء من خلال عبارة 

38


-٣ 

الأخطاء المنطقية : 

تعتبر من الأخطاء التي يصعب إيجادها و يحدث عندما لا يؤدي 

النظام نتائجه كما ينبغي.‏ انظر المثال التالي 

لاحظ أن هذا التكرار لن ينتهي.‏ 

بنفسه.‏ 

Dim a As Integer 

a = 5 

Do While a < 5 

a = a - 5 

Loop 

: 

يتم معالجة هذا النوع من الأخطاء بمراجعة الكود يدويا من قبل المبرمج و اكتشاف الخطأ 

39


الدرس الأول 

: الهدف 

سوف تكون بداية التعامل الحقيقي مع بيئة vb.net مما يكون له الدور في إزالة 

الحاجز النفسي ويمكنك من التعلم على أساسيات هذه البيئة البرمجية.‏ 

" 

: . ماذا سينتج 

بعد نقر زر الأمر بالفأرة سوف تظهر لنا 

مرحبا بكم في برنامجي الأول 

" 

على أداة العنوان 

الأدوات : 

سوف يكون لدينا نموذج وعليه 

زر أمر وأداة عنوان 

الخطوة 

الشرح التفصيلي 

١- وضع الأداوت 

١- ضع زر أمر وأداة عنوان على النموذج 

Form1 كما هو موضح 

على النموذج (٢-٢٧). 

بالشكل 

٢٧-٢ : شكل 

أداة عنوان وزر أمر 

تجزئ الجمل Edit Advance Word Wrapping 

من خلال 

-٢ 

40


: 

٣- تغيير 

خصائص بعض 

الأدوات 

غير خصائص الأدوات لتصبح مطابقة للجدول التالي 

اسم الأداة الخاصية القيمة 

CmdWelcome 

Name Button1 

Text 

Name Label1 

Text 

Text Form1 

RightToLeft 

مرحبا 

LblHello 

البرنامج الأول 

Yes 

٤- تغيير خاصية 

لأداة 

Text 

العنوان عند حدث 

النقر لزر الأمر . 

١- انقر مرتين متتاليتين بالفأرة على زر الأمر 

.cmdWelcome 

سوف تظهر لك محرر الكود وسوف يكون المؤشر بين السطرين 

التاليين 

٢- اكتب العبارة التالية بين السطرين السابقين 

‏"مرحبا بكم في برنامجي الأول " = lblHello.Text 

41


-٤ 

تنفيذ البرنامج 

وملاحظة تغير أداة 

العنوان عند النقر 

على زر الأمر،‏ 

و بمعنى آخر أن 

الحدث 

النقر-‏ 

– Click 

تم تنفيذه 

عند النقر على زر 

الأمر.‏ 

١- ارجع إلى شاشة التصميم وذلك بالنقر المزدوج على 

في المستكشف أو النقر على شريط 

شاشة محرر الكود.‏ 

٢- لتشغيل البرنامج اضغط 

Form1.vb 

Form1.vb[Design]* 

F5 

أو اختر من القائمة 

في أعلى 

Debug 

.Start 

-٣ 

الشكل 

ثم 

انقر على زر مرحبا ثم لاحظ تغير أداة العنوان انظر 

.(٢٨-٢) 

شكل 

: ٢٨-٢ 

" ظهور 

" 

بعد النقر على زر الأمر مرحبا 

مرحبا بكم في برنامجي الأول 

42


أداة العنوان 

استخدامها 

تستخدم لعرض النصوص التي لا 

يرغب أن يحررها المستخدم.‏ 

في العادة تستخدم 

عنوانا لأدوات أخرى.‏ 

مثال 

عندما يكون عندك مربع نص لإدخال اسماء الطلاب استخدم أداة العنوان لتكون 

عنوانا لهذا المربع كما في الشكل(‏‎١-٥‎‏)‏ 

شكل ٥- ١ استخدام أداة العنوان 

خصائص أداة العنوان 

خاصية الاسم 

: اسم للأداة مع ملاحظة أنه لايمكن أن توجد أداتين على نفس النافذة بنفس 

.١ 

الاسم.‏ 

الخاصية 

القيمة 

الشرح 

هذه هو اسم أداة العنوان وهو ماتستخدمه إذا أردت 

الوصول للخصائص برمجيا.‏ 

Name 

٦٦


المرساة أو المثبتة : 

هي خاصية جديدة تستخدم للمحافظة على مواقع الأدوات في النافذة 

.٢ 

عند تغيير حجمها.‏ 


القيمة 

الشرح 

(٢-٥ 

جميع الجهات مثل : 

مثال 

إذا اخترنا الجهة اليمنى 

‏(شكل 

من هذه 

Anchor 

يمين أو يسار أو 


فإن المسافة بين هذا الكائن و 

الكائن الحاوي 

يمين فوق أو 

من له 

الجهة اليمنى سوف تبقى كما هي سواء 

يسار أسفل 

صغرنا 

الكائن الحاوي أو كبرناه.‏ 

في الشكل(‏‎٣-٥‎‏)‏ 

لما اخترنا الجهة اليمنى من هذه الخاصية بقيت 

المسافة كما هي بين أداة العنوان – 

الكائن الحاوي-‏ الأيمن 

وحد النموذج 

شكل ‎٢-٥‎كما ترى اخترنا الجهة اليمنى 

شكل ٥-٣ كما تلاحظ المسافة بين أداة العنوان و الحد الأيمن للنموذج لم تتغير 

٣. الحجم التلقائي 

: تستخدم عندما تكون غير متأكد من طول النص الذي سيعرض على أداة 

اجعلها العنوان.‏ 

True لتمتد أداة العنوان مع النص طولا و قصرا وهي متوفرة أثناء التصميم 

Label1 

مثال والتنفيذ.‏ 

لو أردت أن تغير قيمتها أثناء التنفيذ لأداة 

Label1.Autosize = True 


القيمة 

الشرح 

يتغير الحجم بناء على النص طولا وقصرا.‏ 

هي القيمة الإفتراضية.‏ سوف يبقى حجم أداة العنوان 

True 

False 

Autosize 

‏(طولها وعرضها)‏ 

ثابتا كما تم تحديده أثناء التصميم.‏ 

٤. لون الخلفية : 

يمكن تغيير لون الخلفية للأداة أثناء التصميم والتنفيذ.‏ 

٦٧



القيمة 

الشرح 

تمكنك هذه الخاصية من تغيير اللون الخلفي لأداة 

العنوان 

Backcolor 

Label1.BackColor = Color.Blue 

مثال لتغيير لون الخلفية لأداة عنوان 

٥. شكل الحد : 

تستخدم لتغيير شكل حدود الأداة،‏ 

في العادة نستخدمها للتفريق بين أدوات العنوان 

المختلفة.‏ 

مثل لو كان عندك على النافذة أدوات عنوان لعرض الأسعار و أداة عنوان لعرض 

المجموع 

فالأداة الأخيرة تأخذ 

غير الأدوات الأولى.‏ 

وهي متوفرة أثناء التصميم والتنفيذ 

lblHello 

lblHello.BorderStyle = BorderStyle.Fixed3D 

مثال للتغيير أثناء التنفيذ لأداة اسمها 


القيمة 

الشرح 

لتغيير حدود أداة العنوان أنظر شكل 

(٥-٤) عندما 

Fixed3D 

BorderStyle 

جعلنا قيمة الخاصية Fixed3D كما تلاحظ الحدود 

اصبحت ثلاثية أبعاد.‏ 

لإظهار حد خطي.‏ 

لإلغاء الحد.‏ 

FixedSingle 

None 

شكل ٥-٤ عندما غيرنا قيمة الخاصية BorderStyle إلى Fixed3D 

٦٨


تستخدم هذه الخاصية للتحقق من أي أمر يريده المستخدم.‏ 

وهي متوفرة أثناء 

.٦ التحقق : 

التصميم والتنفيذ.‏ 


القيمة 

الشرح 

عند اختيار 

True يتم ربط أداة العنوان مع أداة 

True 

CauseValidate 

أخرى للتحقق من شروط معينة ومن ثم سوف ينفذ 

الحدث 

.Validate 

لن يتم تنفيذ ماسبق.‏ 

سيأتي لها مزيد تفصيل 

لاحقا.‏ 

False 

٧. قائمة الزر الأيمن : 

هذه الخاصية تربط قائمة الزر الأيمن بأداة العنوان.‏ 


القيمة 

الشرح 

اسم القائمة 

هذه الخاصية تربط القائمة بأداة العنوان.‏ 

فعندما 

Contextmenu 

تضغط الزر الأيمن والمؤشر عند أداة العنوان سوف 

تظهر لك قائمة،‏ 

هي نفس القائمة التي ربطت أداة 

العنوان بها.‏ 

لتغيير نوع المؤشر عند مرورة فوق هذه الأداة.‏ 

في العادة تستخدم حسب نوع 

.٨ المؤشر : 

المؤشر فمثلا مؤشر الساعة الرملية يخبر المستخدم بأن هناك عملية ما تحدث الآن.‏ 

وهي متوفرة 

أثناء التصميم والتنفيذ.‏ 


القيمة 

نوع المؤشر 

الشرح 

تتيح لك هذه الخاصية تغيير نوع مؤشر الفأرة عند 

Curser 

مرورة فوق أداة العنوان.‏ 

هناك قائمة من المؤشرات 

حاول تجربتها.‏ 

Windows 

هل تذكر القائمة الشجرية لأسماء المجلدات في 

مستكشف النوافذ 

.٩ الحوض : 

انها ثابته 

ومالئة للجهة اليسرى.‏ 

إذا أردت تثبيت أداة العنوان في أي جهة فيمكنك 

.Explorer 

.(٧-٥) 

(٦-٥) 

من خلال هذه الخاصية.‏ 

فقط اختر الجهة 

انظر الشكلين 

و 



٦٩



القيمة 

الشرح 

. 

إذا أردت أن 

تملأ الأداة الجانب الأيمن 

فقط اختر 

Right 

Dock 

الجهةانظر الشكلين 

.(٧-٥) و (٦-٥) 

إذا أردت أن تملأ الأداة الجانب الأيسر.‏ 

إذا أردت أن تملأ الأداة الجانب العلوي.‏ 

إذا أردت أن تملأ الأداة الجانب السفلي.‏ 

إذا أردت أن تملأ الأداة النافذة كلها.‏ 

إذا لم ترغب باستخدام هذه الحاصية؟ 

Left 

Top 

Bottom 

Fill 

Non 

شكل ٥-٦ لاحظ كيف اخترنا الجهة اليمنى ثم لاحظ شكل ٥-٧ 

شكل ٥-٧ لاحظ كيف احتلت أداة العنوان الجهة اليمنى من النموذج 

تستخدم لمنع هذه الأداة من الإستجابة للأحداث.‏ 

مثلا لو أردت منع المستخدم من 

.١٠ التمكين : 

نقر زر دخول حتى يدخل كلمة السر واسم المستخدم اجعل هذه .False 




٧٠



القيمة 

الشرح 

تمكين هذه الأداة مما يجعلها تستجيب للأحداث.‏ 

عدم تمكين هذه الأداة انظر الشكل 

(٥-٨) عندما 

True 

False 

Enabled 

اخترناFalse . 

شكل ٥-٨ 

خاصية 

=False 

لاحظ كيف ت لون أداة العنوان بعد أن جعلنا 

Enabled 

١١. الخط : لتغيير خصائص الخط على هذه الأداة ويندرج تحت هذه الخاصية عدة خصائص 

فرعية ويمكن تغيير جميع هذه الخصائص أثناء التصميم أو التنفيذ.‏ 


الخاصية الفرعية 

القيمة 

الشرح 

يمكنك تحديد اسم الخط الذي تريده.‏ 

FontName 

Font 

True إذا أردت أن يكون الخط سميك 

FontBold 

False إذا أردت الخط غير سميك 

رقم 

للتحكم بحجم الخط 

FontSize 

صحيح 

وضع سطر تحت الخط 

عدم وضع سطر تحت الخط 

True 

False 

FontStrikThru 

إذا أردت الخط مائل 

إذا أردت الخط غير مائل 

True 

False 

FontItalic 

٧١


١٢. لون الكتابة : 

تستخدم هذه الخاصية لتغيير لون الكتابة.‏ 

وهي متوفرة أثناء التصميم والتنفيذ.‏ 


القيمة 

الشرح 

لتغيير لون الخط 

ForeColor 

تستخدم لتثبيت مكان وحجم الأداة في وقت التصميم.‏ : 

مثال 

عند انتهائك من 

.١٣ الإغلاق : 

تصميم نافذة معينة ترغب في استخدام هذه الخاصية حتى لاتغير حجم أو مكان أداة أثناء التصميم.‏ 


القيمة 

الشرح 

لن تستطيع تكبير ولا تصغير ولا تحريك أداة العنوان 

أثناء التصميم.‏ 

تستطيع تكبير و تصغير و تحريك أداة العنوان أثناء 

التصميم.‏ 

True 

False 

Locked 

١٤. اليمين والشمال : 


القيمة 

الشرح 

عرض النموذج من اليمين إلى الشمال 

عرض النموذج من الشمال إلى اليمين 

Yes 

No 

RightToLeft 

١٥. الحجم : تستخدم هذه الخاصية للتحكم بحجم الأداة أثناء التصميم والتنفيذ ولها عدة خصائص 

فرعية.‏ 


الخاصية الفرعية 

القيمة 

الشرح 

يحدد طول هذه الأداة 

Heght 

Size 

يحدد عرض هذه الأداة 

Width 

vb.net 

١٦. الإنتقال بين الأدوات : 

تحدد هذه الخاصية ترتيب الإنتقال بين أدوات النافذة.‏ 

يحدد 

ترتيب الإنتقال اثناء التصميم حسب إضافتك لهذه الأداة على النافذة ويمكنك تعديل هذا الترتيب 

كما تريد.‏ 

متوفرة أثناء التصميم والتنفيذ.‏ 

مع ملاحظة أن البدء في الترتيب يكون من الصفر.‏ 

٧٢



القيمة 

الشرح 

Tab 

من 

١ إلى مجموع 

بعد تشغيل البرنامج إذا ضغطت زر 

TabIndex 

الأدوات التي على 

سوف ينتقل المؤشر من كائن إلى كائن 

آخر.‏ 

النافذة ناقص واحد 

وسوف يكون 

الخاصية.‏ 

ترتيب التنقل حسب هذه 

١ إلى 

ملاحظة : البدء في الترتيب يكون من الصفر.‏ 

لذلك تلاحظ أن القيمة تتراوح 

من 

مجموع الأدوات التي على النافذة ناقص واحد . 

مثلا تكون أول أداة تريد زيارتها ترتيبها 

صفر والثانية واحد وهلم جرا.‏ 

تمثل هذه الخاصية النص المكتوب داخل هذه الأداة . 

تستخدم أثناء التصميم والتنفيذ 

.١٧ النص : 

مثلا لو أردنا تغيير النص المكتوب على أداة العنوان والتي لها الاسم 

Label1 أثناء التشغيل 

، 

إلى مرحبا بكم . 

‏"مرحبا بكم " = Label1.Text 


القيمة 

الشرح 

النص الذي تريد عرضه على أداة العنوان.‏ 

Text 

١٨. محاذاة النص الأفقية : 

تتيح لك هذه الخاصية تنسيق النص داخل الأداة إما إلى اليمين أو إلى 

اليسار أو في الوسط.‏ 

وهي متوفرة أثناء التصميم والتنفيذ.‏ 

لتنسيق النص للوسط أثناء التشغيل 

Label1.Textalig = Label1.HorizontalAlignment.Center 

لأداة اسمها .Label1 


القيمة 

الشرح 

تنسيق النص إلى اليمين.‏ 

تنسيق النص إلى اليسار.‏ 

تنسيق النص في الوسط.‏ 

Right 

Left 

Center 

TextAlign 

٧٣


& 

١٩. الذاكرية أو الرابطة 

: تستخدم لتحديد ما إذا كانت هذه الأداة سوف تستجيب لعلامة 

الموجود في خاصية النص لنفس الأداة.‏ 

إذا كانت قيمة هذه الخاصية 

True فإنه يتم الوصول 

إلى 

+ Alt 

الأداة 

الأداة التي تلي أداة العنوان في ترتيب خاصية 

Tab عن طريق 

الحرف المسبوق 

. 

Text 

بعلامة 

& في خاصية النص 


القيمة 

الشرح 

& 

إذا اخترنا 

True سيكون الحرف المسبوق بعلامة 

True/False 

UseMnoneic 

مع زر 

Alt هو المفتاح للوصول للأداة التي 

تلي أداة 

العنوان في الترتيب.‏ 

٧٤


أداة 

مربع النص 


تستخدم لإدخال البيانات و عرضها كما 

تستخدم لتحرير النصوص 

. 

مثال 

عندما يكون عندك مربع نص لإدخال اسماء الطلاب استخدم مربع نص لكتابة 

أسماء الطلاب.‏ 

الشكل(‏‎١-٦‎‏)‏ 

شكل ٦-١ : أداة مربع النص 

خصائص مربع النص 

هناك خصائص لمربع النص الكلام فيها نفس الكلام عن خصائص أداة العنوان وهي 

: 

، CauseValidate ، Borderstyle ، Backcolor ، Autosize ، Anchor 

، Locked ، ForeColor ، Font ، Enabled ، Dock ، Curser ، Contextmenu 

TextAlign ، Text ، TabIndex ، Size 

وهناك بعض الخصائص التي لاتوجد في أداة العنوان وهي ماسنشرحه : 

الآن بإسهاب 

١- حالة الأحرف 

:CharacterCasing 

تتيح لك هذه الخاصية التحكم بحالة الأحرف التي 

تدخل إلى مربع النص فيمكنك تحويل كل حرف يدخله المستخدم إلى الحالة التي تريد 

أوتوماتيكيا كما تمكنك من تحويل حالة الأحرف المدخلة في مربع نص إلى الحالة التي 

تريد.‏ مثلا أنت تريد أن تكون حالة جميع الأحرف التي يدخلها المستخدم كبيرة 

Capital 

يمكنك هذا بجعل قيمة هذه الخاصية Upper وبالتالي كلما أدخل المستخدم حرف تحول 

إلى حرف كبير.‏ انظر شكل 

(٢-٦) 

في هذا الشكل الحروف تتحول تلقائيا من صغيرة 

إلى كبيرة،‏ فلو أردنا تحويل حروف مربع النص الذي اسمه TxtUpper إلى حروف 

كبيرة أثناء التنفيذ سنكتب الكود التالي 

: 

٧٦


TxtUpper.CharcterCasing = CharcterCasing.Upper 

b 


هذه الخاصية لحروف اللغة الإنجليزية فقط فعندما يدخل المستخدم 

تتحول إلى 

.Upper إذا كانت حالة الأحرف B 


القيمة 

الشرح 

تحويل الحروف إلى كبيرة.‏ 

تحويل الحروف إلى صغيرة.‏ 

ابقاء حالة الحرف كما أدخلها المستخدم.‏ 

Upper 

Lower 

Normal 

CharcterCasing 

شكل ٦-٢ لاحظ تحويل الحروف إلى كبيرة تلقائيا 

: 

-٢ 

اخفاء التظليل 

عندما تظلل نصا موجود في مربع النص وتنتقل من هذا المربع وتريد أن 

يبقى التظليل حتى بعد انتقالك من مربع النص استخدم هذه الخاصية.انظر (٦-٣) 

الشكل 


القيمة 

الشرح 

إبقاء النص مظلالا بعد الإنتقال من مربع النص 

إخفاء التظليل بعد الإنتقال من مربع النص 

True 

False 

HideSelection 

شكل ٦-٣ حاول أن تنقر خارج مربع النص ولاحظ بقاء التظليل 

-٣ 

-٤ 

٧٧


: (Lines) 

الأسطر ٣- 

عندما تريد كتابة نص طويل أثناء التصميم في مربع النص 

استخدم هذه الخاصية لكتابة النص الطويل.‏ 

الموقع 

تمثل هذه الخاصية موقع مربع النص في 

الكائن الحاوي لمربع النص 

‏(انظر 

: 

-٤ 

الملاحظة التالية ( 

والموقع محدد بخانتي 

X و Y للزاوية اليسرى العلوية لمربع النص.‏ 

حاول تغيير مربع النص ولاحظ تغير قيم X و Y 


موقع مربع النص يكون بالنسبة للحاوي الذي يحوي المربع،‏ 

هذا الحاوي قد يكون 

مربع تجميع أو نافذة أو غيره.‏ 


القيمة 

الشرح 

موقع النقطة س للزاوية اليسرى العلوية.‏ 

موقع النقطة ص للزاوية اليسرى العلوية.‏ 

X 

Y 

Location 

٥- خاصية الحد الأقصى : 

هذه الخاصية تحدد عدد الأحرف التي 

يمكن إدخالها 

في مربع 


النص،‏ 


القيمة 


الشرح 

٠ لايوجد قيد على عدد الأحرف المدخلة أو المعروضة.‏ 

MaxLength 

رقم صحيح 

هو الحد الأعلى لعدد الحروف المدخلة للأداة.‏ 

٦- خاصية الأسطر المتعددة : 

ماذا لو أردت أن تكتب أو تعرض أكثر من سطر على 

أداة النص.‏ 

استخدم هذه الخاصية.‏ 


القيمة 

الشرح 

امكانية تعدد الأسطر في أداة النص.‏ 

لايوجد إلا سطر واحد للكتابة.‏ 

True 

False 

MultiLine 

٧٨


تستخدم هذه الخاصية لإظهار رمز معين بدلا من النص المكتوب.‏ : 

مثال 

: PasswordChar-٧ 

لو كان عندك شاشة ادخال الكلمة السرية فإنك لاتريد أن تظهر الحروف إنما تريد أن يظهر بدلا 

منها نجمة أو أي رمز 


آخر.‏ 

القيمة 

انظر الشكل (٦-٤) 

الشرح 

تظهر لك نجمة بدل الحرف.‏ 

تظهر لك علامة استفهام بدل الحرف.‏ 

* 

؟ 

PasswordChar 

شكل ٦-٤ 0 لاحظ ظهور النجمة مع أنني أدخل حروف 

٨- القراءة فقط : 

تعديله.‏ 

تستخدم هذه الخاصية إذا أردت عرض نص معين للمستخدم بدون أن تمكنه من 


القيمة 

الشرح 

لن يتمكن المستخدم من تعديل النص المعروض أو 

الكتابة على مربع النص.‏ 

سوف يتمكن المستخدم من تحرير النص والكتابة 

على مربع النص.‏ 

True 

False 

ReadOnly 

.Tab 

هذه الخاصية 

تسمح 

بزيارة أو عدم زيارة 

مربع النص عند الضغط على زر 

-٩ التوقف : 


القيمة 

الشرح 

زيارة مربع النص عند ضغط 

عدم زيارة مربع النص عند ضغط 

. Tab 

. Tab 

True 

False 

TabStop 

٧٩




True فسوف تتم زيارة مربع النص حسب الترتيب 

لخاصية الإنتقال بين الأدوات(‏ .(TabIndex 

إذا أردت اخفاء أداة ما اثناء التنفيذ يمكنك استخدام هذه الخاصية.‏ 

وهذه الخاصية 

-١٠ الظهور : 

تعمل عند التصميم والتنفيذ.‏ 

لإخفاء مربع النص 

txtName عند التنفيذ اكتب الكود التالي 

: 

TxtName.visible = False 


القيمة 

الشرح 

اظهار الأداة.‏ 

اخفاء الأداة.‏ 

True 

False 

Visible 

١١- الإلتفاف التلقائي : 

تستخدم هذه الخاصية مع خاصية 

MultiLine لإلتفاف النص التلقائي 

بمعنى أن يبدأ النص سطرا جديدا تلقائيا إذا وصل إلى نهاية السطر الحالي . 




القيمة 

الشرح 

التفاف تلقائي.‏ 

لن يحصل التفاف تلقائي وسوف تستمر الكتابة على 

نفس السطر.‏ 

True 

False 

WordWrap 

٨٠


تطبيقات عملية على مربع النص 

سوف نورد تطبيق على أغلب خصائص مربع النص و شرح لها من خلال الكود التالي 

مرحبا نص ‏'عرض 

مربع على بكم 

النص 

: 

‏"بكم مرحبا"‏ = TextBox1.Text 

' 

يمكن سوف 

المستفيد 

زر ضغط من 

الرجوع 

جديد سطر فتح إلى يؤدي مما 

TextBox1.AcceptsReturn = True 

' 

قبول من يمكن سوف 

الانتقال 

مربع إلى 

تاب زر ضغط بعد النص 

TextBox1.AcceptsTab = True 

' 

جديد 

' 

دمج يتم سوف 

عبارة 

مرحبا 

مع أخرى مرة بكم 


في الأولى 

‏("أخرى مرة بكم مرحبا"‏ & TextBox1.AppendText(vbCrLf 

تغيير لون الخلفية إلى أزرق 

TextBox1.BackColor = Color.Blue 

' 

أسود إلى النص لون تغيير 

TextBox1.ForeColor = Color.Black 

' 

جعل 

خلفية 

مربع 

النص 

الصورة 

سطر 

TextBox1.BackgroundImage = 

Image.FromFile("C:\MyTextBoxBackground.gif") 

' 

الحدود نمط تغيير 

TextBox1.BorderStyle = BorderStyle.FixedSingle 

' 

النص مسح 

مربع في الموجود 

النص 

TextBox1.Clear() 

' 

تغيير 

مؤشر 

الفأرة 

عند يد إلى 

مروره 

مربع على 

النص 

TextBox1.Cursor = Cursors.Hand 

' 

لمربع الخط تغيير 

النص 

TextBox1.Font = New Drawing.Font("Comic Sans MS", 12, 

FontStyle.Bold, GraphicsUnit.Pixel) 

' 

تعيين 

الحروف من عدد أقصى 

TextBox1.MaxLength = 3000 

' 

إرجاع 

إلى النص 

القيمة 

الافتراضية 

TextBox1.ResetText() 

' 

إضافة 

شريط 

مربع يمين إلى انزلاق 

النص 

TextBox1.ScrollBars = ScrollBars.Vertical 

بطول 12 

TextBox1.Select(0, 11) 

' 

' 

سوف 

سوف 

يتم 

يتم 

تظليل 

تظليل 

النص 

آل 

من 

النص 

البداية 

مربع في 

النص 

حرفا 

TextBox1.SelectAll() 

' 

تعريف 

متغير 

وتعيين 

قيمته 

تساوي 

النص 

المظلل 

Dim SelectedText As String = TextBox1.SelectedText 

' 

بدء 

التظليل 

حرف أول من 

TextBox1.SelectionStart = 0 

' 

النص طول 

المظلل 

TextBox1.SelectionLength = 11 

' 

مربع حجم تغيير 

النص 

TextBox1.Size = New Size(300, 400) 

' 

منتصف في النص عرض 

مربع 

النص 

TextBox1.TextAlign = HorizontalAlignment.Center 

' 

عرفنا 

متغير 

قيمته 

النص طول 

مربع في الموجود 

النص 

Dim i As Integer = TextBox1.TextLength 

' 

التراجع 

تحرير آخر عن 

لمربع 

النص 

TextBox1.Undo() 

' 

إخفاء 

مربع 

النص 

TextBox1.Visible = True 

' 

اختيار 

نسخه ثم النص آل 


٨١


TextBox1.Copy() 


TextBox1.Cut() 

اختيار 

قصه ثم النص آل 

' 

٨٢


زر الأمر 

– مثلا-‏ 

استخدامه 

مثال 

يستخدم زر الأمر في العادة لتنفيذ عمليات معينة بعد النقر عليه.‏ 

عندما يكون عندك مربع نص لإدخال اسماء الطلاب استخدم زر الأمر 

لحفظ هذه البيانات في قاعدة البيانات كما سوف تتعلم إن شاء االله.‏ 

هناك خصائص لزر الأمر الكلام فيها نفس الكلام عن خصائص الأداوات السابقة وهي 

: 

، Dock ، Curser ، Contextmenu ، CauseValidate ، Backcolor ، Anchor 

، Text ، TabStop، TabIndex ، Size ، Locked ، ForeColor ، Font ، Enabled 

Visible ، TextAlign 

وهناك بعض الخصائص التي لاتوجد في مربع النص 

بإسهاب 

ولا في أداة العنوان وهي ماسنشرحه الآن 

: 

-١ الخلفية : 

تستخدم هذه الخاصية لعرض صورة في مربع النص انظر الشكل 

(١-٧) 

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

الكتاب إنما سوف نتكلم عن الخصائص التي تساعد في تحقيق هدف هذا الكتاب.‏ 

شكل ٧-١ لاحظ الصورة على زر الأمر 

٨٤


: 

-٢ 

نتيجة نافذة الحوارDialogResult 

هذه الخاصية تحتفظ بقيمة نتيجة نافذة الحوار،‏ 

لنضرب لك مثالا حتى تتضح أكثر.‏ 

لنفترض أن أمامك شاشة حوار فيها زري أمر 

‏(نعم 

Cancel للثاني.‏ 

لا)‏ 

وقيمة هذه الخاصية لهما 

Ok للأول و 

فإنك لو نقرت على أي 

/ 

منهما فسوف تغلق نافذة الحوار بدون الحاجة لكتابة أي أمر لإغلاقها وكذلك سوف 

تستطيع معرفة أي زر اختاره المستخدم لأن هذه الخاصية سوف تحتفظ لك باختياره.‏ 


يجب أن تكون نافذة الحوار قد فتحت باستخدام الأمر 

ShowDialog لكي تصبح 

نافذة حوار.‏ 

سوف نطبق هذه الخاصية تفصيليا في الفصل القادم فلا تقلق إذا لم تستوعبها.‏ 


القيمة 

الشرح 

إذا لم ترغب في استخدام هذه الخاصية.‏ 

قيمة لهذه الخاصية.‏ 

قيمة لهذه الخاصية.‏ 

None 

Ok 

Cancel 

DialogResult 

النمط ٣- 

:FlatStyle تستخدم هذه الخاصية لتغيير شكل زر الأمر عندما تمرر الفأرة 

عليه أو تضغط عليه بالفأرة انظر الشكل 

1.12 هناك ثلاثة قيم لهذه الخاصية.‏ 

في الشكل 

1.12 يمكنك ملاحظة الزر قبل المرور عليه بالفأرة وبعد المرور عليه بالفأرة لتعرف 

الفرق 

مع ملاحظة أن الجهة اليسرى قبل مرور الفأرة والجهة اليمنى بعد مرورها.‏ 

هذه 

الخاصية متوفرة أثناء التصميم والتنفيذ.‏ 


القيمة 

الشرح 

هو الشكل الثاالث في شكل 

.(٢-٧) 

هو الشكل الثاني في شكل(‏‎٢-٧‎‏).‏ 

الشكل الأول في شكل(‏‎٢-٧‎‏).‏ 

Flat 

PopUP 

Standard 

FlatStyle 

شكل ٧-٢ لاحظ الفرق عند تمرير الفأرة في هذه الخاصية 

٨٥


مربع الإختيار 


يستخدم مربع الإختيار لتحديد أو عرض أحد الإختيارات مثل 

‏(نعم/لا)‏ ‏(صح/خطأ)‏ 

فيظهر في الأداة علامة عند الإختيار و تختفي هذه العلامة عند عدم الإختيار 

وقد يكون هناك قيمة ثالثة وهي علامة مظللة تعني عدم تحديد الإختيار.‏ 

مثال 

عندما تتصل بالإنترنت تأتيك نافذة فيها مربع خيار يسألك هل تريد حفظ الكلمة 

السرية عند الدخول في المرة القادمة.‏ 

هناك خصائص لمربع الإختيار الكلام فيها نفس الكلام عن خصائص الأداوات السابقة وهي : 

، 

Contextmenu 

، 

CauseValidate 

،Background، 

Backcolor 

، 

Anchor 

، Size 

، Locked 

، ForeColor 

، Font 

، 

FlatStyle، Enabled 

، Dock 

، Curser 

Visible 

، TextAlign 

، Text 

، TabStop، TabIndex 

وهناك بعض الخصائص التي لاتوجد في الأدوات السابقة وهي ماسنشرحها الآن بإسهاب : 

. 

١- شكل أو نمط 

الظهور:‏ 

تستخدم هذه الخاصية للتحكم في شكل مربع الإختيار 

هناك 

شكلان رئيسان حسب قيمة هذه الخاصية.‏ 

وهي متوفرة عند التصميم والتنفيذ 


القيمة 

الشرح 

هو الشكل العادي كما في الشكل 

يأخذ شكل زر الأمر انظر شكل 

.(١-٨) 

.(١-٨) 

Normal 

Button 

Appearance 

سكل ٨-١ لاحظ الفرق بين الشكلين 

٨٧


الإختيار التلقائي : 

تستخدم لتغيير حالة مربع الإختيار تلقائيا عند النقر.‏ 

وهي متوفرة عند 

-٢ 



القيمة 

الشرح 

اختيار تلقائي عند النقر بمعن أنك سوف ترى علامة 

عند النقر.‏ 

لن تتم عملية الإختيار مهما نقرت على مربع 

الإختيار.‏ 

True 

False 

AutoCheck 

. 

: 

-٣ 

تنسيق الإختيار 

تستخدم هذه الخاصية لتنسيق المربع الذي في مربع الإختيار 

انظر 

TopCenter ‏(أعلى متوسط)‏ . 

الشكل(‏‎٢-٨‎‏)‏ 

عندما اخترنا القيمة 

وهي متوفرة عند 



القيمة 

الشرح 

جميع 

الإتجاهات 

عند اختيارك لتنسيق ما سوف يظهر ذلك 

CheckAlign 

. 

كما ترى في الشكل 

التنسيق في مربع الإختيار 

(٣-٨) 

شكل ٨-٢ كما تلاحظ كيف جاء المربع في 

الوسط 

شكل ٨-٣ لاحظ عندما اخترنا التنسيق الوسط العلوي كيف 

أثر ذلك في شكل ٨-٢ 

٨٨


() 

: الإختيار -٤ 

نستفيد من هذه الخاصية معرفة ما إذا كان المستخدم قد اختار 

يختر.‏ وهي متوفرة عند التصميم والتنفيذ.‏ 

الخاصية القيمة الشرح 

أو لم 

True Checked 

False 

قام المستخدم بالإختيار.‏ 

لم يقم المستخدم بالإختيار.‏ 

٥- حالة الإختيار : 


نستفيد من هذه الخاصية معرفة حالة الإختيار.‏ 

القيمة الشرح 

Unchecked 

Checked 

Indeterminate 

لم يقم المستخدم بالإختيار.‏ 

قام المستخدم بالإختيار.‏ 

غير محدد يعني لم يوافق ولم يرفض.‏ 

CheckState 

ThreeStateحتىتتمكن = True من 


CheckState 

لابد أن تكون خاصية 

استخدام خاصية 

-٦ 

الحالات الثلاث 

: 

تمكنك هذه الخاصية من وضع حالة ثالثة في مربع الإختيار توجد في 

الغالب عندما لايستطيع المستخدم الإختيار لأي ظرف ما 

عن الإختيار أو غيرها)‏ انظر الشكل 


) 

.(٤-٨) 

True ThreeState 

False 

ثلاث حالات لمربع الإختيار.‏ 

حالتان فقط إما أو بدونها.‏ 

مثل عدم المعرفة أو التحفظ 

شكل ٨-٤ لاحظ الحالات الثلاث 

٨٩


زر الإختيار Button) (Radio 


مثال 

تستخدم أداة زر الإختيار لإعطاء الفرصة للمستخدم لإختيار واحد من عدة 

اختيارات.‏ يمكن تجميع أداة زر الإختيار في مجموعات ضمن اطار واحد وعند 

اختيار المستخدم لأحدها يلغي النظام اختيار بقية أزرار الإختيار في نفس 

المجموعة.‏ 

الشكل(‏‎٥-٨‎‏)‏ يوضح لك المثال.‏ 

خصائص زر الإختيار : الكلام فيها نفس الكلام عن خصائص مربع الإختيار بلا فرق وهي 

: 

،Background، Backcolor ، AutoCheck ، Appearance ،Anchor 

، Dock ، Curser ، Contextmenu ، Checked ، CheckAlign ، CauseValidate 

، TabIndex ، Size ، Locked ، ForeColor ، Font ، FlatStyle، Enabled 

Visible ، TextAlign ، Text ،TabStop 


إن هناك خصائص في مربع الإختيار لاتوجد في زر الإختيار مثل 

ThreeState 

قد لايظهر لك الفرق واضحا بين مربع الإختيار و زر الإختيار والتفريق بينهما مهم جدا 

لأنه يؤثر على استخدامهما.‏ الفرق بينهما هو أن المستخدم عندما يختار زر أمر ما فإن النظام 

يلغي الإختيار عن جميع الأزرار في نفس المجموعة لكن مربع الإختيار يسمح لك بالإختيار 

المتعدد انظر الشكل 

(٥-٨) 

شكل ٨-٥ 

لاحظ الفرق بين مربع الإختيار و زر الإختيار 

٩٠


الدرس الثاني 

التدرب أكثر للتعامل مع فيجوال بيسك 

برنامج الألوان 

الهدف 

سوف نقوم في التدريب التالي للتدرب أكثر على فيجوال بيسك وسوف يكون 

التركيز على التعود أكثر في التعامل مع الأدوات والخصائص والأحداث.‏ 


نموذج وسوف نضيف إليه ثلاث أزرار اختيار 

-RadioButton– 

وثلاث أزرار 

أمر وأداة عنوان ومربع تجميع لجمع الأزرار الثلاثة في إطار واحد.‏ انظر 

شكل(‏‎٦-٨‎‏)‏ 

الناتج 

ستكون العملية كالتالي 

. 

ماكتبته من مربع النص إلى أداة العنوان 

. 

سوف تكتب في مربع النص ثم تنقر زر مرحبا ثم سينتقل 

عند الضغط على أي من أزرار الراديو 

يتغير لون النص الذي على أداة العنوان عند الضغط على زر حول البرنامج 

تظهر لك رسالة 

" 

هذا هو البرنامج الثاني"‏ 

ملاحظة مهمة جدا 

لأنها لاتعمل في 

: 

عند البدء في البرمجة لاتحاول استخدام الخاصية الإفتراضية لأي كائن 

. vb.net 

رسالة في مربع النص لنفترض أن اسمه 

مثال في الإصدار السابق من 

فيجوال بيسك إذا أردت أن تظهر 

txtName برمجيا يمكنك كتابة العبارة التالية 

" مرحبا " = txtName.text 

كذلك يمكنك عدم كتابة اسم الخاصية لأنها الخاصية الإفتراضية فتستطيع كتابة العبارة بصورة 

مكافئة كما يلي 

لاحظ بدون الخاصية 


مرحبا 

TxtName = 

" 

Text 

. 

أما في 

vb.net فلايمكن ذلك بل لابد من كتابة العبارة كاملة مع 

٩١


الخطوة 


ضع أداة العنوان ثم مربع النص ثم ثلاثة أزرار أمر ثم ضع مربع 

التجميع ثم ضع ثلاثة أزرار اختيار فوقه لكي تكون مجموعة واحدة.‏ 

-١ 

وضع الأداوت 

على النموذج.‏ 

شكل ٨-٤ التصميم المبدئي لنموذج الألوان 

٢- تغيير خصائص 

بعض الأدوات 

‏(أثناء التصميم).‏ 

غير خصائص الأدوات لتصبح مطابقة للجدول التالي 

انظر الشكل 

.(٦-٨) 


Text Form1 

RightToLeft 

Name RadioButton1 

Text 

‏“البرنامج 

الأول"‏ 

Right 

rdbBlue 

RadioButton2 

RadioButton3 

GroupBox1 

Label1 

Text1 

أزرق 

rdbRed 

أحمر 

rdbGreen 

أخضر 

GrbColors 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

ألوان 

LblColor 

txtColor 

٩٢


cmdMove 

نقل النص 

cmdExit 

خروج 

CmeAbout 

حول البرنامج 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Button1 

Button2 

Button3 

.I 

-٣ 

لون الكتابة 

تغيير خاصية 

) 

( ForColor 

لأداة 

العنوان عند النقر 

على أي من أزرار 

الأختيار ثم لاحظ أن 

تغيير اللون يتم عند 

الحدث 

التنفيذ)‏ 

انقر مزدوج على زر الإختيار الأزرق.‏ واكتب التالي 

lblColor.ForeColor = color.Blue 

في هذه العبارة نلاحظ أننا نغير قيمة خاصية لون الخط لأداة 

العنوان إلى أزرق.‏ لو أردت تغيير اللون الخلفي بدل لون الخط ضع 

BackColor بدلا من 

.ForeColor 

.II 

ارجع إلى شاشة التصميم 

انقر مزدوج على زر الإختيار الأحمر واكتب التالي 

lblColor.ForeColor = color.red 

.III انقر مزدوج على زر الإختيار الأخضر واكتب التالي 

lblColor.ForeColor = color.Green 

. ‏(أثناء 

-٤ 

نقل مايكتبه 

المستخدم من أداة 

النص إلى أداة 

العنوان وذلك بنقل 

قيمة خاصية 

Text 

في أداة النص 

ووضعها في 

خاصية 

Text لأداة 

العنوان لاحظ أن 

انقر مزدوج على زر الأمر ‏"نقل النص"‏ واكتب التالي 

lblcolor.Text = txtColor.Text 

في هذه العبارة تلاحظ أننا نأخذ قيمة الخاصية txtColor.Text 

ونضعها في 

افترض أن 

أهلا وسهلا 

بعد تنفيذ 

lblcolor.Text 

txtColor.Text 

lblcolor.Text = txtColor.Text 

= 

lblcolor.Text 

أهلا وسهلا.‏ 

سوف تصبح قيمة 

٩٣


عملية النقل سوف 

تتم عند النقر على 

زر cmdMove 

أي عند حدث النقر 

لهذه الأداة.‏ 

٥- عرض رسالة 

عن البرنامج 

باستخدام الدالة 

MessageBox.Show 

مع شرح مبسط لهذه 

الدالة.‏ لاحظ أن 

عرض الرسالة 

سوف يتم عند النقر 

على زر الأمر 

انقر مزدوج على زر الأمر cmdAbout وأكتب التالي 

‏,"ألوان"‏ ‏,"الألوان برنامج هو هذا")‏MessageBox.Show 

MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 

هذه العبارة سوف تظهر لنا رسالة مكتوب عليها هذا هو برنامج 

الألوان.‏ 

كما تلاحظ الأمر هو 

MessageBox.Show 

هذه هي دالة ولها ثلاثة عوامل تحتاج إليها 

نوع الرسالة 

عنوان الرسالة 

يعني صندوق الرسالة 

. 

MessageBox.Show ( 

. 

، الرسالة 

، ) 

الرسالة : 

نوع الرسالة : 

وتكتب فيها الرسالة التي تريد اظهارها.‏ 

وسوف تظهر لك قائمة أنواع كثيرة تختار مايناسبك.‏ 

.cmdAbout 

. 

مثلا هناك رسائل تحذيريه ورسائل تأكيديه 

ورسائل معلوماتيه 

ونحن في هذا المثال اخترنا Information 

وهي المعلوماتيه 

وأنصحك بتغيير نوع الرسالة عدة مرات لتعرف الفرق بينها.‏ 

-٦ 

انهاء البرنامج 

عند النقر على زر 

٦- انقر مزدوج على زر الأمر خروج واكتب العبارة التالية 

هذه العبارة سوف تنهي البرنامج كاملا.‏ 

End 

.cmdExit 

٩٤



نفذ البرنامج حسب الخطوات التالية 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

-٦ 

أكتب في مربع النص أهلا وسهلا بكم.‏ 

انقر مره واحدة على زر الأمر نقل النص ثم لاحظ انتقال النص الى أداة العنوان.‏ 

انقر زر الإختيار أزرق مرة واحدة ثم لاحظ تغير لون النص في أداة العنوان.‏ 

أنقر زر حول البرنامج لتظهر لك الرسالة 

يجب أن يكون الشكل مطابقا للشكل 

انقر زر خروج لأنهاء البرنامج.‏ 

: 

.(٧-٨) 

هذا هو برنامج الألوان.‏ 

شكل ٨-٧ بعد اتمام الخطوات من ١ إلى ٤ 

٩٥


أداة القائمة Box) (List 


تستخدم أداة القائمة لعرض مجموعة من العناصر ‏(بيانات)‏ للمستخدم على شكل 

قائمة بحيث يتمكن من اختيار عنصر أو أكثر إن كان ذلك مسموحا انظر الشكل 

(١-٩) 

مثال 

إذا أردت عرض قائمة أسماء المدن أو الإدارات أو غيرها من القوائم.‏ 

شكل ٩-١ لاحظ الشكل العام للقائمة 

خصائص زر الإختيار : الكلام فيها نفس الكلام عن خصائص مربع الإختيار بلا فرق وهي 

: 

، Contextmenu ، CauseValidate ، BorderStyle،Backcolor ،Anchor 

، Size ، Locked ، Location،ForeColor ، Font ، Enabled ، Dock ، Curser 

Visible ، TabStop، TabIndex 

وهناك بعض الخصائص التي لاتوجد في الأدوات السابقة وهي ماسنشرحه الآن 

١- عرض العمود 

ملاحظة 


الخاصية.‏ 

بالتفصيل : 

: 

. 

: 

يستطيع المستخدم تحديد عرض الأعمدة في القائمة من خلال هذه 

لابد أن تكون خاصية MultiColumn = True حتى تتمكن من استخدام هذه 

٩٧



القيمة 

صفر 

عدد صحيح 

الشرح 

النظام سوف يحدد عرض الأعمدة.‏ 

عرض العمود في القائمة متعددة الأعمدة.‏ 

ColumnWidht 

‎٢‎‏-مصدر البيانات (DataSource) : 

تستخدم هذه الخاصية لتحديد مصدر العناصر التي 

سوف تعرض في القائمة.‏ 

. 

مثال لمصدر البيانات : 

جدول أسماء الإدارات من قاعدة بيانات 

‎٣‎‏-المعروض :(DisplayMember) 

إذا استخدمت خاصية مصدر البيانات وحددت 

جدول الإدارات ليكون هو مصدر البيانات لهذه القائمة فلا بد 

أن 

تحدد أي حقل من هذا 

الجدول تريد أن يظهر للمستخدم ) 

مثلا قد تريد عرض اسماء الإدارات)‏ 

هذا الحقل الذي 

تريد عرضه للمستخدم هو قيمة 

هذه الخاصية.‏ 

ماذا عن أرقام الإدارات كيف تحصل 

عليه ؟ يمكنك ذلك عن طريق الخاصية 

VauleMember‏(القيمة).‏ 

. 

‎٤‎‏-شكل الظهور : 

تحديد شكل القائمة هل ستتركه للنظام أم تريد أن تتحكم به 

هذه 

الخاصية هي التي تحدد هذا الأمر.‏ 


القيمة 

الشرح 

النظام سوف يحدد شكل عرض العناصر 

‏(ارتفاعها).‏ 

المستخدم سوف يحدد شكل عرض 

Normal 

OwnerDrawFixed 

DrawMode 

العناصر 

‏(ارتفاعها)‏ 

مع 

ملاحظةأن 

الإرتفاع سوف يكون هو نفسه لجميع 

العناصر وذلك من خلال الخاصية 

.Height 

OwnerDrawVariable المستخدم هو الذي يحدد شكل عرض 

العناصر مع ملاحظة أنك 

تستطيع اعطاء 

ارتفاعات مختلفة للعناصر.‏ 

٩٨


-٥ 

ملاحظة 

ارتفاع العنصر 

العنصر في القائمة 

: (ItemHeight) 

. 

: 

تستخدم هذه الخاصية لتحديد ارتفاع 

إذا أردت أن تستخدم هذه الخاصية فلابد أن تكون قيمة خاصية شكل الظهور 

إحدى القيمتين التاليتين إما 

. OwnerDrawVariable أو OwnerDrawFixed 

قيمة Normal فإن النظام هو الذي يتحكم بالإرتفاع لذلك لن تستفيد من هذه الخاصية.‏ 

عندنا هنا قيمتان لهذه الخاصية تبعا لقيمة خاصية شكل الظهور 

: 

.I 

.II 

أما 

إن كانت قيمة خاصية شكل الظهور OwnerDrawFixed فسوف تكون قيمة 

هذه الخاصية ارتفاع العنصر في القائمة وأنت خبير في أن إرتفاع العناصر 

سوف يكون موحدا في هذه الحاله 

. 

إن كانت قيمة خاصية شكل الظهور 

OwnerDrawVariable 

العناصر ٦- 

فسوف تكون 

قيمة هذه الخاصية هي ارتفاع آخر عنصر تمت إضافته.‏ في الفصول التطبيقية 

سوف تتمرن جيدا على استخدام هذه الخاصية.‏ 

: (Items) 

تعبر هذه الخاصية عن العناصر الموجودة في القائمة 

فكل عنصر بها هو أحد عناصر القائمة.‏ إذا أردت أن تحمل العناصر أثناء 

التصميم فيمكنك ذلك من خلال هذه الخاصية انقر الزر الذي عليه ثلاث نقاط 

ليظهر لك الشكل (٩-٢) اكتب العناصر واضغط زر الرجوع بعد كتابة كل 

عنصر لتستطيع كتابة عنصر آخر في سطر جديد ثم انقر زر Ok لتظهر لك 

القائمة بعناصرها كما في الشكل 

.(١-٩) 

كانت تلك طريقة تعبئة القائمة أثناء التصميم كذلك تستطيع تعبئتها بعد تنفيذ البرنامج من 

قاعدة بيانات أو من مصدر آخر وهو ماسنشرحه في الفصل القادم 

. 

شكل ٩-٢ طريقة تعبئة القائمة أثناء التصميم.‏ 

٩٩


: 

-٧ 

تعدد الأعمدة 

تستخدم هذه الخاصية لتحديد ما إذا كانت هذه القائمة سوف تعرض 

أكثر من عمود.‏ 


القيمة 

الشرح 

امكانية عرض عدة أعمدة.‏ 

عمود واحد فقط.‏ 

True 

False 

MultiColumn 

ColumnWidth لتحديد 



True استخدم خاصية 

عرض العمود.‏ 

: 

-٨ 

الظهور الدائم لشريط التمرير 

تستخدم هذه الخاصية لإظهار شريط التمرير دائما 

بغض النظر عن عدد العناصر في القائمة.‏ 


القيمة 

الشرح 

امكانية عرض عدة أعمدة.‏ 

عمود واحد فقط.‏ 

True 

False 

ScrollAlwaysVisible 

٩- طريقة الإختيار : 

تستخدم هذه الخاصية لتحديد ما إذا كان 

المستخدم يستطيع إختيار 

عنصر أو أكثر أو لايستطيع إختيار أي عنصر.‏ 


القيمة 

الشرح 

لايستطيع المستخدم اختيار أي عنصر من 

القائمة 

يستطيع اختيار عنصر واحد فقط 

يستطيع اختيار أكثر من عنصر انظر 

None 

One 

MultiSimple 

SelectionMode 

(٩-٣) شكل 

يستطيع اختيار أكثر من عنصر 

انظر 

MultiExtended 

شكل (٩-٣) 

MultiExtended ‏(الإختيار 


الفرق بين 

MultiSimple ‏(الإختيار البسيط)‏ 

و 

Shift و 

المطور)‏ 

أن الإختيار المطور يمكنك من استخدام زر 

Ctrl لإختيار متعدد بعكس 

الإختيار البسيط الذي يتوجب عليك النقر على كل عنصر لإختياره.‏ 

١٠٠


شكل ٩-٣ الإختيار المتعدد 

: 

الترتيب ١٠- 

تستخدم للترتيب التلقائي للعناصر.‏ 


القيمة 

الشرح 

ترتيب حسب حروف الهجاء.‏ 

ترتيب حسب تحميل العناصر في القائمة.‏ 

True 

False 

Sorted 

٣ 

:ValueMember 

القيمة ١١- 

ارجع الخاصية 

١٠١


الأداة المركبة(‏Box (Combo 


تستخدم هذه الأداة لعدة 

أغرض منها أنه يمكن استخدامها 

كأداة نص أو قائمة 

مثال 

منسدلة أو قائمة عادية مثل أداة القائمة السابقة.‏ 

إذا أردت عرض قائمة أسماء المدن أو الإدارات أو غيرها من القوائم.‏ 

إدارات جديدة يمكنك ذلك عن طريق هذه الخاصية.‏ 

أو إضافة 


في الغالب تستخدم القائمة عندما يكون عدد العناصر 

التي ستعرض قليل 

بينما 

تستخدم القائمة المنسدلة إذا كان عدد العناصر ضخما.‏ 

خصائص الأداة المركبة : 

الكلام فيها نفس الكلام عن خصائص أداة القائمة مع زيادة 

الخصائص التالية وهي : 

-١ 

العدد الأقصى للعناصر:‏ 

أكبر عدد ممكن من العناصر يمكن عرضه عند انسدال 

(٤-٩) 

القائمة.‏ 

انظر الشكل 

مع ملاحظة أنك تستطيع الوصول لباقي العناصر 

بواسطة أشرطة التمرير.‏ 

Style = 

Style = DropDown 



أو 

DropDownList حتى تتمكن من استخدام هذه الخاصية.‏ 


القيمة 


الشرح 

عدد العناصر عند انسدال القائمة.‏ 

MaxDropDownItems 

شكل ٩-0٤ عندما جعلنا قيمة العدد الأقصى من العناصر المنسدلة = ٢ 

١٠٢


(٥-٩) 

: 

-٢ 

النمط أو الشكل 

تستخدم للتحكم بشكل وأداء الأداة المركبة.انظر شكل 

لمعرفة الفرق بين القيم الثلاث لهذه الخاصية.‏ 


القيمة 

الشرح 

تكون فيه الأداة المركبة مشابهه لمربع 

النص.‏ 

قائمة منسدلة يستطيع المستخدم كتابة نص 

Simple 

DropDown 

Style 

في مكان التحرير.‏ 

أشبه ماتكون بأداة القائمة 

. المستخدم ليس 

DropDownList 

لديه إلا خيار الإختيار من القائمة.‏ 

شكل ٩-٥ يظهر لك الفرق بين القيم الثلاث لخاصية النمط 

١٠٣


قائمة مربع الخيار (CheckedListBox) 


تعتبر هذه الأداة امتدادا لأداة القائمة.‏ تستخدم بالضبط كما تستخدم أداة القائمة لكن 

كل عنصر من هذه الأداة يبدوا كأنه مربع نص انظر الشكل 

(٦-٩) 

مثال 

إذا أردت أن تعرض قائمة الطلاب وتريد أن يظهر أمام الطالب الناجح علامة 

وأما الطالب غير الناجح فلا يظهر بجانبه علامة.‏ انظر الشكل 

(٦-٩) 


يوجد اختلافات في بعض الخصائص بين أداة القائمة وأداة قائمة مربع الإختيار تبعا 

لإضافة مربع الإختيار 

شكل ٩-٦ : قائمة مربع الخيار 

خصائص قائمة مربع الخيار : 

الخصائص التالية وهي 

الكلام فيها نفس الكلام عن خصائص أداة القائمة مع زيادة 

: 

أهم خاصية يمكن ذكرها هنا هي خاصية العدد الأقصى للعناصر : أكبر عدد 

ممكن من العناصر يمكن عرضه عند انسدال القائمة.‏ انظر الشكل 

ملاحظة أنك تستطيع الوصول لباقي العناصر بواسطة أشرطة التمرير.‏ 

ملاحظة 

(٩-٧) مع 

: 


Style = أو Style = DropDown 

DropDownList حتى تتمكن من استخدام هذه الخاصية.‏ 

١٠٤



القيمة 


الشرح 

عدد العناصر عند انسدال القائمة.‏ 

MaxDropDownItems 

شكل:‏ ٩-٧ عندما جعلنا قيمة العدد الأقصى من العناصر المنسدلة = ٢ 

١٠٥


الدرس الثالث 

بداية حقيقية لكتابة البرامج 

برنامج قائمة الأسماء 

الهدف 

في 

سوف نقوم في التدريب التالي بداية التعامل مع القوائم وهي من الأدوات المهمة 

vb.net كذلك 

القدرة على بدء التفكير برمجيا.‏ 

سوف تتدرب أكثر على كتابة عبارات برمجية مما يعطيك 

-ListBox– 


نموذج وسوف نضيف إليه مربع قائمة 

و أربع أزرار أمر وأداة 

عنوان وأداة نص (٩-٨) 

انظر شكل 

الناتج 


تضغط زر الرجوع 

. 

سوف تكتب اسم في أداة النص ثم تنقر زر اضافة أو 

-Enter – 

ثم سينتقل ماكتبته من مربع النص إلى القائمة 

. 

عند الضغط على أي اسم من القائمة سوف يظهر في مربع النص ليمكنك من 

تعديله إذا أردت ثم ضغط زر تعديل ليعيده إلى القائمة بعد التعديل.‏ لحذف أي اسم 

اختر الإسم من القائمة ثم انقر على زر حذف ستظهر لك رسالة تأكيدية اختر 

Yes للحذف أو No لإلغاء أمر الحذف.‏ للخروج انقر على زر خروج.‏ انظر 

(٩-١٠) و (٩-٩) الشكلين 

١٠٦


الخطوة 

١- وضع الأدوات 

وتعديل الخصائص 

المطلوبة أثناء 

التصميم 


غير خصائص الأدوات لتصبح مطابقة للجدول التالي انظر 

(٩-٨) الشكل 


LblName 

الاسم 

txtName 

cmdAdd 

اضافة 

cmdUpdate 

تعديل 

CmdDelete 

حذف 

CmdExit 

Name Label1 

Text 

Name Text1 

Text 

Name Button1 

Text 

Name Button2 

Text 

Name Button3 

Text 

Name Button4 

Text 

Name ListBox 

RightToLeft Form1 

AcceptButton 

BackColor 

خروج 

LstName 

Right 

cmdAdd 

Moccasin 

شكل ٩-٨: بدء التعامل مع القوائم 

-٢ 

نحن نريد الآن 

إضافة مايكتبه 

البدء في البرنامج 

١٠٧

س ا 


المستخدم في مربع 

الأمر إلى أداة القائمة 

ليصبح عنصرا من 

عناصرها.‏ لكي نفعل 

ذلك لابد من أربع 

خطوات وهي أولا 

التأكد من أن 

المستخدم كتب شيئا 

: 

: 

في مربع النص.‏ ثانيا 

عملية الإضافة.‏ 

ثالثا : مسح ماهو 

موجود في مربع 

النص لإضافة عنصر 

: آخر.‏ أخيرا 

على مربع النص 

استعداد للكتابة.‏ 

التركيز 

انقر مزدوج على زر اضافة.‏ 

النص.‏ 

في 

واكتب التالي : 

If txtname.Text "" Then 

lstname.Items.Add(txtname.Text) 

End If 

txtname.ResetText() 

txtname.Focus() 

السطر الأول نتأكد من أن المستخدم أدخل اسم في مربع 

فنتأكد عن طريق الخاصية 

مايدخل في مربع النص فإذا كانت 

شيء.‏ 

في 

السطر الثاني نستخدم الدالة 

أن تعطي هذه الدالة ماتريد اضافته.‏ 

Text 

"" 

لأنها هي التي تحوي 

فيعني أن المستخدم لم يدخل 

Add للإضافة للقائمة.‏ 

بالطبع لابد 

في مثالنا هذا نحن نريد اضافة 

الاسم الذي يدخله المستخدم في مربع النص لذلك أعطينا هذه الدالة 

الاسم الذي أدخله المستخدم وهو موجود في الخاصية 

في 

السطر الثالث استخدمنا الدالة 

Text 

ResetText والتي تزيل الاسم 

الموجود في مربع النص لكي نتمكن من ادخال اسم 

آخر 

Focus 

في 

السطر الرابع 

تخدمنا الدالة 

لكي يعود المؤشر إلى 

مربع النص لنتمكن من كتابة اسم 

السطر الأخير نغلق جملة الشرط 

آخر 

If 

٣- اظهار العنصر 

الذي يختاره المستخدم 

من القائمة في مربع 

النص 

انقر مزدوج على القائمة واكتب التالي 

txtname.Text = lstname.SelectedItem.ToString 

في العبارة 

نعرض السابقة 

المستخدم.‏ لأننا نكتب هذه العبارة عند الحدث 

في مربع النص العنصر الذي اختاره 

SelectedIndexChanged فإن قيمة مربع النص تتغير كلما 

غير المستخدم الاسم الذي يختاره.‏ 

فلو نقر المستخدم على الاسم محمد ظهر لنا في مربع النص محمد 

ثم نقر على خالد ظهر لنا خالد.‏ 

SelectedIndexChanged 

ملاحظه : 

الحدث 

يتم تنفيذه كلما 

١٠٨


انتقل المستخدم من عنصر إلى 

أي طريقة كانت.‏ 

آخر سواء بالفأرة أو الأسهم أو 

٤- تعديل أحد عناصر 

القائمة يتم بأربع 

التأكد : خطوات.‏ أولا 

من أن المستخدم 

اختار عنصرا من 

القائمة لتعديلة.‏ ثانيا 

حذف العنصر من 

القائمة.‏ ثالثا وضع 

العنصر الجديد بدلا 

منه.‏ أخيرا 

: 

مسح : 

ماهو موجود في 

مربع النص 

انقر مزدوج على زر التعديل واكتب التالي 

If lstname.SelectedIndex -1 Then 

lstname.Items.Remove(lstname.SelectedIndex) 

lstname.Items.Add(txtname.Text) 


End If 

في العبارة الأولى نتأكد من أن هناك اسم مختار في القائمة.‏ 

تذكر من الفصل الأول أن قيمة 

يختر المستخدم أي عنصر.‏ 

في العبارة الثانية نستخدم الدالة 


SelectedIndex 

Remove 

تكون 

كما 

–١ إذا لم 

لحذف عنصر من 

من البديهي أن هذه الدالة تطلب رقم العنصر الذي نريد 

حذفه.‏ وأنت تعلم أن 


lstname.SelectedIndex 

تعطينا رقم العنصر الحالي 

أي الذي نقر عليه المستخدم لذلك فنحن نرسله إلى هذه الدالة.‏ 

في العبارة الثالثة تنظيف مربع النص وهي 


Dim s As String 

s = txtname.Text & " 

" 

٥- حذف عنصر من 

القائمة.‏ خطوتان 

لإتمام هذه العملية.‏ 

أولا التأكد من أن 

المستخدم يريد حذف 

العنصر من القائمة.‏ 

: ثانيا 

عملية الحذف.‏ 

هل أنت متأكد من حذف 

حذف"‏ ‏"تحذير 

If MessageBox.Show(s ، : MessageBox.YesNo 

، 

+ MessageBox.IconQuestion) _ 

= DialogResult.Yes Then 

lstname.Items.Remove(lstname.SelectedIndex) 

End If 

١٠٩


في العبارة الأولى نعرف متغير لحفظ الرسالة التحذيرية قبل حذف 

الاسم.‏ 

في العبارة الثانية نحفظ الاسم الحالي الموجود في مربع النص بالإضافة 

إلى الجملة التحذيرية.‏ مثال لو اختار المستخدم من القائمة اسم أحمد 

فإنه سيظهر في مربع النص.‏ فإذا نقر المستخدم على زر حذف فستكون 

العباره هل أنت متأكد من حذف أحمد.‏ كما تعرف أن قيمة الخاصية 

Text هي قيمة نصية بمعنى أنه نص ولهذا السبب استخدمنا الإشارة 

وهي لإضافة نص إلى نص 

& 

. 

العبارة الثالثة سوف تظهر للمستخدم رسالة تأكيدية للحذف فإذا ضغط 

زر Yesفسوف يتم الحذف.‏ 

العبارة الرابعة سبق توضيحها وسوف تقوم بعملية الحذف.‏ 

خاصية : ملاحظة 

AcceptButton 

cmdAdd 

في النموذج معناها أن هذا الزر الذي هو 

سيكون هو الزر الإفتراضي بمعنى عندما أضغط زر الرجوع في لوحة 

المفاتيح -Enter– كأني نقرت هذا الزر 

-cmdAdd– بالفأرة.‏ 

وهذا يفيد عندما يكون 

هناك حاجة لسرعة التعامل مثل أن تكون البيانات كثيرة فلا أحتاج كل مره أن أنقر زر 

الإضافة بالفأرة مما يسبب البطء.‏ فقط اجعل الزر الذي تريد هو 

AcceptButton ولن 

تحتاج للفأرة.‏ في مثالنا هذا فقط اكتب الاسم واضغط زر الرجوع وسوف يضيفه للقائمة.‏ 


نفذ البرنامج حسب الخطوات التالية : 

-١ 

أكتب في مربع النص أحمد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

‎٢‎‏-أكتب في مربع النص خالد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

‎٣‎‏-أكتب في مربع النص مساعد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

‎٤‎‏-أكتب في مربع النص دخيل ثم انقر اضافة أو اضغط زر الرجوع.‏ 

حتى الآن لاحظ أن الاسماء التي كتبتها اضيفت إلى القائمة انظر الشكل 

.(٩-٩) 

١١٠


‎٥‎‏-اختر أحد الاسماء من القائمة ولاحظ أنه يظهر في مربع النص.‏ 

‎٦‎‏-اختر اسم ثاني وذلك بالنقر عليه ثم لاحظ أن مربع النص يتغير.‏ 

‎٧‎‏-غير هذا الاسم في مربع النص ثم انقر زر تعديل ولاحظ انه يتغير في 


‎٨‎‏-انقر زر حذف ستظهر لك الرسالة كما في شكل 

‎٩‎‏-انقر زر خروج لأنهاء البرنامج.‏ 

.(١٠-٩) 

شكل ٩-١٠ حذف اسم من القائ مة 

شكل ٩-٩ اضافة اسماء إلى القائمة 

١١١


الدرس الرابع 

التعامل مع ثلاثة أنواع من القوائم 

برنامج نتائج امتحان الطلاب 

الهدف 

سوف نقوم في التدريب التالي بالتعامل مع ثلاثة أنواع من القوائم وهي مربع 

القائمة والأداة المركبة و قائمة مربع الخيار.‏ وهي من الأدوات المهمة في 

خصوصا لمن يريد التعامل مع قواعد البيانات.‏ 

vb.net 


مربع قائمة 

نموذج وسوف نضيف إليه -ListBox– 

الخيار و أربع أزرار أمر 

وسبع أداوات عنوان وأداة نص.‏ انظر 

و أداة مركبة و قائمة مربع 

شكل (٩- 

(١١ 

الناتج 


تضغط زر الرجوع 

ذات العلامة 

. 

سوف تكتب اسم في أداة النص ثم تنقر زر إضافة أو 

-Enter – 

. 

ثم سينتقل ما كتبته من مربع النص إلى القائمة 

لحذف أي اسم اختر الإسم من القائمة ثم انقر على زر حذف 

ستظهر لك رسالة تأكيدية اختر Yes للحذف أو No لإلغاء أمر الحذف.‏ عند 

الإنتها من كتابة الأسماء انقر على اسم الطالب الناجح مرة واحد مما يؤدي إلى 

تظليل هذا الإسم انقر على المربع الذي بجوار الاسم لكي تظهر عليه علامة . 

ضع هذه العلامة امام الطلاب الناجحين.‏ في النهاية انقر زر توزيع لكي ينقل 

الطلاب الناجحين إلى مربع القائمة والطلاب غير الناجحين إلى الأداة المركبة 

ويظهر لك على أدوات العنوان عدد الطلاب الكلي وعدد الناجحين وعدد 

الراسبين.‏ للخروج انقر على زر خروج.‏ انظر الشكل 

(١٢-٩) 

١١٢


الخطوة 


١- وضع 

الأداوت على 


ضع الأدوات كما هو موضح في شكل (٩-١١) وجدول الخصائص 

شكل ٩-١١ : ثلاثة أنواع من القوائم 

(١١-٩) 

٢- تعديل 

الخصائص 

المطلوبة أثناء 

التصميم 

غير خصائص الأدوات لتصبح مطابقة للجدول التالي انظر الشكل 


LblName 

الاسم 

lblSuccess 

عدد الناجحين 

lblFail 

عدد الراسبين 

lblAll 

عدد الطلاب 

Label5 

جميع الطلاب 

Label6 

الناجحون 

Label7 

Name Label1 

Text 

Name Label2 

Text 

Name Label3 

Text 

Name Label4 

Text 

Name Label5 

Text 

Name Label6 

Text 

Name Label7 

Text 

Name 

Text1 

Text 

Name Button1 

الراسبون 

txtName 

cmdAdd 

١١٣


اضافة 

cmdUpdate 

حذف 

CmdMove 

توزيع 

CmdExit 

خروج 

LstSuccess 

cboFail 

chsAll 

Right 

cmdAdd 

Moccasin 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Name 

Name 

RightToLeft 

AcceptButton 

BackColor 

Button2 

Button3 

Button4 

ListBox1 

ComboBox1 

CheckedListBox 

Form1 

.I 

٣- إضافة 

عنصر إلى 

قائمة مربع 

الخيار.‏ ويقال 

فيه مثل ما 

قيل في إضافة 

عنصر إلى 


انقر مزدوج على زر إضافة.‏ 

واكتب التالي 

If txtName.Text "" Then 

chsAll.Items.Add(txtName.Text) 

txtName.Focus() 

txtName.ResetText() 

Else 

MessageBox.Show( 

، ‏"تنبيه 

"، ‏"يجب كتابة اسم في مربع النص " 

MessageBox.OK) 

End If 

.II 

بعد التأكد من أن المستخدم أدخل اسما في مربع النص.‏ نستخدم الدالة 

Add للإضافة للقائمة.‏ بالطبع لابد أن تعطي هذه الدالة ما تريد إضافته.‏ في مثالنا هذا 

نحن نريد إضافة الاسم الذي يدخله المستخدم في مربع النص لذلك أعطينا هذه الدالة 

الاسم الذي أدخله المستخدم وهو موجود في الخاصية 

Text 

chsAll.Items.Add(txtname.Text) 

١١٤


تحت 

.III 

If 

في حالة أن المستخدم لم يدخل اسم في مربع النص لن يتم تنفيذ مايندرج 

وسينفذ بدلا منه مابعد Else لذلك سوف تظهر رسالة للمستخدم تخبره أنه 

يجب أن يكتب اسم في مربع النص.‏ 

٤- حذف 

.I 

عنصر 


من 

انقر مزدوج على زر حذف واكتب التالي 

Dim s As String 

If chsAll.SelectedIndex -1 Then 

s = " & chsAll.SelectedItem.ToString 

‏"هل أنت متأكد من حذف 

حذف"‏ ‏"تحذير 

If MessageBox.Show(s _ ، : ، 

MessageBox.YesNo + MessageBox.IconQuestion) _ 

= DialogResult.Yes Then 

chsAll.Items.Remove(chsAll.SelectedIndex) 

End If 

End If 

.II 

.III 

نعرف متغير 

s من نوع نص لكي يحفظ نص 

بالإضافة إلى العنصر الذي يريد المستخدم حذفه.‏ 

نتأكد من 

التحذير من الحذف 

أن هناك اسم مختار في القائمة وذلك بالتأكد من قيمة الخاصية 

chsAll.SelectedIndex فإذا كانت قيمتها 

١- 

.IV 

يختر شيئا.‏ 

يتم في العبارة التالية دمج العنصر الذي اختاره المستخدم 

نص 

– مع الرسالة التحذيرية كما يلي 

: 

عرفنا أن المستخدم لم 

‏-بعد تحويله إلى 

s = " أنت متأكد من حذف ‏"هل & chsAll.SelectedItem.ToString 

ومن ثم اظهار الرسالة للمستخدم 

.V 

يتم حذف العنصر من المجموعة وذلك باستخدام الدالة 

Remove وهذه 

الدالة تطلب رقم العنصر الذي نريد حذفه وكما ترى فقد أعطيناها 

chsAll.SelectedIndex وهو رقم العنصر المختار 

– المظلل-.‏ 

١١٥


.I 

٥- توزيع 

الطلاب إلى 

ناجحين 

وراسبين.‏ 

فالمربع الذي 

أمامه علامة 

X سوف 

يكون ناجحا 

وسيذهب إلى 


انقر مزدوج على زر الأمر توزيع 

Dim i As Integer 

Dim intSuccess As Integer 

Dim intFail As Integer 

Dim intAll As Integer 

cboFail.Items.Clear() 

lstSuccess.Items.Clear() 

For i = 0 To (chsAll.Items.Count – 1) 

If chsAll.GetItemChecked(i) = True Then 

lstSuccess.Items.Add(chsall.Items(i)) 

intSuccess = intSuccess + 1 

intAll = intAll + 1 

Else 

cboFail.Items.Add(chsall.Items(i)) 

intFail = intFail + 1 

intAll = intAll + 1 

End If 

Next 

lblSuccess.Text = lblSuccess.Text & " = " & intSuccess 

lblFail.Text = lblFail.Text & " = " & intFail 

lblAll.Text = lblAll.Text & " = " & intAll 

I 

عرفنا أربعة متغيرات،‏ 

أول هذه المتغيرات 

و الهدف منه أن يكون عداد 

.II 

في التكرار.‏ intFail و intSuccess و intAll 

لنحتفظ 

بعدد الراسبين 

والناجحين 

والعدد الكلي للطلاب.‏ 

.III نحذف جميع العناصر الموجودة في القائمة والأداة المركبة وذلك فيما لو 

كان هناك عناصر مسبقا.‏ 

ويكون حذف جميع العناصر عن طريق 

. 

الخاصية clear 

.IV تبدأ عملية التكرار للتأكد من حالة العناصر فكل عنصر قد وضع امام 

مربعه 

فهو ناجح والعنصر الذي بخلاف ذلك راسب.‏ 

لاحظ أن عداد 

التكرار ينتهي إلى 

– 1 chsAll.Items.Count يعني لو كان العدد الكلي 

للعناصر ستة فنهاية التكرار خمسة لكن لو لاحظت بدايته فهي من صفر 

معنى ذلك أنه ستكرر ست مرات.‏ 

V. سوف يمكننا التكرار من المرور على جميع العناصر عنصر عنصر 

للتأكد من قيمتها 

If chsAll.GetItemChecked(i) = True Then 

لاحظ أن خاصية chsAll.GetItemChecked(i) هي التي تخبرنا هل العنصر 

True 

أمامه 

أو لا.‏ 

فإذا كانت قيمة هذه الخاصية 

فهذا يدل أن أمامها علامة.‏ 

١١٦



طبعا تلاحظ أننا نمر على جميع العناصر لأن قيمة 

للعنصر الأخير.‏ 

.VI 

I تزيد كل مره حتى نصل 

تتم عملية اضافة العناصر ذات العلامة إلى القائمة والتي ليس أمامها 

علامة إلى الأداة المركبة.‏ 

كما تلاحظ إن كان أمام العنصر علامة أضفنا واحد إلى قيمة 

يكن أمامه علامة أضفنا واحد إلى قيمة 

قيمة 

intAll ثم نعرضها على أدوات العنوان.‏ 

نفذ البرنامج حسب الخطوات التالية : 

intSuccess 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

-٦ 

وإن لم 

intFail وفي كلتا الحالتين نضيف واحد إلى 

أكتب في مربع النص خالد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

أكتب في مربع النص محمد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

أكتب في مربع النص أحمد ثم انقر اضافة أو اضغط زر الرجوع.‏ 

أكتب في مربع النص عبدالرحمن ثم انقر اضافة أو اضغط زر الرجوع.‏ 

أكتب في مربع النص عبداالله ثم انقر اضافة أو اضغط زر الرجوع.‏ 

أكتب في مربع النص عمرثم انقر اضافة أو اضغط زر الرجوع 

حتى الآن لاحظ أن الاسماء التي كتبتها تضاف إلى القائمة إما بضغط زر الرجوع أو 

النقر على اضافة 

-٧ 

-٨ 

-٩ 

-١٠ 

انقر مره واحده على اسم محمد ولاحظ أنه تظلل.‏ 

انقر على المربع الذي على يمين محمد ولاحظ ظهور العلامة . 

كرر الخطوتين السابقتين بالنسبة لعبدالرحمن وعمر.‏ 

يجب أن يظهر لك شكل 

. (١٢-٩) 

-١١ 

شكل ١٢-٩ : 

انقر زر خروج لأنهاء البرنامج.‏ 

استخدام القائم الثلاث 

١١٧


-١ 

التعامل بشكل جيد مع النموذج 

لقد حصل تغير في طريقة التعامل مع النموذج بين الاصدار السادس و الدوت نت.‏ سوف نحاول 

أن نتكلم عن أبرز مايهم المستفيد عند تعامله مع النموذج من خلال أمثلة تقرب الفكرة.‏ 

كيفية فتح نموذج : قم بإضافة نموذج إلى المشروع ليكن اسمه 

ثاني و ليكن اسمه 

Form1 ثم 

.Form2 

أضف نموذج 

ارجع إلى النموذج الأول و أضف زر أمر إلى النموذج.‏ 

انقر مزدوجا على زر الأمر لتنتقل إلى الكود الخاص بحدث النقر الخاص بالنموذج و 

اكتب الكود التالي 

: 

Private Sub Button1_Click(ByVal Sender As Object, ByVal e As EventArgs) 

Handles Button1.Click 

Dim frm2 As New Form2() 

frm2.Show() 

End Sub 

في الكود السابق قمنا بما يلي 

: 

.I 

تعريف متغير من نوع 

.Form2 

.II 

عرض نموذج 

.Form2 

.III 

حاول تشغيل المثال و انقر على زر الأمر ولاحظ أنه يفتح نموذج عند كل نقره..‏ 

‎٢‎‏-منع عرض النموذج أكثر من مره : 

عرض لك نفس النموذج،‏ 

المستخدم على زر الأمر.‏ الكود التالي يوضح لك الفكرة 

: 

لاحظت في المثال السابق أنه كلما نقرت على زر الأمر 

ماذا لو أردت أن يتم عرض النموذج مره واحدة فقط مهما نقر 

Private frm2 As Form2 

Private Sub Button1_Click(ByVal Sender As Object, ByVal e As 

EventArgs) Handles Button1.Click 

If IsNothing(frm2) = False Then 

If frm2.IsDisposed = False Then 

Else 

frm2 = New Form2() 

frm2.Show() 

End If 

Else 

frm2 = New Form2() 

frm2.Show() 

End If 

End Sub


في الكود السابق قمنا بالخطوات التالية 

: 

-١ 

-٢ 

-٣ 

-٤ 

عرفنا متغير من نوع 

،Form2 

فقط تعريف بدون إنشاء نسخة منه 

قمنا بالتأكد من أن نموذج‎٢‎ غير موجود اطلاقا من خلال عبارة 

ثم تأكدنا من أنه مهلك من خلال عبارة 

.Instance 

.Isnothing 

.Isdisposed 

بعد ذلك إذا انتفت الشروط السابقة نقوم بعرضه.‏ 

-٣ 

إرسال المتغيرات بين النماذج 

قد تريد أن تعين قيمة لمتغير في نموذج و تسترجعها في نموذج آخر.‏ يوجد عدة طرق لإرسال 

متغير بين نموذجين منها تعريف المتغير على أنه متغير عام في Module ومنها الطريقة التالية 

التي سنوضحها من خلال الكود التالي 

: 

: 

هذا الكود يجب أن يكون في Form1 وهو تعريف للمتغير و يجب أن يكون على مستوى النموذج 

Public PassingVar As String 

الكود التالي يكون في نموذج Form2 لإعطاء قيمة للمتغير الذي عرفناه في نموذج‎١‎‏:‏ 

Dim myForm As Form1 

myForm.myVar = " 

" 

هذه القيمة تم تعيينها في نموذج‎٢‎ 

-٤ 

تغيير موقع النموذج في الشاشة 

لتغيير موقع النموذج في الشاشة استخدم خاصية 

النموذج.‏ 

DesktopLocation 

وهي أحد خصائص 

فإذا أردت نقل النموذج إلى الجزء العلوي الشمالي من الشاشة استخدم المثال التالي 

: 

Me.DesktopLocation = New Point(0, 0)


إنشاء القوائم 

يعتبر استخدام القوائم معيارا اساسيا في كثير من الأنظمة.‏ من أهم فوائد القوائم هي تنظيم و 

تسهيل الوصول إلى وظائف النظام المختلفة.‏ توفر لنا بيئة الدوت نت طريقة سهلة جدا لإنشاء 

النظام.‏ في بيئة الدوت نت انتقلت القوائم لتصبح أداة مثل الأدوات الأخرى تستطيع إضافتها من 

مربع الأدوات عن طريق السحب و الافلات كما ترى من الشكل 

.(١-١١) 

شكل ١-١١ : 

أداة القوائم 

تتكون القائمة من عدة قوائم فرعية كل واحد من هذه القوائم الفرعية يمكن أن ينفذ أمرا ما مثل 

استدعاء نموذج آخر.‏ سوف نقوم بتصميم قائمة كما يظهر لك من الشكل(‏‎٢-١١‎‏).‏ 

شكل ٢-١١ : 

تصميم القوائم في بيئة الدوت نت 

لتصميم القوائم اتبع الخطوات التالية 

: 

-١ 

أضف أداة القوائم و ذلك بسحبها و افلاتها في النموذج أو بالنقر المزدوج عليها ليظهر لك 

(١١-٣) الشكل 

شكل ١١-٣: بعد إضافة أداة القائم للنموذج


انقر 

المربع الصغير الذي ظهر لك مرة واحدة واكتب كلمة ملف كما يظهر من 

الشكل(‏‎٤-١١‎‏)‏ 

-٢ 

شكل ١١-٤ : طريقة إضافة قائمة رئيسية أو فرعية 

سوف يظهر لك مربعان آخران أحدهما على اليمين و الآخر إلى أسفل.‏ يمثل هذا 

المربعان مكانان لكتابة اسم القائمة الأخرى.‏ قم بالنقر على القائمة اليمنى واكتب مساعدة 

كما ترى من الشكل(‏‎٥-١١‎‏).‏ 

-٣ 

شكل ١١-٥ : ظهور قائمة فرعية و أخرى رئيسية عند إضافة قائمة رئيسية 

-٤ 

-٥ 

أكمل بقية القوائم ثم ضع قائمة فرعية للمساعدة تظهر عنوان البرنامج.‏ 

اذهب إلى القائمة الفرعية لقائمة ملف و انقر مزدوجا عليها لكي تنتقل إلى الحدث الخاص 

بنقرها ثم اكتب الكود التالي 

Dim frm2 As New Form2() 

frm2.Show() 

: 

لاحظ أن هذا الكود يفترض أن هناك نموذجا آخر اسمه 

القائمة الفرعية فتح نموذج‎٢‎ ثم انقر عليها ليتم فتح هذا النموذج.‏ 

. Form2 

شغل النظام ثم اختر


أداة التوقيت 

Timer 

تستخدم أداة التوقيت لتنفيذ عمل ما كل فترة زمنية أو عند وقت معين.‏ 

تعمل نسخ احتياطي للملفات كل يوم فإن أداة التوقيت ستكون خيار جيد.‏ 

الأداة هي خاصية 

Interval و 

فإذا أردت مثلا أن 

أهم خصائص هذه 

تمثل الفترة بالملي ثانية (Millisecond) لدقات الوقت.‏ 

بكتابة الكود الذي تريد تنفيذه كل فترة من الزمن داخل الحدث 

الأداة.‏ 

لبدء المؤقت استخدم الطريقة 

هذه الأداة فاستخدم الطريقة 

برنامج الساعة 

أداة عنوان 

.Stop 

Start وهي أحد طرق أداة التوقيت،‏ 

في هذا البرنامج سوف نقوم ببناء برنامج يمثل ساعة.‏ 

و أداة توقيت،‏ 

قم 

Tick() و هو أهم أحداث هذه 

أما إذا أردت إيقاف 

سوف يكون لدينا زر أمر و 

عند النقر على زر الأمر سوف يتم تشغيل أداة التوقيت و التي 

ستقوم بعرض الساعة على أداة العنوان.‏ أضف الأدوات التي تظهر في الشكل 

شكل ١١-٦ : تصميم برنامج الساعة 

(٦-١١) 

أعط الأدوات الخصائص التالية 

: 

-١ 

اسم الأداة 


القيمة 

cmdStartStop 

تشغيل الساعة 

lblClock 

Timer1 

1000 

برنامج الساعة 

Name 

Text 

Name 

Text 

Name 

Interval 

Text 

Button1 

Label1 

Timer 

Timer 

Form


لاحظ أن قيمة خاصية Interval هي 

١٠٠٠ ملي ثانية و يساوي ثانية واحدة وهو ما 

يعني أن الكود داخل الحدث Tick سيتم 

تنفيذه كل ثانية.‏ 

-٢ 

قم بالنقر المزدوج على زر الأمر و أضف الكود التالي 

يقوم هذا الكود بتشغيل أو إيقاف أداة التوقيت،‏ 

If Not Timer1.Enabled Then 

Timer1.Start() 

End If 

‏"الساعة إيقاف"‏ = Button1.Text 

Else 

Timer1.Stop() 

: 

‏"الساعة تشغيل"‏ = Button1.Text 

لاحظ أنه يقوم بالتأكد من تشغيل أداة التوقيت 

Stop 

Start 

أو إيقافها من خلال الخاصية Enabled 

ثم يستخدم الطريقة 

للتشغيل و 

للإيقاف.‏ 

‎٣‎‏-ارجع إلى شاشة مصمم النماذج ثم انقر مزدوجا على أداة التوقيت،‏ 

سوف تنتقل إلى الحدث 

Tick وهو أحد أحداث هذه الأداة.‏ اكتب الكود التالي 

Label1.Text = الساعة"‏ = " & TimeString 

: 

في هذا الكود نقوم بعرض الوقت الحالي على أداة العنوان،‏ 

و نظرا لأن 

الحدث 

Tick يتم 

تنفيذه كل ثانية فإنه سوف يتم عرض الساعة على أداة العنوان كل ثانية مما يعني أنك سوف 

تشاهد ساعة كما يظهر من الشكل(‏‎٧-١١‎‏)‏ 

شكل ١١-٧ : تنفيذ برنامج الساعة


أداة الوقت و التاريخ 

DateTimePicker 

تستخدم هذه الأداة لعرض الوقت بشكل جميل على شكل تقويم آما تقوم بحفظ التاريخ الذي تم 

اختياره من قبل المستخدم.‏ أهم خصائص هذه الأداة هي 

: 


الشرح 

أقل قيمة يمكن اختيارها من التقويم.‏ 

أآبر قيمة يمكن اختيارها من التقويم.‏ 

إذا أردت عرض مربع اختيار في الأداة.‏ 

التاريخ الذي تم اختيار.‏ 

MinDate 

MaxDate 

ShowCheckBox 

Value 

: الكود التالي 

أضف زر أمر و أداة الوقت و التاريخ.‏ 

أنقر مزدوجا على زر الأمر ثم اكتب 

DateTimePicker1.MinDate = New DateTime(1985, 6, 20) 

DateTimePicker1.MaxDate = DateTime.Today 

DateTimePicker1.ShowCheckBox = True 

MessageBox.Show(DateTimePicker1.Value) 

لاحظ أننا عينا قيمة دنيا و عليا لأداة الوقت و التاريخ فلو حاولت اختيار أي تاريخ يتجاوز 

هاتين القيمتين فلن تسمح لك الأداة انظر شكل 

.(٨-١١) 

شكل ٨-١١ : 

أداة الوقت و التاريخ


أدوات الحوار العامة 

تقدم لنا بيئة الدوت نت ست أدوات للحوار العام وهي 

: 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

-٦ 

أداة الحوار لفتح الملفات.‏ 

أداة الحوار لتغيير الخط.‏ 

أداة الحوار لتغيير اللون.‏ 

أداة الحوار لحفظ الملفات.‏ 

أداة الحوار لإعداد الصفحة.‏ 

أداة الحوار للطباعة.‏ 

تتشابه بعض هذه الأدوات فيما بينها بطريقة التعامل معها فبمجرد أن تتعامل مع واحدة من هذه 

الأدوات حتى يصبح التعامل مع باقي الأدوات مجرد وقت.‏ سوف نتعرض لأول ثلاث أدوات 

ونترك الثلاث الباقية لك.‏ 

أداة الحوار لفتح الملفات 

تقوم هذه الأداة بعرض مربع الحوار الخاص بفتح الملفات كما تحوي هذه الأداة على مجموعة من 

الخصائص و الطرق جعلت التعامل معها سهلا،‏ يذكر أنه حصل تطور كبير بين هذه الأداة في 

الاصدار السادس و في بيئة الدوت نت.‏ 

Picturebox كما 

: 

في هذا المثال قم بإضافة أداة الحوار لفتح الملفات و أداة صورة 

يظهر من الخصائص التالية 

اسم الأداة الخاصية 

القيمة 

cmdOpenPicture 

Name Button1 

Text 

Name Picturebox 

Name OpenFileDialog 

فتح صورة 

pb 

ofd


انقر مزدوجا على زر الأمر ثم أضف الكود التالي : 

With ofd 

End With 

.CheckFileExists = True 

.ShowReadOnly = False 

.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.jpg" 

.FilterIndex = 1 

If .ShowDialog = DialogResult.OK Then 

pb.Image = Image.FromFile(.FileName) 

End If 

في الكود السابق قمنا بالخطوات التالية 

: 

-١ 

-٢ 

استخدم عبارة With حتى لانعيد كتابة اسم أداة الحوار كل مرة.‏ 

استخدمنا خاصية التأكد من وجود الملف قبل فتحه 

. 

-٣ 

-٤ 

منعنا إظهار الملفات التي للقراءة.‏ 

حددنا أنواع الملفات التي ستظهر في مربع الحوار وهي 

Jpg وكل الملفات في حالة اختيار 

الملفات التي من نوع 

Bmp و 

.All Files 

-٥ 

إذا اختار المستفيد 

أداة الصورة.‏ 

Ok من مربع الحوار سوف نقوم بعرض الصورة التي اختارها على 

انظر الشكل(‏‎٩-١١‎‏)‏ بعد التشغيل و النقر على زر فتح الصورة 

التالية:‏ 

الملف مثل 

تتم عملية 

ترشيح نوع الملفات التي تريد 

الاسم الذي تريد أن يظهر وهو في حالتنا 

في 

Bmp ثم تبدأ ترشيح آخر بنفس الطريقة.‏ 

شكل ١١-٩ : اختيار ملف من نافذة الحوار 

File Of Type لمربع الحوار بالطريقة 

File Name ثم علامة | 

ثم نوع . ثم * ثم


أداة الحوار لتغيير الخط 

تستخدم هذه الأداة لتغيير الخط المكتوب على أداة ما،‏ فإذا أردت تغيير الخط الموجود على 

مربع نص أو زر أمر فاستعمل هذه الأداة لتغيير الخط وذلك بتعيين خاصية الخط في الأداة 

التي تريد أن تغيير خطها إلى الخط الذي تم اختياره في أداة حوار الخط.‏ أنت خبير بأنك 

عندما تغير خط النموذج فإن ذلك يؤدي إلى تغيير خط كل الأدوات على هذا النموذج.‏ 

قم بإضافة أداة عنوان و زر أمر و أداة حوار الخط ثم انقر مزدوجا على مربع 

النص و اكتب الكود التالي 

With FontDialog1 

.ShowApply = True 


Button1.Font = .Font 

Label1.Font = .Font 

End If 

End With 

: 


: 

-١ 

-٢ 

تفعيل خاصية ShowApply مما يؤدي إلى إظهار Apply في مربع حوار الخط.‏ 

التأكد أن المستفيد نقر زر 

.Ok 

-٣ 

تغيير خط أداة العنوان و زر الأمر بالخط الذي اختاره المستفيد 

شكل‎١٠-١١‎ : اختيار مواصفات الخط


أداة الحوار لتغيير اللون 

لا تختلف أداة حوار الألوان عن قرينتها السابقة أداة حوار الخط.‏ تستخدم هذه الأداة لتغيير 

خاصية اللون لأداة ما،‏ فعلى سبيل المثال أداة مربع النص يوجد لها خاصيتين تتعلقان 

بالألوان،‏ الأولى هي خاصية ForColor و الثانية هي خاصية 

خلال أداة حوار الألوان تغيير أيا من هاتين الخاصيتين.‏ 

.BackColor 

تستطيع من 

: 


قم بإضافة الأدوات التالية و أعطها الخصائص كما في الجدول 

الخاصية القيمة 

cmdChangeColor 

Name 

Text 

Name 

Name 

تغيير الألوان 

Label1 

ColorDialog1 

Button1 

Label1 

ColorDialog 

انقر مزدوجا على زر الأمر و اكتب الكود التالي 

الشكل(‏‎١١-١١‎‏):‏ 

ثم نفذ البرنامج وانقر زر الأمر لترى 

With ColorDialog1 

.SolidColorOnly = True 


Button1.BackColor = .Color 

Label1.ForeColor = .color 

End If 

End With 

شكل ١١-١١ : اختيار مواصفات اللون


تقييد مدخلات المستفيد 

يمكن تعريف عملية تدقيق البيانات بأنها التحقق من صحة المستفيد و مطابقة هذه المدخلات 

لقواعد و إجراءات العمل.‏ لذا يجدر بنا أن نتكلم عن أقسام تدقيق البيانات 

: 

-١ 

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

التدقيق بالتدقيق النموذجي للبيانات 

: 

،-Front End Validation– 

يمكن تسمية هذا النوع من 

في هذا النوع من 

التدقيق لا تحتاج الوصول إلى قاعدة البيانات لمعرفة دقة و صحة البيانات التي يقوم 

المستفيد بإدخالها.‏ ومن أمثلة هذا النوع 

: 

• 

• 

التأكد من عدم إدخال قيمة سالبة لحقل لا يقبل إلا قيمة موجبة.‏ 

التأكد من عدم تجاوز الطول المحدد لحقل ما.‏ 

لاحظ أن كلا المثالين السابقين لا يتطلب أي رجوع إلى قاعدة البيانات لذا يتم بناء هذا 

النوع من التدقيق في واجهات المستفيد.‏ 

-٢ 

تدقيق البيانات الذي يوجب الرجوع إلى قاعدة البيانات 

التدقيق بالتدقيق الخلفي للبيانات 

: 

،-Back End Validation– 

يمكن تسمية هذا النوع من 

في هذا النوع من التدقيق 

يتوجب الرجوع إلى قواعد البيانات و التأكد من مدخلات المستفيد قبل تنفيذ العملية 

المطلوبة حتى لا يتم مخالفة قواعد و إجراءات العمل.‏ 

من الأمثلة على هذا النوع 

: 

• 

• 

عند إدخال إجازة جديدة لموظف يجب التأكد من أن هذا الموظف لم يستنفذ رصيده 

من الأجازات،‏ 

لا يمكن عمل هذا التدقيق إلا بعد الرجوع إلى قواعد البيانات ثم 

حساب الأجازات التي سبق أن أخذها الموظف.‏ 

مثال آخر ماذا لو أردنا أن نصرف مادة من مستودع 

قبل صرفها.‏ 

، 

يجب التأكد من رصيد المادة 

في المثالين السابقين لابد من الرجوع إلى قواعد البيانات لتطبيق تلك التدقيقات.‏ 

120

و أ 


إرشادات لتدقيق مدخلات المستفيد 

التدقيق النموذجي للبيانات 

توجد بعض الإرشادات العامة عند التدقيق النموذجي للبيانات وهي 

: 

• 

• 

• 

• 

امنع المستفيد من 

ذلك.‏ 

إدخال بيانات غير صحيحة إن أمكن مثل استخدام القوائم كلما أمكن 

أرشد المستفيد أثناء عملية إدخال البيانات إلى اسم الحقل الذي يحمل الخطأ معيدا إليه 

المؤشر.‏ 

امنح المرونة للمستفيد على 

يعتمد على آخر.‏ 

إدخال البيانات بالترتيب الذي يريده هو ما لم يكن هناك حقل 

خذ بعين الاعتبار كل أنواع التدقيق و قواعد العمل أثناء عملية تحليل و تصميم النظام.‏ 

التدقيق الذاتي للأدوات 

بما أننا في النوع الأول من أنواع التدقيق وهو التدقيق النموذجي فإن جزء من تطبيق هذا النوع 

يعتمد على الأدوات المستخدمة في النموذج،‏ 

التدقيق.‏ 

يمكن تعريف 

التدقيق الذاتي 

للأدوات بأنه 

الجدول التالي يوضح بعض الأمثلة على التدقيق الذاتي للأدوات : 

الكائن 

أسلوب التدقيق 

مربع النص تحديد أو تعديل البيانات المدخلة . 

مربع الاختيار حصر القيم باختيار عدمه . 

زر الاختيار اختيار قيمة واحدة . 

القائمة تقدم مجموعة من البيانات الصحيحة . 

أداة التاريخ حصر المدخلات بالتاريخ . 

بعض الأدوات في بيئة الدوت نت تساعدك في إجراء 

التدقيق الذي يتوفر لكل أداة من خلال خصائصها.‏ 

121


التدقيق الذاتي في مربع النص 

يمكن إجراء التطبيق الذاتي في مربع النص باستخدام مجموعة الخصائص وهي 

: 

: PasswordChar 

-١ 

تمكنك هذه الخاصية 

من 

الكلمات المدخلة إلى مربع النص كما يتضح من الشكل(‏‎١-١٠‎‏).‏ 

شكل ١٠-1 : استخدام خاصية PasswordChar 

تغيير شكل المدخلات إلى رموز تحجب 

: MaxLength -٢ 

تستخدم لإعطاء حد أقصى لعدد الحروف المدخلة إلى مربع النص.‏ عند 

محاولة تخطي العدد الأقصى فإن مربع النص لن يسمح لك بالكتابة وسوف تسمع نغمة 

بيب إن حاولت الزيادة على الحد الأقصى.‏ 

: ReadOnly -٣ 

تستخدم هذه الخاصية لمنع المستفيد من إدخال أي نص إلى مربع النص 

قم بإعمال هذه الخاصية.‏ في هذه الحالة يستطيع المستفيد رؤية ما هو مكتوب في مربع 

النص لكن لن يستطيع تغيير النص.‏ 

: CharcterCasing -٤ 

تستخدم للتحويل الآلي بين حالات الحروف – صغير أو كبير 

– قد 

يكون من المفيد استخدامها في الكلمة السرية إذا كانت كلمة السر عبارة عن حروف 

صغيرة.‏ 

كيف تستخدم كائن مزود الأخطاء 

يستخدم كائن مزود الأخطاء ErrorProvider لتنبيه المستفيد إلى الأخطاء وطرق إصلاحها.‏ 

يتميز عن مربع الرسالة بأنه لا يفتح نافذة أخرى للمستفيد كما أنه يظل موجودا أمام عين 

المستفيد حتى يصلح الخطأ وهو مالا يتوفر في مربع الرسالة.‏ إذا أضفت أداة واحدة من مزود 

الأخطاء فإنها تكفيك لكل التدقيقات في النموذج.‏ أهم طريقة لهذه الأداة هي 

و التي تستخدم لبيان الأخطاء.‏ 

SetError 

122


كما يظهر من الشكل 

قم بإضافة نموذج وأضف فيه الأدوات حسب الخصائص الموجودة في الجدول 

و 

(٢-١٠) 



القيمة 

cmdValidate 

تدقيق البيانات 

Textbox1 

Label1 

er 

frmErrorTest 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Name 

Button1 

Textbox 

Label1 

ErrorProvider 

Form 

شكل ١٠-٣ : ظهور رسالة تنبيه من مزود الأخطاء 

شكل : ٢-١٠ 

قم بكتابة الكود التالي داخل حدث النقر الخاص بزر الأمر : 

If Trim(TextBox1.Text) = "" Then 

‏("قيمة إدخال يرجى"‏ er.SetError(TextBox1, 

Else 

er.SetError(TextBox1, "") 

End If 

في الكود السابق نقوم بما يلي 

: 

-١ 

-٢ 

-٣ 

نتأكد هل أدخل المستفيد نصا في مربع النص أم لا.‏ 

نقوم بإظهار رسالة خطأ من خلال مزود الأخطاء و الذي اسمه .er رسالة الخطأ سوف 

تظهر عند مرور الفأرة على مزود الخطأ كما ترى من الشكل (١٠-٣). 

إذا أدخل المستفيد نصا نقوم بإزالة رسالة الخطأ.‏ 

123


تدقيق البيانات بجملة واحدة 

إذا أردت القيام بإجبار المستفيد بإدخال بيانات في كل الأدوات من نوع مربع نص بدون أن 

تتأكد من كل أداة على حدة فإليك هذا المثال الذي يوفر لك الوقت و الجهد 

: 

Dim ControlVar As Control 

For Each ControlVar In Me.Controls 

If TypeOf ControlVar Is TextBox Then 

If Trim(ControlVar.Text) = "" Then 

‏("يرجى إدخال البيانات"‏ erReq.SetError(ControlVar, 

Else 

erReq.SetError(ControlVar, "") 

End If 

End If 

Next 

في الكود السابق قمنا بما يلي : 

عرفنا متغير من . 

نوع أداة 

-١ 

٢- قمنا بالمرور على كل الأدوات داخل النموذج من خلال تكرار فإذا كان نوع الأداة مربع 

نص نقوم بالتأكد هل يوجد فيها نص أم لا،‏ 

فإذا لم يكن بها نص نقوم بإظهار رسالة خطأ 

من خلال مزود الأخطاء.‏ 

124


المتغيرات و الثوابت في بيئة الدوت نت 

يمكن تعريف المتغير بأنه ما يمكن أن يحمل قيما متنوعة أثناء عمل النظام و من ثم يسهل تعريف 

الثابت بأنه ما يحمل قيمة واحدة تسند إليه عند تعريفه ولا يمكن تغيير هذه القيمة بعد ذلك.‏ تختلف 

طريقة تعريف المتغيرات عن طريقة تعريف الثوابت في بيئة الدوت نت.‏ كل متغير في بيئة 

الدوت نت له مجال،‏ بعد تعدي هذا المجال يفقد المتغير قيمته لذا من الضروري معرفة مجال 

المتغير أو ما يسمى بفترة حياة المتغيرات.‏ 

تعريف المتغير في بيئة الدوت نت 

يمكنك تعريف المتغير الجديد في بيئة Visual Basic .NET باستخدام عبارة . Dim 

كما يلي : 

Dim Variable as DataType 

هناك أربعة أجزاء لعبارة تعريف المتغيرات : 

-٢ 

-٣ 

-٤ 

١- Dim و تمثل مجال المتغير وسوف نتكلم عن مجالات المتغيرات بالتفصيل.‏ 

Variable تمثل اسم تقوم أنت بإعطائه للمتغير.‏ 

As وهي كلمة محجوزة لا يمكنك تغييرها.‏ 

DataType و يمثل نوع المتغير سواء حروف أو أرقام أو تاريخ أو غيره.‏ 

Address، 

على سبيل المثال ‏,الجملة التالية تقوم بتعريف متغيران Phone 

Dim Phone As Integer 

Dim Address 

44


في السطر 

متغير وهو 

الأول قمنا بتعريف متغير اسمه 

Address لكننا لم نذكر نوعه 

غير مثاليا في الظروف الاعتيادية لعدة أسباب 

: 

-١ 

-٢ 

-٣ 

عدم القدرة على تمييز نوع المتغير.‏ 

قد تحصل أخطاء غير مقصودة مثل 

ما قد يسبب خللا في أداء النظام.‏ 

Phone من نوع رقم صحيح ثم 

‏–سيأتي لاحقا أنواع المتغيرات-‏ 

استخدام غير مثالي للذاكرة مما يسبب بطأ في تنفيذ النظام.‏ 

عند عدم تحديد نوع المتغير فإن نوع المتغير يمث ّل نوع كائن 

لاحظ أننا عرفنا 

وهو ما يعتبر حلا 

إسناد متغير من نوع إلى متغير من نوع آخر وهو 

، Object 

هذا النوع 

يمكن أن يمث ّل أي نوع من أنواع البيانات في بيئة الدوت نت ‏.سواء نوع الحروف (String) 

أو الأعداد الصحيحة (Integer) أو أي أنواع أخرى.‏ 

عندما تستخدم المتغير من غير ذكر نوعه فإن النوع المناسب يتحدد في وقت تنفيذ البرنامج 

(run-time). 

يمثل الجدول التالي بعض أنواع البيانات في بيئة الدوت نت و الحجم التخزيني لكل نوع و 

القيم المسموح بها لكل نوع.‏ 

القيم المسموح بها 

المساحة التخزينية نوع البيانات 

صحيحة (True) خاطئة(‏False‏)‏ Boolean 4 bytes 

يمثل عدد بين ٠ و ) ٢٥٥ ( byte Byte 1 

قيم موجبة فقط 

يمثل حرف واحد فقط Char 2 bytes 

قيم تبدأ من ١-١-١ م إلى ‎٣١‎‏-ديسمبر-‏‎٩٩٩٩‎ DateTime 8 bytes 

Decimal 12 bytes ٠ 

يمثل الأرقام العشرية ) ١٦ 

(79,228,162,514,264,337,593,543,950,335 

byte‏-وهي من 

الى موجب أو سالب 

من - 2,147,483,648 إلى Int32 4 bytes 2,147,483,647 

من 9,223,372,036,854,775,808- إلى Int64 8 bytes 9,223,372,036,854,775,807 

أي نوع يمكن أن يخزن داخل هذا النوع Object 4 bytes 

من - 32,768 إلى Int16 2 bytes 32,767 

يمثل قيمة حرفية تتسع إلى ٢ بليون حرف 

String 10 bytes + (2 

‏(طول السلسلة * 

45


لاحظ ظهور بعض الأنواع الجديدة في بيئة الدوت نت مثل int32 

لمحة عن بعض أنواع البيانات 

سوف نرى ثلاثة من أنواع البيانات و ماذا حدث لها في بيئة الدوت نت.‏ 

int16 و 

الأعداد الصحيحة Integer 

Int32 و int16 و int64 و 

Dim Phone As Integer 

Dim Phone As Int32 

كما سبق و رأيت يوجد عدة أنواع من الأعداد الصحيحة فهناك 

غيرها من الأنواع.‏ التعريفان التاليان يعتبران متساويان 

عند تعريفك لمتغير على أنه من نوع Integer فإنه سوف يتم ترجمته إلى 

.int32 

و .Int64 int16 

وهو ما يعني أن النوع 

لاحظ أن عمليات Int32 أسرع بكثير من عمليات 

int32 في بيئة الدوت نت يعتبر أكثر أنواع الأعداد الصحيحة فعالية.‏ عند تحويلك لنظام كتب 

بلغة الإصدار السادس إلى بيئة الدوت نت قم بتغيير كل أنواع 

نظام أكثر فعالية.‏ 

إلى Int32 Long 

لتحصل على 

السلاسل String 

تم استبدال كل الدوال التي تتعامل مع السلاسل و التي كانت موجودة بالاصدار السادس مثل 

Left,Right,Mid 

الخاص بالتعامل مع السلاسل الحرفية.‏ 

النوع المتعدد 

بوظائف جديدة تندرج تحت الفئة 

. System.Class 

Variant 

كان هذا النوع يخدم في بيئة الدوت نت كنوع بيانات عام 

. 

ارجع إلى الفصل 

في بيئة الدوت نت لم يعد هذا النوع 

موجودا فقد تم استبداله بنوع Object ليؤدي نفس المهام و ليخدم كنوع بيانات عام 

46


فترة حياة المتغير : 

يمكن تعريف فترة حياة المتغير بأنها الفترة التي يظل فيها المتغير محتفظا بقيمته.‏ 

من المهم جدا أن تحدد لكل متغير فترة حياته حتى يتسنى لك تعريفه في المجال المناسب له 

ولعلنا نذكر مثالين لمشكلتين تحصلان عند عدم الدقة في تحديد مجال المتغير 

: 

-٢ 

١- ضياع قيم المتغيرات مما يؤدي إلى عدم أداء النظام للمهام المطلوبة منه،‏ فعلى سبيل 

المثال لو عرفت متغيرا على أنه متغير على مستوى الاجراء و أردت أن تستخدمه في 

مكان ما خارج المتغير فإنك لن تجد قيمة هذا المتغير.‏ 

تضييع موارد الذاكرة 

: 

قد تأتي فكرة إلى شخص ما بتعريف كل المتغيرات تعريفا عاما 

على مستوى النظام حتى يتخلص من التفكير بمجال كل متغير،‏ هذه الفكرة مريحة لكنها 

ضارة لأن المتغيرات العامة تستهلك موارد من الذاكرة.‏ 

يوجد خمسة أنواع من الفترات 

: 

١- الفترة التي تبدأ عند بدء تشغيل الحل وتنتهي بنهايته و هي المتغيرات العامة.‏ 

٢- فترة تبدأ عند تشغيل مشروع ما و تشمل كل ما يندرج تحت هذا المشروع من أنظمة 

تطبيقية و نماذج و غيرها.‏ 

٣- فترة تبدأ عند تشغيل نموذج و هي المتغيرات العامة على مستوى النموذج أو من نوع 

Static في 

-٤ 

إجراء ما داخل النموذج.‏ 

فترة تبدأ عند تنفيذ الإجراء و تنتهي قيم المتغير بانتهاء تنفيذ الإجراء وهي المتغيرات 

المحلية داخل الإجراء.‏ 

٥- فترة تبدأ عند تنفيذ مقطع من كود و تنتهي بنهايته و هي المتغيرات المحلية على 

مستوى هذا المقطع.‏ 

-١ 

مجال المتغيرات 

بعد تحديد الفترة التي تريد أن يبقى فيها المتغير محتفظا بقيمته تأتي مرحلة تحديد مجال هذا 

المتغير في بيئة الدوت نت.‏ 

المتغيرات العامة تعرف بكلمة Public و تكون عامة لكل المشاريع داخل الحل.‏ 

47


المتغيرات العامة داخل المشروع فقط يمكن تعريفها من خلال كلمة Friend و تكون 

عامة لكل النماذج و الاجراءات داخل المشروع.‏ 

المتغيرات الخاصة بالنموذج أو بالنظام التطبيقي و يتم تعريفها من خلال كلمة 

لا حظ أنه لا يمكن استخدام هذه الكلمة داخل اجراء ما.‏ 

. Private 

المتغيرات المحلية في الاجراءات يمكن تعريفها من خلال كلمة Dim لاحظ أن قيم هذه 

المتغيرات تنتهي بنهاية الاجراء.‏ يمكن تمديد حياة متغير داخل اجراء و ذلك بتعريفه 

.Static بكلمة 

-٢ 

-٣ 

-٤ 

مثال على مجال المتغير 

في هذا المثال يوجد نوعين من المجالات 

Variable Scope 

Sub Test1() 

مجال الاجراء ' Integer Dim L As 

If L = 5 Then 

مجال المقطع ' Integer Dim B As 

B = L 

End If 

End Sub 

: 

.I 

.II 

المتغير L هو متغير معرف لمجال الاجراء كاملا.‏ 

المتغير B هو متغير لمقطع جملة 

If لأن حياته تنتهي بنهاية هذه الجملة.‏ 

.If لو حاولت معرفة قيمة B فإنك لن تستطيع بعد الجملة 

طرق متعددة لتعريف المتغيرات 

أضافت بيئة الدوت نت طرقا جديدة سهلت تعريف المتغير،‏ 

لنأخذ هذه الطرق على شكل أمثلة.‏ 

Dim myVar As Integer = 9 

-١ 

عرف و أسند القيمة في نفس السطر : 

Dim I, J As Integer 

Dim L As Integer, M As Integer 

Dim N As Integer, X As Double 

٢- تعريف عدة متغيرات : 

48


لاحظ في السطر الأول كيف عرفنا متغيير من نوع 

Integer بدون الحاجة إلى إعادة كلمة 

ثم لاحظ في السطر الثاني طريقة أخرى لنفس التعريف.‏ 

أما في السطر الثالث فعرفنا 

.Dim 

متغيرات متعددة من أكثر من نوع في نفس السطر.‏ 

تقوم هذه الجملة 

التي في السطر الأول 

في 

الإصدار السادس بتعريف متغير من نوع 

و آخر من نوع Integer 

لكنها في الدوت نت تعرف كلا المتغيرين من نوع 

Variant 

.Integer 

تعريف متغيرات للقراءة فقط : 

و هو مالم يكن موجود في الاصدار السادس و إليك هذا 

-٣ 

ReadOnly x As Integer 

المثال : 

عند تعريف متغير للقراءة لا 

يمكن تعريفه محليا داخل اجراء بل يلزم تعريفه على مستوى 

النموذج . 

ضوابط تسمية المتغيرات 

تعرف بيئة الدوت نت مجموعة من الشروط لتسمية المتغيرات التي يجب التقيد بها و إلا فإن بيئة 

: 

الدوت نت سوف لن تقبل تعريف المتغير المخالف لهذه الضوابط،‏ 

وهذه الضوابط هي 

أن تبدأ 

١- أسماء المتغيرات بحرف أبجدي.‏ 

٢٥٥ حرف.‏ 

أن يكون طول اسم المتغير بين 

حرف و احد و 

-٢ 

لا يسمح أن يكون اسم المتغير كلمة محجوزة من قبل بيئة الدوت نت.‏ 

أن يتكون اسم المتغير من حروف ويمكن أن تدخل بعض الأرقام في التسمية و كذلك 

-٣ 

-٤ 

الشرطة السفلية،‏ 

اسم المتغير 

أما غير ذلك من الرموز فغير مسموح دخولها في الاسم.‏ 

سبب المخالفة 

اسم محجوز في بيئة الدوت نت 

& علامة غير مسموح باستخدامها 

غير مسموح أن يبدأ الاسم برقم 

المسافة غير مسموح بأن تدخل في اسم المتغير 

Class 

Phone&Number 

18Width 

First Name 

تعيين قيم للمتغيرات 

49


الصيغة العامة لتعيين قيمة لمتغير ما هي الصيغة التالية 

تلاحظ أننا بدأنا باسم المتغير ثم وضعنا علامة 

: 

Var=Value 

= 

ثم وضعنا قيمة المتغير هذه القيمة قد تكون قيمة 

أنت تقوم باعطائها للمتغير أو قد تكون خاصية أحد الأدوات في بيئة الدوت نت.‏ 

سوف نأخذ ثلاثة 

أمثلة لترى كيف تقوم بتعيين قيم لها.‏ 

Dim NumberOfStudent as integer 

NumberOfStudent =15 

: 

المثال الأول 

في المثال السابق قمنا بما يلي 

. 

في السطر الأول عرفنا متغير من 

نوع عدد صحيح 

-١ 

٢- في السطر الثاني عينا قيمة لهذا المتغير وهي ١٥. 

Dim Name as String 

Name=”Khalid” 

: 

المثال الثاني 


١- عرفنا متغير من نوع سلسلة حرفية.‏ 

قمنا بتعيين قيمة 

Khalid لهذا المتغير.‏ 

لاحظ أنه عند تعيين قيم السلاسل الحرفية لابد من 

-٢ 

وضع قيمها بين علامتي تنصيص.‏ 

Dim Result as Boolean 

Result=True 

: 

.Boolean 

المثال الثالث 


١- عرفنا متغير من نوع 

-٢ 

قمنا بإسناد قيمة صح لهذا المتغير لأنها أحد القيمتين المسموحتين له.‏ 

تعيين قيمة متغير لآخر أو لخاصية أداة 

50


يمكن أن تسند قيمة متغير إلى متغير آخر كما يوضح ذلك المثال التالي 


Dim a As Integer = 5 

Dim b As Integer 

b = a 

: 

-١ 

عرفنا متغير 

a من نوع Integer و عينا له قيمة 

.٥ 

-٢ 


b من نوع 

.Integer 

-٣ 

قمنا بتعيين قيمة للمتغير 

b وهي قيمة المتغير 

a وهي .٥ 

أن تسند قيمة خاصية أداة ما لمتغير كما يوضح ذلك المثال التالي 


Dim a As String 

a = TextBox1.Text 

: 

-١ 


a من نوع 

.Integer 

-٢ 

قمنا بتعيين قيمة للمتغير 

.TextBox1 

استخدام خيارExplicit 

a وهي ما 

تحتويه خاصية 

مر بك في السابق أنه لابد من تعريف أي متغير قبل استخدامه،‏ 

Text وهي أحد خصائص الأداة 

لكن ماذا إذا رغبت بكسر هذه 

القاعدة لظرف من الظروف.‏ تقوم بيئة الدوت نت بمنحك خيار Explicit و الذي يحدد ما إذا كان 

تعريف المتغيرات ضروريا أو لا.‏ 

هي 

يحمل 

On بمعنى أنه يجب عليك تعريف المتغيرات،‏ 

بتغييرها إلى 

سطر.‏ 

Off كما يتضح 

شكل 

من الشكل(‏‎١-٣‎‏).‏ 

Explicit قيمتين هما 

لاحظ 

.Off و On 

: ١ -٣ 

استخدام عبارة 

Option Explicit 

القيمة الافتراضية 

في حال رغبت بعدم تعريف المتغيرات 

أن جملة التغيير لابد أن تكون في 

قم 

أول 

51


الثوابت 

Constants 

هذا نوع من مخازن الذاكرة،‏ توضع فيه قيمة،‏ تماما كالمتغيرات،‏ ولكن هذه القيمة لا يمكن 

تغييرها بعد ذلك،‏ وهذه طريقة تعريفها:‏ 

توجد عدة فوائد لتعريف الثوابت 

Const MyConst = 3 

: 

-١ 

-٢ 

يعتبر التعامل مع الثوابت أسرع في التنفيذ من المتغيرات.‏ 

سهولة تغيير الثوابت،‏ حيث لو افترضنا أنك تستعمل 

MyConst 

بشكل كبير في النظام 

و أردت لسبب ما تغيير قيمته فإنك لن تتعب في ذلك حيث يمكنك تغيير هذه القيمة مرة 

واحدة.‏ 

52

خالد الجديع 

kal_judaia@hotmail.com 

التعامل مع السلاسل و النصوص 

يمكن تعريف السلاسل الحرفية بأنها مجموعة من الحروف أو الأرقام أو خليط منهما 

. 

أومن أي نوع آخر من الرموز لكن بشرط أن يتم تعريفه بأنه من نوع String 

خذ المثال التالي على سلاسل حرفية معرفة في بيئة الدوت نت.‏ 

Dim Name As String 

Dim HouseNumber As String 

‏"أحمد"‏ = Name 

HouseNumber = "12345" 

في البداية عرفنا سلسلتين حرفيتين الأولى Name و الثانية HouseNumber ثم عينا 

.HouseNumber 

قيمة أحمد إلى السلسلة 

Name و قيمة 

١٢٣٤٥ إلى السلسلة 

عند تعريف السلاسل لابد من وضعها بين علامتي تنصيص كما مر في المثال.‏ 

تقدم بيئة الدوت نت مجموعة كبيرة من الدوال التي تسهل عليك التعامل مع السلاسل 

الحرفية و النصوص.‏ 

تصور أن لديك نص و تريد أن تقتطع جزء منه أو تبحث فيه عن نص ما،‏ 

إلى غير ذلك من العمليات التي لا 

تنتهي فهل ستكتب برنامجا خاصا لتلك المهام أم ماذا ستفعل.‏ 

حاصل القول أن هناك عدد كبيرا من الدوال سوف تسهل عليك البرمجة بشكل لم يسبق له مثيل.‏ 

مقارنة السلاسل 

إذا أردت مقارنة سلسلتين لتكتشف هل هما متساويتان في المحتوى أم لا استخدم الدالة 

Dim str1 As String = "B" 

Dim str2 As String = "A" 

. Compare 

الدالة 

على سبيل المثال 

: 

str1 

أكبر الدالة str2 لأن محتوى السلسلة الأولى B 

بينما محتوى السلسلة الثانية A وكما 

تعرف فإن الحرف B يأتي بعد الحرف A لذلك سوف تكون نتيجة المقارنة ١. 

في الجانب المقابل 

Dim str1 As String = "AA" 


. str2 

: المثال التالي 

أما في المثال السابق فإن السلسلة 

str1 تساوي السلسلة 

54



المثال التالي يوضيح كيفية مقارنة سلسلتين : 

قم بتعريف سلسلتين وعين لهما نفس القيمة كما يظهر في المثال التالي.‏ 

عرف متغير من نوع 

استخدم الدالة 

.Integer 

Compare لمقارنة السلسلتين ثم ارجع نتيجة المقارنة إلى المتغير 

اعرض نتيجة المقارنة على أداة عنوان.‏ 

.res 



Dim res As Integer 

res= String.Compare(str1, str2) 

Label1.Text = المقارنة"‏ ‏":نتيجة + res.ToString() 

-١ 

-٢ 

-٣ 

-٤ 

لمعرفة نتيجة المقارنة ارجع إلى الجدول التالي : 

النتيجة 

المعنى 

أقل من صفر 

صفر 

أكبر من صفر 

السلسلة الأولى أقل من الثانية 

السلسلتان متساويتان 

السلسلة الأولى أكبر من الثانية 

دمج سلسلتين 

ماذا لو كان هناك سلسلتين و أردت أن تدمج السلسلتين بمعنى أن تنتج سلسلة أخرى تحوي السلسة 

الأولى متبوعة بالسلسلة الثانية.‏ 

لنأخذ المثال التالي الذي يوضح كيفية دمج سلسلتين 

Dim FirstName As String = "Khalid" 

Dim LastName As String = "AL-Jduaia" 

: 

في هذا المثال لاحظ أننا بهدف تكوين اسم كامل فسوف نقوم بدمج السلسلتين 

FirstName و 

.LastName 

كل ما 

بإرجاع نتيجة دمج السلسلتين.‏ 

نحتاجه هو خطوة واحدة فقط وهي استخدام الدالة 

. Concat 

والتي تقوم 

55



Label1.Text = String.Concat(FirstName, LastName) 

بعد دمج السلسلة الأولى مع السلسلة الثانية قمنا بعرض نتيجة الدمج على أداة عنوان.‏ 

بعد دمج سلسلتين تظل قيمهما بدون أي تغير مالم تقم بذلك.‏ 

إضافة حروف إلى سلسلة 

ماذا لو أردت أن تضيف بعض الحروف أو الأرقام أو الرموز إلى سلسلة ما.‏ لا نقصد بعملية 

الإضافة العملية الحسابية لكن نقصد عملية إدراج لحروف أخرى لتكون ضمن السلسلة.‏ 

لإضافة حروف إلى سلسلة قم باستخدام الدالة 

.Insert 

:Insert 

Dim str1 As String = “Saat” 

Dim strRes As String 

strRes = str1.Insert(2, "lam") 

Label1.Text = strRes.ToString() 

المثال التالي يوضح كيفية استخدام الدالة 


: 

-١ 

-٢ 

-٣ 

عرفنا سلسلة و عينا لها القيمة 

هو 

.saat 

عرفنا سلسلة أخرى ولم نسند لها أي قيمة.‏ 

في السطر الثالث قمنا بتنفيذ الدالة Insert و التي تقوم بإضافة المقطع lam إلى السلسلة 

str1 بدأ من الحرف الثاني ثم أرجعنا ناتج الإضافة إلى السلسلة strRes ليصبح الناتج 

.Salamat 

تذكر أن الفهرس في الدوت نت يبدأ من صفر لذلك يعتبر الحرف الثاني في السلسلة 

saat التي تراها كبيرة.‏ 

56



حذف حروف من سلسلة 

لحذف حرف أو أكثر من السلسلة استخدم الدالة Remove و التي تقوم بحذف حرف أو أكثر 

بدأ من مكان ما تقوم أنت بتحديده.‏ كما سبق لك أن تعلمت فإن العد يبدأ من الصفر.‏ 

: Remove 

Dim s As String = "salamat" 

Label1.Text = s.Remove(5, 2) 


الشرح 

في السطر الأول قمنا بتعريف سلسلة s و عينا لها قيمة وهي 

.salamat 

في السطر الثاني استخدمنا الدالة Remove لحذف حرفين من السلسلة بدأ من الحرف 

الخامس.‏ لذا يمكن القول بأن هناك معاملان للدالة 

: Remove 

.I 

.II 

المعامل الأول للدالة Remove يمثل مكان بدأ الحذف في السلسلة.‏ 

و المعامل الثاني هو عدد الأحرف التي تريد حذفها.‏ 

بعد تنفيذ عملية الحذف قمنا بعرض النتيجة على أداة عنوان،‏ نتيجة الحذف هي .salam 

-١ 

-٢ 

-٣ 

عند حذف أحرف من سلسلة ما أو إضافة أحرف لها فإن محتواها يتغير حسب نتائج الحذف 

والإضافة.‏ 

استرجاع جزء من سلسلة 

في كثير من الأحيان تحتاج إلى استرجاع جزء من سلسلة ما،‏ تتوفر في بيئة الدوت نت دالتين 

لأداء هذه العملية 

: 

‎١‎‏-الدالة الأولى تقوم باسترجاع جزء من سلسلة بدأ من مكان ما حتى نهاية السلسلة،‏ في هذه 

الحالة يوجد معامل واحد لهذه الدالة وهو مكان بدأ الاسترجاع.‏ 


Label1.Text = s.Substring(5) 

المثال التالي يوضح كيفية استخدام الدالة : Substring 

57



الشرح 

.I 

في السطر الأول قمنا بتعريف سلسلة و عينا لها قيمة 

.salamat 

.II 

في السطر الثاني قمنا باسترجاع جزء من السلسلة 

السلسلة ثم عرضنا النتيجة في أداة عنوان و هي حرفي 

s بدأ من الحرف الخامس حتى نهاية 

.at 

‎٢‎‏-الدالة الثانية تقوم باسترجاع جزء من سلسلة بدأ من مكان ما و انتهاء بمكان ما.‏ في هذه الحالة 

يوجد معاملان لهذه الدالة الأول يمثل مكان بدء الاسترجاع و الثاني يمثل عدد الأحرف التي تود 

استرجاعها.‏ لنأخذ المثال التالي لكي تتضح الفكرة.‏ 

الشرح 


Label1.Text = s.Substring(3, 2) 

: 

-١ 

في السطر الأول قمنا بتعريف سلسلة و عينا لها قيمة 

.salamat 

-٢ 

في السطر الثاني قمنا بتنفيذ الدالة substring لكي نسترجع حرفين بدأ من الحرف الثالث 

في السلسلة 

.am ثم قمنا بعرض النتيجة على أداة عنوان وهي حرفي s 

عند استرجاع جزء من سلسلة ما فإن المحتوى الأصلي للسلسلة لا يتغير.‏ 

بحث و استبدال جزء من سلسلة 

إذا أردت أن تبحث عن حرف ما – أو جزء من سلسلة-‏ داخل سلسلة ثم تستبدله بحرف آخر فإن 

هناك دالة 

Replace و 

التي توفر لك جهدا كبيرا.‏ 

الشرح 


: Replace 

Dim str1 As String = "ppp" 

Label1.Text = str1.Replace("p", "k") 

: 

-١ 

عرفنا سلسلة حرفية و عينا لها قيمة 

.ppp 

-٢ 

قمنا بتطبيق الدالة 

ثم تقوم باستبداله بحرف 

تكون 

Replace على السلسلة و التي سوف تقوم بالبحث عن كل حرف 

p 

.k 

.kkk 

بعد ذلك قمنا بعرض النتيجة على أداة عنوان و التي سوف 

58

ىإل 



تحويل حالة الحروف إلى صغيرة و كبيرة 

وهو ما ينطبق على حروف اللغة الإنجليزية.‏ 

الحالة الكبيرة،‏ و العكس وهما : 

توجد دالتان لتحويل الحروف من الحالة الصغيرة 

الدالة 

الشرح 

تقوم بتحويل حالة حروف سلسلة إلى صغيرة 

تقوم بتحويل حالة حروف سلسلة إلى كبيرة 

.ToLower() 

ToUpper() 

Dim aStr As String = "ahmed" 

Dim bStr As String = "OMAR" 

Label1.Text = aStr.ToUpper() 

Label2.Text = bStr.ToLower() 

المثال التالي سوف يرسخ مفهوم الدالتين . 

: الشرح 

-١ 

-٢ 

-٣ 

-٤ 

قمنا بتعريف سلسلتين الأولى عينا لها قيمة ahmed و الثانية عينا لها قيمة OMAR 

استخدمنا الدالة ToUpper لتحويل حالة حروف كلمة ahmed إلى حالة كبيرة 

استخدمنا الدالة 

شكل 

ToLower 

لتحويل حالة حروف كلمة 

OMAR 

قمنا بعرض النتائج على أداتي عنوان كما يظهر من الشكل(‏‎١-٤‎‏)‏ 

: ١ -٤ 

تحويل حالة الحروف من 

صغيرة إلى كبيرة و العكس 

إلى حالة صغيرة.‏ 

59



إزالة المسافات و الحروف غير المرغوب فيها 

في بعض الأحيان تريد إزالة المسافات التي توجد في بداية كل سلسلة أو في نهايتها أو فيهما معا.‏ 

و لنضرب لذلك مثالا 

: 

افترض أن هناك مستفيدا يدخل أسماء أشخاص في مربع نص و تريد أن 

تتأكد من أنه أدخل شيئا في مربع النص،‏ في هذه الحالة لو ضغط على زر مسافة فإنك لن تدري 

هل الذي أدخله اسم أم مسافة ما لم تقم بإزالة المسافات القبلية و البعدية لكل سلسلة.‏ 

Dim str As String = " ahmed " 

Label1.Text = str.Trim() 

لنأخذ المثال التالي : 

الشرح 

في السطر الأول قمنا بتعريف سلسلة str و عينا لها القيمة 

أحمد تبدأ بمسافة و تنتهي بمسافة.‏ 

ahmed 

لكن لاحظ أن القيمة 

لإزالة المسافة القبلية و البعدية قمنا باستخدام الدالة Trim و من ثم عرضنا النتيجة على 

أداة عنوان و النتيجة هي كلمة أحمد بدون مسافات قبلية أو بعدية.‏ 

-١ 

-٢ 

تبطين سلسلة بمسافة برمز من اليمين أو الشمال 

نقصد بتبطين سلسلة بمسافة من اليمين أو الشمال أن تضاف إليها مسافات من جهتين هما 

: 

-١ 

تبطين من الجهة اليمنى 

: 

سلسلة ما بمسافة أو برمز آخر.‏ 

في هذه الحالة نستخدم الدالة 

PadLeft 

و التي تقوم بتبطين 

المثال التالي يوضح كيفية تبطين سلسلة : 

Dim str1 As String = "MyString" 

Label1.Text = str1.PadLeft(10) 

الشرح 


. MyString 

قمنا باستدعاء الدالة PadLeft و اعطائها معامل ١٠ يمثل هذا المعامل الطول الكلي 

للسلسلة الناتجة.‏ فإذا كانت السلسلة الأصلية MyString لها طول ٨ فإن الطول للسلسلة 

-١ 

-٢ 

60



"MyString 

" 

سيكون 

١٠ و ستكون النتيجة كالتالي 

لا حظ أنه تم اضافة مسافتين إلى 

الجهة اليمنى.‏ 


لماذا مسافتين ؟ لاحظ أن المعامل=‏‎١٠‎ و أن طول السلسلة=‏‎٨‎ 

١٠-٨=٢ فكأننا نقول أضف مسافتين للسلسلة من جهة اليمين.‏ 

إذا كان المعامل أقل من طول السلسلة فلن يتم إضافة أي شيء . 

تبطين من الجهة اليسرى 

دالة أخرى هي 

: 

ما قيل في التبطين من الجهة اليمنى يقال هنا 

إلا أننا نستخدم 

.PadRight 

-٢ 

المثال التالي يوضح كيفية تبطين سلسلة من الجهة اليمنى 

: : 

Dim str1 As String = "MyString" 

Label1.Text = str1.PadRight(10) 

الشرح 

-١ 


. MyString 

‎٢‎‏-قمنا باستدعاء الدالة PadRight و اعطائها معامل ١٠ يمثل هذا المعامل الطول الكلي 

للسلسلة الناتجة.‏ فإذا كانت السلسلة الأصلية MyString لها طول ٨ فإن الطول للسلسلة 

سيكون ١٠ و ستكون النتيجة كالتالي 

اليسرى.‏ 

" MyString" 

لا حظ أنه تم 

إضافة مسافتين إلى الجهة 

61



الدالة 

البحث في 

السلاسل 

إن من العمليات الأساسية و المتكررة دائما هي البحث في سلسلة ما.‏ تستطيع البحث داخل 

سلسلة من خلال الدالة 

indexOf و 

التي سوف تقوم بإرجاع موقع أول نتيجة بحث إيجابية.‏ 

يوجد ستة طرق للبحث داخل سلسلة كلها متوفرة من خلال هذه الدالة وهي:‏ 

IndexOf( _ 

ByVal value As Char _ 

) As Integer 

IndexOf( _ 

ByVal value As String _ 

) As Integer 

IndexOf( _ 

ByVal value As Char, _ 

ByVal startIndex As Integer _ 

) As Integer 

IndexOf( _ 

ByVal value As String, _ 

ByVal startIndex As Integer _ 

) As Integer 

IndexOf( _ 

ByVal value As Char, _ 

ByVal startIndex As Integer, _ 

ByVal count As Integer _ 

) As Integer 

IndexOf( _ 

ByVal value As String, _ 

ByVal startIndex As Integer, _ 

ByVal count As Integer _ 

) As Integer 

الشرح 

لدينا معامل واحد وهو الحرف الذي تريد 

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

البحث.‏ 

لدينا معامل واحد هو السلسلة التي نريد البحث 

عنها داخل السلسلة الحالية.‏ ولدينا قيمة مرجعة 

هي نتيجة البحث.‏ 

لدينا معاملان هما الحرف الذي نريد البحث 

عنه و مكان بدء البحث.‏ ولدينا قيمة مرجعة 


لدينا معاملان هما السلسلة 

عنها و مكان بدء البحث.‏ 


التي نريد البحث 

ولدينا قيمة مرجعة 

لدينا ثلاثة معاملات هي الحرف الذي نريد 

البحث عنه و مكان بدء البحث و عدد الحروف 

التي نريد أن تتم عليها عملية البحث.‏ ولدينا 

قيمة مرجعة هي نتيجة البحث.‏ 

لدينا ثلاثة معاملات هي السلسلة التي نريد 

البحث عنها و مكان بدء البحث و عدد الحروف 

التي نريد أن تتم عليها عملية البحث.‏ ولدينا 

قيمة مرجعة هي نتيجة البحث.‏ 

62



١- البحث عن حرف 

لنأخذ الأمثلة التالية و التي من خلالها تتضح الفكرة.‏ 

Dim str As String = "salamat" 

Label1.Text = str.IndexOf("a”) 

الطريقة 

-I 

عرفنا سلسلة و عينا لها قيمة 

salamat 

II‏-بحثنا عن حرف a داخل السلسلة ثم أرجعنا النتيجة إلى أداة عنوان،‏ 

هي ١ و الذي يمثل رقم موقع حرف a داخل السلسلة.‏ 

و النتيجة 


Label1.Text = str.IndexOf("a”,4) 

‎٢‎‏-البحث عن حرف بدأ من مكان ما.‏ 

: الطريقة 

I‏-عرفنا سلسلة و عينا لها قيمة 

.salamat 

II‏-بحثنا عن حرف a داخل السلسلة بدأ من الموقع الرابع ثم أرجعنا 

النتيجة إلى أداة عنوان،‏ و النتيجة هي ٥ و الذي يمثل رقم موقع حرف a داخل السلسلة بدأ 

من الموقع الرابع.‏ 

‎٣‎‏-البحث عن حرف مع تحديد مكان بدأ البحث و مكان انتهائه 


Label1.Text = str.IndexOf("m”,3,2) 

٢ مما 

: الطريقة 

I‏-عرفنا سلسلة و عينا لها قيمة 

.salamat 

II‏-بحثنا عن حرف m داخل السلسلة بدأ من الموقع الثالث بطول 

يعني أن البحث سوف يتوقف في الموقع الخامس،‏ ثم أرجعنا النتيجة إلى أداة عنوان،‏ و 

النتيجة هي ٤ و الذي يمثل رقم موقع حرف m داخل السلسلة بدأ من الموقع الثالث.‏ 

63



الجدول التالي يوضح معنى نتائج البحث 

القيمة 

الشرح 

نتيجة البحث سلبية 

١- 

أي عدد صحيح من صفر أو أكبر 

موقع أول نتيجة إيجابية 

البحث يعتمد على حالة الأحرف.‏ 

فلو أدخلت حرف 

n للبحث عنه داخل سلسلة و كان 

الموجود N 

فإن النتيجة سلبية.‏ 

64



مثال تدريبي شامل لكل أنواع التعامل مع السلاسل 

: الهدف 

يهدف هذا التدريب إلى تعليمك جميع أنواع التعامل السابقة مع السلاسل مما يكون له الأثر الإيجابي في 

تسهيل البرمجة في بيئة الدوت نت.‏ 

الأدوات المستخدمة : 

مربع مجموعات،‏ 

ستة أزرار اختيار،‏ 

مربع نص واحد،‏ 

خمسة أداوات 

(٢-٤) 

عنوان،‏ 

زر أمر انظر شكل 

نظرة على تصميم النموذج 

-٤ ٢ : شكل 

تصميم النموذج 

ماذا سيحدث:‏ سوف يكون لدينا ستة أزرار أمر كل منها يمثل نوع من أنواع العمليات على 

السلاسل كما سيكون لدينا زر أمر ينفذ العملية بناء على زر الأمر الذي تم اختياره.‏ كما تلاحظ 

من تصميم النموذج يوجد أداة عنوان مكتوب عليها 

، salamat 

هذه الأداة ستكون محور 

العمليات،‏ كما سيكون هناك مربع نص تدخل فيه القيمة بناء على العملية المختارة ثم ستظهر 

النتيجة في أداة عنوان.‏ لنأخذ المثال التالي على إحدى العمليات 

: 

-١ 

-٢ 

-٣ 

اختر نوع العملية مقارنة سلسلتين من أزرار الاختيار.‏ 

قم بإدخال السلسلة التي تريد أن تقارنها بالسلسلة المكتوبة على أداة العنوان 

.salamat 

اضغط زر الأمر لتظهر لك النتيجة على أداة العنوان التي كتب بجانبها نتيجة العملية.‏ 

65


الخطوات 

قم بإنشاء نموذج ثم ضع فيه الأدوات التالية مع ضبط خصائص الأدوات كما هو وارد 

في الجدول : 

-١ 



ا لقيمة 

WorkWithString 

التعامل مع السلاسل الحرفية 

True 

Simplified Arabic 

rdoAdd 

إضافة إلى سلسلة 

rdoSub 

استرجاع حروف من سلسلة 

rdoCon 

دمج سلسلتين 

rdoComp 

مقارنة سلسلتين 

rdoSmall 

تحويل حالة الحروف إلى صغيرة 

rdoCap 

تحويل حالة الحروف إلى آبيرة 

rdoSearch 

البحث في سلسلة 

rdoRemove 

ح ذف من سلسلة 

Button1 

تنفيذ العملية 

Label2 

اجراء العمليات على السلسلة 

lblSal 

salamat 

Label3 

المدخل 

txtInput 

Label5 

نتيجة العملية 

lblRes 

Label4 

Name 

Text 

RightToLeft 

Font 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Form 

RadioButton 

RadioButton 

RadioButton 

RadioButton 

RadioButton 

RadioButton 

RadioButton 

RadioButton 

Button 

Label 

Label 

Label 

TextBox 

Label 

Label 

66


قم بتصميم النموذج كما هو موضح في الخصائص و شكل التصميم السابق 

انقر مزدوجا على زر الأمر لتنتقل إلى حدث النقر الخاص بزر الأمر و اكتب الكود 

التالي : 

-٢ 

-٣ 

تستطيع نسخ هذا التدريب من القرص المرفق مع الكتاب 

If rdoAdd.Checked Then 

If txtInput.Text.Trim "" Then 

lblRes.Text = lblSal.Text().Insert(2, txtInput.Text) 

End If 

End If 

If rdoSub.Checked Then 

If txtInput.Text.Trim "" And IsNumeric(txtInput.Text) Then 

lblRes.Text = lblSal.Text.Substring(txtInput.Text) 

End If 

End If 

If rdoCon.Checked Then 


lblRes.Text = String.Concat(lblSal.Text, txtInput.Text) 

End If 

End If 

If rdoComp.Checked Then 


lblRes.Text = String.Compare(lblSal.Text, txtInput.Text) 

End If 

End If 

If rdoSmall.Checked Then 


lblRes.Text = txtInput.Text.ToLower 

End If 

End If 

If rdoCap.Checked Then 


lblRes.Text = txtInput.Text.ToUpper 

End If 

End If 

If rdoSearch.Checked Then 


lblRes.Text = lblSal.Text.IndexOf(txtInput.Text) 

End If 

End If 

If rdoRemove.Checked Then 

If txtInput.Text.Trim "" And IsNumeric(txtInput.Text) Then 

lblRes.Text = lblSal.Text.Remove(txtInput.Text, 1) 

End If 

End If 

67



تعليمات 

-١ 

-٢ 

-٣ 

-٤ 

بناء على زر الاختيار الذي تم اختياره يقوم هذا الكود بتنفيذ العملية.‏ 

لاحظ أننا هنا طبقنا جميع العمليات الأساسية.‏ 

تستطيع نقل جمل الشرط المتعلقة بالتأكد من أن هناك مدخل في مربع النص إلى بداية 

الإجراء لكي تكون شاملة للجميع.‏ 

لرؤية النظام بعد التشغيل انظر الشكل (٤-٣) ولاحظ أننا اخترنا زر الاختيار المتعلق 

بالبحث في سلسلة ثم أدخلنا حرف m ثم ضغطنا زر الأمر فظهر لنا رقم ٤ في أداة 

العنوان وهو ما يمثل موقع حرف m. 

-٤ ٣ : شكل 

نظام التعامل مع السلاسل 

68


ما هي ADO.NET ؟ 

مقدمة عن 

ADO.NET 

يمكن تعريفها بأنها مجموعة من الفئات–‏CLASSES‏-‏ للتعامل مع مصادر البيانات.‏ فإذا 

أردت الاتصال بقاعدة بيانات ما 

- 

و التعامل مع بيانات موجودة فيها أو إضافة بيانات جديدة 

لها-‏ مثل أوراكل أو أكسيس من خلال بيئة الدوت نت فسوف تقوم بذلك من خلال 

.ADO.NET 

تم تصميم ADO.NET في الأساس للعمل مع قواعد البيانات لكن تعمل مع 

غيرها من مصادر البيانات،‏ لذا يمكن القول بأن ADO.NET يمكن أن تتعامل مع الأنواع 

التالية من مخازن البيانات 

١- المخازن غير المتناسقة 

: 

: 

-٢ 

المخازن المتناسقة غير المتدرجة 

وهي البيانات التي لا يوجد لها ترتيب محدد مثل ملف نصي.‏ 

: (CSV) 

.ActiveDirectory ،Excel 

٣- المخازن 

.XML ملفات 

٤- مخازن قواعد البيانات 

وهي البيانات المفصولة بفاصلة مثل ملفات 

الهرمية ‏:وهي ملفات تخزن فيها البيانات بأسلوب هرمي،‏ لعل من أبرز الأمثلة 

المترابطة : 

مثل أوراكل،‏ 

.MySQL ،SQLServer 

موقع ADO.NET من بيئة الدوت : 

تعتبر 

ADO.NET 

المزايا مثل تجميع المهملات 

جزء من إطار العمل -Framework– وهو مايجعلها تشاركه بعض 

- garbage collection- 

و دعم متعدد للغاتmulti-language -design 

و التصميم الشيئي 

OO - 

. 

مر في الفصل المتعلق بالمقدمة عن بيئة 

الدوت نت تعريف البيئة المتصلة و البيئة غير المتصلة و يمكننا أن نقول بأن 

ADO.NET 

مصممة للعمل مع البيئة المتصلة و البيئة غير المتصلة.‏ وحيث إن ADO تعتبر جزء من 

إطار العمل فهي مقسمة إلى امتدادات منطقية 

، 

و قد تم بناء 

ADO 

System.data 

كما يجدر التنويه أن هناك جزء من 

System.xml انظر الشكل التالي . 

ADO 

في الإمتداد 

يقع في امتداد آخر هو 

System.Data 

.SqlTypes 

.SqlClient 

.Common 

.OleDb 

126


الفرق بين ADO.NET و :ADO 

حصل هناك تطور ضخم من الإصدار السابق في ADO إلى الإصدار الحالي 

ولا نبالغ إذا قلنا إن 

وإليك بعض 

ADO.NET تعتبر تقنية جديدة و ليست 

الفروق بين الإصدارين.‏ 

ADO.NET 

إصدارا جديدا لسالفتها .ADO 

وجه المقارنة ADO.NET ADO 

دعم xml غير موجود دعم قوي 

نظرا لأن 

تدعم 

DATASET 

XML 

نقل البيانات من خلال الجدار 

الناري 

التوسع 

تمثيل البيانات في الذاكرة 

العلاقات بين عدة جداول 

المرور على البيانات 

هناك عائق لنقل ADO من 

خلال الجدار الناري.‏ 

يوجد مشكلة في التوسع لأن 

الاتصال بقواعد البيانات يتم 

حفظه لمدة طويلة.‏ 

Recordset تحوي على جدول 

واحد في نفس الوقت.‏ 

تتطلب ربط الجداول قبل 

إحضارها من قواعد البيانات.‏ 

يتم المرور على البيانات بشكل 

فلا يوجد 

مشكلة في نقل البيانات من 

خلال الجدار الناري.‏ 

البيئة غير المتصلة تساعد 

على الاشتراك في الاتصال 

ومن ثم إمكانية توسع كبيرة.‏ 

DataSet تحوي عدد غير 

محدد من الجداول في نفس 

الوقت 

تمكن من عمل العلاقات بعد 

إحضارها من قاعدة البيانات 

من خلال 

.DataRelation 

تسلسلي داخل 

يتم المرور على البيانات 

.Recordset بشكل غير تسلسلي.‏ 

مهيأة من خلال 

Dataset و 

.DataAdaptor 

لا يوجد دعم جيد . 

البيئة غير المتصلة 

127

ل 


النموذج الشيئي ل : ADO.NET 

يتكون النموذج الشيئي 

-ObjectModel– 

-١ 

-٢ 

مجموعة البيانات 

مزودات البيانات 

.Dataset 

.net DataProvider Classes 

ADO.NET من جزأين هما 

مجموعة البيانات : Dataset 

وهي عبارة عن مجموعة من الأنظمة البرمجية التي تسمح بأن تخزن فيها البيانات كما تسمح 

بإدارة هذه البيانات.‏ يجب أن نلاحظ أن 

Dataset لا 

تعتمد على مصدر بيانات معين مما 

يوفر إمكانية استخدامها مع أي مصدر بيانات وسوف يأتي فصل كامل خاص بمجموعة 


مزودات البيانات .net DataProvider Classes : 

وهي مجموعة من الفئات تدعم مصدر بيانات محدد لذلك يجب كتابة هذه المزودات خصيصا لهذا 

المصدر و بالتالي لن تعمل هذه المزودات مع مصدر آخر.‏ و توفر هذه المزودات القدرة على 

الإتصال بقواعد البيانات و استعادة البيانات منها و تحديثها.‏ يوجد العديد من هذه المزودات مثل 

.Sql Server .net Data Provider 

انظر الشكل(‏‎١-١٢‎‏)‏ 

. 

شكل ١-١٢ : 

النموذج الشيئي ل ADO.NET 

Managed Provider 

Connection 

DataAdapter 

Command 

DataReader 

DataSet 

Connection 

DataTables 

Clients / Grids / Forms 

128


تقوم ADO.NET باستخدام مزودات البيانات للاتصال بمصادر البيانات و من ثم استرجاع و 

تعديل البيانات لذلك تمثل هذه المزودات طبقة خفيفة بين ما تكتبه من شفرات و مصادر البيانات.‏ 

أنواع مزودات البيانات : 

يوجد نوعين من مزودات للبيانات وهي 

: 

: Oledb 

‎١‎‏-مزود وهو نوع عام للاتصال بمصادر البيانات المختلفة،‏ تستطيع من خلال 

الاتصال بقاعدة بيانات أوراكل أو MySQL أو أكسس.‏ 

٢- مزود البيانات المدار 

oledb 

: -Managed Data Provider– 

وهو المزود الذي تم بنائه خصيصا 

للعمل مع قاعدة بيانات محددة.‏ هذا النوع من المزودات يسمى مزود أصلي 

Native – 

-Provider لأنه يقوم بفعالية بالتعامل مع قاعدة البيانات التي بني من أجلها.‏ و هذا النوع لا 

يمكن أن يعمل مع قاعدة بيانات غير التي بني من أجلها.‏ انظر الشكل(‏‎٢-١٢‎‏)‏ 

شكل ٢-١٢ : 

الاتصال يقواعد البيانات من خلال مزودات البيانات 

الخاص بك الكود 

OLE DB .NET 

Data Provider 

SQL Client .NET 

Data Provider 

ODBC .NET 

Data Provider 

MySQL Client .NET 

Data Provider 

OLE DB 

Provider 

ODBC 

Driver 

بيانات مخزن 

SQL Server 

/ MSDE 

بيانات مخزن 

MySQL 4.0 

ملاحظة : في حالة اختيار مزود بيانات أصلي فإن الاتصال سيكون مباشرا بين الكود الذي 

تكتبه و بين قاعدة البيانات بينما توجد طبقة عندما تستخدم النوع العام 

عند تهيئة بيئة الدوت نت على حاسبك فإنه يوجد معها مزودا بيانات هما : 

. ODBC أو ،Oledb 

-١ 

-٢ 

المزود العام 

.Oledb 

مزود بيانات أصلي يعمل مع 

.SQLServer 

129


إذا رغبت بإضافة مزود بيانات أوراكل قم بإنزاله بالمجان من موقع مايكروسوفت 

بتهيئته لتتم عملية إضافته إلى باقي المزودات الموجودة.‏ 

ثم قم ومن 

٢٠٠٣ 


سوف يكون مزود البيانات الخاص بأوراكل متوفرا في نسخة 

من فيجوال 

ستوديو دوت نت . 

: 

تندرج مزودات البيانات تحت 

فضاءات الأسماء التالية 

System.Data.SqlClient 

System.Data.OleDb 

المزود الأول هو المزود الأصلي ل 

SQLServer أما المزود الثاني فهو المزود العام.‏ 

مكونات مزود البيانات : 

تتكون مزودات البيانات من أربعة -Classes– 

فئات 

تبدأ أول ثلاثة أحرف منها باسم المزود 

وهي : 

-١ كائن الاتصال -Connection– : 

الفئة المخصصة للاتصال بقواعد البيانات يندرج 

تحت 

System.Data.OleDb.OleDbConnection 

System.Data.SqlClient.SqlConnection 

فضاءات الأسماء التالية : 

Stored 

: 

-٢ كائن الأمر -Command– : 

الفئة المخصصة 

لتنفيذ أمر ما مثل 

تنفيذ 

ومثل تنفيذ عملية اضافة بيانات،‏ تحت فضاءات الأسماء التالية 

: 

System.Data.OleDb.OleDbCommand 

System.Data.SqlClient.SqlCommand 

Procedure 

كائن قارئ البيانات 

تستخدم للقراءة فقط و البيانات يمكن قراءتها 

إلى 

: -DataReader– 

-٣ 

. تحت 

الأمام و لا يمكن الرجوع 

للخلف،‏ 

تستخدم للإستعلام وتعتبر ذات أداء عالي جدا 

فضاءات الأسماء التالية 

: 

130


System.Data.OleDb.OleDbDataReader 

System.Data.SqlClient.SqlDataReader 

-٤ 

– 

مهيئ البيانات -DataAdaptor– : 

هو الكائن الذي يقوم بتعبئة مجموعة البيانات 

-٥ 

-Dataset وكذلك يقوم بتنفيذ التعديلات التي أجريت على مجموعة البيانات وعكسها 

على قواعد البيانات.‏ . يندرج تحت فضاءات الأسماء التالية 

System.Data.OleDb.OleDbDataAdapter 

System.Data.SqlClient.SqlDataAdapter 

: 

131


الاتصال بقواعد البيانات 

لقراءة أو كتابة بيانات على قاعدة بيانات ما لابد في البداية من إنشاء الاتصال بقواعد البيانات،‏ 

وهو ما يتم من خلال كائن الاتصال 

.-Connection– 

وكما مر بك سالفا فإنه بناء على اختيارك 

لمزود البيانات سوف تقوم باستخدام كائن الاتصال الخاص بذلك المزود.‏ ونريد هنا أن نذكرك بأن 

كائن الاتصال يوجد في الامتداد التالي 

System.Data.OleDb 

سوف نقوم بالتعامل في جميع الأمثلة مع مزود البيانات العام Oledb نظرا لأننا سوف 

نستخدم قاعدة بيانات مايكروسوفت أكسس وهو مايتوفر في معظم الأجهزة.‏ 

للاتصال بقاعدة بيانات ما لابد من اعطاء كائن البيانات معلومات كافية عن قاعدة البيانات التي 

تريد أن تتصل بها مثل مكان قاعدة البيانات و اسم قاعدة البيانات و كلمة المرور و الكلمة السرية 

للدخول لقاعدة البيانات إن وجد.‏ استخدم خاصية سلسلة الاتصال 

لاعطاء هذه المعلومات.‏ 

-Connection String– 

133


سلسلة الاتصال بقواعد البيانات 

: - ConnectionString– 

ما هي 

I. سلسلة الاتصال 

تعتبر سلسلة الاتصال أحد خصائص كائن الاتصال،‏ 

ويمكن تعريفها بأنها عبارة عن عدد من 

العوامل 

-Parameters– الضرورية للاتصال بقواعد البيانات 

تختلف بعض هذه العوامل بناء 

: 

على 

مزود البيانات 

. يشمل الجدول التالي أهم العوامل في سلسلة الاتصال 

العامل 

الشرح 

هذه الخاصية هي اسم مزود ole 

لهذا الاتصال 

‏،وتستخدم فقط عندما 

Provider 

تقوم باستخدام مزود البيانات .OLE DB 

اسم خادم البيانات.‏ 

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

يحدد فيما إذا كان الاتصال متكامل الثقة مع ويندوز.‏ 

ويمثل الوقت الذي تتم فيه محاولة الاتصال بقاعدة البيانات فإن لم يتم 

DataSource 

Intial Catalog 

Integrated Security 

ConnectionTimeout 

– 

الاتصال خلال هذا الوقت – 

بالثانية 

تم ارجاع خطأ وتم افشال 

الاتصال علما بأن الوقت الافتراضي هو 

١٥ ثانية.‏ 

UserID/Password كلمة العبور لقاعدة البيانات واسم المستخدم.‏ 

و إليك هذا الجدول الذي يعطي أمثلة على أسماء مزودي ole الشائعين.‏ 

اسم مزود 

قاعدة البيانات 

Microsoft Access 

Microsoft SQL Server 

Oracle 

Ole 

Microsoft.Jet.OLEDB.4.0 

SQLOLEDB.1 

MSDAORA.1 

134


.II أمثلة على سلسلة الاتصال : 

سلسلة 

للاتصال بقاعدة بيانات 

SQLServer 

Provider=sqloledb;Data Source=SQL Server DB;Initial 

Catalog=Northwind;User ID=UserName;Password=password 

-١ 

سلسلة للاتصال بقاعدة بيانات أوراكل 

Provider=MSDAORA;Data Source=Oracle DB;User 

ID=UserName;Password=password 

-٢ 

سلسلة للاتصال بقاعدة بيانات مايكروسوفت أكسس 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Mydb\db1.mdb; 

-٣ 

إذا كان موقع قاعدة البيانات في نفس الفهرس 

-Directory– الذي تقع فيه الصفحة التي 

تتصل بقاعدة البيانات فإنك لاتحتاج إلى كتابة الموقع كاملا و إنما يكفي اسم قاعدة البيانات.‏ 

.III طريقة سهلة لبناء سلسلة الاتصال 

قد تواجه أحيانا مشكلة في كتابة سلسلة الاتصال لأنه من الصعب تذكر كيفية كتابتها بدون أخطاء 

و بدون نسيان حرف أو فاصلة.‏ يوجد طريقة سهلة لإنشاء سلسلة الاتصال.‏ قم بما يلي 

: 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

-٦ 

قم بإنشاء ملف نصي TextFile واعطه اسم 

غير امتداده من 

.MyConnString.txt 

.(Universal Data Link ‏(اختصار UDL إلى txt 

انقر مزدوج على الملف ليظهر لك الشكل(‏‎١-١٣‎‏)‏ 

اختر شريط مزود البيانات Provider ثم اختر المزود الخاص بأكسس وهو 

اختر شريط 

Microsoft.Jet.OLEDB.4 

. Connection 

قم باختيار قاعدة البيانات التي تريد أن تبني لها سلسلة اتصال.‏ 

135


١-١٣ : شكل 

اختيار مزود البيانات 

.NotePad 

‎٧‎‏-اضغط على زر موافق.‏ 

‎٨‎‏-اذهب إلى الملف 

MyConnString.udl 

وافتحه بواسطة 

الشكل(‏‎٢-١٣‎‏)،‏ ابتداء من كلمة Provider يمثل سلسلة الاتصال.‏ 

ليظهر لك 

٢-١٣ : شكل 

لاحظ أنه تم بناء سلسلة الاتصال 

فتح و اغلاق الاتصال بقواعد البيانات 

لفتح الاتصال بقواعد البيانات استخدم الطريقة Open وهي أحد طرق كائن الاتصال.‏ 

الاتصال استخدم الطريقة 

و لإغلاق 

Close أو 

Dispose وسوف يأتي الفرق بين الطريقتين.‏ 

136


و لنأخذ المثال التالي 

Dim con As New OleDb.OleDbConnection() 

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 

"C:\TelDir.mdb;Persist Security Info=False" 

con.Open() 

. . . . . 

con.Close 

: 


: 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

في السطر الأول أعلنا عن كائن اتصال Con من نوع 

.oledb 

في السطر الثاني قمنا بتعريف سلسلة الاتصال وهي كما تلاحظ سلسلة 

بيانات خاصة بمايكروسوفت أكسس.‏ 

في السطر الثالث قمنا بفتح الاتصال.‏ 

النقاط كناية عن عمليات نقوم بها على قاعدة البيانات.‏ 

أخيرا أغلقنا الاتصال من خلال الطريقة 

الاتصال بقاعدة 

.Close 

طرق فتح و إغلاق الاتصال 

توجد هناك طريقتان لفتح و إغلاق الاتصال بقواعد البيانات 

: 

-١ 

فتح وإغلاق الاتصال ظاهريا 

: 

ونعني به أن تقوم باستخدام وظيفة فتح وإغلاق الاتصال 

بشكل ظاهر في الكود.‏ و تعتبر هذه الطريقة طريقة مفضلة للأسباب التالية 

: 

.I 

.II 


سهولة قراءة الكود.‏ حيث يظهر بشكل واضح مكان فتح و إغلاق الاتصال 

تساعد على متابعة الأخطاء 

في هذه الطريقة،‏ ولأنك تقوم بفتح و إغلاق الاتصال بنفسك يتوجب عليك إغلاق 

الاتصال كلما انتهيت منه للأسباب التالية 

: 

.a 

.b 

أكثر قواعد البيانات لها عدد محدود من الاتصالات.‏ 

ترك الاتصال مفتوحا يستهلك موارد كبيرة جدا.‏ 

للتأكد من حالة الاتصال هل هو مفتوح أو مغلق استخدم خاصية 

State كما في المثال التالي 

137


if (ConnectionObject.State = ConnectionState.Open) 

فتح و إغلاق الاتصال باطنيا 

: 

وهو أن يقوم مهيء البيانات بفتح الاتصال عند تنفيذ 

عملية ما،‏ ثم يقوم بإغلاق الاتصال عند انتهائه من العملية.‏ في هذه الحالة لا تقوم 

باستخدام وظيفتي فتح و إغلاق الاتصال بل يقوم مهيء البيانات بذلك وذلك عندما تستخدم 

إحدى الدالتين التاليتين 

،Fill 

البيانات لتستخدمه أو تقوم بفتح اتصال ثم إغلاقه.‏ 

Update تقوم الدالة بالتأكد من وجود اتصال مفتوح بقاعدة 

-٢ 

عمليتا فتح و اغلاق الاتصال ظاهريا و باطنيا تعتمد على نوع البيئة التي تستخدمها،‏ هل 

هي بيئة متصلة أو غير متصلة.‏ الفتح الظاهري خاص بالبيئة المتصلة و الفتح الباطني خاص 

بالبيئة غير المتصلة.‏ 

معالجة استثناءات الاتصال بقواعد البيانات 

عند الاتصال بقواعد البيانات قد تظهر بعض الاستثناءات التشغيلية،‏ بعضها متوقع و البعض 

الآخر غير متوقع.‏ تتم معالجة الأخطاء التشغيلية من خلال عبارة 

.Try Catch 


الاستثناء -Exception– بأنه إما خطأ أو أداء غير متوقع إما من البرنامج نفسه أو من بيئة 

تشغيل البرنامج.‏ ظهر أسلوب جديد لمعالجة الاستثناءات في الدوت نت مع العلم أنه لم يكن 

موجودا في الاصدار السابق من فيجوال بيسك و الذي كان يعالج الأخطاء من خلال عبارة 

.Onerror 

لا تنصح ميكروسوفت باستخدام Onerror في بيئة الدوت نت لأنه يحوي عدد 

محدود من المعلومات عن الأخطاء أما في الطريقة الجديدة في الدوت نت فيمكن معرفة 

معلومات كثيرة مثل رقم السطر الذي حدث به الخطأ و اسم الدالة التي حصل بها الخطأ و 

اسم خادم البيانات وهو ما لم يكن متوفرا في السابق.‏ 

138


المعالجة الهيكلية للاستثناءات في بيئة الدوت نت 

هي عبارة عن شفرات تكتب لتحديد 

لها الاستجابة و الأخطاء 

أثناء عمل البرنامج حسب 

السياق التالي : 

Try 

Catch 

Finally 

End Try 

يمكن شرح سياق معالجة الاستثناءات من خلال النقاط التالية 

: 

-١ 

-٢ 

-٣ 

تكتب ما تريد أن تنفذه من كود في عبارة 

.Try 

عند حدوث خطأ يقوم سياق Catch بمعالجة الخطأ.‏ أما عند عدم حدوث خطأ فلا ينفذ 

محتوى عبارة 

عبارة 

.Catch 

Finally 

إذا لم تحتج لها.‏ 

يتم تنفيذها في كل الأحوال وهي عبارة اختياريه تستطيع عدم استخدامها 

المثال التالي يوضح استخدام هيكلية الاستثناء في بيئة الدوت نت.‏ 


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 

& _ 

"C:\TelDir.mdb;Persist Security Info=False" 

Try 

con.Open() 

Catch Exp As OleDb.OleDbException 

Label1.Text = Exp.Message 

Finally 

con.Close() 

End Try 

يمكن تلخيص المثال بالخطوات التالية 

: 

-١ 

-٢ 

-٣ 

في السطر الأول قمنا بتعريف اتصال بقاعدة البيانات.‏ 

في السطر الثاني قمنا بتعريف سلسلة الاتصال.‏ 

بدأ سياق معالجة الاستثناءات.‏ 

139


فتح الاتصال من خلال طريقة 

.Open 

إن حصل أي خطأ في فتح الاتصال سوف ينتقل السياق إلى عبارة 

.Catch 

في عبارة Catch قمنا بتعريف متغير من نوع استثناء خاص ب Oledb ثم عرضنا 

الرسالة التي توضح الاستثناء على أداة عنوان.‏ 

في كل الأحوال سواء حصل استثناء أم لم يحصل سيتم إغلاق الاتصال بقاعدة البيانات.‏ 

-٤ 

-٥ 

-٦ 

-٧ 

طبق ما سبق من خلال التدريب التالي : 

• 

• 

• 

قم بتغيير اسم قاعدة البيانات.‏ 

حاول الاتصال بقاعدة البيانات باستخدام سلسلة الاتصال السابقة.‏ 

يجب أن يكون هناك خطأ قم بمعالجته مظهرا رسالة على عنوان.‏ 

أوعية الاتصال : 

.I 

في كل مرة يتم فيها الاتصال بقاعدة البيانات يتم استهلاك حجم كبير من موارد الأجهزة 

الخادمة لذا تقتضي الحكمة إبقاء مجموعة من الاتصالات مجهزة في أوعية اتصالات مما 

يساعد على زيادة كفاءة النظام.‏ 

: تعريفها 

يمكن تعريف أوعية الاتصال بأنها عبارة عن عملية إبقاء مجموعة من الاتصالات مفتوحة و 

مجموعة في مكان ما ليتم بعد ذلك إعادة استخدامها 

. 

.II 

شروط استخدامها : 

يوجد هناك شرطان أساسيان لاستخدام أوعية الاتصال 

: 

-١ 

أن لا تختلف سلسلة الاتصال : وهو ما يعني تطابق سلسلة الاتصال تطابقا تاما حتى 

أسم المستخدم في سلسلة الاتصال لابد أن يتطابق 

. 

٢- توظيف خاصية وعاء الاتصال : مع العلم أن القيمة الافتراضية هي أن وعاء الاتصال 

موظف.‏ 

عند تخلف أحد الشرطين السابقين لا يتم استخدام نفس الاتصال بل تقوم بيئة التشغيل بإنشاء 

اتصال جديد ومن ثم يتم وضعه في وعاء جديد إن تم طلب ذلك.‏ 

140


: مميزاتها .III 

يوجد ميزتان هامتان تجعلنا نفكر في استخدام أوعية الاتصال وهما 

: 

-١ 

-٢ 

أداء أعلى للأنظمة : حيث أن فتح إتصال جديد لكل مستخدم يشكل عبأ على خادم 

البيانات كما أنه يأخذ وقتا لإتمام فتح الاتصال.‏ 

القدرة على التوسع بكفاءة 

إذا لم يتم استخدام أوعية الاتصال بشكل صحيح قد تؤثر على اداء النظام.‏ وذلك أن التوسع 

في إكثار الاتصالات في حوض الاتصال يستهلك موارد خادم البيانات.‏ 

تتضح أهمية استخدام أوعية الاتصال في تطبيقات الانترنت و التطبيقات التي يعمل عليها 

مستخدمين كثر.‏ يذكر أن عملية تجميع الاتصالات تتم في خادم البيانات 

١- عند 

إغلاق الاتصال بقواعد البيانات 

Close يتم 

٢- عند 

إتلاف الاتصال 

Dispose يتم 

٣- عند حدوث أحد الأمرين التاليين يتم إلغاء وعاء الاتصالات:‏ 

• 

حذف آخر اتصال من وعاء 

. 

• 

عند مرور وقت معين.‏ 

٤- الاتصال الحالي المشغول لا يمكن استخدامه.‏ 

‎٥‎‏-القيمة الافتراضية هي استخدام وعاء الاتصالات.‏ 

٦- عند ترك الاتصال مفتوحا لا يتم إعادته إلى وعاء الاتصالات.‏ 

٧- لا 

ترحيل الاتصال إلى وعاء الاتصالات.‏ 

إلغاء الاتصال من الذاكرة ولا يتم إرجاعه إلى وعاء الاتصالات.‏ 

يتم استخدام وعاء الاتصال في حالة اختلاف اسم المستفيد في سلسلة الاتصال.‏ 

٨- القيم الافتراضية للخاصيتين 

Min و Max هما ٠ و 

١٠٠ على التوالي.‏ 

٩- إذا تم شغل كل الاتصالات في الوعاء مع مستخدمين و جاء في نفس الوقت طلب اتصال من قبل مستخدم 

ما فإنه يتم إرسال طلب اتصال و يتم وضع هذا الطلب في الانتظار حتى يتم إغلاق اتصال ما وفي حالة مرور الوقت 

Timeout 

وعدم تلبية الطلب فإنه يتم الرجوع بخطأ 

. 

العامل 

العوامل المستخدمة في سلسلة الاتصال وتخص 

الشرح 

وعاء الاتصالات 

141


الوقت بالثانية لمدة بقاء الاتصال في وعاء الاتصالات قبل تدميره.‏ 

العدد الأقصى من الاتصالات في وعاء الاتصالات.‏ 

العدد الأقل من الاتصالات في وعاء الاتصال.‏ 

Connection Lifetime 

Max Pool Size 

Min Pool Size 

142


البيئة المتصلة في ADO.NET 

مر بنا في باب البيئة المتصلة و البيئة الغير متصلة،‏ أنه في البيئة المتصلة توجد قناة اتصال 

مفتوحة مع قواعد البيانات حتى تتم عملية الانتهاء من هدف الاتصال بقاعدة البيانات ومن ثم يتم 

اغلاق الاتصال.‏ تمثل هذه البيئة في ADO.NET بكائن الأمر و كائن قارئ البيانات.‏ يمكن 

تخيل عمل البيئة المتصلة من خلال الشكل(‏‎١-١٤‎‏)‏ . 

شكل ١-١٤ : 

نموذج البيئة المتصلة في بيئة الدوت نت 

في البيئة المتصلة العمل 

البيانات قواعد 

Connection 

Command 

DataReader 

طريقة عمل البيئة المتصلة 

: 

-١ 

-٢ 

يتم إنشاء اتصال بقاعدة البيانات.‏ 

يتم تحديد العملية المراد إجراءها.‏ 

‎٣‎‏-يتم قراءة البيانات إن احتيج إلى ذلك.‏ 

٤- يتم إغلاق الاتصال بقاعدة البيانات.‏ 

لعلك تلاحظ أننا نستخدم ثلاث كائنات ‏:هي كائن الاتصال،‏ 

كائن الأمر و كائن قارئ البيانات.‏ 

143


كائن الأمر 

: Command 

: تعريفه .I 

يمكن تعريف الكائن 

Command من خلال تقسيم محتواه 

١- إما أن يحوي جملة لغة استفسار بنائية 

: 

٢- أو يحوي استدعاء إجراء مخزن في قواعد البيانات 

.-Stored Procedure- 

.-SQL Statement - 

ومن ثم تستطيع تنفيذ هذا المحتوى من خلال بعض الوظائف في هذا الكائن و إرجاع النتيجة إلى 

كائن قارئ البيانات 

.DataReader 

.II 

طريقة الوصول إليه 

: 

يمكن الوصول لكائن الأمر من خلال 

فضاء الاسم التالي 

: 

System.Data.OleDb.OleDbCommand 

System.Data.SqlClient.SqlCommand 

: 

.III 

: خصائصه 

توجد عدة خصائص لكائن الأمر تمكننا من التعامل معه وهي 


Name 

Connection 

كائن الاتصال المستخدم 

يمثل اسم كائن الأمر و الذي سوف تتعامل معه 

في الكود 

اسم الاتصال الذي سوف يقوم باستخدامه كائن 

الأمر 

تنفيذ لغة استفسار بنائية 

Text CommandType 

StoredProcedur تنفيذ إجراء موجود في قاعدة البيانات 

TableDirect التعامل مع جدول واحد 

144


١- عبارة لغة الاستفسار البنائية التي سوف 

على اعتمادا 


CommandText 

يتم تنفيذها سواء لاسترجاع أو تحديث 

بيانات 

٢- اسم الإجراء الموجود في قاعدة البيانات 

السابقةCommandType 

سوف يكون لدينا واحد من 

ثلاث مدخلات 

و الذي نريد تنفيذه.‏ 

٣- اسم الجدول الذي نريد التعامل معه 

القيمة المدخلة في خاصية Command Text 

تعتمد على القيمة التي تم اختيارها في 

الخاصية .CommandType 

.IV طرق كائن الأمر : 

سوف نتطرق لأهم ثلاثة طرق في كائن الأمر وهي : 

الطريقة 

الهدف منها 

تنفيذ استعلام مما يؤدي إلى 

إرجاع 

أكثر من صف من قاعدة 

ExecuteReader 

البيانات وهو ما 

يتطلب 

استرجاع هذه النتيجة 

بواسطة كائن قارئ 


تنفيذ أمر يقوم بتحديث قواعد البيانات أو تكوين قواعد البيانات و 

النتيجة التي ترجع هي عدد الصفوف المتأثرة بالأمر.‏ 

تنفيذ أمر يسترجع قيمة واحدة فقط من قواعد البيانات.‏ 

ExecuteNonQuery 

ExecuteScalar 

• تنفيذ الأمر الذي يرجع قيمة واحدة 

يجدر القول هنا بأن هذه من أوجه تفوق ADO.NET على 

لتنفيذ الأوامر التي ترجع قيمة واحدة.‏ 

ADO حيث خصصت دالة 

من أمثلة الأوامر التي لا 

ترجع إلا قيمة واحدة : 

١- مجموع مشتريات اليوم.‏ 

٢- متوسط المشتريات هذا الشهر.‏ 

145


٣- عدد المنتجات التي توجد داخل المستودع.‏ 

فيما لو أعادت جملة 

SQL 

من الصف الأول و العامود الأول وهو ما يظهر أن 

تعيد كل القيم.‏ 

أكثر من قيمة فسوف يتم إهمال كل القيم ماعدا القيمة الأولى 

ADO.NET 

أقوى من 

ADO التي 

: 

انظر إلى المثال التالي 

لاستخدام كائن الأمر لاسترجاع قيمة واحدة من قاعدة البيانات 


Dim sql As String = "select count(*) from person" 

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 

"Data Source=C:\TelDir.mdb;Persist Security Info=False" 

Try 

con.Open() 

Dim cmd As New OleDb.OleDbCommand(sql, con) 

Label1.Text = cmd.ExecuteScalar().ToString 

Catch e1 As OleDb.OleDbException 

Label1.Text = e1.Message 

End Try 

: الشرح 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

-٦ 

-٧ 

عرفنا اتصال بقاعدة البيانات في السطر الأول.‏ 

في السطر الثاني عرفنا جملة الاستعلام.‏ 

في السطر الثالث عرفنا سلسلة الاتصال.‏ 

محاولة فتح الاتصال ثم إنشاء كائن الأمر مع إعطائه جملة الاستعلام و الاتصال الذي 

سيقوم باستخدامه.‏ 

قمنا بتنفيذ الطريقة 

ExecuteScalar 

قمنا بعرض النتيجة على أداة عنوان كما في الشكل(‏‎٢-١٤‎‏).‏ 

في حالة حصول خطأ سيتم إظهاره في أداة عنوان.‏ 

شكل ٢-١٤ : 

استرجاع قيمة واحدة من قاعدة البيانات.‏ 

لتنفيذ الأمر و التي سوف تعيد لنا نتيجة العملية.‏ 

146


انسخ قاعدة البيانات الموجودة مع القرص المرفق وضعها في \:c مباشرة كما ترى ذلك 

واضحا من سلسلة الاتصال،‏ ثم طبق المثال،‏ ضع الكود السابق داخل حدث النقر في زر أمر 

كما يظهر من الشكل 

(٢-١٤) 

• تنفيذ الأمر الذي يمكن أن يرجع عدة صفوف 

يقوم قارئ البيانات بقراءة البيانات إلى الأمام وهو كما تلاحظ من اسمه مخصص لقراءة 

البيانات.عند تنفيذ كائن الأمر الذي يرجع عدة صفوف يمكنك استخدام قارئ البيانات للمرور 

على هذه الصفوف.لاسترجاع عدة صفوف استخدم الوظيفة 

.ExecuteReader 

عند قراءة البيانات باستخدام قارئ البيانات فإن الاتصال يبقى مفتوحا حتى تقوم بإغلاقه،‏ لذا 

يجب عليك إغلاق الاتصال حالما تقوم بالانتهاء من قراءة البيانات.‏ يمكن الوصول لكائن 

قارئ البيانات من خلال فضاء الاسم التالي : 

System.Data.OleDb.OleDbDataReader 

System.Data.SqlClient.SqlDataReader 

: 

خصائص و وظائف قارئ البيانات 

يمكن أن نستعرض أبرز خصائص قارئ البيانات من خلال الجدول التالي 

خاصية-وظيفة 


False 

قراءة الصف التالي،‏ ترجع 

True إذا وجد الصف أو 

إذا لم يوجد 

Read 

ترجع قيمة 

العامود 

إما باستخدام اسم محدد أو رقمه 

Item 

تستخدم لاسترجاع قيمة الصف كاملا وقد تكون أكثر فعالية من استرجاع 

قيمة العامود لوحده 

هل تحتوي قيمة 

Null 

إغلاق قارئ البيانات وهو لا يقوم بإغلاق الاتصال 

GetValues 

isDBnull 

close 

147


sql 

RecordsAffected 

عدد السجلات المتأثرة بجملة 

كيف تستخدم قارئ البيانات لمعالجة الصفوف 

سوف نستعرض مثالا يوضح لنا كيفية استخدام كائن الأمر و كائن قارئ البيانات لاسترجاع 

مجموعة من الصفوف من قاعدة البيانات 


Dim rdName As OleDb.OleDbDataReader 

Dim sql As String = "select * from person" 



Try 

con.Open() 


rdName = cmd.ExecuteReader() 

Do While rdName.Read() 

ListBox1.Items.Add(rdName.GetString(1)) 

Loop 

rdName.Close() 



End Try 

: 

False من 

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

١- إضافة كائن الأمر و إعطائه الخصائص المناسبة 

٢- الإعلان عن قارئ البيانات 

٣- فتح الاتصال بقاعدة البيانات 

الوظيفة 

٤- استدعاء الوظيفة 

: 

ExecuteReader 

٥- استدعاء الوظيفة Read و المرور على الصفوف حتى ترجع لك قيمة 

.Read 

-٦ 

إغلاق قارئ البيانات 

148


: 

لتنفيذ المثال السابق 


أضف الأدوات التالية 


القيمة 

cmdExecute 

استرجاع بيانات الموظفين 

Label1 

ListBox1 

Name 

Text 

Name 

Text 

Name 

Text 

RightToLeft 

Button1 

Label1 


تنفيذ أمر يسترجع عدة صفوف 

Yes 

Form1 

لإغلاق الاتصال بعد استخدامه آليا استخدم العامل الذي يؤدي ذلك كما في العبارة التالية 

rdName = cmd.ExecuteReader(CommandBehavior.CloseConnection) 

: 

• 

تنفيذ الأمر الذي لا يرجع أي قيمة 

يمكن تلخيص الحالات التي يتم فيها تنفيذ الأمر الذي لا يرجع قيمة بما يلي 

149


إنشاء و إدارة هياكل قواعد البيانات 

إعطاء أو حظر صلاحية لمستخدم ما.‏ 

إضافة و تعديل و حذف بيانات من جداول في قاعدة البيانات 

-١ 

-٢ 

-٣ 

إنشاء و إدارة هياكل قواعد البيانات DDL 

هي اللغة المستخدمة في إنشاء و إدارة هياكل قواعد البيانات.‏ 

يمكن التمثيل لهياكل قواعد البيانات بالأمثلة التالية : 

• 

• 

١- الجداول 

-٢ View المستعرضات 

-٣ المحفزات Trigger 

من جمل تعريف هياكل البيانات : 

الجملة 


تستخدم لإنشاء كائن في قاعدة البيانات مثل الجدول 

تستخدم لتغيير صفات كائن في قاعدة البيانات 

تستخدم كائن من قاعدة البيانات 

Create 

ALTER 

DROP 

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

هي اللغة التي تمكنك من 

إعطاء أو حظر صلاحية لمستخدم ما.‏ 

من جمل لغة التحكم بالبيانات : 

الجملة 


تستخدم لمنح صلاحية لمستخدم على كائن في قاعدة البيانات 

حظر الصلاحية لمستخدم ما 

Grant 

DENY 

كيف تنفذ جملتي DDL و DCL 

150


يتم تنفيذ لغتي التحكم بالبيانات و تعريف البيانات باستخدام الوظيفة 

ExecuteNonQuery و 

التي تعتبر احد الوظائف التابعة لكائن الأمر.‏ تقوم هذه الوظيفة بإرجاع عدد الصفوف المتأثرة 

بالعملية.‏ 

خطوات تنفيذ DDL و DCL 

لكي تستوعب طريقة تنفيذ جمل إنشاء و إدارة قواعد البيانات انظر إلى المثال التالي 

: 


Dim sql As String = "create table MyNewTable (t5 varchar(10))" 



Try 

con.Open() 


Label1.Text = cmd.ExecuteNonQuery().ToString 



End Try 

من المثال قمنا بما يلي : 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

إنشاء كائني الاتصال و الأمر كما تعلمت سابقا 

فتح الاتصال بقاعدة البيانات 

تحديد الجملة التي تريد تنفيذها 

استدعاء وظيفة 

ExceuteNonQuery 

إغلاق الاتصال بقاعدة البيانات 

• 

سوف تكون نتيجة عملية إنشاء قواعد البيانات صفر إذا نجحت العملية و 

تنجح.‏ 

جمل تعديل البيانات DML 

غير ذلك إذا لم 

جمل تعديل البيانات كما تدل عليها الترجمة الحرفية وهي الجمل التي تمكنك من اضافة و 

تعديل و حذف بيانات من جداول في قاعدة البيانات 

جمل لغة تعديل البيانات هي : 

الجملة 


151


وهي الجملة التي تستخدم لإضافة بيانات إلى جدول في قاعدة 

البيانات 

وهي الجملة التي تستخدم لتحديث بيانات سبق ادخالها 

حذف صف أو أكثر من قاعدة البيانات 

INSERT 

UPDATE 

DELETE 

كيف تنفذ DML 

يتم تنفيذ لغة تعديل البيانات باستخدام الوظيفة ExecuteNonQuery و التي تعتبر احد 

الوظائف التابعة لكائن الأمر.تقوم هذه الوظيفة بإرجاع عدد صحيح يمثل عدد الصفوف 

المتأثرة بالعملية.‏ 

لكي تستوعب طريقة تنفيذ جمل لغة تعديل البيانات انظر إلى المثال التالي 

: 

-١ 

أنشئ نموذجا و ضع فيه الكائنات التالية و غير خصائصها كما يلي 

: 



القيمة 

cmdExecute 

إضافة سجل الموظف 

Label1 

Label2 

اسم الموظف بالعربي 

Label٣ 

اسم الموظف بالإنجليزي 

Textbox1 

Textbox1 

Yes 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

RightToLeft 

Button1 

Label1 

Label2 

Label٣ 

مربع نص 

TextBox2 

Form1 

‎2‎‏-اكتب الكود التالي في حدث النقر لزر الأمر 


Dim sql As String = "insert into person (name,ename) values " & _ 

"('" & TextBox1.Text & "','" & TextBox2.Text & "')" 

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & _ 

152


"=C:\TelDir.mdb;Persist Security Info=False" 

Try 

con.Open() 


Label1.Text = cmd.ExecuteNonQuery().ToString 



End Try 

لفهم المثال السابق : 

اتبع ما يلي 

• 

١- أنشئ كائني الاتصال و الأمر كما تعلمت سابقا 

٢- افتح الاتصال بقاعدة البيانات 

٣- قم باستدعاء وظيفة ExceuteNonQuery 

٤- أغلق الاتصال بقاعدة البيانات 

٥- انظر الشكل النهائي بعد التنفيذ حيث رجع لنا 

قيمة 

١ وهو يمثل 

عدد السجلات 

المتأثرة 

153


استخدام العملية الواحدة 

ما هي العملية الواحدة 


منها شيء على 

العملية الواحدة بأنها مجموعة من العمليات التي إما أن تنفذ بالكامل أو لا 

الإطلاق.‏ 

إذا نجحت 

كل هذه العمليات فإنه سوف يتم الالتزام 

ينفذ 

-Commit– 

بكل العمليات في قاعدة البيانات أما إذا فشلت أي من العمليات فإنه سوف يتم التراجع عن كل 

عمليات التحديث في قاعدة البيانات 

يعتبر 


. – RollBack – 

استخدام العملية الواحدة مهم جدا حتى لا يحدث خلل في البيانات الموجودة في قاعدة 

أمثلة عملية على استخدام العملية الواحدة 

إليك هذا المثال من الواقع 

: 

١- عند 

إضافة فاتورة إلى قاعدة البيانات فإن الفاتورة تتكون من جزأين هما المعلومات 

الأساسية للفاتورة مثل رقم الفاتورة و 

و الكميات،‏ في البداية لابد من 

المعلومات الأساسية ثم 

إضافة 

إضافة التفاصيل 

تاريخها و الجزء الثاني هو تفاصيل الفاتورة مثل 

المعلومات الأساسية ثم استرجاع الرقم 

الأساسي 

الأصناف 

من جدول 

الواحد تلو الآخر.‏ عند فشل إضافة التفاصيل يتوجب 

التراجع عن الإضافات السابقة و إلا نتج عن ذلك فاتورة غير مكتملة البيانات.‏ 

٢- عند الخصم من 

الحساب الأول و 

الإضافة إلى حساب آخر في نفس الوقت فإنه عند 

نجاح عملية الخصم من الحساب الأول و فشل عملية الإضافة إلى الحساب الثاني فإن العملية كلها 

تعتبر عملية فاشلة يجب التراجع عنها و إلا أصبح هناك خلل في البيانات.‏ 

أنواع العملية الواحدة 

• 

: عملية محلية 

• 

في هذه الحالة تستهدف العملية الواحدة قاعدة 

النوع سهل التطبيق ومدعوم من قبل جميع مزودي البيانات.‏ 

: عملية موزعة 

بيانات واحدة لا غير.‏ 

هذا 

في هذه الحالة تستهدف العملية الواحدة أكثر من قاعدة بيانات و يجب أن 

تنجح كل العمليات التي تنتمي للعملية الواحدة أو يتم التراجع عنها كلها.‏ 

154


إضافة 

ريال ١٠٠ 

إضافة 

My 

My 

Component 

خصم 

ريال 

ريال 

ريال ١٠٠ 

خصم 

الدائن الدائن حساب 

المدين المدين حساب 

حساب 

الواحدة العملية 

كيف تدير العملية الواحدة باستخدام ADO.NET 

• 

هذه الخطوات توضح لك كيفية تنفيذ العملية الواحدة،‏ 

اتبع الخطوات التالية 

: 

BeginTransaction 

-١ 

وهي أحد الوظائف التابعة للكائن 

قم باستدعاء الوظيفة 

Connection 

٢- عرف متغيرا من نوع Oletransaction واجعل قيمته تساوي الوظيفة التي عرفتها 

في الخطوة رقم 

الخطوة رقم 

فقم باستدعاء 

١ 

٣- اشر في كائن الأمر 

٢ 

٤- نفذ جميع الأوامر 

. 

Rollback 

من خلال خاصية 

إذا نجحت العملية قم باستدعاء 

Transaction إلى المتغير الذي عرفته في 

Commit أما إذا لم تنجح العملية 

انظر إلى المثال التالي لاستخدام العملية الواحدة : 


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 

Source=C:\TelDir.mdb;Persist Security Info=False" 

con.Open() 

Dim cmd As New OleDb.OleDbCommand() 

Dim trans As OleDb.OleDbTransaction = con.BeginTransaction 

cmd.Connection = con 

cmd.Transaction = trans 

Dim sql1 As String = "insert into person (name,ename) values ('" & 

TextBox1.Text & "','" & TextBox2.Text & "')" 

Dim sql2 As String = "insert into Teltype (name,ename) values ('" & 

TextBox3.Text & "','" & TextBox4.Text & "')" 

Try 

cmd.CommandText = sql1 

cmd.ExecuteNonQuery() 

cmd.CommandText = sql2 

cmd.ExecuteNonQuery() 

155


trans.Commit() 


trans.Rollback() 


End Try 

في المثال السابق الكود الموجود بخط عريض هو الكود الذي يقوم بإدارة العملية الواحدة،‏ 

لاحظ 

أننا نقوم بعمليتي إضافة على قواعد البيانات فإذا نجحت الأولى ثم فشلت الثانية فإنه سوف يتم 

التراجع عن عملية الإضافة الأولى،‏ 

وهو ما يضمن بقاء قاعدة البيانات دقيقة.‏ 

درجات العزل 

ما هي درجات العزل 


درجات العزل بأنها أداء 

إقفال عملية للاتصال.‏ 

بالطبع يتوجب عليك اختيار 

درجة العزل المناسبة عند تضارب أكثر من عملية على نفس البيانات.‏ 

مثال في الدوت نت يوضح كيفية استخدام العزل 

: 

HRMTran=HRMCon.BeginTransaction(isolationLevel.Serialzable 

أمثلة لمشاكل العمل الجماعي 

يمكن 

إعطاء أشهر مثالين لمشاكل العمل الجماعي 

Dirty Read القراءة الملوثة : و تحصل عندما تقوم عملية ما بقراءة بيانات يتم 

-١ 

تحديثها من قبل عملية أخرى لكن لم تتم 

إلزام 

-Commit– التحديثات على قواعد البيانات.‏ 

بالطبع 

لأن القراءة التي تتم في هذا الوقت قد لا تعطي معلومات دقيقة عن البيانات.‏ 

Phantom Read القراءة الخيالية : وتحدث عندما تقوم عملية ما بقراءة بيانات يتم 

-٢ 

حذفها من قبل عملية أخرى لكن لم تتم عملية 

إلزام التحديثات على قواعد البيانات.‏ 

156


ارشادات لاختيار درجة العزل 

يوفر لنا الكائن OLEDBTransaction خاصية تسمى IsolationLevel و تقوم باختيار 

قيمة هذه الخاصية عندما تبدأ عملية واحدة 

الشرح 

القيمة 

BeginTransaction 

وهو العزل الذي يسمح بقراءة كل البيانات غير 

الملزمة في قواعد البيانات فلذلك سوف تحصل 

.Phantom Read و Dirty Read 

ReadUncommitted 

Serializable 

Readcommitted 

في هذه الحالة يتم عزل جميع العمليات عن بعضها 

فلا تحصل 

سوف يتم 

Phantom Read و لا Dirty Read 

منع 

Dirty Read 

وهو ما يعني أن 

العملية لن تقرأ إلا البيانات التي تم إلزام تحديثها في 

قواعد البيانات لكن لن يتم منع 

وهذه هي القيمة الافتراضية 

Phantom Read 

157


العمل مع مجموعة البيانات 

DATASET 

في الفصل الذي تكلمنا فيه عن البيئة غير المتصلة قمنا بتعريفها كما يلي 

: 

مجموعة من البيانات 

يتم نسخها و تعديلها من مصدر البيانات ومن ثم إرجاع هذه التعديلات إلى مصدر البيانات.‏ لذلك 

تعتبر البيئة غير المتصلة هي البيئة المثالية عندما يكون أداء النظام هو المحك.‏ 

تزودنا ADO.NET بمجموعة من الكائنات للعمل في البيئة غير المتصلة.‏ يوجد كائنان 

أساسيان للعمل في البيئة غير المتصلة و هما 

: 

-١ 


: Dataset 

هي عبارة عن قاعدة بيانات صغيرة موجودة في الذاكرة 

تمكنك من إنشاء جداول و ربط هذه الجداول بعلاقات كما يتوفر فيها مجموعة من 

الوظائف المساعدة على تسهيل التعامل مع هذه البيانات.‏ ومع أن مجموعة البيانات 

تعتبر خيارا ممتازا في كثير من الحالات إلا أنها قد لا تكون حلا مثاليا في حالات أخرى مثل 

أن تريد قراءة بيانات من قاعدة البيانات فقط.‏ 

DataSet 

Relations 

DataRelation 

DataRelation 

Tables 

DataTable 

DataRow(s) 

DataColumn 

Constraint(s) 

DataTable 

DataTable 

DataView 

DataViewManager 

حسب ما يظهر من الشكل يمكن تقسيم مجموعة البيانات إلى 

: 

.a 

.b 

جدول بيانات 

: DataTable 

عبارة عن تمثيل لجدول إما أن تقوم ببناء هيكله أو 

تأخذه من مصدر بيانات.‏ يمكن أن تحتوي مجموعة البيانات على عدد غير 

محدود من الجداول.‏ 

أعمدة 

: DataColumn 

عبارة عن تمثيل لعامود داخل جدول هذا العامود له 

نوع و اسم وطول و غير ذلك من مواصفات الأعمدة كما يوجد في قواعد 


159


: DataRow صفوف .c 

.d 

.e 

.f 

القيود 

: DataConstarint 

وهي صفوف البيانات.‏ 

قيود توضع على الأعمدة مثل 

Constraint قيد عدم التكرار أو قيد عدم قابلية قيمة 

العلاقات 

Unique 

.Null 

: DataRelation 

إنشاء علاقات بين هذه الجداول.‏ 

المستعرضات : DataView 

خلال هذا الكائن.‏ 

ملاحظات عامة هامة حول مجموعة البيانات 

بعد إنشاء الجداول تستطيع من خلال هذا الكائن 

تستطيع إنشاء مستعرض على جدول أو أكثر من 

يمكن أن تحتوي مجموعة البيانات عدد غير محدود من الجداول.‏ 

أقرب ما يمكن تشبيها ب 

تتصل بقواعد البيانات من خلال 

DataAdaptor 

RecordSet 

تستطيع إضافة الجداول إلى مجموعة البيانات الواحدة من مصادر متنوعة 

MySQL,Oracle.. ثم ربطها مع بعض 

مجموعة البيانات ليس لها مزود بيانات محدد بل هي عامة لجميع مزودي البيانات 

مجموعة البيانات متسلسلة 

: Serializable 

تحول إلى اكس ام ال و العكس 

• 

• 

• 

• 

• 

• 

٢- مهيء البيانات 

: Data Adaptor 

يقوم هذا الكائن باستخدام ثلاثة كائنات باطنيا وهي قارئ 

البيانات و كائن الأمر و كائن الاتصال.‏ يقوم بفتح الاتصال بمصدر البيانات عن طريق كائن 

الاتصال ثم استخدام كائن الأمر لتنفيذ عملية ما ثم قارئ البيانات لقراءة البيانات و تعبئتها في 


160


دورة الحياة في مجموعة البيانات 

تصور دورة الحياة في مجموعة البيانات يساعد على فهمها فهما دقيقا ومن ثم يسهل التعامل معها.‏ 

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

مجموعة البيانات إلى الخطوات 

: التالي 

-١ 

-٢ 

-٣ 

-٤ 

تعبئة مجموعة البيانات بواسطة مهيء البيانات.‏ 

ربط الجداول بعلاقات إن كان هناك احتياج.‏ 

التعامل مع البيانات.‏ 

التأثير على قواعد 

البيانات بواسطة مهئ البيانات.‏ 

DataSet 

Original 

DataStore 

البيانات عن استخراج 

طريق 

Adaptor 

Table1 

Table2 

العلاقات انشاء 

على قواعد التأثير 

البيانات 

DataSet 

Table1 

مع البيانات التعامل 

DataSet 

Table1 

Table2 

Table2 

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

: 

-١ 

-٢ 

إنشاء هيكل البيانات 

برمجيا : 

أن تقوم بإنشاء مجموعة البيانات و إنشاء الجداول و 

الأعمدة و العلاقات بنفسك ومن ثم إضافتها إلى مجموعة البيانات.‏ 

بناء مجموعة البيانات من هيكل قاعدة البيانات 

: 

البيانات و تبني مجموعة البيانات بناء على هذا الهيكل.‏ 

أن تحضر هيكل البيانات من قواعد 

161


إنشاء هيكل البيانات 

برمجيا 

تعتبر هذه الطريقة قليلة الاستخدام لأن أغلب التطبيقات تقوم 

بملء مجموعة البيانات من قاعدة 

بيانات وهو 

ما يعني 

إحضار هيكل البيانات.‏ 

سوف تساعدك هذه الطريقة على فهم قريب لمجموعة 

: 

البيانات . 

سوف ننشئ هيكل البيانات لمجموعة البيانات في الخطوات التالية 

١- الخطوة الأولى هي إنشاء مجموعة البيانات.‏ 

لإنشاء مجموعة بيانات برمجيا قم بكتابة 

Dim dsTelDir As New DataSet() 

.dsTelDir 

الأمر التالي : 

يقوم الأمر السابق بإنشاء مجموعة بيانات اسمها 

٢- الخطوة الثانية 

إنشاء جدول ثم إضافته إلى مجموعة البيانات التي سبق إنشائها.‏ 

لإنشاء 

جدول و إضافته إلى مجموعة البيانات قم بما يلي:‏ 

Dim dtPerson As DataTable = dsTelDir.Tables.Add() 

في العبارة السابقة قمنا بإضافة جدول إلى مجموعة البيانات التي 

أنشأناها حديثا ثم أسندنا هذا 

. dtPerson عند 

الجدول إلى جدول 

أنشأناه و اسمه 

إضافة جدول إلى مجموعة بيانات و عدم 

تسميته فإنه يأخذ اسم TableX 

و العدد اكس هو تصاعدي حسب عدد الجداول الموجودة في 

مجموعة البيانات.‏ 

الخطوة الثالثة هي إضافة 

عامود إلى جدول داخل مجموعة البيانات.‏ 

الأمر التالي يقوم 

-٣ 

بإنشاء 

عامود ومن ثم إضافته إلى جدول 

Dim colName As DataColumn = dtPerson.Columns.Add("Name", GetType(System.String)) 

colName.AllowDBNull = False 

colName.Unique = True 

: 

في الخطوة السابقة قمنا بما يلي : 

.String 

عامود إضافة 

‏–حقل-‏ وعينا له اسم 

Name و نوع 

.a 

وضعنا قيد منع Null 

إدخال قيم 

.b 

في السطر الثالث 

استخدمنا قيد وحيد 

Unique لمنع تكرار نفس القيمة.‏ 

.c 

سوف نحاول تطبيق كل الخطوات السابقة من خلال المثال التالي 

: 

Dim dsTelDir As New DataSet() 

Dim dtPerson As DataTable = dsTelDir.Tables.Add() 

Dim colName As DataColumn = dtPerson.Columns.Add("Name", 

GetType(System.String)) 

162


colName.AllowDBNull = False 

colName.Unique = True 

MessageBox.Show(dtPerson.TableName) 

MessageBox.Show(dsTelDir.Tables.Count.ToString()) 

في هذا المثال طبقنا كل الخطوات السابقة ثم أظهرنا رسالتان : 

١- الرسالة الأولى نقوم بعرض اسم الجدول.‏ 

الرسالة 

٢- الثانية نقوم فيها بعرض عدد الجداول في مجموعة البيانات.‏ 

إنشاء قيد المفتاح الرئيسي 

تحوي الجداول في قواعد البيانات على 

عامود أو أكثر لا يمكن أن 

تتكرر قيمته في 

: 

أي صف من صفوف الجدول.‏ 

من أمثلة المفتاح الرئيسي 

رقم الموظف في جدول الموظفين 

رمز الصنف في جدول الأصناف 

-١ 

-٢ 

المثال التالي يوضح كيفية إنشاء قيد المفتاح الرئيسي 

: 

Dim myTable As DataTable = New DataTable() 

Dim myColumn As DataColumn 

myColumn = New DataColumn() 

myColumn.DataType = System.Type.GetType("System.String") 

myColumn.ColumnName = "FirstName" 

myTable.Columns.Add(myColumn) 

myTable.PrimaryKey = New DataColumn() {myTable.Columns("FirstName")} 

يمكن شرح المثال السابق بالخطوات التالية 

: 

أنشأنا جدول ثم أنشأنا 

عامود.‏ 

-١ 

حددنا نوع البيانات و اسم 

العامود 

-٢ 

قمنا بإضافة 

٣- العامود إلى الجدول 

قمنا بتحديد المفتاح الرئيسي من خلال العبارة 

: 

myTable.PrimaryKey = New DataColumn() {myTable.Columns("FirstName")} 

-٤ 

إنشاء عبارات رياضية 

قد تحتاج أن 

تعرض حقل 

يكون 

نتيجة حسابات لحقول أخرى،‏ 

مثل أن يكون الحقل الأول يمثل 

درجة الاختبار الأول و الحقل الثاني يمثل درجة 

الاختبار الثاني ثم هناك حقل يمثل مجموع 

163


الدرجات.‏ هذا الحقل يمثل بعامود يأخذ قيمه من الحسابات و لا يكون له عامود مماثل في 

قواعد البيانات غالبا.‏ يمكن إضافته باستخدام خاصية Expression وهي أحد خصائص 

الكائن 

.DataColumn 

لننظر إلى المثال التالي الذي سوف يبرز الفكرة 

: 

Dim ColUnitPrice As New DataColumn("Price", GetType(System.Decimal)) 

Dim ColQuantity As New DataColumn("Quantity", GetType(System.Decimal)) 

Dim TotalCost As New DataColumn("Total", GetType(System.Decimal)) 

Dim mytable As New DataTable() 

TotalCost.Expression = "Price * Quantity" 

mytable.Columns.Add(ColUnitPrice) 

mytable.Columns.Add(ColQuantity) 

mytable.Columns.Add(TotalCost) 

Dim myRow As DataRow 

myRow = mytable.NewRow() 

myRow("Price") = 5 

myRow("Quantity") = 1 

mytable.Rows.Add(myRow) 

Label2.Text = mytable.Rows(0).Item(2) 

يمكن توضيح المثال السابق بالخطوات التالية : 

-١ 

تعريف ثلاثة أعمد وهي 

TotalCost و ColQuantity و ColUnitPrice 

-٢ 

-٣ 

تعريف جدول 

قمنا بتعريف 

العامود TotalCost بأنه عبارة رياضية و عينا له قيمة 

Quantity وهو حاصل ضرب 

العامودين الآخرين.‏ 

Price * 

-٤ 

-٥ 

-٦ 

أضفنا الأعمدة إلى الجدول 

قمنا بتعريف صف جديد 

عينا لهذا الصف قيمة وهي صف جديد من الجدول الذي يحوي ثلاثة حقول و بالتالي فإن 

هذا الصف سوف يتكون من ثلاث قيم هي 

٥ و 

أضفنا قيمة ٧- 

٥ للسعر و 

١ للكمية.‏ 

-٨ 

-٩ 

قمنا بإضافة هذا الصف للجدول 

قمنا بعرض العنصر الثالث 

لأنه تم حسابها بناء على المعادلة التي أنشأناها.‏ 

١ ونتيجة ضربهما.‏ 

‏–مجموع التكلفة-‏ على أداة عنوان و سوف تكون قيمته 

٥ 

164


بناء مجموعة البيانات من هيكل قاعدة البيانات 

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

: 

-١ 

-٢ 

استخدام واجهة تطوير الدوت نت.‏ 

بناء ذلك برمجيا.‏ 

استخدام واجهة تطوير الدوت نت 

تعتبر هذه الطريقة من الطرق السريعة للوصول إلى قواعد البيانات ومن ثم بناء واجهات 

تتعامل مع قواعد البيانات.‏ استخدام مساعد إنشاء النماذج يعتبر طريقة جيدة لما يسمى 

بالنمذجة 

.-Prototype– 

في البداية لابد من إنشاء مجموعة البيانات ويتم كالتالي 

: 

-١ 

قم بإنشاء الاتصال بقاعدة البيانات .TelDir من خلال نافذة مستكشف الخادم كما يظهر 

في الشكل 

-٢ 

قم بنقر زر الفأرة الأيمن على 

Data Connection 

ثم اختر 

.Add Connection 

سيظهر لك الشكل اختر خانة مزود البيانات Provider ثم اختر المزود الخاص بأكسس وهو 

Microsoft.Jet.OLEDB.4 

قاعدة البيانات 

اختر خانة 

Connection 

TelDir 

ثم اختر 

165


-٣ 

أنشء مهيء البيانات ‏(والذي يوجد في خانة 

Data 

في مربع الأدوات كما يظهر من 

الشكل)‏ وذلك بإضافته إلى النموذج.سوف تظهر لك رسالة ترحيب 

انقر التالي.‏ 

-٤ 

سوف تظهر لك شاشة اختيار الاتصال الذي تريد استخدامه قم باختيار 

إنشائه كما يظهر من الشكل.‏ ثم انقر على التالي.‏ 

الاتصال الذي 

تم 

سوف تظهر لك شاشة تطلب منك اختيار طريقة الوصول إلى قواعد البيانات.‏ في حالة 

مايكروسوفت أكسس لا يوجد إلا الاختيار الأول كما يظهر من الشكل،‏ انقر التالي،‏ 

-٤ 

166


-٥ 

سوف تظهر لك شاشة تسألك عن جملة 

SQL التي 

QueryBuilder 

تريد تنفيذها.‏ انقر على زر 

لإنشاء الجملة بطريقة سهلة.‏ سوف تظهر لك قائمة بالجداول الموجودة 

في قاعدة البيانات.‏ قم باختيار الجدول Person ثم انقر موافق.‏ سوف تظهر 

لك حقول هذا الجدول كما ترى في الشكل اختر Name،ID ثم انقر موافق.‏ 

سوف ترجع إلى الشاشة الأولى انقر التالي.‏ 

-٦ 

سوف يظهر لك الشكل و الذي يخبرك بأنه تم إنتاج جميع أنواع جمل 

الاستفسار البنائية للجدول الذي اخترت انقر على زر إنهاء.‏ لاحظ أنه تم 

إنشاء كائني اتصال و مهيء بيانات.‏ 

167


-٧ 

اختر 

لإنشاء مجموعة البيانات قم بالنقر 

بالزر الأيمن على مهيء البيانات ليظهر لك الشكل.‏ 

ثم 

Generate Data Set 

-٨ 

سوف يظهر لك الشكل و الذي يطلب منك أن تزوده باسم مجموعة البيانات.‏ 

dsPerson كما يظهر لك من الشكل.‏ قم بإزالة علامة الاختيار عن 

قم تسميتها 

Add This 

Dataset to The Designer 

ملف dsPerson.xsd إلى مستكشف الحلول.‏ 

انقر على زر موافق سوف تلاحظ أنه تم إضافة 

-٩ 

لتحميل البيانات من قاعدة البيانات إلى مجموعة البيانات أضف زر أمر على النموذج و 

أضف شبكة بيانات Datagrid من مربع الأدوات ثم أضف الكود التالي داخل حدث 

168


النقر لزر أمر 

Dim ds As New DataSet() 

Me.OleDbConnection1.Open() 

Try 

Me.OleDbDataAdapter1.Fill(ds) 

DataGrid1.DataSource = ds.Tables(0) 

Catch Ex As OleDb.OleDbException 

MessageBox.Show(Ex.Message) 

End Try 

Me.OleDbConnection1.Close() 

في الكود السابق قم بما يلي 

: 

-١ 

-٢ 

-٣ 

-٤ 

عرفنا مجموعة بيانات 

قمنا بفتح الاتصال الذي سبق وأن أنشأناه 

قمنا بملء مجموعة البيانات بواسطة مهيء البيانات الذي سبق إنشائه.‏ 

أرجعنا الجدول رقم صفر ‏–الجدول الأول-‏ إلى Datagrid ليتم عرضه 

بناء 

مجموعة البيانات برمجيا 

169


تعتبر هذه الطريقة الأكثر شيوعا عند استخدام مجموعة البيانات.‏ يمكن ملئ مجموعة البيانات 

دون أن تحتاج إلى بناء هيكل البيانات لأن هيكل البيانات بتم تكوينه بعد استرجاع البيانات من 

قاعدة البيانات.‏ قم بإضافة الأدوات التالية و أعطها الخصائص التالية 

: 


Button1 


Name 

Text 

القيمة 

cmdFillGrid 

Name 

Text 

Name 

Text 

Label1 

إحضار معلومات الأشخاص 

Label1 

DataGrid1 

RightToLeft 

dataGrid 

Form1 

مجموعة البيانات برمجيا 

Yes 

قم بإضافة الكود التالي في حدث النقر الخاص بزر الأمر 

: 


Dim dsperson As New DataSet() 

Dim sql As String = "select id,name from person" 



Try 

Dim da As New OleDb.OleDbDataAdapter(sql, con) 

da.Fill(dsperson, "Person") 

DataGrid1.DataSource = dsperson.Tables("Person") 



End Try 

من الكود السابق يمكن توضيح النقاط التالية : 

-١ 

-٢ 

عرفنا اتصال بقاعدة البيانات ثم عرفنا مجموعة بيانات ثم عرفنا جملة sql التي نريد 

أن نسترجعها،‏ ثم عرفنا سلسلة الاتصال.‏ 

قمنا بتعريف مهيء البيانات و أعطيناه عاملان هما 

: 

-٣ 

لاسترجاع البيانات و جملة sql التي نريد أن ينفذها.‏ 

ملئ مجموعة البيانات بنتيجة جملة الاستفسار 

.sql 

-٤ 

قمنا بإرجاع جدول الأشخاص إلى 

الاتصال الذي سيستخدمه 

Datagrid ليتم عرضه كما يظهر لك من الشكل.‏ 

لاحظ أننا لم نقم بفتح الاتصال بقاعدة البيانات لأن مهيء البيانات يقوم بذلك.‏ 

170


تطوير واجهة النظام 

تعتبر شبكة البيانات من أهم أدوات عرض البيانات و التعامل معها.‏ لذلك سوف نقوم الآن 

باستكشاف كيف يمكن أن نطور شكل عرضها و كيفية تعامل مجموعة البيانات معها.‏ لو نظرنا 

إلى المثال السابق لوجدنا أنه قد ظهر لنا عنوان عامود رقم الموظف كما جاء من قاعدة البيانات 

ماذا لو أردت أن تغير هذا الاسم ليكون باللغة العربية فيظهر رقم الموظف بدلا من id و يظهر 

اسم الموظف بدلا من 

.Name 

تستطيع أن تنشيء تصميم لجداول في شبكة البيانات ومن ثم تجعل هذه الجداول هي واجهات تلك 

البيانات التي في مجموعة البيانات.‏ قم بالخطوات التالية لكي تنشأ مظهر لجدول 

الموجود في مجموعة البيانات 

Person 

: da 

-١ 

اذهب إلى خصائص شبكة البيانات لتجد الخاصية 

.TableStylas 

المجاور لها.‏ ستظهر لك نافذة تحرير مجموعة أنماط الجداول 

واضغط زر الانتقال 

-٢ 

اضغط زر الإضافة .Add سيضاف الكائن 

للمجموعة.‏ سوف يكون هذا الجدول هو واجهة 


DataGridTableStyle1 

Person 

الموجود من ضمن مجموعة 

171


اختر خاصية MappingName قم بكتابة Person وهو اسم الجدول في مجموعة 

البيانات و الذي سوف يعرض من خلال هذا الشكل..‏ 

-٣ 

-٤ 

هذه الخطوة سوف تقوم بربط أعمدة الجدول الموجود في مجموعة البيانات هنا 

لنتمكن من إعطائها خصائص كما نريد.‏ انقر على النقاط الثلاثة المقابلة لهذه الخاصية ليظهر 

لك الشكل.‏ اضغط زر الإضافة Add ليتم إضافة 

، GridColumnStyle 

اذهب إلى 

الخاصية MappingName و اكتب id ليتم ربط هذا الكائن بالعامود id الموجود في 

الجدول Person اذهب إلى خاصية HeaderText و اكتب رقم الموظف،‏ هذا هو ما 

سيظهر عنوانا لعامود رقم الموظف في شبكة البيانات.‏ أضف كائنا آخر و اذهب إلى 

MappingName و اكتب name‏.اذهب إلى خاصية HeaderText و اكتب اسم الموظف.‏ 

Ok ثم اضغط 

Ok ثم شغل البرنامج ليظهر لك الشكل 

ربط جدولين ثم عرضهما على شبكة البيانات 

ماذا لو أردت أن تعرض الموظفين ثم بعد اختيار واحد منهما تقوم بعرض أرقام هاتفه كما يظهر 

. من الشكل 

لاحظ كيف تم عرض اختيار أرقام الموظف ثم عرضها بشكل رأس و تفاصيل.‏ 

172


قم بتغيير الكود في المثال السابق ليكون كما يلي 

: 


Dim Myds As New DataSet() 

Dim sql(1) As String 

sql(0) = "select id,name from person" 

sql(1) = "select ID,Number,person from Phone" 



Try 

Dim daPerson As New OleDb.OleDbDataAdapter(sql(0), con) 

Dim daPhone As New OleDb.OleDbDataAdapter(sql(1), con) 

daPerson.Fill(Myds, "Person") 

daPhone.Fill(Myds, "Phone") 

_ & ‏","الموظف هاتف أرقام")‏Myds.Relations.Add 

"Myds.Tables("Person").Columns(0), Myds.Tables("Phone").Columns(2), True) 

DataGrid1.DataSource = Myds 



End Try 

لتوضيح الكود التالي افهم الخطوات التالية 

: 

-١ 

-٢ 

-٣ 

تم تعريف اتصال ثم تعريف مجموعة بيانات.‏ 

تم تعريف مصفوفة مكونة من صفين كل واحد منهما يمثل جملة استعلام،‏ الأول من 

جدول الموظفين و الثاني من جدول أرقام الهاتف.‏ 

قمنا بتعريف مهيئتي بيانات الأولى لتنفيذ الاستعلام الخاص بالموظفين ثم وضع نتيجته في 

جدول اسمه Person في مجموعة البيانات،‏ مهيئة البيانات الثانية سوف تنفذ الاستعلام 

الثاني و الذي يقوم باسترجاع رقم الموظف و أرقام هواتفه ثم وضعنا النتيجة في جدول 

اسمه Phone داخل مجموعة البيانات 

..Myds 

173


هذه الخطوة هي الأهم حيث قمنا بربط الجدولين ببعضهما البعض من خلال العامود 

الأول في جدول الموظفين و الذي يمثل رقم الموظف و العامود الثاني في جدول 

Phone و الذي يمثل كذلك رقم الموظف.‏ 

قمنا بعرض نتيجة مجموعة البيانات كاملة على شبكة البيانات.‏ 

-٤ 

-٥ 

البحث في مجموعة البيانات 

يمكنك البحث في مجموعة البيانات من خلال تطبيق جملة استفسار على جدول موجود في 

: 

مجموعة البيانات.‏ 

إن أفضل طريقة للفهم 

هي المثال 

في المثال التالي نقوم بالبحث عن الصف الذي يحوي اسم الموظف عبداالله ثم عرض 

رقم أول موظف في نتيجة البحث:‏ 

Dim SearchRow() As DataRow = 

‏("'عبداالله'=‏Myds.Tables("Person").Select("name 

MessageBox.Show(SearchRow(0).Item(0)) 

ماذا لو أردت أن ترتب نتيجة البحث حسب حقل ما تصاعديا أو تنازليا ؟ 

في المثال التالي نقوم بالبحث عن الصف الذي يحوي اسم الموظف عبداالله ثم ترتيب 

نتيجة البحث حسب الرقم من الأعلى إلى الأدنى 

Dim SearchRow() As DataRow = 

‏,"'عبداالله'=‏Myds.Tables("Person").Select("name "id DESC") 

MessageBox.Show(SearchRow(0).Item(0)) 

: 

لاحظ أننا أضفنا عاملا ثانيا لدالة البحث وهو ما نريد أن نرتب النتيجة بناء عليه وهو رقم 

الموظف ثم أتبعناه بخيار الترتيب DESC وهو ما يرتب النتيجة من الأعلى إلى الأدنى 

استخدام المستعرضات 

تتعدد استخدامات المستعرضات لكن أحد استخداماتها الشائعة هي ترشيح عرض الصفوف لذلك 

تعتبر المستعرضات أحد طرق البحث في مجموعة البيانات.‏ 

174


من عملية البحث 

: 

في المثال التالي سنقوم بإنشاء مستعرض ومن ثم البحث فيه وترتيب الصفوف الناتجة 

Dim DV As New DataView(Myds.Tables("Person")) 

‏"'عبداالله'=‏name‏"‏ DV.RowFilter = 

DV.Sort = "ename" 

في المثال السابق قمنا بإنشاء مستعرض للصفوف التي تحتوي اسم عبداالله ثم رتبنا الصفوف في 

المستعرض بناء على الاسم الأخير.‏ 

برنامج البحث في مجموعة البيانات 

سوف نبني برنامجا يطبق الأفكار السابقة،‏ فكرة هذا البرنامج هو أن يكون هناك زري اختيار 

أحدهما للبحث في مجموعة البيانات التي في الذاكرة و الثاني لاسترجاع البيانات من قواعد 

البيانات ومن ثم البحث فيها.‏ سنقوم بعرض النتيجة على شبكة بيانات.‏ 

قم بتصميم الشاشة حسب الشكل و حسب الخصائص الموجودة في الجدول 

: 



القيمة 

cmdSearch 

Name 

Button1 

175


بحث 

Label1 

btnNewData 

البحث بنسخة محدثة 

rdoDSSearch 

البحث في مجموعة البيانات 

DataGrid1 

البحث عن الموظفين 

Yes 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

RightToLeft 

Label1 

RadioButton1 

RadioButton1 

dataGrid 

Form1 

قم بإضافة الكود التالي 

Public Class SearchProj 

Inherits System.Windows.Forms.Form 


Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles cmdSearch.Click 


Dim sql As String = "select id,name,ename from person" 


"Data Source=C:\TelDir.mdb;Persist Security 

Info=False" 

If rdoNewData.Checked Then 

Myds.Clear() 

Dim daPerson As New OleDb.OleDbDataAdapter(sql, con) 


End If 

If Myds.Tables.Count = 0 Then Exit Sub 

Dim DV As New DataView(Myds.Tables("Person")) 

DV.RowFilter = "name Like '" & txtEmpName.Text & "*'" 

DV.Sort = "ename" 

DataGrid1.DataMember = "" 

DataGrid1.DataSource = Nothing 

DataGrid1.DataSource = DV 

End Sub 

End Class 

الذي يخص موضوعنا من هذا الكود هو الموجود بخط عريض : 

نتأكد من أن مجموعة البيانات تحوي على جدول واحد على الأقل 

نعرف المستعرض على أنه مستعرض لجدول الأشخاص 

-١ 

-٢ 

176


عرفنا المرشح،‏ لاحظ وجود النجمة وهو ما يعني أننا نريد البحث عن أول جزء يدخله 

المستخدم ثم نحضر كل ما يطابق هذا الجزء بغض النظر عن باقي الاسم 

قمنا بالترتيب حسب الاسم الأخير 

فرغنا شبكة البيانات من أي بيانات 

أعدنا عرض البيانات على شبكة البيانات،‏ انظر الشكل النهائي بعد التنفيذ 

-٣ 

-٤ 

-٥ 

-٦ 

177


ربط البيانات 

Data Binding 

تستطيع من خلال تقنية ربط البيانات ربط أداة بحقل في قاعدة البيانات يقوم فيه الحقل بعرض 

بيانات ذلك الحقل ومن ثم تستطيع التنقل بين البيانات إلى الأول و الأخير و التالي و السابق و في 

حالة تعديل البيانات يمكنك عكس هذه التعديلات على قواعد البيانات.‏ كل هذه العملية لاتحتاج إلى 

جهد كبير بل بضعة أسطر من الكود للتم عملية الربط و التنقل بين السجلات.‏ 

: مثال 

في هذا المثال سنقوم بعرض بيانات الموظف من خلال ربط أداة مربع النص 

باسم الموظف و التنقل إلى الموظفين.‏ انظر الشكل و قم بتصميمه حسب الخصائص التالية 

: 



القيمة 

cmdNext 

التالي 

cmdPerv 

السابق 

cmdFirst 

الأول 

cmdLast 

الأخير 

btnFetch 

إحضار البيانات 

Label1 

Label1 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Button1 

Button٢ 

Button٣ 

Button٤ 

Button٥ 

Label1 

Label٢ 

176


اسم الموظف 

lblCurrent 

رقم السجل 

ListBox1 

Text 

Name 

Text 

Name 

Text 

RightToLeft 

Label٣ 


تنفيذ أمر يسترجع عدة صفوف 

Yes 

Form1 


قم بتطبيق خاصية تجزيء الجمل حتى يتسنى عرض الأسطر الطويلة في أسطر 

مقطعة ومقروءة كما يلي 

Edit Advance Word Wrap 

Public Class DataBinding 


Dim WithEvents bmb As BindingManagerBase 


سوف نعرض الكود كاملا ثم نقوم بشرحه : 

Private Sub btnFetch_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles btnFetch.Click 


Dim sql As String 

sql = "select id,name from person" 



Try 





End Try 

txtEmpName.DataBindings.Add("Text", Myds, "Person.name") 

bmb = Me.BindingContext(Myds, "Person") 

bmb.Position = bmb.Count 

bmb.Position = 0 

End Sub 

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnNext.Click 

bmb.Position += 1 

End Sub 

Private Sub cmdPrev_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles cmdPrev.Click 

bmb.Position -= 1 

End Sub 

Private Sub cmdLast_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles cmdLast.Click 

177


bmb.Position = bmb.Count - 1 

End Sub 

Private Sub cmdFirst_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles cmdFirst.Click 


End Sub 

Private Sub bmb_PositionChanged(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles bmb.PositionChanged 

lblCurrent.text = String.Format("{0} of {1}", bmb.Position + 1, 

bmb.Count) 

End Sub 

End Class 

يمكننا شرح المثال السابق من خلال النقاط التالية 

‎١‎‏-عرفنا متغير على مستوى النموذج 

Dim WithEvents bmb As BindingManagerBase 

: 

بمكن وصف هذا المتغير بأنه الكائن الذي يقوم بتنسيق العلاقة بين كائنات الربط و مجموعة 

البيانات.‏ فعلى سبيل المثال عند الانتقال من سجل إلى آخر فإن هذا الكائن يقوم باعلام كائنات 

الربط بأن رقم السجل الحالي قد تغير و أنه يتوجب تغيير القيمة المعروضة على الأدوات إلى 

القيمة الجديدة التي تم الإنتقال إليها.‏ 

٢- في السطر الثاني قمنا بتعريف مجموعة البيانات التي ستحوي بيانات الموظفين.‏ 

٣- في حدث النقر الخاص بزر الأمر btnFetch قمنا بإحضار البيانات و وضعها في 

مجموعة بيانات.‏ 

الجديد في الموضوع هنا هو الجمل التالية 

: 





في الجملة الأولى قمنا بربط مربع النص 

الموجود في مجموعة البيانات 

Person.name بالحقل txtEmpName 

.Myds 

لاحظ أننا قمنا بربط الخاصية 

. Text 

المربوطة تعتمد على الأداة فمثلا لو كانت أداة مربط اختيار سوف نقوم بربط الخاصية 

. Checked 

-٤ 

و الخاصية 

في الجملة الثانية نقوم بتحديد اطار الربط لأن النموذج قد يحوي أكثر من اطار 

واحد فعلى سبيل المثال قد تقوم بربط بعض الأدوات بجدول الموظفين و بعضها بجدول أرقام 

الهاتف.‏ أما في السطرين الثالث و الرابع فنحن نقوم بعملية انعاش لأزرار الأمر.‏ 

في الأحداث الخاصة بالتنقل بين السجلات تلاحظ أننا نقوم بالتنقل بين السجلات من 

خلال خاصية 

.Postion 

178


الحدث bmb_PositionChanged يتم تنفيذه كلما تغيير موقع السجلات فنقوم 

بهذه الحالة بعرض رقم السجل الحالي و رقم مجموع السجلات.‏ 

قم بتشغيل البرنامج ليظهر لك الشكل 

-٥ 

-٦ 

ربط بيانات رأس بتفاصيل 

انشاء نموذج يربط بيانات رئيسية ببيانات فرعية يعتبر تحصيل حاصل بفضل الطريقة القوية 

بربط البيانات.‏ ماعليك إلا أن تضيف شبكة البيانات و التي ستظهر البيانات الفرعية،‏ فعلى سبيل 

المثال ماذا او أردت أن تنتقل من موظف إلى آخر و بمجرد انتقالك يتم عرض أرقام هاتفه في 

شبكة البيانات.‏ 

قم بتصميم الشكل التالي حسب الخصائص الموضحة في المثال السابق مع إضافة 

شبكة بيانات كما يظهر لك 

: 

في الحقيقة الكود في هذا المثال هو نفس الكود في المثال السابق مع زيادة لا تذكر،‏ 

الكود الآن وسوف نجعل الزيادة بخط عريض حتى تلاحضها.‏ 

سوف نعرض 


179




sql = "select id,name from person" 



Try 



Dim daPhone As New OleDb.OleDbDataAdapter("select & _ 

ID,Num,person from Phone", con) 

daPhone.Fill(Myds, "Phone") 

Myds.Relations.Add("PersonPhone",Myds.Tables("Person").Columns(0), & _ 

Myds.Tables("Phone").Columns(2), True) 



End Try 

Myds.WriteXml("da.xml") 


DataGrid1.DataSource = Myds 

DataGrid1.DataMember = "Person.PersonPhone" 




.Phone 

Person برقم 

الإضافات هي كما يلي : 

عرفنا مهيء بيانات لإحضار أرقام الهاتف.‏ 

قمنا بتعبئة البيانات في مجموعة البيانات Myds و اسمينا الجدول 

قمنا بإنشاء علاقة بين الجدولين و ذلك بربط رقم الموظف في الجدول 

الموظف في الجدول Phone و اسمينا العلاقة PersonPhone 

قمنا بعرض البيانات على شبكة البيانات و ذلك بتعيين مجموعة البيانات إلى شبكة 

البيانات مع ملاحظة أننا اسندنا إلى الخاصية datamember قيمة تمثل اسم العلاقة التي 

أنشأنها بين الجدولين وهي Person.PersonPhone لاحظ أننا ابتدأنا باسم الجدول 

الرئيسي ثم اسم العلاقة 

-١ 

-٢ 

-٣ 

-٤ 

٥- قم بتنفيذ البرنامج ليظهر لك الشكل 

180


181


تحديث البيانات في البيئة المنفصلة 

مر بك في الباب الخاص بالبيئة المنفصلة بأن تعريف البيئة المنفصلة هي مجموعة بيانات يتم 

نسخها من قاعدة البيانات ثم قطع الاتصال بقاعدة البيانات و إجراء العمليات على هذه البيانات 

إضافة و حذفا و تعديلا ثم إرجاع كل ما تم من عمليات إلى قاعدة البيانات.‏ و كما مر بك سابقا 

فإن من عيوب هذه البيئة إمكانية حدوث تضارب في تعديل البيانات وهو مايتطلب حل هذه 

المشاكل.‏ عرفت في الفصل الخاص بمجموعة البيانات كيفية استرجاع مجموعة بيانات و عرضها 

على نموذج،‏ ما تبقى هو الجزء الخاص بتعديل مجموعة البيانات و من ثم ارجاع هذه التعديلات 

إلى قواعد البيانات و حل أي مشكلة تنتج عند تعديل البيانات.‏ 

قبول و رفض التعديلات 

نظرا لأن مجموعة البيانات يعتبر مخزن بيانات موجود في ذاكرة المستفيد من البيانات،‏ أي أن 

هذه البيانات مفصولة عن قاعدة البيانات فإن كل تعديل يتم على مجموعة البيانات لا يتم عكسه 

مباشرة على قواعد البيانات.‏ من هنا ظهر أن هناك مجموعة من الأخطاء سوف تظهر عند 

محاولة تحديث قواعد البيانات وهو ما يتطلب البحث عن هذه الأخطاء وعرضها للمستخدم لكي 

يتم تعديلها.‏ من أمثلة هذه الأخطاء 

: 

-١ 

-٢ 

مخالفة قواعد العمل أو القيود المفروضة على الحقول 

: 

هذه القواعد أو القيود لا تنتقل 

إلى مجموعة البيانات بل تظل موجودة في قاعدة البيانات،‏ ماذا لو كان هناك قيد على أحد 

الحقول يمنع أن يتكرر هذا الحقل أو يفرض قيمة موجبة لهذا الحقل،‏ إن محاولة تعديل 

قواعد البيانات في هذه الحالة سوف يسبب مشكلة يجب عرضها على المستفيد.‏ 

ماذا لو أراد مستفيد تعديل قيمة لحقل قام بحذفها مستفيد آخر.‏ 

إضافة صف إلى مجموعة بيانات 

سوف نرى كيفية إضافة صف إلى جدول في مجموعة البيانات،‏ ما أحب أن أنبه عليه هو أن 

إضافة صف إلى مجموعة بيانات لا يعني إضافته إلى قاعدة البيانات بل يعني أنك أضفته إلى 

مجموعة البيانات الموجودة في الذاكرة و تم وضع علامة عليه لتميزه بأنه صف تم إضافته،‏ فلو 

توقف الجهاز عن العمل لسبب ما و ضاع ما في الذاكرة فإن كل الإضافات التي قمت بها قد 

ذهبت أدراج الريح لأنه لم يتم تحديث قواعد البيانات بها.‏ 

182


تتم إضافة صف إلى مجموعة بيانات كما يلي 

: 

-١ 

-٢ 

-٣ 

استخدم الطريقة NewRow و التي تنتمي إلى كائن الجدول لإنشاء صف جديد 

عين قيم كل حقل من حقول في هذا الصف 

قم بتمرير الصف و إضافته إلى مجموعة صفوف الجدول 

قبل إضافة أي قيمة إلى الجدول يتوجب عليك التأكد من عدم مخالفتها لقواعد العمل،‏ 

المثال إذا كان المدخل لا يقبل القيم السالبة تأكد من أن القيمة المدخلة موجبة.‏ 

أمثلة متنوعة لإضافة صفوف 

فعلى سبيل 

: 

لتطبيق كل الخطوات الثلاث السابقة إليك هذا المثال 

: 

Dim dtPerson As DataTable = Myds.Tables(0) 

Dim dr As DataRow = dtPerson.NewRow() 

‏"عبدالله"‏ = dr("name") 

dr("ename") = "Abduallah" 

dtPerson.Rows.Add(dr) 

MessageBox.Show(Myds.Tables(0).Rows.Count) 

يمكن شرح المثال السابق بالخطوات التالية 

: 

-١ 

-٢ 

-٣ 

-٤ 

أنشأنا صف جديد من نوع صف بيانات و عينا له قيمة صف فارغ من جدول الأشخاص.‏ 

عينا قيم كل حقل في هذا الصف.‏ 

أضفنا الصف كاملا إلى جدول الأشخاص 

أظهرنا رسالة قبل عملية الإضافة و بعدها لتظهر عدد الصفوف في الجدول 


لاحظ أننا لم نعين قيمة لرقم الموظف لكونه رقما تسلسليا يتم إنشائه بواسطة قواعد 

يكفيك هذه الصيغة و التي سوف تعمل بنفس الطريقة في المثال السابق:‏ 

Myds.Tables("Person").Rows.Add(New Object() {Nothing, ‏({"‏Abduallah‏","عبدالله"‏ 

قمنا بوضع قيمة 

Nothing لرقم الموظف حتى يتم تعيينه من قبل قاعدة البيانات.‏ 

183


تحديث صفوف في مجموعة البيانات 

كما مر بك في إضافة صفوف إلى مجموعة البيانات فإن الصفوف التي يتم تعديلها هنا لا يتم 

تعديلها في قواعد البيانات إنما يتم تعديلها في مجموعة البيانات في الذاكرة.‏ 

الأخير:‏ 

إليك هذا المثال الذي سنقوم فيه بتعديل اسم الشخص العربي و اسمه الإنجليزي للصف 


Dim dr As DataRow = dtPerson.Rows(dtPerson.Rows.Count - 1) 



في المثال التالي سنقوم بتعديل الاسم الإنجليزي لكل الأشخاص لكي تصبح قيمه فارغة 


Dim dr As DataRow 

For Each dr In dtPerson.Rows 

dr("ename") = "" 

Next 

حذف الصفوف من مجموعة البيانات 

يوجد طريقتان لحذف صف من مجموعة البيانات 

: 

-١ 

استخدام الطريقة Delete و التي تعتبر أحد طرق الصف في مجموعة البيانات،‏ المثال 

التالي يوضح كيف يتم حذف صف من مجموعة بيانات 

Myds.Tables(0).Rows(1).Delete() 

: 

تقوم الطريقة Delete بوضع علامة على الصف تدل على أنه تم حذفه.‏ 

-٢ 

استخدام الطريقة 

يوضح ذلك المثال التالي 

: 

Remove و التي تقوم بإلغاء هذا الصف من مجموعة البيانات،‏ كما 

Dim dr As DataRow = Myds.Tables(0).Rows(1) 

Myds.Tables(0).Rows.Remove(dr) 

تم حذف الصف من مجموعة البيانات لكن لم يتم حذفه من قاعدة البيانات.‏ 

184


قبول أو رفض التعديلات 

سبق و أن بينا لك أن كل ما تقوم به من عمليات على مجموعة البيانات لا يتم عكسه على قواعد 

البيانات بل يتم وضع علامة على الصف المتأثر بالعملية،‏ 

فلو قمت بإضافة صف إلى مجموعة 

البيانات فسوف يتم وضع علامة عليه تدل على أنه صف تم إضافته إلى مجموعة البيانات،‏ 

وهذا 

الكلام ينطبق على كل صف تقوم بحذفه أو تعديله في مجموعة البيانات.‏ 

هذه العلامة يتم وضعها 

لكل صف من خلال خاصية .Rowstate 

تمثل قيمة هذه الخاصية حالة الصف،‏ 

و إليك الحالات 

المحتملة لكل صف : 

الحالة 

الوصف 

تمت إضافة هذا الصف إلى مجموعة البيانات.‏ 

تمّ‏ حذف هذا الصف من مجموعة البيانات.‏ 

تمّ‏ إنشاء هذا الصف ولكن ّه لم يحفظ في مجموعة البيانات إلى الآن.‏ 

تمّ‏ تعديل هذا الصف في مجموعة البيانات.‏ 

لم يتمّ‏ تغيير محتويات الصف.‏ 

Added 

Deleted 

Detached 

Modified 

Unchanged 

من المقدمة السابقة نستطيع استنتاج أننا نستطيع استخلاص البيانات التي قام المستفيد بتحديثها في 

مجموعة البيانات فبدلا من إرسال كلّ‏ صفوف المجموعة إلى قاعدة البيانات،‏ يمكنك أن ت ُرسل فقط 

الصفوف المعدّلة والمضافة والمحذوفة 

إلى قاعدة البيانات وهو ما يوفر الكثير من الموارد لخادم 

البيانات و لشبكة الاتصال.‏ 

المثال التالي يوضح كيف نعرف حالة صف ما من خلال خاصية 

:Rowstate 


Dim dr As DataRow = dtPerson.NewRow() 

MessageBox.Show(dr.RowState) 



dtPerson.Rows.Add(dr) 

MessageBox.Show(dr.RowState) 

في المثال السابق قمنا بعرض حالة الصف بعد إنشائه لكن قبل حفظه في مجموعة البيانات.‏ 

قمنا بعرض حالته بعد حفظه في مجموعة البيانات.‏ 

ثم 

185


تحديث قواعد البيانات 

سوف نقوم باستعراض أكثر من طريقة لتحديث قواعد البيانات لتلاحظ الفرق بينها فيما يتعلق 

بالأداء و استهلاك موارد النظام يمكن القول بأن هناك وسيلتان لتحديث قواعد البيانات 

: 

-١ 

ارسال كل مجموعة البيانات إلى قواعد البيانات 

: 

وهذه الطريقة غير فعالة وتستهلك 

موارد كبيرة من الشبكة و خادم البيانات.‏ المثال التالي يوضح هذه الفكرة 

: 

المثال التالي يوضح إرسال كل مجموعة البيانات إلى قاعدة البيانات 

: 






Try 



Myds.Tables("Person").Rows.Add(New Object() {Nothing, 

"Abdulallah"}) ‏,"عبداالله"‏ 

Dim ComBuilder As New OleDb.OleDbCommandBuilder(daPerson) 

daPerson.InsertCommand = ComBuilder.GetInsertCommand 

daPerson.Update(Myds, "Person") 


MessageBox.Show(e1.Message) 

End Try 


: 

-١ 

-٢ 

-٣ 

-٤ 

عرفنا مجموعة بيانات و اتصال ثم أعلنا عن الاستعلام ثم عينا قيمة لسلسلة الاتصال.‏ 

عرفنا مهيء البيانات ثم استرجعنا البيانات و عبئنا مجموعة البيانات.‏ 

أضفنا صف إلى مجموعة البيانات،‏ حتى هذه اللحظة لم يتم تحديث قواعد البيانات.‏ 

قمنا بتعريف الأمر الذي سيقوم بتحديث قواعد البيانات،‏ نظرا لأن مهيء البيانات لا يمكنه 

أن يحدث قواعد البيانات لأنه لا يحوي جملة الإضافة إلى قواعد البيانات فقد أنشأنا جملة 

الإضافة إلى قواعد البيانات في مهيء البيانات من خلال كائن باني الأمر 

.CommandBuilder 

-٥ 

تم تحديث قواعد البيانات من خلال الطريقة 

Update وهي أحد طرق مهيء البيانات.‏ 

186


في المثال السابق أضفنا إلى مجموعة البيانات صفا واحد لذلك قمنا باستخدام وظيفة الإضافة 

الخاصة بباني الأمر،‏ 

والتحديث كما يلي 

عند حذف أو تحديث صفوف في مجموعة البيانات استخدم وظائف الحذف 

daPerson.DeleteCommand = ComBuilder.GetDeleteCommand 

daPerson.UpdateCommand = ComBuilder.GetUpdateCommand 

إرسال السجلات المحدثة في مجموعة البيانات 

: 

تعتبر هذه الطريقة أفضل من الطريقة 

الأولى حيث تقوم هذه الطريقة بارسال السجلات التي تم تحديثها فقط.‏ 

-٢ 

: قاعدة البيانات 

المثال التالي يوضح إرسال الصفوف المتأثرة بالتحديثات في مجموعة البيانات إلى 






Info=False" 

Try 



Myds.Tables("Person").Rows.Add(New Object() {Nothing, 

"Harith"}) ‏,"حارث"‏ 

If Myds.HasChanges Then 

Dim AffectedDS As DataSet = Myds.GetChanges 

Dim ComBuilder As New 

OleDb.OleDbCommandBuilder(daPerson) 

daPerson.InsertCommand = ComBuilder.GetInsertCommand 

daPerson.Update(AffectedDS, "Person") 

End If 



End Try 

الفارق بين الطريقة الأولى وهذه الطريقة 

: 

-١ 

-٢ 

-٣ 

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

مجموعة البيانات أم لا.‏ 

Haschanges لنرى هل تم تحديث أي صف من صفوف 

بعد ذلك قمنا بتعريف مجموعة بيانات لكي تحوي الصفوف التي تم تحديثها فقط وهو 

صف واحد فقط.‏ استطعنا استرجاع الصفوف التي تم تحديثها 

Getchanges والتي ستقوم باسترجاع الصفوف التي تم تحديثها فقط.‏ 

قمنا بإرسال الصفوف المحدثة فقط ليتم تحديث قواعد البيانات.‏ 

باستخدام الطريقة 

187


حل التعارض في تحديث البيانات 

فيما سبق من الأمثلة كنا نفترض أن المستخدم هو الوحيد الذي يقوم بتحديث قواعد البيانات،‏ 

لكن هذا الافتراض في الواقع قد لا يكون صحيحا.‏ عند العمل الجماعي على قواعد البيانات 

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

يتطلب إيجاد حل لهذه التضاربات،‏ أنت غني عن التعريف أننا حين نعمل مع مجموعة 

البيانات فنحن نعمل في البيئة المنفصلة.‏ ماذا لو أن مستخدما استرجع بيانات الموظف خالد و 

قام موظف آخر باسترجاع نفس البيانات،‏ ثم قام الموظف الأول بتعديل اسم خالد في مجموعة 

البيانات إلى علي وبعد ذلك قام بتحديث قاعدة البيانات في نفس الوقت قام الموظف الآخر 

بتعديل اسم خالد إلى محمد،‏ هنا سوف يحصل تضارب في التعديل.‏ 

عندما يجد أمر التحديث أنه حصل تعارض في التحديث فإنه يتوقف عن تحديث باقي 

الصفوف و ينتقل إلى سياق الاستثناء،‏ لذلك من المهم جدا أن تضع عملية تحديث البيانات في 

سياق استثناء.‏ في أغلب الأحيان ترغب أن تتم عملية تحديث البيانات وعند حصول تعارض 

في تحديث صف ما يتم الانتقال إلى الصف الذي يليه حتى يتم الانتهاء من تحديث كل صفوف 

الجدول في مجموعة البيانات،‏ هذا ما تستطيع عمله من خلال استخدام الخاصية 

ContinueUpdateOnError وهي أحد خواص مهيء البيانات.‏ 

المثال التالي يوضح كيفية استخدام خاصية 

في المثال السابق منا بما يلي 

: ContinueUpdateOnError 

daPerson.ContinueUpdateOnError = Tru 

daPerson.Update(Myds, "Person") 


End If 

: 

-١ 

-٢ 

-٣ 

إعمال خاصية ContinueUpdateOnError و التي سوف تمكن من الانتقال إلى 

الصف التالي في حالة حدوث تعارض في تحديث البيانات.‏ 

قمنا بتحديث قاعدة البيانات 

وضعنا الشرط الذي سوف يبين لنا هل حدث تعارض أم لا،‏ إذا تحقق هذا الشرط فقد 

حدث تعارض وهو ما يتطلب منا حل هذا التعارض.‏ 

188


عرض الصفوف التي لم يتم تحديثها 

عند حدوث تعارض في تحديث البيانات يتوجب عليك عرض هذه الصفوف التي لم يتم تحديثها 

في قاعدة البيانات مع إيضاح لسبب عدم التحديث حتى يستطيع المستفيد اتخاذ قرار ما.‏ 

المثال التالي يوضح كيفية عرض الصفوف المتعارضة : 

قم بإضافة نموذج جديد ثم أضف زري أمر على هذا النموذج،‏ 

التالي 

كما يتضح من الجدول 

cmdGetData 

: 

-١ 


احضار البيانات و تحديث صف 

cmdUpdate 

محاولة تحديث البيانات 

ResolveConfilct 

Name Button1 

Text 

Name Button1 

Text 

Name Form 

هذا هو الكود للبرنامج كاملا : 

Public Class ResolveConfilct 






Dim dtPerson As DataTable 

Dim dr As DataRow 

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles cmdUpdate.Click 

Try 


Dim AffectedDS As DataSet = Myds.GetChanges 

Dim ComBuilder As New OleDb.OleDbCommandBuilder(daPerson) 

daPerson.ContinueUpdateOnError = True 

daPerson.UpdateCommand = ComBuilder.GetUpdateCommand 

daPerson.Update(AffectedDS, "Person") 

Dim ConflictRow As DataRow 

Dim ConfilctRowCount As Integer = 

AffectedDS.Tables("Person").GetChanges.Rows.Count 

For Each ConflictRow In AffectedDS.Tables("Person").Rows 

If ConflictRow.RowState = DataRowState.Modified Then 

تحديث تعارض"‏ ConflictRow(1), & ‏"الصف تحديث في خطأ حدث MessageBox.Show(" 

‏("تعارض"‏ ‏,"البيانات 

End If 

Next 

End If 



189


End Try 

Private Sub cmdGetData_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles cmdGetData.Click 



Info=False" 


dtPerson = Myds.Tables(0) 

dr = dtPerson.Rows(dtPerson.Rows.Count - 1) 



End Sub 

سوف نشرح الآن الكود الذي بخط عريض لأن باقي الكود سبق شرحه 

: 

-١ 

-٢ 

-٣ 

عرفنا متغيرا من نوع صف لكي نستخدمه في أخذ قيمة الصفوف التي حدث فيها تعارض 

عرفنا متغيرا من نوع رقم صحيح ثم استرجعنا عدد الصفوف التي حدث لها تعارض 

في التحديث.‏ 

عملنا تكرار لاستخراج كل الصفوف التي حدث لها تعارض ومن ثم سوف يتم عرض 

هذا التعارض للمستفيد في رسالة.‏ 

190


XML و ADO.NET 

مقدمة عن XML 

يمكن تعريف XML بأنه معيار لوصف المعلومات الرقمية.‏ يتم تمثيل المعلومات داخل ملفات 

XML بشكل هرمي مما يسهل عملية قراءتها و البحث فيها.‏ تجدر الإشارة إلى أن هناك فارقا 

كبيرا بين ملفات 

.XML وملفات HTML 

تستخدم ملفات 

HTML 

لتوضيح كيفية عرض 

البيانات على المتصفح لكنها في نفس الوقت لا تمتلك أي معلومة عن المحتوى الذي يتم عرضه.‏ 

على النقيض من ذلك تستخدم ملفات XML لعرض البيانات كما أنها تحوي معلومات عن 

البيانات المعروضة.‏ تم تصميم XML لنقل المعلومات خلال الانترنت بالإضافة إلى الهيكل 

الخاص بها XSD والذي يبين محتواها لمتلقي البيانات.‏ كما أن هناك فارقا آخر وهو أن 

XML 

تمكن المستفيد من بناء الهيكل الذي يريد فإن HTML تحوي عددا محدودا من العلامات المهيئة 

للإستخدام.‏ تعتبر XML تقنية مدعومة بشكل كبير في بيئة الدوت نت،‏ يوجد فئات خاصة ب 

XML مرتبطة ب .ADO.NET من أهم ما يميز XML أنها ملفات نصية و هو ما يجعل نقل 

هذه الملفات بين أنظمة التشغيل و التطبيقات أمرا يسيرا.‏ 

نظرة على ملف 

XML 

يمثل المثال التالي نموذجا لملف 

 

 

 

1 

‏خالد‏ 

 

 

2 

‏احمد‏ 

 

 

 

XML 

قمنا بإنتاج هذا الملف من خلال مجموعة البيانات وهو ما ستراه لاحقا،‏ يحوي هذا الملف على 

صفين،‏ كما ترى فإن هذا الملف سهل الفهم فالبيانات معروضة بشكل هرمي واضح.‏ يوجد 

موظفان الأول اسمه خالد و الثاني اسمه أحمد،‏ 

لاحظ وجود كلمة 

name قبل الاسم وكلمة 

الرقم.‏ هاتان الكلمتان تمثلان اسما الحقل في مجموعة البيانات.‏ أما كلمة Person فتمثل اسم 

الجدول.‏ 

id قبل 

192


مجموعة البيانات و XML 

توفر لنا مجموعة البيانات مجموعة من الطرق للتعامل مع ملفات XML كما يلي : 

-١ 

-٢ 

تستطيع كتابة ما تحتويه من بيانات في ملف 

.XML 

تستطيع قراءة ملف XML ومن ثم تعبئته في مجموعة بيانات.‏ 

كتابة محتوى مجموعة بيانات في XML 

الطريقة الأساسية في مجموعة البيانات لكتابة ملف 

استخدام هذه الطريقة سوف نأخذ المثال التالي 

.WriteXML هي XML 

: 

لتوضيح كيفية 



Dim sql As String = "select id,name from person where id=1" 



Try 



Myds.WriteXml("dsPerson.xml") 



End Try 


: 

-١ 

-٢ 

-٣ 

-٤ 

أعلنا عن اتصال و مجموعة بيانات 

في السطر الثالث عرفنا جملة الاستعلام والتي يجب أن ترجع لنا موظفا واحد 

نفذنا الاستعلام ثم وضعنا نتيجة الاستعلام في مجموعة البيانات 

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

اسمه 

WriteXml لكتابة محتوى مجموعة البيانات في ملف 

XML 

، dsPerson.xml 

-٥ 

المشروع.‏ 

سوف يتم انشاء الملف في المجلد 

هذا هو محتوى ملف XML الناتج من الكود السابق.‏ 

Bin و الذي يقع داخل مجلد 

 

 

 

1 

‏خالد‏ 

 

 

193


قراءة ملف XML 

لقراءة ملف 

XML و من ثم كتابته في مجموعة بيانات استخدم الطريقة 


.ReadXml 

Myds.WriteXml("dsPerson.XML") 


ds.ReadXml("dsPerson.XML") 

: 

كتابة ملف ١- 

XML 

-٢ 

-٣ 

عرفنا مجموعة بيانات جديدة 

قمنا بقراءة محتوى الملف إلى هذه المجموعة 

استرجاع محتوى مجموعة البيانات على شكل XML 

لاسترجاع مجموعة البيانات على شكل XML قم باستخدام الطريقة 

.Getxml 

بعرض مجموعة البيانات على شكل xml في مربع نص.‏ كما تلاحظ عرض ملف 

بيئة الدوت نت شيء يسير جدا فمجرد أن تعين ملف 

فإن ذلك كفيل بعرض هذا الملف.‏ 

المثال التالي يقوم 

XML في 

XML لخاصية 

Text الخاصة بمربع النص 

TextBox1.Text = Myds.GetXml 

في المثال السابق نفترض أنه تم إنشاء مجموعة بيانات ثم ملئها من جدول الأشخاص بعد ذلك 

استخدمنا الطريقة GetXml و التي تقوم باسترجاع محتوى مجموعة البيانات على شكل 

ثم عرضنا ذلك على مربع نص.‏ 

XML 

استرجاع هيكل XML لمجموعة بيانات 

إذا اردت استرجاع هيكل 

XML لمجموعة بيانات استخدم الوظيفة 

.GetXmlSchema 

كما يلي 

TextBox1.Text = Myds. GetXmlSchema 

194


برنامج التعامل مع 

XML 

لتطبيق 

كل الطرق السابقة 

قم بانشاء نموذج كما يظهر من الشكل 

: 

: 

ضع الأدوات مع 

إعطائها الخصائص التالية 



القيمة 

cmdWritexml 

كتابة ملف 

XML 

cmdGetXml 

عرض مجموعة البيانات بشكل 

xml 

cmdReadXml 

قراءة ملف 

XML 

cmdGetSchema 

استرجاع هيكل 

xml لمجموعة 

Label1 

TextBox1 

True 

Both 

التعامل مع تقنية 

XML 

Yes 

بيانات 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

Text 

Name 

MultiLine 

Scrollbars 

Text 

RightToLeft 

Button1 

Button1 

Button1 

Button1 

Label1 

TextBox 

Form1 

195


قم 

بكتابة الكود التالي 

Public Class WriteXml 



Private Sub cmdWritexml_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles cmdWritexml.Click 


Dim sql As String = "select id,name from person where id=1" 



Try 



Myds.WriteXml("dsPerson.xml") 



End Try 

End Sub 

Private Sub cmdReadXml_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles cmdReadXml.Click 

Myds.WriteXml("dsPerson") 


ds.ReadXml("dsPerson") 

End Sub 

Private Sub cmdGetXml_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles cmdGetXml.Click 

TextBox1.Text = Myds.GetXml 

End Sub 

Private Sub cmdGetSchema_Click(ByVal sender As System.Object, ByVal 

e As System.EventArgs) Handles cmdGetSchema.Click 

TextBox1.Text = Myds.GetXmlSchema 

End Sub 

End Class 

يمكن تلخيص أهم ما يقوم به الكود من خلال النقاط التالية : 

لاحظ أنه يوجد أربعة اجراءات كل واحد منها خاص بحدث النقر لزر أمر من الأزرار 

.XML 

التي سبق إنشاؤها.‏ 

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

الإجراء 

cmdWritexml_Click يقوم بكتابة محتوى مجموعة البيانات في ملف 

Myds في 

.XML 

الاجراء 

cmdReadXml_Click يقوم بكتابة محتوى مجموعة البيانات 

ملف XML ثم يقوم بإنشاء مجموعة بيانات أخرى وقراءة ملف XML إلى مجموعة 


الاجراء 

cmdGetXml_Click يقوم بقراءة محتوى مجموعة البيانات على شكل 

XML ثم عرضها على مربع نص.‏ انظر الشكل 

-١ 

-٢ 

-٣ 

-٤ 

-٥ 

196


الاجراء cmdGetSchema_Click يقوم بقراءة محتوى مجموعة البيانات على 

شكل هيكل XML ثم عرض هذا الهيكل على مربع نص.‏ انظر الشكل 

-٦ 

197


إنشاء التقارير 

تعلمنا فيما سبق من فصول كيفية التعامل مع البيانات لكن بقي شيء واحد ومهم وهو كيفية 

عرض و طباعة التقارير.‏ لعرض التقارير توجد هناك طريقتان أساسيتان وهما 

: 

-١ 

-٢ 

إنشاء التقارير خارج بيئة الدوت نت ثم استدعائها و إرسال العوامل المناسبة لإخراج 

التقرير : فعلى سبيل المثال لو كنت محترفا في بناء التقارير باستخدام مصمم التقارير في 

مايكروسوفت أكسس فإن 

من بيئة الدوت نت.‏ 

باستطاعتك بناء التقرير الذي تريد ومن ثم استدعاء هذا التقرير 

انشاء التقارير من خلال كائنات كريستال ريبورت و التي توجد مع بيئة الدوت نت.‏ 

سوف يكون محور حديثنا عن الطريقة الثانية.‏ 

تقدم تقارير كريستال قوة ممتازة في بيئة الدوت نت لتصميم التقارير.‏ يوجد مصمم كريستال 

للتقارير و الذي يمكنك من انشاء تقرير جديد أو تحديث تقرير سبق انشاؤه.‏ بعد إنشائك للتقرير 

تستطيع استخدامه في تطبيقك سواء كان هذا التطبيق تطبيق مكتبي أو تطبيق يعمل على الانترنت.‏ 

انشاء تقرير بواسطة كريستال ريبورت 

لإنشاء تقرير بواسطة كريستال ريبورت اتبع الخطوات التالية 

: 

-١ 

-٢ 

ابدأ مشروع جديد في بيئة الدوت نت و سمه 

.CrystalDemo 

أضف ملف كريستال جديد من خلال مستكشف الحلول وذلك بنقر زر الفأرة الأيمن على 

المشروع ومن ثم اختيار Add ليظهر لك الشكل.‏ قم بتسمية هذا الملف ب 

.FirstReport 

199


-٣ 

سوف تظهر لك شاشة نوع التقرير 

التي تراها في الشكل ثم انقر 

الذي تريد بنائه اختر نفس الاختيارات 

Ok 

-٤ 

اختر 

سوف يظهر لك الشكل و الذي 

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

أن تنشأ التقرير منها.‏ 

OLE DB ADO 

كما يظهر 

200


لكي تظهر لك شاشة تحديد مزود البيانات كما يظهر من الشكل 

، 

اختر مزود البيانات 

الخالص بمايكروسوفت أكسس اختره ثم انقر Next وحدد موقع قاعدة البيانات و اختر 

.Ok 

-٤ 

سوف تظهر كل الجداول،‏ 

الأشخاص إلى الجهة اليمنى.‏ 

اختر جدول الأشخاص ثم انقر التالي سوف ينتقل جدول 

-٥ 

201


سوف تظهر لك حقول الجدول،‏ هنا تقوم باختيار الحقول التي تريد أن تظهر في التقرير،‏ 

اختر كل الحقول كما يظهر من الشكل 

-٦ 

-٧ 

انقر التالي لتظهر لك شاشة خيارات التجميع في التقرير 

: 

, 

تعتبر هذه الخطوة اختيارية 

ويمكنك من خلالها اختيار الحقل الذي تريد اجراء التجميع به.‏ انقر التالي.‏ 

202


سوف تظهر لك شاشة الترشيح 

: 

تعتبر هذه الشاشة اختيارية و تستطيع من خلالها ترشيح 

البيانات التي ستخرج في التقرير من خلال وضع شرط ما على أي من الحقول،‏ في 

تقريرنا هذا سنقوم بعرض كافة البيانات لذلك انقر التالي 

-٨ 

شاشة تنسيق التقرير 

: 

تمكنك هذه الشاشة من تحديد تنسيق التقرير،‏ يوجد عدة أنواع 

تستطيع استعراضها ومن ثم اختيار التنسيق الذي تراه مناسبا،‏ 

القياسي كما يظهر من الشكل 

: 

سوف نختار التنسيق 

-٩ 

203


: 

انقر زر 

Finish ليظهر لك التقرير كما ترى من الشكل 

-١٠ 

-١١ 

هذا هو التقرير الذي أشأته من خلال الخطوات العشر الماضية.‏ 

تلاحظ يتكون من عدة أجزاء 

– و الكلام ينطبق على أي تقرير 

: - 

• 

رأس التقرير 

: ReportHeader 

معلومات لا تتكرر أثناء عرض التقرير.‏ 

بالكليشه و فيه يكون شعار المنشأة و اسمها 

. 

• 

رأس الصفحة 

: Page Header 

• 

هذا التقرير وكما 

سيظهر هذا القسم في أعلى التقرير و يحوي 

عادة ما يكون رأس التقرير ما يسمى 

كذلك يحوي معلومات لا تتكرر على مستوى 

الصفحة،‏ في الغالب يحوي اسماء الحقول المعروضة في التقرير.‏ 

: التفاصيل 

• 

: تذييل التقرير 

• 

ملخصات التقرير 

: تذييل الصفحة 

-٢ 

يحوي البيانات التي نريد عرضها في التقرير 

يظهر في آخر صفحة من التقرير يحوي معلومات مثل المجاميع و 

يحوي معلومات تظهر في آخر كل صفحة،‏ 

عادة ما تكون هذه 

المعلومات مثل رقم الصفحة وعدد الصفحات و التاريخ.‏ 

‎١٢‎‏-الخطوة الأخيرة هي عرض التقرير.‏ لعرض التقرير قم بالخطوات التالية : 

١- نظرا لأننا سوف نعرض التقرير من خلال نموذج لذا قم بإضافة نموذج إلى 

المشروع 

أضف الأداة 

CrystalReportViewer 

204


وهي موجودة في صندوق الأدوات 

-٣ 

-٤ 

كبر هذه الأداة لتحتل النموذج كاملا 

اذهب إلى الخاصية 

ReportSource 

و ابحث عن التقرير الذي أنشأته قبل قليل وهو 

FirstReport.rpt 

٥- قم بتشغيل النموذج ليظهر لك الشكل التالي 

205


بناء تقرير اعتمادا على مجموعة بيانات 

بفضل التعاون بين بيئة الدوت نت و كريستال ريبورت فإنه بإمكانك أن تبني تقرير بناء على 

مجموعة بيانات.‏ توجد هناك العديد من الفوائد لاستخدام هذه الطريقة منها أنه بمجرد أن تكتيب 

الخبرة في التعامل مع مجموعة البيانات فإنك لن تحتاج إلى التعمق في برمجة التقارير.‏ فعلى 

سبيل المثال تستطيع ترشيح مجموعة البيانات ثم عرض نتيجة الترشيح على تقرير بدون أن 

تضطر إلى استخدام عوامل في الكريستال ريبورت.‏ أحد الطرق لبناء التقرير من مجموعة بيانات 

هي أن تصمم التقرير و تحدد الجدول الذي سيكون مصدرا لهذا التقرير و تقف عند هذه النقطة،‏ 

بعد ذلك تقوم أثناء التنفيذ بتعيين مجموعة البيانات التي ستعرض بياناتها على التقرير 

لنأخذ المثال التالي على كيفية بناء تقرير من مجموعة بيانات : 

قم بإضافة تقرير و أعطه اسم 

crPerson كما يظهر من الشكل.‏ 

-١ 

٢- اختر نفس الاختيارات الموجودة في الشكل 

206


سوف يظهر لك عدة خيارات في الجهة اليسر،‏ هذه الخيارات تمثل مصدر البيانات التي 

تريد أن تعرض التقرير منها،‏ اختر 

Access/Excel ثم Create New Connection 

ثم أضف اتصالا بقاعدة البيانات بعد ذلك ستظهر كل الجداول في قاعدة البيانات اختر 

جدول الأشخاص كما يظهر من الشكل.‏ ثم انقر 

Finish 

-٣ 

207


سوف يظهر لك الشكل و هو التقرير الذي نتج 

من الخطوات السابقة.‏ 

-٤ 

-٥ 

قم بإضافة الحقلين الذي سيظهر في التقرير وهما ID و 

.Name 

واحد التفاصيل ومن ثم ستتم إضافتهما آليا في الرأس كما يظهر من الشكل.‏ 

سوف تظيفهما مرة 

غير كلمة Name 

و ID الموجودة في رأس التقرير لتكون رقم الموظف و اسم 

الموظف 

208


أنشئ نموذج جديد و أضف إليه زر أمر و مربع نص و مستعرض تقارير 

CrystalReportViewer 

قم بجعل مصدر التقرير -ReportSource– لمستعرض التقارير هو التقرير الذي قمت 

-٦ 

بإنشائه قبل قليل وه .crPerson 

انقر مزدوج على زر الأمر و أضف الكود التالي : 



sql = "select id,name from person where name Like '" & 

txtEmpName.Text & "%'" 



Dim myds As New DataSet() 

myds.Clear() 

Try 

Dim Adapter As New OleDb.OleDbDataAdapter(sql, con) 

Adapter.Fill(myDs, "Person") 

If myds.Tables("Person").Rows.Count >= 1 Then 

MessageBox.Show(myds.Tables("Person").Rows.Count) 

Dim rpt As New crPerson() 

rpt.SetDataSource(myds) 

CrystalReportViewer1.Zoom(20%) 

CrystalReportViewer1.ReportSource = rpt 

CrystalReportViewer1.RefreshReport() 

End If 

Catch err As System.Exception 

MsgBox(err.Message) 

End Try 

: 

-٧ 

الشرح 

١- سوف يقوم المستخدم بإدخال اسم أو جزء منه في مربع النص وعند النقر على زر الأمر 

سوف يتم البحث عن هذا الاسم في مجموعة البيانات ثم عرض التقرير بناء على 

مجموعة البيانات.‏ انظر الشكل 

209

download

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?