سلسلة دروس فى قواعد البيانات

ياعم Misiny_forever لا داعى للأسف ميزان أو كيزان كلها اشياء ممكن نملاها ونزودها هههههه

اشكرك على مرورك بالموضوع

سلامى... ;) :rolleyes:

ههههههههههههههههههه

أخي الحبيب :

شكرا لك على هذه الدروس القيمة... و أثابك الله بها خيرا

لا شكر على واجب يا علاء

تعلم العلم وعلمه

اشكرك لمرورك بالموضوع

سلامى

;) ;) :rolleyes:

ما شاء الله!!

دروس قيمة وجميلة بالفعل

جزاك الله خيرا اخى شريف :rolleyes:

فينك يا عم هانى من زمان كنت والله مستنى اسمع رأيك فى الموضوع

دعواتك لنا ولكل الأعضاء بالتوفيق ياهانى

مع خالص تحياتى

سلامى...

;) ;) :rolleyes:

الأخ العزيز : شريف عادل

جزاك الله خيراً وأثابك على عملك هذا .

والذي أسأل الله عز وجل بمنه وكرمه أن لا يحرمك الأجر والثواب .

الأستاذ شريف

مجهود رائع واكثر من رائع تتبعتة جيدا ولكن لى ملاحظة علما بانى بادء جديد فى تعلم البيزيك

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

اشرت فى معلومة اظهار نتائج البحث الى الجدول الوهمى واحلت الى الرجوع الى الدروس السابقة ولم يوجد فى الدروس السابقة شيى عن اعداد هذا الجدول او حتى فى الأمثلة

اعذرنى فى رائى فقد اكون قد اخطأت فى الفهم فعليك ان تعلمنى مادمت قد قطعت عهد على نفسك وتطوعت للشرح انا احاول التعلم لأنى اعانى فى تصميم كود بحث بكلمة فى حقل من جدول لقاعدة بها اكثر من 60 جدول وربطت البرنامج بتلك الأداة

اقتباس

فينك يا عم هانى من زمان كنت والله مستنى اسمع رأيك فى الموضوع

دعواتك لنا ولكل الأعضاء بالتوفيق ياهانى

شكرا جزيلا يا شريف على تعليقك الجميل

انا يشرفنى الرد على مثل هذا الموضوع

وربنا يوفقك انت وكل الاعضاء ويزيدكم من علمه :rolleyes:

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

--------------------------------------------------------------------------------

لكي تقوم بربط قاعدة بيانات مع برنامجك في فيجوال بيسك ستحتاج أولا إلى و جود قاعدة بيانات لكي تربطها ببرنامجك و يتيح لك فيجوال بيسك أن تربط مع أنواع كثير من قواعد البيانات مرورا بأكسس و و لوتس و إنتهاءا بفوكس برو و أراكل ، كما يوفرلك فيجوال بيسك عمل قاعدة بيانات بواسطة برنامج ملحق معه و هو غالبا يفي بحاجتك سيكون درسنا هذا هو إنشاء قاعدة بيانات بهذا البرنامج المرفق مع فيجوال بيسك

قاعدة البيانات التي سننشأها تحتوي جدول يحتوي على أسماء الطلاب و أرقامهم

الخطوة الأولى فتح فيجوال بيسك كالمعتاد و من ثم الذهاب إلى قائمة

Add-ins >> visual data manager...

بعد ذلك ستفتح لك نافذة البرنامج إذهب إلى

File>>new>>microsoft access>>version 7.0 mdb..

سيظهر لك مربع حفظ حدد الموقع الذي تريد أن تحفظ فيه قاعدة بياناتك ثم إختر حفظ

بعد ذلك ستظهر لك قاعدة البيانات حدد

proprties

بالزر الأيمن ثم أختر

New Table

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

سيفتح لنا نافذة إضافة الحقول نكتب إسم الحقل في المكان المخصص و نحدد نوع بيانات الحقل هل هي رقمية أو حرفية إلخ ، و نكرر العملية حتى ننهي جميع الحقول التي نريدها و في مثالنا هذا نريد حقلين الأول إسمه

name

و نوع بياناته

text

و الثاني

number

و نوع بياناته

long

ملاحظة مهمة إذا كان ماسيكتب في الحقل من أرقام خمسة أرقام أو أقل نختار نوع البيانات

integer

و للأرقام الطولية نختار

long

بذلك نكون قد أنشأنا قاعد بيانات تحتوي على جدول به حقلين الإسم و الرقم

شريف،،،

;) ;) :rolleyes:

التعامل مع Flex Grid

--------------------------------------------------------------------------------

(FlexGrid)

هي إ حدى ادوات اظهار البيانات في شكل شبكي او جدولي ان صح التعبير سنتطرق في هذا الدرس الى كيفية وضع نتائج استفسار فيها و اظهاره للمستخدم و كذلك بعض الافكار في التعامل مع هذه الاداة

قبل كل شيء دعنا نقوم بإعطائك الصورة التي نريد ان نصل اليها في النهاية لكي تكون على علم بما سنعمل عليه انظر الصورة التالية :

لكي نبدأ بالدرس اضف مشروع جديد و انشأ او استخدم اي قاعدة بيانات و اربطها في البرنامج كما تعلمنا سابقا ، وسنفترض ان قاعدة البيانات التي سنتعامل معها اسمها db وفيها جدول باسم tb ويحتوي على الحقول التالية namd و job و age سنكتفي بثلاثة حقول ، بعد ذلك يجب ان تضيف اداة هذه الشبكة ولفعل ذلك ، اذهب الى قائمة project >> combonent او اضغط على ctrl+T ستفتح لك قائمة المكونات اختر منها المكون التالي و ضع بجانبه علامة صح Microsoft FlexGrid Control 6.0 كما هو موضح في الصورة

بعد ان تحدد المكون الذي في الصورة السابقة اضغط Ok لتضيف المكون للمشروع وتعود للمشروع

بعد ذلك اختر الاداة الخاصة برسم FliexGrid كما هو مبين في الصورة التالية و ارسم على الفورم مساحة معقولة تأخذ تقريبا ثلث الفورم

اضغط بالزر الايمن على الشبكة التي قمت برسمها و اختر Properties ستفتح لك نافذة الخصائص وفي علامة التبويب General يمكنم اختيار عدد الصفوف من الخاصية Rows و عدد الاعمدة من الخاصية Cols ، كما يمكنك تحديد عدد الاعمد التي تكون بلون داكن كمفتاح للشبكة من الخاصيةFixed Cols او الصفوف التي بلون داكن من الخاصية Fixed Rows

الان سنتعلم التحكم بخصائص FlexGrid بواسطة الكود ، يجب ان تعلم ان جميع الاوامر التي تكتب لهذه الاداة غالبا ما تكتب في حدث التحميل للفورم Load ، و من الخصائص التي يجب ان تتعلمها هي التحكم في عرض الصفوف مع العلم بأن الصفوف مرقمة من اليسار الى اليمين ابتداء من الصفر و اذا اردنا مثلا ان نغير عرض العمودين رقم 0 و 3 مثلا و نريد ان يكون عرضهما 2000 و 1000 على التوالي فإننا سنحتاج الى كتابة الكود التالي :

MSFlexGrid1.Colwidth(0) = 2000 
MSFlexGrid1.Colwidth(3) = 1000

مع العلم بأن اسم الاداة في المكود السابق هو MSFlexGrid1، لاحظ أننا نقوم بحصر رقم الصف بين قوسين

و الان كيف سنقوم بوضع عناوين الحقول على الاعمدة في هذه الشبكة لكي نفرق بين الحقول ، الفكرة بأن تقوم بتحديد الخلية بالصف و العمود بعد ذلك تكتب النص المراد ، مثلا نريد أن نكتب عنوان الحقل الاول و هو "الاسم " في العمود الاول و عنوان الحقل الثاني و هو " العمل " في العمود الثاني فماذا سنعمل انظر للكود التالي و ستعرف

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "الاسم "

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "العمل"

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

و الان كيف نقوم بتعبئة البيانات من جدول او استعلام ؟

كما تعلمنا في الدروس السابقة فإننا نقوم بإنشاء جدول وهمي لكي نخزن فيه البيانات مؤقتا كما هو حال الرام RAM في الجهاز لتخزين البيانات لنتعامل معها و بعد اغلاق الجهاز تذهب المعلومات ، ان ديناميكية تعبئة البيانات بسيطة و سلسة ونحتاج اولا وضع عناوين الاعمدة كما تعلمنا في الفقرة السابقة ويكتب ذلك غالبا في حدث التحميل Load بعد ذلك يأتي دور تعبئة السجلات ، وقبل كل شيء اضف سطر يتأكد من وجود بيانات في الجدول لكي لاتواجه مشاكل ، بعد ذلك احسب عدد السجلات في الجدول و لفعل ذلك كما تعلمنا سابقا يجب اولا ان نمر على الجدول الى النهاية ثم نعود الى البداية لكي نستطيع ايجاد عدد السجلات بواسطة الخاصية Count نقوم بعد ذلك بعمل تكرار على عدد السجلات و نضع داخله كود يقوم بتعبئة البيانات بنفس الطريقة التي قمنا فيها بوضع عناوين الاعمدة ولكن يكون المصدر هو الجدول ،لن تفهم ما ذكرته الا عندما تشاهد الكود المطلوب و الذي سأورده الان مع ملاحظة ان اسم الجدول الوهمي TB و يوجد به الحقول Name و Job ، مع ملاحظة ان اسم FlexGrid في الكود التالي هو flx1

If tb.RecordCount < 1 Then Exit Sub  ' لكي نتأكد من وجود سجلات في الجدول او نخرج في عدمها
    tb.MoveLast  ' نتحرك الى الحقل الاخير
    tb.MoveFirst  ' نتحرك الى الحقل الاول
    n = tb.RecordCount  ' نخزن عدد السجلات في المتغير n
   For i = 1 To n
        flx1.Row = i  ' رقم الصف حسب رقم التكرار
        flx1.Col = 0  ' رقم العمود ثابت لأننا سوف نضع جميع القيم في للحقل في عمود واحد
        flx1.Text = tb!Name  ' نضع قيمة الحقل في الخلية المحددة 
        flx1.Col = 1
        flx1.Text = tb!job
         tb1.MoveNext  ' نتحرك للسجل التالي 
   Next i

End Sub

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

من المهارات الممتازة ان تعرف كيف تجعل عدد الصفوف يتغير حسب عدد السجلات ولعمل ذلك اجعل خاصية عدد الصفوف تساوي عدد السجلات في الجدول زائدا واحد ، و قمنا بهذه الزيادة لأنها تعبر عن صف عناوين الحقول و ضع هذه الجملة في المكان المناسب بعد حساب عدد الحقول في الجدول و يوضح الكود التالي موقع الجملة من الكود السابق

If tb.RecordCount < 1 Then Exit Sub
    tb.MoveLast
   tb.MoveFirst
   n = tb.RecordCount
 flx1.Rows = n + 1 
   For i = 1 To n
       flx1.Row = i
       flx1.Col = 0
       flx1.Text = tb!Name
       flx1.Col = 1
       flx1.Text = tb!job
       tb.MoveNext
   Next i

End Sub

شريف،،،

;) ;) :rolleyes:

الرسم البياني

--------------------------------------------------------------------------------

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

هناك عدة طرق لإظهار الرسم البياني ، فيمكنك ان تظهر رسم يبين القيم في سجل واحد مثلا درجات طالب في مادتين و لكي ترى الرسم البياني الذي يمثل الطلاب الاخرين تنتقل بزر ينقلك للسجل التالي وهذا ما سنتعلمه في هذا الدرس

