برنامج مرتبات

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

فحاول على ان ترفقه او ترسله عبر الايمي لي واكون شاكرا لك..

أخي العزيز ايهاب :

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

شكراً جزيلاً على هذا الدليل وعلى ما يبدوا والله أعلم ان البرنامج يستحق الاهتمام

أن كان من الممكن أرساله لي عبر الايميل 0

أتمنى لك التوفيق 0

اشكركم اخواني...

البرنامج يصعب ارساله نظرا لسرية بياناته ..

ولكن تابعوني بدءً من مساء اليوم شرحا تفصيلياً

يمكنكم - باذن الله- من عمل برنامج مماثل ويتلائم مع متطلبات مؤسساتكم

شكر الله لكم جميعا وغفر..

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

بارك الله فيك اخي ايهاب

نحن في انتظار الشرح املين بعد نهايته من عمل برنامج مماثل

بسم الله ابدأ

واساله سبحانه ان يوفقني في توصيل معلوماتي المتواضعة لاخواني في هذا المنتدى

الجلسة الاولى:

تأمين البرنامج بطريقة مبسطة

وسوف تتكلم هنا عن نقطتين :

1- حماية البرنامج عن طريق اوامر الاكسيس

2- شاشة افتتاح البرنامج واكواد كلمات السر

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

1- حماية البرنامج عن طريق اوامر الاكسيس

1/1 - ادخل الى القائمة ادوات Tools واختر الامر "بداية التشغيل" start up كما بالصورة:

1/2 - فيظهر لك مايلي:

1/3 - قم بازالة كافة العلامات "صح"

1/4 - وفي المربع :

display Form/page

اكتب اسم نموذج شاشة افتتاح البرنامج وليكن "pass"

1/5 - النتيجة -عند فتح القاعدة -تختفي نافذة قاعدة البيانات واوامر القوائم وازرار الادوات التي تتيح تعديل التصميمات او الاكواد

ولا يظهر سوى نموذج شاشة افتتاح البرنامج التي تطلب كلمة سر للاستمرار.

لكي تقوم بتعديلاتك -كمبرمج- اي اعادة الوضع كما كان فقط اضغط المفتاح Shift اثناء النقر المزدوج على ايقونة البرنامج.

والان نتكلم عن شاشة الافتتاح...

لحظة :blink: اذا كان احد المستخدمين غلى علم بوظيفة الShift هذه او ضغط عليه بالصدفة

فلا قيمة اذت لما سبق

لا عليكم ... يمكنكم التحكم بوظيفة هذا المفتاح ابطالا او تفعيلاً

فقط راجع الاكواد الموحودة في هذا المنتدى من صنع عمالقته اذكر منها الكود ال صممه اخونا مهند العبادي.

الان فقط.....يمكن ان نتكلم عن شاشة الافتتاح

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

2- شاشة افتتاح البرنامج واكواد كلمات السر

انها الشاشة زاهية اللون الموضحة بالصفحة 2 من دليل الاستخدام

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

ويحتوي على الكائنات التالية:

2/1 - مربع نص اسمه ps مخصص لكتابة كلمة السر - ولاتنس ضبط خاصبة فناع الادخال لهذا المربع على القيمة Password

2/2 - زر الخروج من البرنامج

2/3 - الزرين 1 و2 للدخول الى اجزاء البرنامج وهما مخفيان "vivible=no" ولا يظهران الا اذا نجح المستخدم في كتابة كلمة السر الصحيحة... وكذلك التسميتين 1c , 2c الخاصتان بكل من الزرين 1 و 2

واذا كتب المستخدم كلمة غير سليمة يتم انهاء عمل البرنامج

ويمكن التشغيل باكثر من كلمة سر ولتكون mm11 و h55hg

اذا كتبت احداهما عمل البرنامج كيف ذلك ...

من ضمن احداث المربع ps اكتب الكود التالي للحدث befor update

If ps = "h55hg" Or ps = "mm11" Then
[1].Visible = True
[1c].Visible = True
[2].Visible = True
[2c].Visible = True
Else
Quit
End If

انتهت الجلسة الاولى

في انتظار استفساراتكم

اشكركم وشوقي الى لقائكم كبير :D

ملحوظة هامة....

الخطوة رقم 1 في الجلسة الاولى

يفضل اتمامها في نهاية عمل البرنامج وقبل التسليم للمستخدم/المستخدمين

الى لقاء قريب...

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

الاستاذ / إيهاب عثمان

شكرا لك على هذه الخطوة ، واتمنى لكم التوفيق والنجاح ،،،

