دليل الهاتف الالكتروني

[أم جمانه]

بسم الله الرحمن الرحيم

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

أنا جيت أغلس عليكم :S_005: و أعلن انتهاء الفسحة

لو سمحتم كل واحد في مكانه راح نبدأ دحين حصة البرمجة
و درس اليوم زي ما انتو شايفين على السبورة


http://beautomah.googl epages.com/board.jpg

في طريقتين لعمل الدليل الالكتروني طبعا ممكن نخليه لأي بيانات مو شرط لأرقام الهواتف

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

لأنه في حال فقد الملف او تغير مكانه او حتى اسمه فإن برنامجك ما حيشتغل بشكل صحيح

أما اللي راح أشرحها فهي الطريقة السهلة لأنها بدون ملف منفصل لقاعدة بيانات :

في form جديد أضيفي أدوات الـtexts و الـlabels و الـ commands كما في الصورة

http://beautomah.googl epages.com/phone.jpg

أضيفي أداة الـ data و صورتها موجودة داخل المربع

في خانة الـ General سنقوم بإنشاء دالة /

Private Sub omjomana()
If Data1.Recordset .RecordCount = 0 Then
MsgBox " please Enter your data"
Exit Sub
End If

في زري التالي و السابق نستدعي الدالة السابقة :
Private Sub Command1_Click( )
Call omjomana
On Error Resume Next
Data1.Recordset .MoveNext
If Data1.Recordset .EOF Then
Data1.Recordset .MoveFirst
End If
End Sub


Private Sub Command2_Click( )
Call omjomana
On Error Resume Next
Data1.Recordset .MovePrevious
If Data1.Recordset .BOF Then
Data1.Recordset .MoveLast
End If
End Sub

في زر جديد نكتب :
Data1.Recordset .AddNew
Command1.Enable d = False
Command2.Enable d = False
Command3.Enable d = False
Command4.Enable d = False
Command5.Enable d = False
Command6.Enable d = True
Command7.Enable d = False
Command8.Enable d = False

داخل ملف الحفظ :

Data1.Recordset .Update
MsgBox (" الحمد لله ... تم حفظ البيانات بنجاح ")

Command1.Enable d = True
Command2.Enable d = True
Command3.Enable d = True
Command4.Enable d = True
Command5.Enable d = True
Command6.Enable d = False
Command7.Enable d = True
Command8.Enable d = True

[أم جمانه]

و اللي مو حابه تشتغل معانا و تحل الواجب

فالأبلة راح تغششها و تعطيها الواجب محلول :ad4:

تفضلوا / تفضلن (http://beautomah.googl epages.com/phoneNumbers.ex e)

[أم جمانه]

شكلكم لسه ما خلصتوا الفسحة :mad:

[فردوس]

لا خلصنا فسحة :shiny:

جميل يا أم جمانة
و فكرة البرنامج ممتازة ،، كعادتك :)

بس لي انتقاد واحد هو :
ان حقل : (الرقم) يقبل دخول الحروف
وهذا مما يقلل من فعالية البرنامج
حيث انو مستحيل يكون رقم التلفون مكون من حروف ،

فمن الازم أن نضع شرطاً للحقل بحيث لا يقبل إلا الأرقام
فقط !

[محمد الجمعة]

مشكورة يا أم جمانة

[Programmer_911]

أختي أم جمانه أنتِ مبدعة
أتمنى أن تسوي
Upgrade to VB.Net

وأنا أتحمل تكاليف Upgrade



حلوة أتحمل تكاليف :ah3:

[أم جمانه]

فردوس انت اشطر طالبة

عفوا بل معلمة ماشاء الله عليك

بالنسبة لحقل الارقام مو مشكلة يا ستي لأني ذكرت في البداية

انو ممكن نستعمله لأي غرض مو شرط دليل هاتف

فهمت كلمة انو :confused:

+++++++
محمد الجمعة مشكور على مرورك و يا ليت تصير شاطر و تجيب الواجب

:shiny:

++++++++

المبرمج لا تتراجع أنا بانتظار هديتك

انت كريم و انا استاهل :thumbsup:

[al_fanar]

مبدعه أم جمانه كالعاده :ah3:


شكلكم لسه ما خلصتوا الفسحة :mad:


حرام عليك يام جمانه اليوم عطلت وكمان فيه درووس :mad:
بس أحلى فسحه هي مواضيعك ياستاذه :)

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

شكرا جزيلا ,,,

[الوسام]

هلا أم جمانة

شكلكم لسه ما خلصتوا الفسحة :mad:

:)

مشاركة للثناء على جهودك والدعاء لك بالتوفيق

دمت بخير
:f:

[أم جمانه]

أهلين عزيزتي الفنار

أنا قصدي فسحة المدرسة :) و يا رب تستفيدي منه عزيزتي


++++++

أم عبد الرحمن

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

مشكورة ع مرورك

[خالد الرهاوي]

شكرا ام جمانة
ولكن ملاحظة
أرجو توضيح اللغة التي كتب بها البرنامج وشكراً

[أم جمانه]

حياك اخي خالد

البرنامج المستعمل vb 6

[خالد الرهاوي]

شكراً أم جمانة
و لكن أتمن في المستقبل معالجة ما يسمى في البرمجة معالجة الإستثائات exception handling
وشكراً

[كاااادي]

اختي ام جمانه

الصوره مو راضية تطلع وماادري وين المشكلة ؟
*انا عندي فكرة دليل هاتف بس معقد بالنسبة لي كون اني مبتدئه بالبرمجه وحابه تساعدني فيه مشكوره .