سلسلة دروس في الفيجوال بيسك

[حبيبة الشيخ]

فعلا درس ممتاز

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

وانا ايضا مع سر العرب في رايه

اتمني ان يتم تثبيت الموضوع

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

[الحبيب لمين]

فعلا درس ممتاز


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

وانا ايضا مع سر العرب في رايه

اتمني ان يتم تثبيت الموضوع


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

بارك الله فيك على هذا الكلام

اتمني ان تحافظي على نشاطك

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

انشاء الله

[الحبيب لمين]

في الدروس السابقة تعلمنا كيفية فتح قاعدة البيانات والتعامل معها ، العرض في الجدول MSFlexGrid ، والآن سوف نقوم بالبحث من خلال احدى جمل الاستعلام ،
من المفضل مراجعة دروس TSQL في الموسوعة إذا لم تكن قد تعرفت على جملة Select
من جمل الاستعلام قبل البدء بقراءة هذا الدرس .

تذكير سريع بجملة Select .

من أشهر جمل الاستعلامات هي الجملة التي تستخدم الكلمة المفتاحية Select . وصيغتها القياسية هي :

select field(s) form table(s) where conditon

حيث أن Fields تعني الحقول التي تظهر نتيجتها في البحث ،
وقد تكون اسماء حقول مثل name,tele أو قد تكون * لعرض الكل ،
وقد تكون نواتج عملية حسابية مثل( Maxnumber) أو Count(*) .
أما Tables فهي اسماء الجداول ، والشروط فهي مثل name='ahmed' و age>5 ، مع استخدام معاملات اخرى مثل between و Like ، وبارميترات Parmeters مختلفة مثل ? و - وغيرها .
وأخيراً اذكرك بأنه عند التعامل مع النصوص فإنه لا بد من وضع ''
حول الاسم ، ومع التواريخ يتم وضع ## حول التاريخ وهما النوعان
الأكثر استخداماً ، أما الارقام فلا تحتاج إلى اي شيء .

والآن إلى بداية الدرس .
سوف نضيف أولاً الجزء الخاص بشاشة البحث ، سوف يكون بالشكل التالي :

البحث عن الأشخاص الذين لديهم ( ComboBox1 ) ( ComboBox2 ) ( searchText )

إذا لم تظهر الجملة السابقة مرتبة فهذا راجع إلى اتجاه الكتابة .

حيث سيحتوي ComboBox1 على ( الرقم - الاسم - الهاتف ) أما الثاني فيحتوي على ( = - > - < ) ، وتوضع كلمة البحث في ال searchText .
ومن ثم يوضع زر أمر بعرض نتائج البحث في الجدول .
في حدث Form_Load سوف نضيف العناصر المطلوبة للقائمتين :

 
Combo1.AddItem "الرقم"

 
Combo1.AddItem "الاسم"

Combo1.AddItem "الهاتف"
Combo1.ListIndex = 0
Combo2.AddItem "="
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.ListIndex = 0

ولا بد من التحكم في القائمة الثانية ، حيث لا يمكن التحكم بها إلا عند اختيار الرقم ، أما الاسم والهاتف فلا يمكن البحث ب < أو > في مثالنا هذا - يمكن استخدامها ولكن ليس في مثل هذا المثال - . ويتم ذلك من خلال الحدث Click للاداة Combo1 :

Private Sub Combo1_Click()
If Combo1.ListIndex <> 0 Then
  Combo2.Enabled = False
Else
  Combo2.Enabled = True
End If
End Sub

في بداية زر الامر سوف نتأكد من أنه ادخل كلمة للبحث عنها :

If searchText.Text = "" Then
    MsgBox "نص البحث فارغ"
    Exit Sub
End If

لاحقاً سوف نشكل جملة الاستعلام ، وذلك بالشكل التالي :

Dim fldname As String
Dim op As String
Dim lst As String
If Combo1.ListIndex = 0 Then
    fldname = "nu"
    op = Combo2.Text
    lst = ""
ElseIf Combo1.ListIndex = 1 Then
    fldname = "fn"
    op = "='"
    lst = "'"
Else
    fldname = "te"
    op = "="
    lst = ""
End If
Dim sql As String
sql = "select * from tb where " & fldname & op & searchText.Text & lst

حيث نخزن في fldname الحقل الذي نبحث عنه ، op معامل البحث ، واخيراً lst تحدد إذا ما كنا سوف نضيف ' من أجل النصوص .
والآن جاء دور تنفيذ جملة الاستعلام على قاعدة البيانات D1 ومن خلال الجدول الاضافي T2 :

Set T2 = D1.OpenRecordset(sql, dbOpenDynaset)
وأخيراً سوف نقوم بملء الجدول من خلال استدعاء Fill_Table .
fill_Table

خاتمة :

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

لا زلت افضل ان تتم مراجعة دروس الاستعلام في الموسوعة .
وبقي أن اذكرك بإن جمل الاستعلام لا تعمل جميعها على هذه الطريقة من الاتصال بقاعدة البيانات
بنفس الطريقة ، جرب مثلاً استخدام جمل مثل جمل Delete وستظهر لك رسالة خطأ .
Invalid Operation

في هذا السلسلة البسيطة من الدروس تعرفنا على اساسيات التعامل مع Dao
من خلال فيجوال بيسك Visual Basic مع قواعد بيانات Access .

وهذا هو ملف العمل ، الحجم التقريبي = 7 kb على هذا الرابط
أسأل الله أن أكون قد وفقت في هذا الشرح البسيط ، فما كان فيه من صواب فمن الله ،

وما كان من خطأ فمن نفسي والشيطان ، والله الهادي إلى سواء السبيل .

والسلام عليكم ورحمة الله وبركاته .

[سر العرب]

السلام عليكم

بارك الله فيك اخوي الحبيب لمين

على هذا الدرس

وجاري تحميل الملفات

شكرا جزيلا

[الحبيب لمين]

شكرا اخي سر العرب

بس انا ابي اسئلة

ليش ما تسالوني؟؟؟؟؟؟؟

[حبيبة الشيخ]

السلام عليكم


شكرا الحبيب لمين

على هذا المجهودك الرائع

[الحبيب لمين]

السلام عليكم



شكرا الحبيب لمين

على هذا المجهودك الرائع

السلام عليكم

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

[سر العرب]

السلام عليكم

اخي الحبيب لمين

اين الدرس ؟؟؟؟؟؟؟؟

اتمني ان السلسلة ما تكون انتهت

اتمني ان تجيبني في اسرع وقت

اخوك سر العرب

[amawi]

السلام عليكم

مرحبا اخي

فعلا اسف لتأخري

ولكن شغلت بعض الوقت وظروف الدنيا كما تعرف

الآن اخي

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

فعلا دروس رائعة في قواعد البيانات لم اكن حتى احلم باني ساحصل عليها

لكن اعذرني اود سؤالك بما هو خارج عن هذا

انا الآن بدأت ببرنامج او فكرته على الأقل تعتمد على قواعد البيانات بشكل كبير

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

ولنفرض ان هذا المسار هو

C:\Program Files

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

2- اريد طريقة استخلاص ملفات الورد على فرض ان المسار هو نفسه وطرقة وضع اسماء هذه الملفات في قاعدة بيانات او list

اعتذر جدا لانني خرجت عن الدرس

لكن قلت أسألك يمكن تعرف

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


بالتوفيق

واسفين على الازعاج والتأخير

[الحبيب لمين]

السلام عليكم


اخي الحبيب لمين

اين الدرس ؟؟؟؟؟؟؟؟

اتمني ان السلسلة ما تكون انتهت

اتمني ان تجيبني في اسرع وقت


اخوك سر العرب

السلام عليكم

اخي العزيز سر العرب

اشكرك على حرصك على الدروس

وانا بجد اسف اسف اسف اسف على درس امس

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

لكن ضروف عملي لم تسمح لى بدخول المنتدي

سوف اعوض الدرس اليوم انشاء الله

[الحبيب لمين]

السلام عليكم

مرحبا اخي

فعلا اسف لتأخري

ولكن شغلت بعض الوقت وظروف الدنيا كما تعرف

الآن اخي

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

فعلا دروس رائعة في قواعد البيانات لم اكن حتى احلم باني ساحصل عليها

لكن اعذرني اود سؤالك بما هو خارج عن هذا

انا الآن بدأت ببرنامج او فكرته على الأقل تعتمد على قواعد البيانات بشكل كبير

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

ولنفرض ان هذا المسار هو

C:\Program Files

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

2- اريد طريقة استخلاص ملفات الورد على فرض ان المسار هو نفسه وطرقة وضع اسماء هذه الملفات في قاعدة بيانات او list

اعتذر جدا لانني خرجت عن الدرس

لكن قلت أسألك يمكن تعرف

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


بالتوفيق

واسفين على الازعاج والتأخير

السلام عليكم

اخي الكريم amawi

انا اشكرك على سوالك

لا اتمني ان ردك ما ينحذف من الوضوع

مادام في الفيجوال بيزك لا مشكلة

لكن سوالك يحتاج لشرح طويل

يوف احاول ان اختصره في اقل ما يمكن

وارد عليك انشاء الله اليوم

وانا بجد احب اني اقول لك ان كل حرف تكتبهلى يكون

وسام شرف لى

انتضر الرد اليوم انشاء الله بعد الدرس

شكرا على هذا السؤال الي عن جد فرحني

انا كنت منتظره

[الحبيب لمين]

السلام عليكم

انا اسف على التاخر

لكن انا مشغول هذه الايام بسبب عملي

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

كيفية إدراج نص في Microsoft Word عن طريق الفيجوال بيسك

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

1- فتح برنامج فيجوال بيسك واختيار Standard Exe .
2- احضار المكتبة الخاصة بتطبيق مايكروسوفت ورد : من قائمة project&szlig; نختار reference&szlig; ونبحث عن Microsoft word 10.0 object library&szlig; ثم نضغط OK.
3- سنضيف Command لشاشة البرنامج وقمت بتسميته Cmdok ستتم هنا عمليات البرمجة الرئيسية وبداية لا تحتاج الى أكثر من ذلك اذا كان برنامجك بسيط ويعمل على عملية ادراج النصوص فقط.
4- في القسم العام للبرنامج سنعرف المتغير wrdapp من نوع Word.Application عن طريق الأمر التالي :

Dim wrdapp As Word.Application

وذلك للاعلان عن استخدام تطبيق مايكروسوفت ورد.
5- سنقوم بإضافة الكود التالي عن الحدث Clikc للزر الذي قمنا بإنشائه سابقا ً :

Private Sub Cmdok_Click()

1- Set wrdapp = New Word.Application 
2- With wrdapp 
3- Documents.Add 
4.ActiveDocument.Content.Font.Bold = True 
5. ActiveDocument.Paragraphs.Alignment = wdAlignParagraphLeft 
6. ActiveDocument.Content.Font.Color = wdColorRose 
7. ActiveDocument.Content.Font.Italic = True 
8. ActiveDocument.Content.Font.Name = "Monotype Corsiva" 
9. ActiveDocument.Content.Font.Size = 22 
10. ActiveDocument.Content.Text = "Hi This How Insert Text In Microsoft Word" & Chr(13) 
11. ActiveDocument.Content.InsertAfter Text:="GOOD BYE" 
12 .Visible = True 
End With
End Sub

شرح الكود

·الجملة رقم (1) وهي مهمة في عملية اسناد مرجع مايكروسوفت ورد للمتغير wrdapp وتم استخدام new ليقوم بفتح برنامج مايكروسوفت ورد.


·الجملة رقم (2) وهي جملة With الشائعة الإستخدام لتسهيل عمليات البرمجة وعدم تكرار كتابة wrdapp.


·الجملة رقم (3) لإضافة مستند جديد لبرنامج مايكروسوفت ورد .


·الجمل من (4) وحتى (5) وهي خصائص النص المراد ادراجة, وتستخدم ActiveDocument لاحداث التغيرات المطلوبة على المستند الفعال حالياً.


·جملة (4) لإعطاء النمط العريض للنص المدرج .


·جملة (5) لجعل محاذاة النص جهة اليسار.


·جملة (6) تغير لون الخط للون الوردي.


·جملة (7) النمط المائل.


·جملة (8) اسناد نوع الخط .


·جملة (9) حجم الخط . م


·ملاحظة : للإحتفاظ بنفس الاعدادت (نوع الخط , حجمه , لونه , نمطه ) الأصلية للنص يتم الإستغناء عن واحد او كل الخصائص السابقة .

·الجملة رقم (10) وهي الجملة التي يتم من خلالها إدراج النص المطلوب عن طريق الخاصية text التابعة لمحتوى المستند. وتسند للخاصية text متغير أو قيمة من نوع string.

·الجملة رقم (11) ادراج نص جديد ويلاحظ هنا استخدام الخاصية InsertAfter عوضا عن text وتم ذلك لإعلام البرنامج بالإحتفاظ بالجملة السابقة وادراج الجملة الجديدة بعدها .

·الجملة (12) لاظهار مايكروسوفت ورد ولن تتم رؤية عملية الادراج من غير هذة الجملة .

· الجملة (13) اغلاق الجملة with.

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

[سر العرب]

السلام عليكم

شكرا الحبيب لمين

على هذا الدرس

اتمني ان تكمل السلسلة معانا

ولا تقطع الدروس اذا كان فيه عندك وقت

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

[amawi]

مشكور اخوي درس جميل جدا

الله يوفقك

وننتظر المزيد من دروسك الرائعة حقا حين يتوفر لك بعض الوقت


بالتوفيق

[الحبيب لمين]

السلام عليكم


شكرا الحبيب لمين

على هذا الدرس

اتمني ان تكمل السلسلة معانا

ولا تقطع الدروس اذا كان فيه عندك وقت


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

شكرا اخي سر العرب على هذا الرد الجميل

انشاء الله راح استمر

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

وانا اسف على تاخر الدروس

وذلك لأسباب خارجة عن ارادتي

جازاك الله الف خير