حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية ..
2 مشترك
كاتب الموضوع
رسالة
Dolce مشرف
المعمل : . المجموعه : . عدد المساهمات : 124 تاريخ التسجيل : 16/06/2010 العمر : 31
موضوع: حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية .. الثلاثاء يناير 25, 2011 6:56 pm
موضوع دليل الهاتف بالفيجوال بيسك
ناس كتير كانو عاوزين البرنامج دة وخاصة علشان ربط الفيجوال بقاعدة بيانات
بسم الله الرحمن الرحيم نبدأ الشرح هنفتح Microsoft Access واختيار قاعدة بيانات جديدة Blank DataBase بعد كدة هنعمل جدول فى عرض التصميم Design view هنعمل 5 حقول الحقول هتبقى 1- Id ودة هيبقى Auto number وهنحددو مفتاح اساسي 2-name وهيبقى نص text 3-Mobile وهيبقى رقم number 4-Email ودة هيبقى نص Text 5-Adress هيبقى نص بردو Text وهتعمل save للجدول بأسم list بعد كدة هتحول قاعدة البيانات الى 97 ودى حاجة مهمة جدا لان الفيجوال مش هيقبل 2003 وادى صورة ازاى تحول قاعدة البيانات علشان اللى مش عارف
وهتسيف قاعدة البيانات
بعد كدة هتفتح الفيجوال بيسك واختيار Standard.exe وهنعمل 5 Text box و 5. label بعد كدة هنفضى التكستات كلها ونغير الاسم txtid txtname txtnumber txtemail txtadress
ونغير ال caption فى الـ label's 1-الرقم ونحطها قدام txtid 2-الاسم ونحطها قدام txtname 3-رقم الهاتف قدام txtnumber 4- الايميل قدام txtemail 5- العنوان ودى قدام txtadress وبعد كدة هنحط 1- data وادى صورة للداتا علشان اللى مش عارفها
وهنغير خانة visible نخليها false "ممكن منغيرهاش بس شكلها مش هيبقا حلو " هنعمل بقى اهم خطوة فالبرنامج ربط قاعدة البيانات فى data1 هنروح على خانة Data base name ونختار قاعدة البيانات اللى حولناها 97 وفى خانة Record source نختار list مش هيبقى فى غيرها وبعد كدة هنعمل 10 command button هنخليهم اسمهم 1- الاول 2-التالى 3-السابق 4-الاخير 5-اضافة 6-حفظ 7-مسح 8-بحث بالاسم 9-بحث برقم التليفون 10-خروج ونبدأ فالبرمجة اول حاجة هنروح على الـ 5 تكستات *فى txtId هنروح على خانة Data Source ونختار Data 1 وخانة data Field نختار ID
* فى txtname هنروح على خانة Data Source ونختار Data 1 وخانة data Field نختار name
*فى txtnumber هنروح على خانة Data Source ونختار Data 1 وخانة data Field نختار Mobile
*فى txtemail هنروح على خانة Data Source ونختار Data 1 وخانة data Field نختار email
*فى txtadress هنروح على خانة Data Source ونختار Data 1 وخانة data Field نختار adress
--- نبدأ فى كتابة اكواد الازرار
فى زرار الاول هنكتب الكود
Data1.Recordset.MoveFirst
فى زرار التالى هنكتب الكود
Data1.Recordset.MoveNext
وفى زرار السابق هنكتب الكود
Data1.Recordset.MovePrevious
وفى زرار الاخير هنكتب الكود
Data1.Recordset.MoveLast
فى زرار اضافة هنكتب الكود
Data1.Recordset.AddNew
فى زرار حفظ هنكتب الكود
Data1.Recordset.Update
فى زرار مسح هنكتب الكود
Data1.Recordset.Delete
وفى زرار بحث بالاسم هنكتب الكوود دة
Dim x As String (" ادخل الاسم المراد البحث عنه ") x = InputBox
If x = Cancel Then Exit Sub "*'"& Data1.RecordSource = "select *from list where Name like '*" & x Data1.Refresh
وفى زرار بحث برقم الهاتف هنكتب الكوود دة
Dim x As String (" ادخل رقم الهاتف المراد البحث عنه ") x = InputBox
"*'"& Data1.RecordSource = "select *from list where mobile like '*" & x Data1.Refresh
واخيرا زرار خروج هنكتب الكود End
وكدة تكون تمت بحمد الله برمجة دليل الهاتف واى حد ليه سؤال يبعتو فرد
الزعيم Admin
المعمل : 2 المجموعه : 1 الفرقه : شباب الخريجين عدد المساهمات : 6998 تاريخ التسجيل : 23/10/2009 العمر : 34 الموقع : http://www.shobrama3hdi.com
موضوع: رد: حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية .. الثلاثاء يناير 25, 2011 9:38 pm
فنان يبنى والله
Dolce مشرف
المعمل : . المجموعه : . عدد المساهمات : 124 تاريخ التسجيل : 16/06/2010 العمر : 31
موضوع: رد: حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية .. الأربعاء يناير 26, 2011 12:11 am
تسلم يا زعيم
حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية ..