تطبيق : قاعدة بيانات لغرفة المحفوظات ( متجدد)

[السوهاجى]

اخى  الكريم  خذ وقتك كما شئت  والله سوف يعينك كما طالب منة لانة وحده يعين والله المستعان  رتب براحتك واشكرك الف مليون بل مليارات الشكر لا تكفى اخى ابو ادم

[أبو آدم]

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

تم تعديل اسماء الحقول من الأحرف العربية الى الاحرف و الكلمات الانجليزية و جعل اسم الدلالة بالعربية في Caption كل حقل ( في وضع التصميم للجدول ).

تم استخدام خاصية التحقق من الصحة لحقل strDateReceived ( تاريخ انتهاء العمل به ) حيث جعل الشرط

< Date()+1

ورسالة التنبيه على خرق شرط التحقق من الصحة هي:

" لا يمكن تسجيل محفوظات تاريخ الانتهاء منها أعلى من تاريخ اليوم الحالي "

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

أبقيت على الحقل strActualDuration ( المده الفعلية ) بناء على تصورك أنت ، رغم انه رقم يمكن احتسابه بناءا على قيم الحقول

strSubRoom + strMainRoom + strArchives ، ولا يفضل حفظ المجاميع في الجداول ، حيث يمكن دائما إحتسابها عند الحاجة .

 

وللحديث بقية ...

[أبو آدم]

سنقوم باستغلال فرصة هذا الموضوع ، وكون صاحبه صابر صبور ( جزاه الله خيراً ) ، لتفصيل كثير من الامور التي نمر عليها عادة مرور الكرام ، دون توضيح او تفصيل ، ولن نسهب في التفصيل كثيراً حتى لا يطول الامر .

 

نسأل الله العظيم رب العرش العظيم ان يكون للأمر مثقالاً في ميزان حسناتنا جميعاً .

و بإسم الله وعونه نصول ونجول ...

 

تم بناء النموذج  frmAddArchine  للغايات التالية :

عرض السجلات  و التنقل بين السجلات  و  إدخال سجل جديد  و  البحث عن طريق الرقم التعريفي ( المتسلسل )

تم مراعاة النواحي التنسيقية و الجمالية في تصميم النموذج ، لأهمية ذلك ( حسب بعض الآراء ) لغايات التأثير البصري ومراعاة الألوان و الأحجام المناسبة .

 

تم تخصيص مقطع " رأس النموذج " لاحتواء مربع تحرير وسرد للبحث و زر أمر لتنفيذ البحث وزر أمر للانتقال لمنطقة البحث بالإضافة الى Label " Search "  و زر إغلاق للطوارئ .

تخصيص مقطع " التفصيل " لعرض الحقول للسجل الحالي ، نموذج منفرد – غير مستمر .

تخصيص مقطع " تذييل النموذج " لاحتواء أزرار التنقل و إضافة جديد و الإغلاق ، ومربعي نص واحد لإظهار الرقم التعريفي للسجل والثاني لإظهار عدد الوثائق لهذا الرقم .

 

وللحديث و التطبيق بقية ...

[السوهاجى]

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

[أبو آدم]

ونتابع ...

 

في خصائص النموذج نراعي ما يلي تمهيداً لما سيتبع ونجعل :

pop up ( منبثق ) – نعم

Modal ( مخصص ، مشروط ) - نعم

عند تحميل النموذج frmAddArchine  يتم تحديد حجم النموذج ، ونضع خلف الحدث On Load ( عند التحميل ) الكود التالي :

Me.Form.InsideHeight = 7000
Me.Form.InsideWidth = 9900

فائدة :

الارقام في الكود أعلاه هي بوحدة القياس twips  " تويب " وهي وحدة قياس ( كتباعد الأحرف وقياس الأبعاد ) تساوي 1/20 من نقطة الطابعات Point ، وهناك 1440 تويب للبوصة الواحدة ، 567 تويب للسنتيمتر الواحد .

........

 

ولغايات توضيح إمكانية التحكم بعنوان النموذج Caption ، سنقوم بتطبيق حركة بسيطة بتحويل هذه المنطقة من النموذج و المخصصة لحمل عنوانه أو تسميته التوضيحية ، الى ما يشبه الشريط الاعلاني  ، ونحملها بما نشاء من المعلومات والعبارات ، ولتطبيق ذلك نراعي ما يلي :

• في محرر الفيجوال للنموذج Visual Basic  نقوم بتعريف المتغيرات ( القيمة ) التالية ليتم التعامل معها عند اللزوم وهي Private statement كعبارة أو جملة خاصة :

Private strText As String

لتحمل strText  النص الذي سنتعامل معه ولجعل التعليمات البرمجية أسهل للقراءة والتطبيق على مستوى النموذج .

• في خصائص النموذج ، نجعل Timer Interval  ( مؤقت الفاصل الزمني ) تساوي مثلاً 60

فائدة :

إعداد الخاصية  Timer Interval  هو Long Integer  عدد صحيح طويل بقيمة بين 0 و 2,147,483,647 .

كل 1000 من الرقم المحدد في Timer Interval تساوي 1 ثانية .

• في الحدث On Load ( عند التحميل ) نضع الكود التالي مع أصحابه :

strText = "معهد تدريب أمناء الشرطة بسوهاج  ----  نظام دار المحفوظات  2014 "
strText = Space(110) & strText

• وخلف الحدث  On Timer ( عند التوقيت ) نضع الكود التالي :

strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText

وللحديث والتطبيق بقية ....

 

......

[السوهاجى]

عزيزى  الغالى  انا طبقت كل تعليماتك خطوة خطوة  ولكن النموذج الخاص بالبحث لم اعرف تطبيقة  غيرت اسماء الحقول الى الاحرف الانكليزية  بكل دقة مع الاحتفاظ بالمسمى العربى فى ( تسمية توضيحية)  تم تصميم  النموذج الخاص باسم المنشآه وضعت الاحداث فى مكانها  ولم تظهر اسم المنشآه    ماذا افعل    لا تتركنى فى منتصف الطريق   اشكر تعبك معى  0

[أبو آدم]

إخوتي الفضلاء

أخي السوهاجي

 

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

 

تفضلوا

 

NA_Archives.rar

[أبو آدم]

كنت قد أورد بعض النصائح فيما يتعلق بالتسميات في أكثر من موضوع وأعيدها هنا للفائدة لا مجرد تكرار ...

 

أود أن انوه هنا لمجموعة من الأمور تتعلق بالتسميات ، وحسب الاصول المريحة ، فإتباع الأصل و الأحوط ينجي صاحبة عند الالتباس ، فحين تتوحد الأسماء بلا تمييز يلتبس الأمر بين الجدول ومربع النص والحقل وغيرها ، ومن ذلك نقول ، أننا ننصح باتباع ما يلي تمثيلاً وليس قصراً وحصراً :

 

استخدام البادئة  tbl في الاسم للدلالة على الجدول tblArchives ، أو استخدام الاسم الافتراضي الذي يقترحه النظام

استخدام البادئة  qry في الاسم للدلالة على الاستعلام qrySearch ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية كائنات القاعدة .

 

استخدام البادئة  str في الاسم للدلالة على حقل الجدول strArchivedDocument   .

 

استخدام البادئة  txt في الاسم للدلالة على مربع النص txtArchivedDocument ، أو استخدام الاسم الافتراضي الذي يقترحه النظام

 

استخدام البادئة  cmb في الاسم للدلالة على مربع التحرير والسرد  cmbArchivedDocument ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية عناصر النموذج .

 

وللحديث والتطبيق بقية ....

[السوهاجى]

بارك الله فيك  تم تجربة العمل نموزج البحث جميل  ولكن انا مش عاوز استعجل   ولكنى تعلمت من النموزج كثيرا وطبقتة   اخى لا تنسى الترحيل من غرفة الى اخرى الى الاعدام وتقارير الطباعة  شكرا  لتعبكم العظيم 

[السوهاجى]

اخى الكريم   لعل المانع خيراً  من يوم 24/4/2014 حتى الان لم ترسل مشاركاتك   ارجو ان تكون بخير

[أبو آدم]

أعتذر عن الاحتجاب وقلة المشاركة لأسباب صحية

[أبو آدم]

أخي العزيز

تطبيق الفكرة ( بطريقتي في التفكير ) تحتاج لكثير من التجربة و التفكير و التروي

لا أحب المسلوق ( حتى في الطعام)