أو تقوم بعرض جميع سجلات الطلاب في رسم واحد مقسم على اساس كل سجل و سستعرف على هذا بالتفصيل في دروس قادمة

قبل ان تبدأ يجب ان تقوم بعمل قاعدة بيانات اسمها db1 و تحتوي على جدول اسمه tb1 فيه الحقول التالية :

 إسم الحقل   نوع البيانات
string    name 
integer   mathmark 
integer   sincemark

قم بعد ذلك بإضافة سجلات لقاعدة البيانات بالقيم التي تريدها

الان افتح مشروع فيجوال بيسك جديد ، بعد ذلك قم بتعريف او ربط قاعدة البيانات في البرنامج بالكود الذي تعلمناه في الدروس السابقة و سأذكره هنا ان كنت قد نسيت

أولا اذهب الى Project >> refrences ثم حدد المكتبة Microsoft DAO 3.51 Object library

قم بتعريف المتغيرين في قسم الاجراءات العامة كما في الكود التالي : Public d As Database

Public tb As Recordset

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

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb", True)
Set tb = db.OpenRecordset("tb1", dbOpenTable)

الان تأتي الخطوة الاساسية الاولى وهي اضافة أداة الرسم البياني و للقيام بذلك اذهب قائمة Project و اختر Components سيظر لك مربع حوار حدد منه الاختيارMicrosoft Chart Control 6.0 (OLEDB)

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

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

الان حدد الرسم البياني و اذهب الى نافذة الخائص و غير الخاصية AutoIncrement إلى True و هذا ضروري لكي يقوم الرسم البياني بتغيير و تحديث نفسه تلقائيا ولن يعمل بدون ان تجعل هذه الخاصية على True

أيضا اضبط الخاصية ColumnCount على 2 حيث ان هذه الخاصية تعني عدد الاعمدة في الرسم البياني و بما اننا نحتاج الى عمودين فقط هما درجة الرياضيات و العلوم وضعنا عدد الاعمدة 2

و اضبط الخاصية RowCount على 1 وهذا الرقم يدل على عدد السجلات ا لتي تريد ان تعرضها في المرة الواحدة و ستتعرف على ذلك بالتفصيل في الدرس القادم

والان ماهو الكود الذي سيعرض البيانات على الرسم البياني ، اولا يجب ان تحدد متى يجب العرض هل عند تشغيل البرنامج ام عند النقر على زر معين ؟ و الطريقة الافضل ان تجعله يقوم يعرض حال تنفيذ او تحميل الفورم و بعد ذلك يمكنه ان ينتقل الى السجل التالي بواسطة زر تنقل ، هذا يقودنا الى انه يجب علينا وضع كود في حدث ا لتحميل للفورم لكي يعرض مباشرة و الكود سيكون الكود التالي :

لاحظ ان اسم ادة الرسم البياني هو MSChart1

Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb", True)
Set tb = db.OpenRecordset("tb1", dbOpenTable)

MSChart1.Column = 1
MSChart1.Data = tb!mathmark
MSChart1.Column = 2
MSChart1.Data = tb!sincemark
MSChart1.RowLabel = tb!Name

End Sub

أعتقد ان الكود السابق سهل وواضح للجميع و هو يذكرنا بالأداة FlexGrid ، ففي الكود السابق حددنا اولا رقم العمود الذي ستنفذ عليه الاوامر القادمة و هو عمود رقم 1 ثم بعد ذلك و ضحنا الامر الذي نريده ان ينفذ على هذا العمود وهو وضع قيمة الحقل mathmark في هذا العمود ليعبر عنها بيانيا ونستخدم لهذا الامر Data كما هو واضح ، و الان نريد وضع قيم الحقل الثاني وهو sincemark في العمود الثاني و نتبع لذلك نفس الخطوات السابقة حيث نحدد رقم العمود وهو 2 ثم ما نريد منه و هو التعبير عن هذا الحقل في شكل بيانا

بعد ذلك وفي السطر الاخير نريد ان يضع البرنامج اسم الشخص اسفل الرسم البياني و هو مايسمى بالصف Row ونستخدم الخاصية RowLabel و نخزن فيها قيمة حقل الاسم Name

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

Private Sub Command1_Click()
tb.MoveNext   ' للإنتقال للسجل التالي 
If tb.EOF Then tb.MoveLast  ' لتفادي المشاكل عند اخر سجل
MSChart1.Column = 1
MSChart1.Data = tb!mathmark
MSChart1.Column = 2
MSChart1.Data = tb!sincemark
MSChart1.RowLabel = tb!Name
End Sub

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

أما الكود الذي يقوم بالرجوع الى الخلف فهو

Private Sub Command2_Click()
tb.MovePrevious
If tb.BOF Then tb.MoveFirst
MSChart1.Column = 1
MSChart1.Data = tb!mathmark
MSChart1.Column = 2
MSChart1.Data = tb!sincemark
MSChart1.RowLabel = tb!Name
End Sub

الكود السابق نفس كود الانتقال للإمام مع تغيير امر التحرك للأمام بأمر التحرك للخلف MovePrevious و تم تغيير شرط التأكد من وصولنا للسجل الاول بحيث يتوافق مع الحاله

الشكل النهائي

لاحظ أن المحورين يتم تقسيمهما تلقائيا على حسب الارقام في السجلات

يمكنك التحكم في بعض الخصائص مثل جعل الرسم البياني على شكل خطوط او مجسمات ثلاثية الابعاد و غير ذلك يمكنك اكتشاف ذلك بنفس بالضغط على الزر الايمن على الرسم البياني و اختيار Properties

شريف،،،

;) ;) :rolleyes:

فعلاً رائع جداً جداً الله يعطيك العافية ;) ;)

في الحقيقة مازلت في الصفحة الأولى لكنني لم أستطع السكوت

جعلها الله في ميزان حسناتك

ان شاء الله يا انس هيعجبك الشرح وتستفيد منه وانا فى الخدمه

شريف،،،

شكرا جزييييييييييييلا والى الامام

الف شكر على الشرح الرائع

بصراحه اخى شريف الموضوع ممتاز جدا

شكرا اخى الغالى

بسم الله ماشاء الله الله ينور يا أخ شريف صراحة مجهود تحسد عليه

خالد نور

مشكورين جميعا على الردود وانا فى الخدمة

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

ونحن في انتظار جديدك.. والى الأمام

أنا عامله برنامج ربطت فيه قاعدة بيانات معموله بالأكسس بالفيجول عن طريق الأداة data control

والحمد لله إنتهيت

بس أرغب بوضع أمر ينظف القاعدة ككل بعد الإنتهاء منها وعدم الرغبة في إستبقاء البيانات

غير طريقة حذف السجلات واحد تلو الآخر لأني عملتها

يعني زي إقفال السنة الدراسية في برنامج معارف

ويكون أحسن لو بنسخ إحتياطي

وشكراً

الف الف شكر لك على هذا الشرح الجميل

عندي طلب بسيط جداً

أريد عمل كلمة سرية لبرنامج حيث لا يمكن لأي شخص الدخول الا بعد إدخال أسم المستخدم وكلمة المرور

يعني بكل بساطة مثل برنامج معارف

كذلك أريد أن يكون هناك زر لتغيير كلمة المرور

أرجو أفادتي ولكم جزيل الشكر والعرفان

عمل رائع شكرا

ممشككورررررر

مشكور اخي على المجهود

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

مع العلم اننا سنستعمل 4 تكست بوكس كل واحدة تفيد للبحث عن شيأ فواجدة مثلا للاسم والتانية للقب والتالثة لرقم الهاتف ..........

وسوف نستعل 1 كومند لاجراء البحث.