منتديات أهل الرمثا
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


منتدى الرماثنة
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخولاسماء عائلات الرمثا

 

 كيفية برمجة برنامج دليل الهاتف

اذهب الى الأسفل 
4 مشترك
كاتب الموضوعرسالة
الهكر
الرمثاوي نائب المدير العام في المنتدى
الرمثاوي نائب المدير العام في المنتدى
الهكر


ذكر
عدد الرسائل : 2039
العمر : 41
العنوان اذا كان في الرمثا ؟ اجب بنعم أو لا ؟ : الرمثا - الحي الشمالي
العمل : فنان
المزاج : طرب
تاريخ التسجيل : 22/11/2007

كيفية برمجة برنامج دليل الهاتف Empty
مُساهمةموضوع: كيفية برمجة برنامج دليل الهاتف   كيفية برمجة برنامج دليل الهاتف I_icon_minitimeالجمعة نوفمبر 23, 2007 1:30 am

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

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

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

كيفية برمجة برنامج دليل الهاتف I182970363_40104_2
فى خاصية 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

ملحوظة يجب عليك أن تكتب هذة الكلمة مكان ******* النجوم فى كل الأاكواد لأنها من الواضح أنها مشفرة فى المنتدي وإنى كتبتها فى صورة لتنقلوهاكيفية برمجة برنامج دليل الهاتف I182870199_3654_2
هذا أول درس أشرحو فى حياتى أرجو أن يكون جيدا واي أستفسار انا فى الخدمة ولا أطلب منكم إلا ردا جميلا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://www.salehkrasneh.page.tl
محمد هاشم طويق
عضو استشاري اول ومميز في المنتدى
عضو استشاري اول ومميز في المنتدى
avatar


ذكر
عدد الرسائل : 2776
العمر : 29
العنوان اذا كان في الرمثا ؟ اجب بنعم أو لا ؟ : نعم
العمل : طالب
المزاج : مدمن نت
تاريخ التسجيل : 29/02/2008

كيفية برمجة برنامج دليل الهاتف Empty
مُساهمةموضوع: رد: كيفية برمجة برنامج دليل الهاتف   كيفية برمجة برنامج دليل الهاتف I_icon_minitimeالأربعاء أبريل 09, 2008 5:13 pm

كيفية برمجة برنامج دليل الهاتف 866873
الرجوع الى أعلى الصفحة اذهب الى الأسفل
aony23
رئيس لجنة المراقبين (الحضور الدائم)
رئيس لجنة المراقبين (الحضور الدائم)
aony23


ذكر
عدد الرسائل : 2429
العمر : 39
العنوان اذا كان في الرمثا ؟ اجب بنعم أو لا ؟ : أكــيــد
العمل : صاحب محل كمبيوتر
المزاج : هادي
تاريخ التسجيل : 08/01/2008

كيفية برمجة برنامج دليل الهاتف Empty
مُساهمةموضوع: رد: كيفية برمجة برنامج دليل الهاتف   كيفية برمجة برنامج دليل الهاتف I_icon_minitimeالأربعاء أبريل 09, 2008 5:14 pm

يعطيك العافيه ....................
الرجوع الى أعلى الصفحة اذهب الى الأسفل
thuglife-m
عضو رمثاوي اشرافي رئيسي في المنتدى
عضو رمثاوي اشرافي رئيسي في المنتدى
thuglife-m


ذكر
عدد الرسائل : 1146
العمر : 37
العنوان اذا كان في الرمثا ؟ اجب بنعم أو لا ؟ : الرمثا الحي الغربي- حي ابو لبصل- طريق حوارة
العمل : طالب الجامعة
المزاج : الرواااق
تاريخ التسجيل : 24/02/2008

كيفية برمجة برنامج دليل الهاتف Empty
مُساهمةموضوع: رد: كيفية برمجة برنامج دليل الهاتف   كيفية برمجة برنامج دليل الهاتف I_icon_minitimeالأربعاء أبريل 09, 2008 7:12 pm

يعطيك العافيه
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كيفية برمجة برنامج دليل الهاتف
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» أقدم لكم برنامج دليل الهاتف الأردني 2007 ... اخر اصدار
» دليل الهاتف الاردني 2006
» دليل الهاتف الاردني 2007
» برنامج Logo Creator MegaPack v5.2 Retail أقوى برنامج لصناعة
» برنامج تحويل ملفات PDF إلى صيغ برنامج Word

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات أهل الرمثا :: منتدى الكمبيوتر والانترنت-
انتقل الى: