تصميم برنامج مخازن في المنتدى خطوة خطوة

[أبو عبدالله الحلوانى]

أستاذ عبدالله 

نحن فى انتظار المزيد 

وكان لى استفسار حول دارة الحماية وماهية عملها

وان كنت أعلم أن هذا ليس أون هذا الاستفسار ولكن لحضرتك الحرية فى الاجابة فى الوقت الذى تشاء.

متابعون  

[عبد الله قدور]

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

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

 

[عبد الله قدور]

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

سنتابع اليوم ما بدأنا به في نموذج تعريف المادة وهذه المرحلة هي الاصعب وهي عملية البحث واضافة البيانات الى التصنيف

قمنا بالخطوات التالية :

1- إضافة نماذج على شكل ورقة بيانات لكل جدول من جداول التصنيف بالاسماء التالية frmgrp1-frmgrp2- frmgrp3-frmgrp4

2- تم اضافة نموذج البحث frmfinder فهو سيقوم بالبحث واضافة البيانات الى نموذج تعريف مادة

3- قمت بإنشاء متغيرات عمومية ضمن الوحدة النمطية module1

Public fgrb As String, findcode As Integer, findnamee As String, typegrb As Integer

الاول لحفظ نص البحث المطلوب ونقله من نموذج تعريف المادة الى نموذج البحث وهو ايضا معيار البحث في نموذج finder

الثاني متغير لحفظ رقم الكود فيه ونقله من نموذج البحث الى نموذج تعريف المادة

الثالث متغير لحفظ الاسم فيه ونقله من نموذج البحث الى نموذج تعريف المادة

الرابع متغير يحفظ أرقام لتحديد النموذج الفرعي داخل نموذج البحث frmfinder وسيتم استخدامه في حدث عند التحميل في نموذج البحث بحيث عندما البحث في المجموعة الاولى سيكون النموذج الفرعي هو النموذج الفرعي الخاص بالمجموعة الاولى frmgrp1 وعندما نريد البحث في المجموعة الثانية يكون النموذج الفرعي هو frmgrp2 وهكذا ...

الان ننتقل الى نموذج تعريف مادة

نبدأ بالبحث في المجموعة الاولى في التصنيف (اللون) نكتب النص الذي سنبحث عنه ثم نضغط انتر لاحظ الكود في حدث بعد التحديث

On Error Resume Next
If IsNull(Me.namegrp1) = False Then
typegrb = 1
fgrb = Me.namegrp1
DoCmd.OpenForm "frmfinder", , , , , acDialog
Me.namegrp1 = findnamee
Me.codegrp1 = findcode
End If

نبدأ بالتأكد من أن الحقل ليس فارغا ثم نعطي متغير تحديد النموذج الفرعي القيمة 1

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

سؤال يطرح نفسه لماذا اخترنا فتح نموذج البحث على شكل مربع حوار ؟

الجواب :حتى يتوقف تنفيذ الكود حتى نحصل على النتيجة بعد إغلاق نموذج البحث

ثم بكل بساطة نقوم بإضافة النتيجة الى نموذج تعريف المادة باستخدام المتغييرات

 

ننتقل إلى نموذج البحث frmfinder

   1- كما ذكرت سابقا فيه نموذج فرعي يتغير مصدره من حدث عند التحميل استنادا للمتغير الخاص به وهو typegrb

2- في الوحدة النمطية module1 تم اسناد قيمة المتغير fgrb الى دالة وذلك بوضعه ضمن function

Function findgrb()
findgrb = fgrb
End Functiongrb

وقمت باستخدام هذه الدالة findgrb كقيمة افتراضية في مربع النص search ضمن نموذج البحث وأيضا كعامل تصفية في نماذج التصنيف

3 - ستجد زر جديد في النموذج سيقوم هذا الزر بفتح مجال لاضافة بيانات ضمن النموذج الفرعي مباشرة وذلك بالسماح بالاضافة للنموذج الفرعي

Me.grbs.Form.AllowAdditions = True

أخيرا

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

 

accurate 16.rar

تم تعديل سبتمبر 6, 2015 بواسطه عبد الله قدور

[أبو عبدالله الحلوانى]

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

[عبد الله قدور]

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

أخواني الكرام

بدأنا الان بتصميم فاتورة الادخال وقد قمت بتصميم الفاتورة ولكن بدون أكواد وإن شاء الله في المشاركة التالية سأقوم بكتابة الاكواد

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

يمكنكم انشاء العلاقات بأنفسكم اعتمادا على الصورة أو من الرابط حمل النسخة معدلة

الرابط

accurate 16.rar

[جعفري]

شكرا لك استاذ

 

[جعفري]

شكرا لك استاذ

 

الرابط لا يستجيب

[عبد الله قدور]

السلام عليكم

شكرا لك استاذ

 

الرابط لا يستجيب

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

[ناصر 980]

السلام عليكم

مشكور على البرنامج 

بس في مشكله بسيطه

2.bmp

[عبد الله قدور]

السلام عليكم

مشكور على البرنامج 

بس في مشكله بسيطه

2.bmp

السلام عليكم اخي الكريم يجب وضع البرنامج على قرص D وانشاء القواعد داخله 

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

[mosa2000]

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

[عبد الله قدور]

السلام عليكم اخي الكريم

تأكد من المراجع 

[أبو عبدالله الحلوانى]

أعتقد أن مشكلة أ/ mosa2000 هى نفس المشكلة التى عرضها فى موضوعه الخاص باختلاف نسخ الأوفيس 32 و 64 هنا 

http://www.officena.net/ib/topic/64136-خطا-كود-عند-تشغيل-برنامج-32-بت-على-64-بت/

وأعتقد أن ماطرحه أ/ جعفر فى موضوع له بعنوان: هل أستخدم أوفيس 32 أم 64

هنا :  http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/

عندما أوصى باستخدام 32 وعلى قولة المثل : الباب اللى يجيك منه الريح سده واسترح ... حلا مناسبا لمشاكل اختلاف نسخ الأوفيس.

تم تعديل أكتوبر 13, 2015 بواسطه أبو عبدالله الحلوانى

[أبو عبدالله الحلوانى]

أين أنت أ/عبدالله قدور لعل المانع خير 

لم نزل نتابع وفى انتظار المزيد من الابداع

[عبد الله قدور]

السلام عليكم 

اخي أبو عبد الله الحلواني يوجد عندي بعض المشاكل في عملي , وقد شارفت على الانتهاء بإذن الله وسأعود قريبا 

 

[أبو عبدالله الحلوانى]

اسأل الله أن يزيل عنك المشاكل وييسر لك المصالح  ويردك الينا سالما قريبا

[عبد الله قدور]

السلام عليكم

عدنا أخيرا بعد غياب طال قليلا بسبب ظروف العمل

سأكمل انشاء الله من حيث توقفت

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

2- استخدمت استعلام توحيد حتى احصل على الوحدات تحت بعضها في جسم الفاتورة واساس استعلام التوحيد العبارة التالية " union all " هي تقوم بجمع الجداول او الاعمدة من نفس الجدول لكن لا تنسى شيء مهم وهو انه يجب ان يكون عدد الاعمدة نفسه حتى يكتمل الاستعلام

 

accurate 16.rar

[أبو عبدالله الحلوانى]

عود أحمد وحمدا لله على السلامة

[اأبو مصطفى]

 access.rar

قاعدة البيانات

السلام عليكم اخي العزيز

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

[عبد الله قدور]

 access.rar

قاعدة البيانات

السلام عليكم اخي العزيز

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

تفضل اخي الكريم رابط جديد على dropbox

الرابط

[عبد الله قدور]

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

سنتابع اليوم بعملنا بفضل الله وكرمه

1- تم اضافة رسائل التحذير لفاتورة الادخال بنفس الطريقة السابقة المستخدمة في تعريف المادة

2- اضفت فاتورة اخراج وتعمل على نفس مبدأ فاتورة الادخال لكن الفرق بينهما هو حقل type بحيث سيتم تخزين بداخله قيمة 2 بدل من 1 ليتم التفريق بين الفاتورتين

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

 

accurate 16.rar

[علاوي اليمن]

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

[مصطفى علوش]

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

أرجو تزويدي بأية رقم اتصال بالأخ عبد الله قدور ، وهل له صفحة أو قناة ؟

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

 

[عبد الله قدور]

في ١٠‏/٨‏/٢٠١٦ at 10:44, مصطفى علوش said:

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

أرجو تزويدي بأية رقم اتصال بالأخ عبد الله قدور ، وهل له صفحة أو قناة ؟

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

 

السلام عليكم

اخي مصطفى علوش انا في المنتدى ولكن قد انشغلت قليلا 

يمكنك التواصل معي على الواتس اب على الرقم 00905456969400

او على الفيسبوك على صفحتي الشخصية

رابط الصفحة

[مصطفى علوش]

في ٢٨‏/٨‏/٢٠١٦ at 13:17, عبد الله قدور said:

السلام عليكم

اخي مصطفى علوش انا في المنتدى ولكن قد انشغلت قليلا 

يمكنك التواصل معي على الواتس اب على الرقم 00905456969400

او على الفيسبوك على صفحتي الشخصية

رابط الصفحة

حياك الله