انا حاليا انفذ بعض الافكار

المرفق مجرد تجارب و افكار

ولكن منعا لانقطاع الموضوع ، وللاستمرار معك ، وللتجربة

أعتذر عن الشرح حاليا ، لاسباب شخصية ( صحية)

 

شكرا

NA_ArchivesUp.rar

[أبا عمر]

أعتذر عن الاحتجاب وقلة المشاركة لأسباب صحية

أسأل _الله_ في عليائه أن يشفيك شفاءا لا يغادر سقما ويرضى عنك ومن تحب ومن تخصهم بالدعاء

 

لا أحب المسلوق ( حتى في الطعام)

[ابوخليل]

أسأل الله الكريم ان يعفو عنا وعنك وأن ينعم عليك بالشفاء  شفاء لا يغادر سقما

[أبو آدم]

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

[السوهاجى]

سيدى الفاضل     شفاك الله الذى لايستعصى عليى اى امر   اقدم لك الدعاء بالشفاء الى الله   اخى  صحتك اولا   ثم اولا  شفاك الله    المشاركة باللون الاخضر  للاطمئنان عليك لا اكثر من ذلك   رعاك الله وحياك وادام عليك الصحة والعافية ولا نرى فيك مكروه بان الله

[السوهاجى]

ابو ادم      لعل احتجاب حضرتكم فية خير لك ولنا هل انت بخير لا احب الاطالة

تم تعديل مايو 16, 2014 بواسطه السوهاجى

[السوهاجى]

اخى ابو ادم  لمــاذا كــل هــذا الاحتجــاب  العلك بخير والحمد لله  ام ماذا جرى لك انا صــــابر مستعد للصبر اكثر من ذلك  وايضا الاستغناء عن الموضوع مــمكن  اخى هل انت بخير اذ كان  موضوعنا يضـــايقك او او او    الله يعينك ويشفيك نرجوا ان تطمئننا عليك وكفان ان نسمع عنك خيرا     ؟

تم تعديل مايو 23, 2014 بواسطه السوهاجى

[elmalm]

اخى الفاضل اتمنى من الله ان تكون بخير 

[أبو آدم]

إخوتي الفضلاء

 

شكرا لسؤالكم وطيب سجاياكم

 

إنما جعلت الحياة الدنيا ممزوجة بالبلاء والفتن ، فقال تعالى : ((لقد خلقنا الإنسان في كبد)) أي مشقة وعناء، وأقسم على ذلك بقوله: ((ولنبلونكم بشيء من الخوف والجوع ونقص من الأموال والأنفس والثمرات، وبشر الصابرين الذين إذا أصابتهم مصيبة قالوا إنا لله وإنا إليه راجعون، أولئك عليهم صلوات من ربهم ورحمة وأولئك هم المهتدون))

اللهم انا صابرون محتسبون

اللهم انا صابرون محتسبون

اللهم انا صابرون محتسبون

[أبو آدم]

حياكم الله اخوتي

اعلم انه جهد المقل ، ولله الامر من قبل ومن بعد

 

مرفق التطبيق مع تقريرين جديدين لوثائق الغرفة الفرعية والغرفة الرئيسية

 

وللحديث بقية ...

 

 

NA_ArchivesUp-One.rar

[السوهاجى]

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

[أبو آدم]

أحسن الله اليك أخي الحبيب ورفع قدرك

جزاك الله عني خيراً

 

أرجو أن تحدد لي اين وصلت وما هي حاجاتك في التطبيق ، حتى أجهزها لك إن شاء الله

[السوهاجى]

ارجو منك شرح الاستعلامات  لانة  انا غيرت  تاريخ عنصر  ولم يستحيب للتغبر   واغلافت قاعدة البياتات ولم يغبر المده التى يجب ان يقضيها فى الغرفة

[السوهاجى]

ارجو منك شرح الاستعلامات  لانة  انا غيرت  تاريخ عنصر  ولم يستحيب للتغير   واغلاقت قاعدة البياتات ولم يغير المده التى يجب ان يقضيها فى الغرفة ( غيرت  تاريخ انتهاء العمل بة )   وظل على تاريخة القديم ولم يغير من الغرفة  المتواجد فيها

تم تعديل يونيو 11, 2014 بواسطه السوهاجى