عبدالمانع

يعطيك الف عافيه اخي ايهاب

ونتمنى من الله العلى القدير ان يوفقك

اختكم

زهره

الاخ العزيز - عبد المانع

الاخت العزيزة زهرة

انا تلميذكم - كم تعلمت منكم اسال الله ان اكون عند حسن الظن..

والشكر موصول لجميع الاخوة الذين يشاركون معي هنا

استأذنكم جميعا ان نكمل سويا مساء الاخد القادم باذن الله

لاجراء صيانة على جهلزي

وشكرا

يعطيك العافيه يا أخ ايهاب ويكثر من امثالك

اخواني الكرام ..اشكركم جميعا غلى تفاعلكم معي ودعواتكم الطيبة.

الان نعود.. :D

<span style='font-size:21pt;line-height:100%'>الجلسة الثانية:</span>

شاشة الافتتاح ..وماذا بعد الدخول بكلمة السر..

راجع الدليل والشكل رقم (2) - تجد انه عند النجاح في ادخال كلمة السر فانه تظهر لنا اربعة كائنات

مربعا نص والتسميتان الخاصتان بهما

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

اسماء الكائنات هي

1 زر الامر المسئول عن فتح شاشة ادخال / معالجة البيانات

2 زر الامر المسئول عن فتح شاشة التقارير

1c التسمية الخاصة بزر الامر 1

2c التسمية الخاصة بزر الامر 2

ـــــــــــــــــــــــــــــــــــــــــــــــــــ

لاحظ الاتي:

a- خاصية visible قيمتها False اي ان الكائنات مخفية ويقوم الكود المذكور سابقا بتحويلها الى مرئية بمجرد ادخال كلمة السر الصحيحة

b - طالما قمت بتسمية احد الكائنات برقم مث 1 و 2 فلا بد عند الاشارة اليها في الكود ان تضعهما بين القوسين [ ]

ــــــــــــــــــــــــــــــــــــــــــــــــــــــ

والان ماذ ينتج عن الضغط على زر الامر (1)

هو وفتح نموذج ادخال البيانات - ويسمى o_main- واقفال النموذج الحالي "Pass"عن طريق كود موضوع على حدث

On Click للزر 1.... وهاهو الكود:

Private Sub Ctl1_Click()
DoCmd.OpenForm "0_main"
DoCmd.Close acForm, "pass"
End Sub

اما عن الزر 2 فينتج عنه -وبنفص الكيفية فتح شاشة التقارير - المسماة o_rep-

واقفال شاشة الافتتاح وهاهو الكود

Private Sub Ctl1_Click()
DoCmd.OpenForm "0_rep"
DoCmd.Close acForm, "pass"
End Sub

يتبقى لنا في هذه الجلسة القصيرة زر الخروج من البرنامج.

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

هذه الكلمة هي :

Quit

وهو نفس الكود الذي يحدث عند الفشل في ادخال كلمة السر

سرني لقاؤكم .... والى لقاء قريب -باذن الله - مع شاشة ادخال ومعالجة البيانات.

شكراُ :) جزيلا

<span style='font-size:21pt;line-height:100%'>الجلسة الثالثة:</span>

شاشة ادخال / معالجة البيانات (1)

احبائي الكرام مع الشاشة الخاصة بادخال/ معالجة البيانات وقد تستغرق عددا من الجلسات

والله الموفق وهو المعين...

تتكون تلكم الشاشة من عدد من ازرار الاوامر يشغل كل منها كود مسئول عن عملية معينة اقفال شهر/تعديل بيانات/انشاء بيانات شهر جديد.... وهكذا

وشكل النموذج ومكوناته موجودة بالشكل رقم 3 - من دليل المستخدم

1 - قبل البدء في شرح مكونات النموذج تعالوا نتعرف على الجداول والاستعلامات المرتبطة بهذا النموذج

حتى اذا تعرضنا لاحدها اثناء الشرح - يكون معلوما وواضحة مكوناته وخصائصه

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

لاحظ البرنامج مصمم لشركة متعددة الفروع / المشروعات/المواقع

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

1/1 - جدول Main data

يتكون من البيانات الاساسية لموظفي الشركة واليكم قائمة حقول الجدول بخصائصها:

1/2 جدول Salary

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

عامة - يتم تغذية هذا الجدول عن طريق عدة استعلامات اجرائية (بعضها يحتوي على حقول محسوبة ) وسنتعرض لجميعها تباعاً.

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

]

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

هذان هما الجدولان الاساسيان في برنامجنا – في الجلسة القادمة – ان شاء الله نستكمل باقي الجداول وتلاستعلامات المرتبطة بنموذج ادخال / معالجة البيانات.

شكرا لكم..

أخي الكريم/إيهاب عثمان

بارك الله فيك وفيت وكفيت شرح مفصل وجيد جزاك الله عنا كل خير وفي انتظار المزيد منك إن شاء الله

والله الموفق

الباشا قمر الزمان

<span style='font-size:14pt;line-height:100%'>الجلسة الرابعة:</span>

شاشة ادخال / معالجة البيانات (2)

بدنا سوياً جلستنا السابقة في الحدبث عن شاشة ادخال / معالجة البيانات

و اوضحت انه لا بد من الحديث عن الجداول والاستعلامات المرتبطة بهذا النموذج و بالفعل تكلمت عن الجدولين الرئيسيين في البرنامج وهما main data و salary

والان مع بقية الجداول وتلاستعلامات المرتبطة بنموذج ادخال / معالجة البيانات :D

2/1 - الاستعلام الاجرائي finish:

وهو استعلام تحديث .

وظيفته كتابة حرف Y في الحقل finish بالجدول salary دلالة على اقفال بيانات الشهر الاخير ومنع اية ادخالات عليه وبدون تشغبل هذا الاستعلام فلن يتم انشاء شهر جديد

وتلكم هي صورة الاستعلام في طريقة العرض تصميم.

2/2 - الاستعلام F_years

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

DMax("[yr]";"salary")

2/3 - الاستعلام Cur main

وهو استعلام تحديد يحتوي على كافة حقول الجدول main data مع عرض سجلات الموظفين الحاليين فقط (غير المستقيلين) وذلك بوضع المعيار "Is Null" تحت الحقل Ret_date وهو الاص بتسجيل تاريخ الاستقالة

وسوف نتعرض لاحقا لكيفية اثبات استقالة موظف.

2/4 - الاستعلام الاجرائي F_app

وهو استعلام الحاق وظيفته انشاء بيانات شهر جديد والحاقه الى الجدول salary

مع وضع الشهر والسنة الجديدين بصورة الية ولا يعمل الاستعلام الا اذا كان اخر شهر قد تم اقفاله - راجع الاستعلام finish

والاستعلام يربط بين الاستعلامين f_years و cur main عن طريق المفتاح emp_id كما بالشكل:

والجدول التالي يوضح حقول هذا الاستعلام ومعاييرها مع التذكير بان الالحاق يكون الى حقول الجدول salary:

ولنلاحظ الاتي:

أ- السجلات المعروضة هنا هي لاخر سنة موجودة في البيانات راجع معايير الحقل yr في الاستعلام F_years

ب- الحقل المحسوب newyr يقوم بحساب السنة الجديدة والحاقها بالحقل yr في جدول salary

وفكرة الحساب هي : اذا كان الشهر الحالي =12 فان السنة الجديدة = السنة الحالية +1 والا فان السنة الجديدة = السنة الحالية.

ج- الحقل المحسوب newm يقوم بحساب الشهر الجديد والحاقه بالحقل MO في جدول salary

وفكرة الحساب هي : اذا كان الشهر الحالي =12 فان الشهر الجديد = 1

والا فان الشهر الجديد = الشهر الحالي+ 1

2/5 - الاستعلام الاجرائي Zero

بعد ان قمنا بالحاق او ترحيل بيانات الشهر الجديدالى الجدول salary وجب تحديثها بواسطة هذا الاستعلام كالتالي

أ- الحقل finish يجب جعل قيمته = 0 دلالة على ان الشهر مقتوح وغير مقفل

ب- بعض البيانات المالية كالتاخير ةالغياب والجزاءات تتغير -بديهيا- من شهر لاخر لذا وجب جعل قيمتها =0 استعدادا لتغذيتها بالارقام الخاصة بالشهر الجديد

وبجب ان يتم ذلك على الشهر الاخير بوضع المعيار التالي تحت الحقل mo

DMax("[mo]";"F_years")

واليكم صورة الاستعلام zero في طريقة العرض تصميم .

2/6- الماكرو c and z

وبقوم بتشغيل الاستعلامين F_app و zero على الترتيب وهذه هي صورته :

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

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

اتمنى ان اكون قد وفقت في الشرح

في الجلسة التالية باذن الله - نبدأ مع نموذج الادخال لنتعرف على اكواده وازراره وما بتفرع منه من نماذج

والله المعين :D

احبائي .....

معذرة على التاخير فالمشاغل جمة والوقت ضئيل

وآمل منكم المزيد من التفاعل... ولو بالنقد (رحم الله امرأ اهدى الي عيوبي)

الجلسة الخامسة:

شاشة ادخال /معالجة البيانات (3)

بعد ما تعرضنا للجداول والاستعلامات المرتبطة بها تلكم الشاشة

وهي كما بالشكل رقم (3) بدليل المستخدم - الذي ارفقناه في بدايات الموضوع- عبارة عن تتابع لعدد من العمليات على يمين كل عملية زران الاول عليه علامة استفهام وبالضغط عليه يظهر نموذج به تبذة عن العملية وحدث "عند الضغط" لهذا الزر نجد به الكود التالي:

DoCmd.OpenForm "h1"

حيث h1 اسم نموذج التعليمات للعملية الاولى - و h2 للعملية الثانية ... وهكذا

وهذه صورة توضح احد نماذج التعليمات وهو يشرح العملية الرابعة في هذه الشاشة:

وزر "عودة" بهذا النموذج يغلقه ويعيدك الى شاشة الادخال عن طريق الكود الموجود بالحدث "عند الضغط"

DoCmd.Close

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

اقتباس

Modal = yes

Pop up = yes

كانت هذه نبذة عن التعليمات الخاصة بكل عملية فكيف يتم تسغيل العملية

بالضغط على الزر الذي عليه رقم العملية - لاجظ وظائف وخواص كل عملية مشروح بدليل المستخدم تفصيليا...... ونحن هنا لنشرح الناحية البرمجية

1 - اقفال بيانات الشهر السابق

بالضغط على زر هذه العملية يتم تشغيل استعلام التحديث Finish - هل تذكرونه - راجع الجلسة الرابعة-

وذلك بالكود التالي:

DoCmd OpenQuiry "finish"

2 - تعديل بيانات احصائبة...

يتم فتح نموذج جديد اسمه step2 سنتعرض له لاحقا - ولكن شرط اجراء هذه العملية هو ان تكون قد اقفلا الشهر السابق اي ان تكون كاقة الشهور السابقة مقفلة اي ان تكون حميع القيم بالحقل finish بالجدول salary هي Y - وليس منها ماهو" 0 " .. واليكم الكود/

If DMin("[finish]", "salary") = 0 Then
MsgBox "لايد من اقفال بيانات الشهر السابق اولا"
Else
DoCmd.OpenForm "step2"
End If

3 - انشاء ييانات شهر جديد :

هنا يتم تشغيل الماكرو المسمى "c and z" راجع اواخر الجلسة الرابعة

بشرط ان تكون قد اقفلت الشهر السابق كما ذكرنا.... وهذا هو الكود:

Dim hs As String
hs = DMin("[finish]", "salary")
If hs = "y" Then
DoCmd.RunMacro "c and z"
MsgBox "تمت عملية انشاء الشهر الجديد بنجاح", vbExclamation, "مبروك"
Me.Requery
Me.Refresh
Else
MsgBox "!!!لا بد من اقفال بيانات الشهر السابق اولاً"
End If

4 - تعديل البيانات المالية :

هنا يتم فتح نموذج جديد اسمه "step4" سنتعرض له لاحقا

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

وهذا هو الكود

Dim hs As String
hs = DMin("[finish]", "salary")
If hs = "y" Then
MsgBox "لابد من انشاء شهر جديد اولا"
Else
DoCmd.OpenForm "step4"
End If

5 - ادخال مؤثرات الشهر الجديد:

هنا يتم فتح نموذج جديد اسمه "step5" بشرط انشاء شهر جديد اولا كما بالعملية السابقة

وهذا هو الكود:

Dim hs As String
hs = DMin("[finish]", "salary")
If hs = "y" Then
MsgBox "لابد من انشاء شهر جديد اولا"
Else
DoCmd.OpenForm "step5"
End If

ـــــــــــــــــــ

كانت تلكم هي العمليات الخمس الاساسية بالنموذج

بداية من الجلسة التالية نبدأ -ان شاء الله - بشرح النماذج المتفرعة من العمليات 2 - 4 -5

وهي step5 - step4 - step2 على الترتيب

الى اللقاء :D

ـــــــــــــــــــــــ

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

فحاول على ان ترفقه او ترسله عبر الايمي لي واكون شاكرا لك..

بارك الله فيك ياأخي

ورزقت حسن العاقبة في الدارين 0