برنامج حصر وارشفة لعمال شركة او مؤسسه ما

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

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

طريقة الانشاء كالتالي: -

1-قمت بإنشاء التصميم على شيت الاكسيل

2-قمت بتفعيل خاصية المايكرو

3-اضفت ازرار التحكم التي تظهر امامكم في البرنامج وهي (الإضافة – الاستعلام – الحذف)

4- قم بتفعيل زر وضع التصميم اعلا الصفحة ثم بعد ذالك توجهت الي صفحة ال فاجول بيزك (visual Basic) وقمت بإنشاء الأكواد الخاصة بالاستعلام والاضافة والحذف فيما يلي الاكواد المستخدمة في البرنامج

•كود الإضافة وهو

Private Sub CommandButton3_Click()

Dim last As Integer

last = Worksheet____2.Range("B100000").End(xlUp).Row + 1

Worksheet____2.Cells(last, "B").Value = Worksheet____1.Range("G5").Value

Worksheet____2.Cells(last, "C").Value = Worksheet____1.Range("G6").Value

Worksheet____2.Cells(last, "D").Value = Worksheet____1.Range("G7").Value

Worksheet____2.Cells(last, "E").Value = Worksheet____1.Range("G8").Value

Worksheet____2.Cells(last, "F").Value = Worksheet____1.Range("G9").Value

Worksheet____1.Range("G5").Value = ""

Worksheet____1.Range("G6").Value = ""

Worksheet____1.Range("G7").Value = ""

Worksheet____1.Range("G8").Value = ""

Worksheet____1.Range("G9").Value = ""

MsgBox " HASHEM ABDO ", vbInformation, "Done"

End Sub

•كود الاستعلام وهو

Private Sub CommandButton2_Click()

Worksheet____2.Range("v3").Value = Worksheet____1.Range("G3").Value

Dim l As Integer

l = Worksheet____1.Range("G10").Value

Worksheet____1.Range("G5").Value = Worksheet____2.Cells(l, "B").Value

Worksheet____1.Range("G6").Value = Worksheet____2.Cells(l, "C").Value

Worksheet____1.Range("G7").Value = Worksheet____2.Cells(l, "D").Value

Worksheet____1.Range("G8").Value = Worksheet____2.Cells(l, "E").Value

Worksheet____1.Range("G9").Value = Worksheet____2.Cells(l, "F").Value

End Sub

•كود الحذف وهو

Private Sub CommandButton1_Click()

Worksheet____2.Range("V3").Value = Worksheet____1.Range("G3").Value

Dim H As Integer

H = Worksheet____1.Range("G10").Value

Worksheet____2.Rows(H).Delete

Worksheet____1.Range("G5").Value = ""

Worksheet____1.Range("G6").Value = ""

Worksheet____1.Range("G7").Value = ""

Worksheet____1.Range("G8").Value = ""

Worksheet____1.Range("G9").Value = ""

Worksheet____1.Range("G3").Value = ""

MsgBox " HASHEM ABDO Delete ", vbInformation, "Done"

End Sub

5-بعد ذلك النتيجة الأخيرة وهي كما في النموذج الذي امامكم برنامج حصر يقوم بإضافة أسماء جدية واستعلام او حذف اسم مصمم باحترافية ودقة علية وسرعة في الإنجاز

6-عند الإضافة نملا الخنات المطلوبة بعد ذلك نضغط علي زر الإضافة يتم ترحيل البيانات مباشرة الي صفحة الارشفة التي يوجد بها الأسماء والتهي هي كالتالي ( المسلسل _ الاسم _ الرقم القومي _ رقم الهاتف _ العنوان )

7-عند الاستعلام يتم كتابة الاسم في خانة الاستعلام ثم نضغط علي زر الاستعلام يتم ادراج البيانات مباشرا في الاخنات التي امامك والتهي هي كالتالي ( المسلسل _ الاسم _ الرقم القومي _ رقم الهاتف _ العنوان )

8-عند الحذف يتم اول شيء وهو الاستعلام عن الاسم المراد حذفة بعد الاستعلام نغط مباشرة علي زر الحذف ليتم حذف الاسم نهائية من قاعدة البيانات او ما يسما بصفحة الارشفة