حصرياااا شرح برنامج دليل الهاتف من الصفر للنهاية ..

موضوع دليل الهاتف بالفيجوال بيسك

ناس كتير كانو عاوزين البرنامج دة
وخاصة علشان ربط الفيجوال بقاعدة بيانات

بسم الله الرحمن الرحيم
نبدأ الشرح
هنفتح 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


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