منتديات اسلام نت
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي
http://i39.servimg.com/u/f39/16/91/07/32/10351_10.gif


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

شاطر | 
 

 [VB6] برمجة برنامج دليل الهاتف

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

تاريخ التسجيل : 30/09/2011
تاريخ الميلاد : 29/08/1984
المشاركات: 2227
نقاط 2147483647
عمري 33
ذكر
الموقع : http://islammnet.own0.com

مُساهمةموضوع: [VB6] برمجة برنامج دليل الهاتف   الأربعاء مايو 30, 2012 7:40 pm

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

ما الذي سوف نتعلمه منن هذا الدرس
1. سوف نتعلم كيفية ربط برنامج بقاعدة بيانات
2. سوف نتعلم الأوامر الخاصة بقاعدة البيانات
3. سوف نتعلم كيفية البحث عن سجل في القاعدة

الأدوات المستخدمة
برنامج الفيجوال بيسك 6
الأكسس
خطوات العمل

أفتح برنامج الفيجوال بيسك
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
قم بإضافة 8 Command (أزرار) ثم قم بإضافة 10 Text ثم قم بإضافة 1 Combo1 ثم 10 Label وإليك طريقة إضافتهم
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم قم بترتيبهم وتغيير أسمائهم عن طريق الخاصية Caption على هذا النحو كما في الصورة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم بعد ذلك قم بحفظ المشروع في مجلد في إي مكان وأغلق الفيجوال بيسك
ثم أفتح برنامج الاكسس
وقم بعمل قاعدة بيانات جديدة واحفظها في نفس المكان الذي حفظت فيه البرنامج وإليك طريقة عمل قاعدة بيانات
افتح برنامج أكسس وقم بالضغط على ملف ثم جديد ثم قاعدة بيانات فارغة سوف
يفتح لك مربع حواري لتختار مكان حفظ القاعدة أحفظها في المجلد الذي قمت
بحفظ البرنامج فية ولكن باسمTELL (مهك جدا)
الآن أضغط على جدول ثم إنشاء جدول في طريقة عرض التصميم
ثم افعل كما في الصورة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
مع جعل كل السجلات مفهرسة هكذا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ثم قم بحفظ الجدول باسم dalel (مهم جدا)
إذا كنت تعمل على الفيجوال بيسك 6 فيجب عليك تحويل قاعدة البيانات عن طريق الذهاب إلى أدوات
ثم أدوات مساعدة لقواعد البيانات ثم تحويل قاعدة البيانات ثم أختر لتنسيق ملف 97 ACCESS
وقم بحفظها
وأغلق الأكسس وقم بفتح الفيجوال بيسك
وقم بإضافة هذة الأداة إلى المشروع أداة ألDATA
عن طريق هذة الأيكونة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

سوف تجد من خصائص هذة الأداة خاصية أسمها DATA BASE NAME
اضغط على المربع ذي الثلاث نقط الذي أمامها وأختار قاعدة البيانات من الملف الذي قمت بحفظها به
ثم اهبط إلى خاصية اسمها RecordSource وقم باختيار الجدول DALEL
اضغط على التكست رقم واحد سوف تجد من خصائصه كما في الصورة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
فى خاصية data source اختارنا هذا الاختيار لأن هذا هو أسم الأداة التي بواسطتها ربطنا البرنامج بقاعدة البيانات
أما فى الاختيار الأخر فأخطرنا name وهو أسم الجدول المختص بتسجيل الاسم
وعلينا فعل هذا مع كل التكستات وإليك كل تكست والحقل الذي يخصوه
الاسم name
تليفون المنزل 1 tell
تليفون المنزل 2 home2no
تليفون الجوال 1 mopilno
تليفون الجوال 2 mopi2no
العنوان adr
تليفون العمل workno
البريد الأالكترونى email
الموقع wep
مع مراعاة اختيار data1 مع كل التكستات
الأن كل شيء تمام ما باقى غير الأاكواد
إضغط على الفورم ضبل كليك وأكتب فية الأاتى فى المكان الذي بين السطرين الموجودين

الكود:

   Combo1.AddItem "بحث بواسطة رقم المنزل 1"
Combo1.AddItem "بحث بواسطة الأسم"
Combo1.AddItem "بحث بواسطة العنوان"
Combo1.AddItem "بحث بواسطة رقم الجوال 1"
Combo1.AddItem "بحث بواسطةرقم الجوال 2"
Combo1.AddItem "بحث بواسطة رقم المنزل 2"
Combo1.AddItem "بحث بواسطة رقم العمل"
Combo1.AddItem "بحث بواسطة البريد الإلكترونى"
Combo1.AddItem "بحث بواسطة الموقع الشخصى"

On Error GoTo data_error
Data1.DatabaseName = App.Path & "\tell.mdb"
Data1.*******
Data1.Recordset.AddNew
Exit Sub
data_error:
MsgBox "لم يتم العثور على قاعدة البيانات", vbCritical, "خطأ"
ثم إضغط على زر الإضافة ضبل كليك وأضف هذا الكود فية



كود:
Data1.Recordset.AddNew

ثم إضغط على زر التعديل وأضف هذا الكود



كود:
Data1.*******

ثم زر الحذف وأضف هضا الكود



كود:
On Error GoTo data_error
If MsgBox("هل تريد حذف السجل بالتأكيد؟", vbQuestion + vbYesNo, "تأكيد حذف") = vbYes Then

Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
Exit Sub
data_error:
MsgBox "لم يبقى سجلات", vbCritical, "خطأ"

ثم زر الإنتقال لليمين



كود:
On Error Resume Next

Data1.Recordset.MoveNext

ثم زر الشمال



كود:
On Error Resume Next

Data1.Recordset.MovePrevious

ثم زر البحث



كود:
Select Case Combo1.ListIndex
Case 0
Data1.RecordSource = (" select * from dalel where tell=" + "'" + Text10.Text + "'")
Data1.*******
Case 1
Data1.RecordSource = (" select * from dalel where name=" + "'" + Text10.Text + "'")
Data1.*******
Case 2
Data1.RecordSource = (" select * from dalel where adr=" + "'" + Text10.Text + "'")
Data1.*******
Case 3
Data1.RecordSource = (" select * from dalel where mopilno=" + "'" + Text10.Text + "'")
Data1.*******
Case 4
Data1.RecordSource = (" select * from dalel where mopi2no=" + "'" + Text10.Text + "'")
Data1.*******
Case 5
Data1.RecordSource = (" select * from dalel where home2no=" + "'" + Text10.Text + "'")
Data1.*******
Case 6
Data1.RecordSource = (" select * from dalel where workno=" + "'" + Text10.Text + "'")
Data1.*******
Case 7
Data1.RecordSource = (" select * from dalel where email=" + "'" + Text10.Text + "'")
Data1.*******
Case 8
Data1.RecordSource = (" select * from dalel where wep=" + "'" + Text10.Text + "'")
Data1.*******
End Select

ملحوظة يجب عليك أن تكتب هذة الكلمة مكان ******* النجوم فى كل الأاكواد





[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]






[ندعوك
للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]







الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://islammnet.own0.com islammnet93@gmail.com mohmad4_7@hotmail.com mohmad44@yahoo.com mohmad4_7
braveheart
عضو جديد
عضو جديد
avatar

تاريخ التسجيل : 02/03/2013
تاريخ الميلاد : 05/02/1979
المشاركات: 1
نقاط 1
عمري 39
ذكر

مُساهمةموضوع: رد: [VB6] برمجة برنامج دليل الهاتف   السبت مارس 02, 2013 1:06 am

بعد التحية الصورة ليست موجودة و الخاصة بـ يجب عليك أن تكتب هذة الكلمة مكان ******* النجوم فى كل الأاكواد

ارجو كتابتها او وضع صورة جديدة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
[VB6] برمجة برنامج دليل الهاتف
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات اسلام نت :: برامج الكمبيوتر والانترنت Computer and Internet :: قسم الشروحات-
انتقل الى:  

 





nwail


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

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

للتسجيل اضغط هـنـا

اعوذ بالله من الشيطان الرجيم {اَللَهُ لا إِلَهَ إلا هو اَلحي ُ القَيَوم لا تأخذه سِنَةٌ ولا نوْمٌ لَّهُ مَا فيِِ السَمَاوَاتِ وَمَا في اَلأَرْضِ مَن ذَا الَّذِي يَشفَعُ عِنْدَهُ إِلاَّ بِإِذْنِهِ يَعْلَمُ مَا بَينَ أَيدِيهِمْ ِوَمَا خَلْفَهم وَلا َيُحِيطُونَ بشَيءٍ مِنْ علمِهِ إِلاَ بِمَا شَآء وَسعَ كُرْسِيُّهُ السَمَاوَاتِ وَالأَرضِ وَلاَ يَؤُدُه حِفْظُهُمَا وَهُوَ العَليُّ العَظِيمُ}


facebook


المواضيع الأخيرة
» جديد وحصري تعريف سكاي ستار 2 Technisat v4.6.0
من طرف adel16dz السبت مايو 26, 2018 2:18 am

» حصريا كود سرفرات المشاهدة المباشرة
من طرف محمد أبوفيصل الخميس نوفمبر 16, 2017 9:55 am

» تحميل برنامج بلوستاك 2017 كامل مجانا للكمبيوتر
من طرف محمد أبوفيصل الأربعاء نوفمبر 15, 2017 12:05 pm

» تحميل برنامج BENTLEY WATERCAD V8I SS6 (X86/X64)
من طرف محمد أبوفيصل الأربعاء نوفمبر 15, 2017 11:23 am

» نبذة عن جميع برامج الهندسة المدنية
من طرف محمد أبوفيصل الأربعاء نوفمبر 15, 2017 11:21 am

» UltraISO PE 9.5.3 Build 2900
من طرف محمد أبوفيصل الإثنين نوفمبر 06, 2017 1:13 pm

» قم بتنزيل جميع البرامج الأساسية لحاسوبك دفعة واحدة
من طرف عبودي احمد السبت مايو 20, 2017 2:50 pm

» جميع مراحل لعبة Command And Conquer Generals Zero Hour
من طرف shere55 الأحد مارس 19, 2017 4:06 pm

» [كود] الشريط الاداري رائع وخفيف
من طرف محمد أبوفيصل الثلاثاء يناير 31, 2017 10:00 am

» شرح زيادة سرعة موقعك
من طرف محمد أبوفيصل الثلاثاء يناير 31, 2017 9:56 am