منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء

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

Mon, 15 Oct 2012 05:10:11 +0000

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

مشكلة تحويل البرنامج إلى كود مرة أخرى .

تتوفر في الإنترنت برامج متنوعة تقوم بتحويل التطبيقات إلى ملفات بالكود من جديد ما يعني ضياع حق المبرمج بسهولة ، وعملياً لا يوجد حل كامل لهذه المشكلة ، لأن الطريقة العكسية لعمل ال Compiling هي التي تفك الضغط ، وبذا يعود البرنامج كما كان ، وتفاقم الامر مع الاصدارة .netمن الفيجوال بيسك نظراً للطريقة التي تعتمد عليها البرامج المصنوعة تحت بيئة التطوير هذه ، ولذا تقوم مايكروسوفت دورياً بوضع برامج تشفير - إن صح التعبير - تقوم بتصعيب هذه العملية ، وكما توفر بعض الشركات برامج وتقنيات للحفاظ على حقوق المبرمج ، ولكن العلاقة مستمرة في شد وجذب بصورة مستمرة .

هناك أيضاً اتفاقيات البرمجيات مفتوحة المصدرمثل GPL والتي تعني Genral Public Licence والتي تأتي مع أغلب برمجيات المفتوحة المصدر ، باختصار كل ما في الموضوع هو انك تقوم بتوفير برنامجك مع ال Source Code الخاص به للجميع ، ويمكنك أن تطلب ثمناً لذك لكن بشرط اعطاء الكود مع البرنامج ، يمكن التعديل عليه واضافة مزايا أخرى مما يجعل تطوير البرنامج أسرع ، لا تقلق من ذلك فلن يضيع حقك بكل تأكيد ، ولن تجد شخصاً يحاول أن يكسر حماية برنامجك على أي حال . من نظم التشغيل التي تتبنى هذا الاتجاه عائلة Unix أيضاً من لغات البرمجة التي تسير في هذا المنهاج Java و PHP . ومن البرامج الشهيرة برامج مثل متصفحات Mozilla و FireFox سيرفرات Apache وغيرها .

ربما إن أسعفنا الوقت في دروس قادمة أن نضع مقدمة لمثل هذه العمليات في قسم التقنية العام حيث ترتبط هذه العملية ارتباطاً وثيقاً بالأسمبلي ، لست محترفاً ولا حتى مبتدئاً على أية حال ولكني سأضع بعض المعلومات التي قد تكون هامة للمبرمجين ...

[b]

تشغيل برنامج التنصيب تلقائياً بمجرد ادخال الاسطوانة - الدرس الأخير - .

سيكون هذا الموضوع الخفيف هو ختام دروسنا في هذه السلسلة إن شاء الله .

لعمل هذه الخطوة البسيطة لا يلزمنا سوى فتح مستند نصي فارغ . غير الاسم إلى : AUTORUN.INF .

والآن قم بفتح هذا الملف بواسطة المفكرة NotePad ، وأكتب هذين السطرين بداخله :

كود :
[autorun] 

open=Setup.exe

وانسخها وضعها مع البرنامج في نفس مسار الملف Setup.exe .
وهذه الطريقة تصلح مع جميع انواع الملفات وليس التطبيقات فحسب .

[b]

بهذا الدرس البسيط نكون بحمد الله قد اتممنا هذا الجزء من الدروة .

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

[/b][/b]

الدرس الثالث والثلاثون - كيفية عمل اعداد Setup للبرنامج

Mon, 15 Oct 2012 05:08:57 +0000

كاتب الموضوع : أحمد جمال

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

عمل ( تعليب ! )

Package لعمل نسخة تنصيب Setup من البرنامج .

إذا قمت ببرمجة برنامجك باستخدام فيجوال بيسك ثم قمت بتحويله إلى تطبيق Exe وحاولت تشغيله على جهاز آخر فإنك لن تستطيع ، وإذا كان الجهاز يحتوي على نسخة من ملفات تشغيل الفيجوال بيسك فإنك ستواجه مشاكل فيما إذا كنت قد استخدمت أدوات غير افتراضية ، أو على الأقل ستعاني من نقل قاعدة البيانات مع البرنامج مع الملفات الملحقة كلما قررت تغيير مكان البرنامج .

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

لن نتوسع في استخدام برنامج غير متوفر ، بل سنستخدم برنامجاً مرفقاً مع الفيجوال بيسك بصورة افتراضية ، وهو برنامج Package & Deployment Wizerdوالموجود ضمن قائمة الفيجوال بيسك تحت قسم Microsoft Visual Basic 6.0 .

والآن سنبدأ بالعمل على هذا البرنامج ، وبمجرد تشغيل البرنامج تظهر لنا شاشة تطلب منا في مقدمتها مسار البرنامج الذي نريد عمل Setup له ، وهناك نضغط على Browse ونختار البرنامج الخاص بنا . ثم نقوم بالضغط على Package .

يقوم البرنامج بفحص النسخة التي وضعناها ، فإذا لم يجد نسخة exe أو إذا وجد تعديلاً في النسخة عن ملف exe معها فإنه يطلب منك ارشاده إلى عمل Compiling من جديد أو الاحتفاظ بنسخة exe الحالية ، أو وضع مسار نسخة exe ترغب في استخدامها ، أما إذا لم تكن هناك فروق فإنه يستمر ، وينتقل للخطوة التالية .

في الخطوة التالية سوف يسألك فيما إذا كنت ترغب في استخدام خطوات سابقة ، أو الاختيار None ونستفيد من هذه الخاصية في حالة عمل Setup لنفس البرنامج أكثر من مرة ، حيث لا تحتاج في كل مرة إلى اضافة الأدوات من جديد بل استخدم خطوات سابقة وسوف يضيفها لك تلقائياً . مبدئياً سوف نختار None .

لاحقاً سوف نقوم بتحديد نوع Package الذي نرغب فيه ، وسوف نحتار النوع الأول Standerd Setup Package .
ثم يطلب منك البرنامج المكان الذي تود عمل ملف التنصيب فيه ، ضع أي مسار وقم لاحقاً بنقله كما تحب ، كما تستطيع وضعه على شبكة Network . وفيما إذا كان المسار يحتوي على مجلد غير موجود فسوف يخيرك بين انشاءه ، أو وضع مسار موجود أصلاً .

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

* ملفات قاعدة البيانات حيث نضغط زر

Add ثم نختار All Files من أسفل الشاشة ونختار ملف قاعدة البيانات .
* الخطوط غير الافتراضية ، حيث يتم تحميلها في جهاز المستخدم .
* الصور والأصوات وملفات الفيديو التي يحتاجها برنامجك .
* ملفات المساعدة والتعليمات مثل ملف Help.rtf مع برنامجنا .
* الأدوات ocx وملفات النظام dll والتي لا توجد في القائمة مثل استخدام أزرار أو قوائم خارجية .
* ملفات الريسحتري reg وغيرها .

وبعد اضافة ما نحتاجه وهو في برنامجنا فقط ملفي Help.rtf و db1.mdb نختار الانتقال للخطوة التالية Next .
في الخطوة التالية يطلب منك تحديد طبيعة الملف وهل هو ملف واحد فقط بغض النظر عن حجمه أم مقسم بحجم معين لوضعه على اقراص مرنة Disks مثلاً . وفي الخطوة اللاحقة سوف يطلب اليك تحديد اسم لهذا التنصيب يظهر كعنوان له ، وسنختار "البائع الذكي" .

والآن ننتقل للخطوة التالية ، حيث سيطلب منك تحديد شكل ظهور البرنامج في قائمة البرامج ، حيث تستطيع اضافة عنصر جديد ، أو حتى مجموعة جديدة ، ولتجربة ذلك نقوم باضافة ملف التعليمات مع ملف البرنامج من خلال الضغط على زر New Item ، ونكتب في الخانة الأولى اسم الملف وليكن "تعليمات البرنامج" ثم نختار الملف ومكان تشغيله من الخانتين اللاحقتين ... كما تستطيع تعديل خصائص أي عنصر من خلال الضغط على زر Propertires .

في الشاشة التالية يحدد البرنامج أماكن وضع المكونات المحددة على جهاز المستخدم ، فتلاحظ وضع ملفات قاعدة البيانات والتعليمات في مسار البرنامج AppPath ، والخطوط في Fonts ، ومكونات النظام في System ، وتستطيع تغييرها إذا أردت .

بالضغط على Next سوف يخبرك البرنامج بأن هناك قائمة من المكونات يمكن استخدامها كـ Shared Files وهي ملفات يمكن للبرامج الأخرى استخدامها مثل الخطوط وغيرها ، ونستفيد من ذلك التحديد أنه في حالة الحذف يتم التأكيد على حذف هذه المكونات أكثر من مرة نظراً لاحتمال وجود برامج أخرى تستخدمها . ولعلك لاحظت ذلك في خلال عمليات تشغيلك وحذفك لبرامج سابقة .

الخطوة الأخيرة هو تحديد اسم لهذه الخطوات التي قمت بها ، ومن خلال هذا الاسم تستطيع تجتنب تكرار كل هذه الخطوات مع كل مرة ، حيث تكون موجودة افتراضياً مع امكانية التعديل فيها بالطبع .

أخيراً قم بالضغط على Finish وهكذا تكون قد انتهيت من عمل ملف Setup لبرنامجك .

في نهاية درسنا عن عمل

Setup للبرنامج سأشير إلى برنامجين هما من أشهر البرامج في مجال عمل Setup لبرامج الفيجوال بيسك ولغيرها ، هما برنامجا Setup Factory وبرنامج Install Shild .

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

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

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

Files.zip (الحجم : 68.35 ك ب / التحميلات : 194)

الدرس الثاني والثلاثون - التحويل إلى exe

Mon, 15 Oct 2012 05:07:04 +0000

كاتب الموضوع : أحمد جمال

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

تحويل البرنامج إلى تطبيق

exe .

إنك كمصمم للبرنامج لن تعطي كل من يريد استخدام برنامجك نسخة من الكود التطبيقي للبرنامج ، بل إنك ستعطيه ملفاً بامتداد exe يكفل له تشغيل البرنامج بمجرد الضغط عليه من الويندوز ، وهو ما سنتعلمه خلال هذا الدرس .

من قائمة File في الفيجوال بيسك قم باختيار Make Project1.exe ، وهنا سوف تظهر لك شاشة مستكشف ويندوز لتحديد مكان الحفظ ، وأربعة ازرار ما يهمنا منهم هو الزر ( خيارات - Option ) والذي سوف نقوم بالنقر عليه الآن .

في أعلى الشاشة سوف تظهر لك ثلاثة ارقام Major ، و Minor و Rivision ، وهذه هي الأرقام التي تحدد اصدراك .
في العادة يكون الرقم الأول هو الرقم المحدد للاصدار ككل ، وبتغير الرقم تحدث تغييرات كبيرة في البرنامج مثل الفرق بين Visual Basic 5 و Visual Basic 6 ، أما الرقم الثاني فهو يكون بعد التعديلات الطفيفية حيث نجد برنامج Winzip 8 و Winzip 8.1 مع فروق بسيطة .
أما الأخير فهو أسرعهم تغييراً مثل التحدثيات وغير ذلك ، وفي برنامجنا سيكون افتراضياً 1.0.0 فإذا قمنا بتغيير كامل للبرنامج واضافات كبيرة جداً فإننا سنغير الرقم الأول ، أما إذا قمنا باضافة تعدد الشروط للبحث وتقارير جديدة فسنغير الرقم الثاني ، أما إذا تداركنا مشكلة أو اضفنا اضافة بسيطة فسوف نغير الرقم الثالث .

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

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

بعد أن تكون قد انهيت الخطوات في الدرس السابق ، سوف نقوم باختيار التبويب الثاني من شاشة Option والذي هو تحت مسمى Compile ، وسوف نرى خيارين رئسيين هما : Compile To P_Code و Compile To NativeCode .

Compile To P_Code

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

Compile To NativeCode

برغم كبر حجم هذا النوع إلا أنه أسرع بكثير من النوع الأول ، ويحتوي على بعض الخيارات مثل Optimize for ast Code والذي يحاول قد المستطاع تسريع التنفيذ حتى ولو على حساب الحجم ، على عكس اللاحق Optimize for Small Code والذي سيصغر الحجم على حساب السرعة ... أما الخيار No Optimize فلا يقوم بتحديد شيء على حساب الآخر ، كما يمكنك وضع اشارة ( صح ) أما الاختيار Favor Pentium Pro(tm) والذي يفيدك في تسريع العمليات الحسابية إذا كنت تعمل على بنتيوم بور ، أما الاختيار Create Sympolic Debug Info فإنه يعطي الملف فرصة لامكانية التنقيح لاحقاً باستخدام أي من البرامج المعدة لهذا الغرض .

Advanced Optimizations

هذا الزر الموجود في أسفل الشاشة يقوم بعرض خيارات متقدمة لعملية Optimization ، ومنها :

Assume No Aliasing

: وهو يقوم بتسريع البرنامج على افتراض عدم وجود عملية استعارة Aliasing .

Remove Array Bound Check

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

Remove Floating Point Error Checks

: حيث يزيل التأكد من أنواع الأرقام ذات العلامة العائمة وهي التي تمثل بـ 2*10^5 أو 2*10^-12.

Allow Unrounded Floating Point Operations

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

Remove Safe Pentium™ FDIV Checks

: ويقوم بازالة التدقيق في المعالجات التي تحتوي على مشكلة FDIV .

هل تريد معرفة المزيد عن مشكلة FDIV ، إن هذا الرابط ربما يكون مفيداً لك ، حيث تجد بعض الأسئلة عن الموضوع :

http://www.trnicely.net/pentbug/pentbug.html

اجمالاً في نهاية هذه الخيارات حاول عدم التعرض لها إلا إذا كنت متأكداً من أنك تحتاج إليها ، حتى لا تتسبب بأخطاء في برنامجك .

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

والآن قم بنقل البرنامج على جهاز لا يحتوي على Visual Basic وسترى أنه لا يعمل لأنه تنقصه بعض الملفات ، إلا أنه سوف يعمل في حالة وجود مكتبات فيجوال بيسك ، ولكي يعمل البرنامج على كل الأجهزة نقوم بعمل Setup للبرنامج ، وهو ما سنتعلمه في الدرس المقبل .

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

الدرس الحادي والثلاثون - تعددية المستخدمين - البحث وطباعة الفواتير - التعليمات ...

Mon, 15 Oct 2012 05:01:48 +0000

كاتب الموضوع : أحمد جمال

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

نقاط سريعة لم يتم تطبقها في البرنامج - البحث بأكثر من معامل - .

لو نظرت أخي الكريم إلى شاشة البحث تجد أننا نبحث بمعامل واحد فقط ، وهذا وإن كان جيداً لسوبر ماركت متوسط كما أسلفنا ، إلا أننا وفي حالة التعامل مع قاعدة بيانات ضخمة لمؤسسة أو منفذ بيع كبير فإننا نحتاج للبحث بأكثر من خاصية ، فمثلاً البضائع التي كميتها < 10 ومن مؤسسة معينة عند وصول المورد الخاص بها على سبيل المثال .

لعمل ذلك هناك أكثر من طريقة ، منها ما يلي :

نضع بالجزء العلوي من شاشة البحث والخاص بالتحكم في البحث أزرار ( اضافة - انهاء ) .
في هذه الشاشة توجد مربعات التحرير والسرد الموجود في الشاشة العادية .
إلا أنه عند النقر على زر اضافة فإنني اضع هذه الشروط في ثلاثة متغيرات على شكل مصفوفة a(x),b(x),c(x)
وقيمة X تبدأ بـ 0 ، ونحدثها مع كل عملية بحث بحيث تساوي x + 1
ونعرفها في قسم التصريحات Genral في الفورم :

كود :
Dim a(),b(),c

()

Dim X

وفي Form_Load :

كود :
X=0

فمثلاً يكون كود زر الاضافة :

كود :
a(x) = Combo1.Text

If a(x) = "اسم البضاعة" Then a(x) = "product.name"

'

'

'وهكذا لتحويل النص المعروض إلى اسم الحقل في قاعدة البيانات . 

b(x) = Combo2.Text

c(x) = Text1.Text

X=X+1

وهكذا حتى ينتهي المستخدم من اضافة معلوماته ، وعند الضغط على زر انهاء نضيف جملة Sql من المعلومات التي وضعها المستخدم ، وقد تكون بالشكل التالي :

كود :
SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number

"

For i = 0 To X-1

sql = sql & " and " & a(x) & b(x) & c(x

)

Next i

وهكذا يتم عرض جميع نتائج البحث المطلوبة كما حددها هو .

تستطيع لاحقاً عرض المعاملات التي بحث عنها في قائمة لمزيد من الاحترافية ، والموضوع به الكثير من النقاط التي قد تكون علامات ايجابية في برنامجك .

كتابة تعليمات البرنامج .

إننا دائماً بحاجة إلى كتابة تعليمات برامجنا لمنح الفرصة لكافة الأشخاص لاستخدام برامجنا بكفاءة كاملة وفاعلية .

نحتاج إلى أن نشرح في التعليمات كافة النقاط المتعلقة بالبرنامج ، فنشرح له مثلاً قوائم البرنامج والمهام الأساسية فيه .

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

إن قيامك بكتابة التعليمات أيضاً يعني اعطاء بعض التلميحات ، فعلى سبيل المثال في برنامجنا سيكون من الجيد تعليمه كيفية استخدام البحث لعرض البضائع التي لم تتبق منها كمية كافية .

أيضاً اشرح له بعض المشاكل التي قد تحدث وكيف يتعامل معها ، وأخيراً اضف إليه معلومات عن كيفية الاتصال بك وعرض مشاكله أو اسداء الاقتراحات .

لا تنس في حال برمجتك لبرامج معينة أن تعرض امكانيات النظام التي يمكنك التعامل معها ، ومكونات الجهاز كالحد الأدنى من سرعة المعالج وذاكرة الرام .

وملف الوورد مرفق وهو عبارة عن تعليمات الملف الخاص بنا ، وتجده مثلاً في المرفقات .

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

يتبع ...

Help.zip (الحجم : 6.2 ك ب / التحميلات : 211)

الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar

Mon, 15 Oct 2012 04:59:08 +0000

كاتب الموضوع : أحمد جمال

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

عمل شريط الأدوات .

سنقوم بعمل شريط أدوات لبرنامجنا خلال هذا الدرس .. ولهذا الغرض سوف نستخدم أداتين :

* أداة

Toolbar : لعرض الشريط والتحكم فيه .
* أداة ImageList : نستخدم هذه الأداة لعرض الصور في الشريط ، وهذه الأداة تستخدم مع أكثر من أداة أخرى لعرض الصور بداخلها .

والآن نقوم بتحديد المهام التي سنضع لها رمزا في شريط الأدوات لكي نبدأ في البحث عن أيقونات مناسبة لها ، وهي :

* عرض .
* تقرير البضائع .
* التقرير اليومي .
* شراء .
* بيع .
* بحث .
* آلة حاسبة .
* نسخ .
* كلمة السر .
* حول .
* خروج .

وبعد البحث نقوم بوضع الأيقونات في مسار البرنامج تمهيداً لاستخدامها .

يأتي الآن دور استخدام أداة Imagelist ، لذا قم بتحديدها ، واضغط على Custom من خصائصها ، واختر التبويب Image ، والآن قم بشكل متكرر بما يلي :
* اضغط Insert Picture .
* اختر الصورة المطلوبة .

وهكذا حتى تنتهي من الصور ... وهكذا انتهى دور هذه الاداة .

الآن حدد الأداة الثانية Toolbar ، واختر Custom .
ستظهر لك شاشة الخصائص ، في الشاشة الأولى نستطيع التحكم بما يلي :

Image List : منها نستطيع تحديد مصدر الصور وهي أداتنا Imagelist1 .
* Appearance و Style : تحدد المظهر من ثلاثية الأبعاد وغيرها .
* TextAligment : اتجاه النص مع الصورة .

وفي التبويب الثاني Buttons نحدد ما يلي :
نختار Inseret Button ، ومن خاصية Caption نحدد النص الذي سيظهر معها . ومن ToolTipText نختار النص الذي يظهر عند مرور الماوس .
أخيراً خاصية Style تحدد شكل الزر .
فمثلاً الافتراضي 0 زر عادي لكن 1 مثلاً يكون على شكل مربع اختيار ، أما 2 فهو زر يظهر قائمة ، و 3 هو خط Separator نضعه عادة بين كل زرين .
أيضاً خاصية Image تحدد رقم الصورة التي تظهر مع كل زر ، ونعرف الرقم من أداتنا السابقة ImageList .

بهذا الشكل نقوم بضبط تصميم شريط الأدوات ، ويتبقى علينا الكود .

أما عن برمجة شريط الأدوات فيظهر الكود في البداية بالشكل التالي :

كود :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

حيث يحتوي المتغير Button على النص الموجود في الزر المضغوط .

لذلك سوف نستخدم جملة Select بالشكل التالي :

كود :
Select Case Button

Case "خروج"

وبهذا الشكل ، ومنعاً لتكرار الأكواد في بعض الحالات مثل تغيير كلمة السر قمت بانشاء حدث Chng_pass ووضعت فيه كود تغيير كلمة السر وقمت باستدعاء الحدث مباشرة سواء من القائمة أو من شريط الأدوات .

اجمالي الكود سوف يكون بالشكل التالي :

كود :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button

Case "خروج"

Dim sure

sure = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbExclamation + vbYesNo + arabic, "تأكيد الخروج")

If sure = vbYes Then End

Case "حول"

AboutMe.Show 1

Case "كلمة السر"

Call Chng_pass

Case "نسخ"

Copy_Me

Case "آلة حاسبة"

Frm_Calc.Width = 3105

Frm_Calc.Height = 2640

Frm_Calc.Top = 0

Frm_Calc.Left = 0

Frm_Calc.Show

Case "بحث"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Find.Show

Case "بيع"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Sel_Bay.Lbl_name.Caption = "اضافة عملية بيع"

Frm_Sel_Bay.Refresh_Me

Frm_Sel_Bay.Show 1

Case "شراء"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Sel_Bay.Lbl_name.Caption = "اضافة عملية شراء"

Frm_Sel_Bay.Refresh_Me

Frm_Sel_Bay.Show 1

Case "تقرير يومي"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرض تقارير عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Unload Frm_Report4

Frm_Report4.Show

Case "تقرير بضائع"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Report1.Show

Case "عرض"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرضها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Show.Show

End Select

End Sub

*** بنفس الطريقة في شريط الحالة فإن بامكاننا استخدام الخاصية Index بدلاً من القيمة المعروضة على الشريط .

بهذا الدرس نكون قد اتممنا بحمد الله البرنامج ، ما تبقى لنا الآن هو اعداد البرنامج وتجهيزه للعمل . وحتى الدرس التالي فهذه هي آخر نسخة من البرنامج بها كل ما تم من عمليات منذ بدء البرنامج :

http://www.4shared.com/file/19199892...rog_Final.html

*** كما اعتذر فمحتويات Frm_Edit_SP لم تكن موجودة قبل هذا الملف وقد سقطت مني سهواً ، عموماً قد تم شرح محتواها في الدرس 12 من هذه الدورة ، ولكنها لم تضف واضيفت الآن .

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

الدرس التاسع والعشرون - التعامل مع أشرطة الحالة Statues Bar

Mon, 15 Oct 2012 04:57:25 +0000

كاتب الموضوع : أحمد جمال

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

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

التعامل مع شريط الحالة

سنعود الآن مجدداً إلى الفورم الرئيسي ، وسنقوم باضافة شريط الحالة StatusBar ووضع بعض المهام الرئيسية فيه .
من شريط أدوات التحكم قم باضافة StatusBar وستجده تلقائياً يظهر في أسفل الفورم ، من ضمن الخصائص داخل هذه الأداة اختر Custem واختر التبويب الثاني Panels .
تجد زرين Insert Panel و Remove Panel لاضافة وحذف أجزاء من هذا الشريط .

أيضاً تجد الخصائص التالية لكل جزء من هذا الشريط :

Text

: لتحديد النص الذي يظهر في هذا الجزء .

Alignment

: لتحديد محاذاة النص داخل هذا الجزء .

Style

: افتراضياً على text حيث يوضع النص المحدد بالخاصية Text ، لكن يمكن اختيار عرض التاريخ أو الوقت الحالي وغيرها .

Beval

: لتحديد بروز وغطس كل جزء من الشريط .

AutoSize

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

سنضيف العناصر التالية داخل شريط الحالة :

* تحديث الشريط :بعض المعلومات في هذا الشريط تحتاج إلى تحديث مثل عدد البضائع وغيرها .
سيكون هذا الجزء بارزاً على هيئة الزر .
* الوقت الحالي : وسنضبطه من خلال خاصية

Style .
* عدد البضائع .
* عدد البضائع غير المتوفرة .
وسنضبط قيمهما وقت التصميم ، وهما المعنيان بزر التحديث ، وقم بوضع قيم في خاصية Key ليمكنك ضبطها لاحقاً .
* تشغيل الآلة الحاسبة .
* تشغيل التقرير اليومي .
* وأخيراً البريد الالكتروني ( راسلنا ) .

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

كود :
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)

Select Case Left(Panel, 5)

Case "تحديث"

Refresh_St

Case "عرض ا"

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع لعرض تقارير عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Unload Frm_Report4

Frm_Report4.Show

Case "تشغيل"

Frm_Calc.Width = 3105

Frm_Calc.Height = 2640

Frm_Calc.Top = 0

Frm_Calc.Left = 0

Frm_Calc.Show

Case "لديك "

If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Find.Show

Frm_Find.Text1.Text = 0

Frm_Find.Combo1.ListIndex = 3

Frm_Find.Combo2.ListIndex = 2

Frm_Find.Command2.Value = True

Case "Hamma"

Shell "explorer mailto:Hammada2091@Hotmail.com"

End Select

End Sub

أما في أمر التحديث :

كود :
Private Sub Refresh_St()

SQL = "select count(*) as cnt from tb_product"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

StatusBar1.Panels(3).Text = "عدد البضائع " & T4!cnt & " بضاعة"

T4.Close

SQL = "select count(*) as cnt from tb_product where count=0"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

StatusBar1.Panels(4).Text = "لديك " & T4!cnt & " بضاعة غير متوفرة"

T4.Close

End Sub

*** ملاحظة : نستطيع بنفس الطريقة الاعتماد على خاصية

Index كبديل لقراءة النص المعروض بالشكل التالي :

كود :
Select Case Panel.Index

ونعيد نفس الأكواد السابقة ، وهذه هي الطريقة الأمثل لهذه العملية .

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

الدرس الثامن والعشرون -الطباعة في البرنامج .

Mon, 15 Oct 2012 04:51:46 +0000

[b]كاتب الموضوع : أحمد جمال

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

[/b]

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

تقرير البضائع .

سوف نصمم هذا التقرير ليعرض العمليات التي جرت على كل بضاعة ، وتنقسم إلى قسمين لا فرق بينهم سوى في خاصية Kind التي تحدد إما مبيعات أو مشتروات .
لذا سوف نضع الزرين في Frm_Report1 ، وسوف نرى الفرق الوحيد بينهم .

والآن لنر عناصر التصميم ، فهو مثل التقرير السابق تماماً ، ما عدا أن الحقول سوف تكون :
رقم - تاريخ - كمية - سعر .
وسوف تكون مصادرها من قاعدة البيانات :

Number - Date - Count - Price

سوف نضيف مربعات عناوين RptLabel من l1 وحتى l5 لنعرض فيهم معلومات هذه البضاعة .
هكذا نكون قد انهينا التصميم ، وبعد رسم زري الطباعة للمبيعات والمشتريات تحت اسم Command3(0) للمبيعات و Command3(1) للمشتريات ، فسوف نبدا الكود بالطريقة المعتادة بالشكل التالي :

Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Folder & "db1.mdb;" & "Jet OLEDBatabase Password=" & PassWord
Set Rs = New ADODB.Recordset

نقطة الاختلاف هي تحديد مصدر البيانات ، وحيث أن Index يمثل لنا 0 أو 1 مثل تلك التي تمثلها الخاصية Kind في قاعدة البيانات للمبيعات والمشتريات ، فإننا نستطيع كتابة الكود التالي :

Set Rs = cn.Execute(sql_now & " and kind=" & Index

)

Set DataReport2.DataSource = Rs

ولكن من هي

sql_now ؟

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

Dim sql_now

وفي الجزء الأول من كود التنفيذ سنغير الشكل ليصبح كالتالي :

If Option1.Value = True Then

sql = "select * from tb_sel_bay where product=" & num & " and kind=" & i

sql_now = "select * from tb_sel_bay where product=" & num
Else

sql = "select * from tb_sel_bay where product=" & num & " and kind=" & i & " and date between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY") & "#"
sql_now = "select * from tb_sel_bay where product=" & num & " and date between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY") & "#"

End If

وهذا ما يجعل sql_now يحتوي على الوضع الحالي دون تفريق بين المبيعات والمشتريات ، وهذا ما سنقوم بعمله في كود الطباعة .

نعود لمواصلة الكود ، وسننقل البيانات نقلاً طبيعياً كالتالي ، ثم نقوم باظهار التقرير بصورة طبيعية ، وقد شرحت معظم هذه الطرق في التقرير السابق :

DataReport2.Sections("Section2").Controls("l1").Ca ption = Lbl_name
DataReport2.Sections("Section2").Controls("l2").Ca ption = lbl_cate
DataReport2.Sections("Section2").Controls("l3").Ca ption = lbl_fact
DataReport2.Sections("Section2").Controls("l4").Ca ption = lbl_prc
DataReport2.Sections("Section2").Controls("l5").Ca ption = lbl_cnt
Select Case Index
Case 0

DataReport2.Sections("Section2").Controls("label1" ).Caption = "تقرير باجمالي مبيعات بضاعة"

Case 1

DataReport2.Sections("Section2").Controls("label1" ).Caption = "تقرير باجمالي مشتريات بضاعة"

End Select
DataReport2.Sections("Section2").Controls("label3" ).Caption = Info(2

)

DataReport2.Sections("Section2").Controls("label4" ).Caption

= "هاتف : " & Info(3)

DataReport2.Show

Set cn = Nothing
Set Rs = Nothing

الدرس السابع والعشرون - مقدمة إلى التعامل مع التقارير من خلال DataReport

Mon, 15 Oct 2012 04:40:53 +0000

[b]كاتب الموضوع : أحمد جمال

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

[/b]

ما هي الداتا ريبورت

DataReport ؟

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

link

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

لنضيف

DataRreport فإننا ومن خلال النقر بزر الماوس الايمن على الفورم سوف تظهر لنا Add ، ونختار منها DataReport .

نلاحظ أن الصفحة التي ظهرت لنا مقسمة إلى خمسة اقسام :

Report Header

: البيانات التي تظهر فقط مع أول صفحة في التقرير .

Page Header

: البيانات التي تظهر على رأس كل صفحة .

Detailes

: محتويات التقرير ، ويمكن ان تعرض على اكثر من صفحة .

Page Footer

: ما يظهر مع كل آخر صفحة .

Report Footer

: بيانات تظهر في آخر صفحة في التقرير فقط .

والآن سوف تجد على يمين الشاشة مربع أدوات تحكم Control Box غير المعتاد في شاشات فيجوال بيسك التقليدية تحت تبويب Tab باسمDataReport ، وتحتوي على الأدوات التالية - من اليسار - :

Pointer

: وهو مؤشر السهم المعروف في الفيجوال بيسك . ويستخدم للتحديد وغيره مما لا يلزمنا شرحه .

RptLabel

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

RptText

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

RptImage

: لوضع صورة في التقرير . يمكن ضبطها أيضاً وقت التصميم باستخدام LoadPicture المعروفة .

RptLine

: خط لتنسيق طباعة التقرير .

RptShape

: أيضاً مثل ال Line السابق .

RptFunction

: تستخدم لعرض بعض العمليات التي قد نحتاج إليها لاحقاً ، وسنرى أمثلة عن ذلك لاحقاً .

وللبدء في التعامل مع البيانات من خلال زر عرض التقرير .

أولاً : للتحكم في الخصائص الثابتة .

مثل بيانات Rptlable ، الألوان وغير ذلك .
قم أولاً بوصف اسم DataReport ، ثم اسم القسم ، ثم اسم الاداة بالشكل التالي :

DataReport2.Sections("Section2").Controls("l1").Ca ption = Lbl_name

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

القسم الثاني : كيفية ربط ال

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

خلال مرحلة التصميم احرص على ضبط الخواص التالية :

DataMember

و DataFields لتحديد اسم قاعدة البيانات ( كائن قاعدة البيانات أو اداتها ) ، و اسم الحقل المطلوب عرضه في هذا المكان .
ويمكن ضبطهما وقت التصميم أو التنفيذ ، ففي وقت التصميم وفي حقل DataFields يمكنك كتابة اسم الحقل مثل fullname ، في حين قم مثلاً بتنفيذ أمر تحديد مصدر البيانات وقت التنفيذ بالشكل التالي :

Set DataReport1.DataSource = Rs

وهذا ما سنقوم بتوضيحه عند البدء في العمل مع الداتا ريبورت في برنامجنا .

القسم الثالث : كيفية استخدام

RptLable لعرض بعض العمليات .

يتم ذلك بوضع القيمة المناسبة في خاصية Caption لهذه الأداة ، فمثلاً لو قمنا بكتابة %D فإن ذلك يعطينا تاريخ اليوم ، %T تعطينا الوقت ، %P تعطينا عدد الصفحات الاجمالي ، أما %p فتعطينا رقم الصفحة الحالية .

القسم الرابع : كيفية استخدام

RptFunction

من خلال الخاصية FucntionType نختار طبيعة العملية التي نود القيام بها ، وذلك بعض ضبط خصائص قاعدة البيانات الخاصة بها كما اسلفنا في RptText ، ولن نستخدم هذه الاداة في برنامجنا .

الدرس السادس والعشرون - التقارير اليومية ، والتقارير بين تاريخين

Mon, 15 Oct 2012 04:38:21 +0000

كاتب الموضوع : أحمد جمال

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

التقارير اليومية .

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

ما نحتاج إليه في هذه الشاشة هو أداة

MaskEdBox1 للتاريخ ، والذي سيكون افتراضياً تاريخ اليوم .

نحتاج أيضاً إلى زر للتنفيذ ، وإلى جدولين لعرض المبيعات والمشتريات ، وزر لاغلاق الفورم .
أيضاً نحتاج إلى خمسة

Labels على النحو التالي :

اليوم من الأسبوع : عدد عمليات المبيعات - عدد عمليات المشتريات - اجمالي سعر المبيعات - اجمالي سعر المشتريات .

وأخيراً نضبط خصائص الفورم ، فنجعل MDIChild=True ونزيل عناصر التحكم من أعلى الفورم .
والآن نبدا في كتابة أكواد هذا الفورم .

فأولاً نضبط احداثيات الفورم كما اعتدنا مع كل فورم من هذا النوع :

كود :
[align=right]Me.Width = 4800

Me.Height = 4905

Me.Left = ((MDIForm1.Width - Me.Width) / 2)

Me.Top = ((MDIForm1.Height - Me.Height) / 2) - 40

Me.Show[/align]

ثم نضبط تاريخ اليوم ونضعه في الأداة :

كود :
[align=right]Dim Myday, Mymonth, Myyear

Myday = Day(Now)

If Len(Myday) = 1 Then Myday = 0 & Myday

Mymonth = Month(Now)

If Len(Mymonth) = 1 Then Mymonth = 0 & Mymonth

Myyear = Year(Now)

MaskEdBox1.Text = Myday & "/" & Mymonth & "/" & Myyear[/align]

وأخيراً نقوم بالضغط على الزر الخاص بالتنفيذ ليكون افتراضياً تاريخ اليوم :

كود :
[align=right]Command2.Value = True[/align]

والآن سنقوم بعمل دالة Function نقوم بتمرير رقم اليوم لها وتعطينا اسم اليوم ، ونستخدم في ذلك الدالة WeekDay ، ونبدأ أولاً بتكوين الدالة :

كود :
[align=right]Private Function dayname(x As Date) As String

End Function[/align]

والآن أصبح لدينا التاريخ في متغير x وسنستخدم معه الدالة WeekDay والتي نمرر لها بارميترين ( التاريخ ، ويوم بداية الأسبوع ) وتعيد رقم اليوم من الأسبوع :

كود :
[align=right]x = Weekday(x, vbSaturday)[/align]

والآن سنحول هذا الرقم إلى نص بالشكل التالي :

كود :
[align=right]Select Case x

Case 1

dayname = "السبت"

Case 2

dayname = "الأحد"

Case 3

dayname = "الاثنين"

Case 4

dayname = "الثلاثاء"

Case 5

dayname = "الأربعاء"

Case 6

dayname = "الخميس"

Case 7

daynmae = "الجمعة"

End Select[/align]

والآن نبدأ في تكوين زر

Command2 والخاص بـ ( نفذ ) .

نعرف أولاً أربع متغيرات لنخزن فيها معلومات ال Labels وذلك في قسم التصاريح Genral :

كود :
[align=right]Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer[/align]

وفي بداية أوامر هذا الزر نقوم بتصفيرها كلها :

كود :
[align=right]a1 = 0: a2 = 0: a3 = 0: a4 = 0[/align]

ونستدعي الدالة التي قمنا بعملها ونضعها في مكانها المخصص :

كود :
[align=right]x = dayname(MaskEdBox1.Text)

Lbl_day.Caption = "اليوم من الأسبوع : " & x[/align]

بعد ذلك نقوم بالاستعلام عن عمليات اليوم ، البيع ثم الشراء ، ونضع القيم المستقاه بواسطة دوال الاستعلام في المتغيرات التي قمنا بتعريفها :

كود :
[align=right]SQL = "select sum(price) as prc,count(*) as cnt from tb_sel_bay where kind=0 and date=#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "#"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

If T4!cnt <> 0 Then

a1 = T4!cnt

a2 = T4!prc

End If

T4.Close

SQL = "select sum(price) as prc,count(*) as cnt from tb_sel_bay where kind=1 and date=#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "#"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

If T4!cnt <> 0 Then

a3 = T4!cnt

a4 = T4!prc

End If

T4.Close

lbl_cnt1.Caption = "عدد مبيعات اليوم : " & a1

lbl_prc1.Caption = "اجمالي سعر المبيعات : " & a2

lbl_cnt2.Caption = "عدد مشتريات اليوم : " & a3

lbl_prc2.Caption = "اجمالي سعر المشتريات : " & a4[/align]

والآن نقوم ببناء الجدولين ، ولاحظ أنه يمكننا الاستفادة من خاصية

Index كما في الشاشات السابقة :

كود :
[align=right]Flex1

Flex2[/align]

واللذان قمنا بعملهما سابقاً بالشكل التالي :

كود :
[align=right]Private Sub Flex1()

MSFlexGrid1.Clear

MSFlexGrid1.Cols = 5

MSFlexGrid1.Rows = a1 + 1

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "ت"

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "رقم"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = "البضاعة"

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = "الكمية"

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = "السعر"

MSFlexGrid1.ColAlignment(0) = 5

MSFlexGrid1.ColAlignment(1) = 5

MSFlexGrid1.ColAlignment(2) = 5

MSFlexGrid1.ColAlignment(3) = 5

MSFlexGrid1.ColAlignment(4) = 5

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.ColWidth(1) = 500

MSFlexGrid1.ColWidth(2) = 1500

MSFlexGrid1.ColWidth(3) = 1200

End Sub

Private Sub Flex2()

MSFlexGrid2.Clear

MSFlexGrid2.Cols = 5

MSFlexGrid2.Rows = a3 + 1

MSFlexGrid2.Row = 0

MSFlexGrid2.Col = 0

MSFlexGrid2.Text = "ت"

MSFlexGrid2.Col = 1

MSFlexGrid2.Text = "رقم"

MSFlexGrid2.Col = 2

MSFlexGrid2.Text = "البضاعة"

MSFlexGrid2.Col = 3

MSFlexGrid2.Text = "الكمية"

MSFlexGrid2.Col = 4

MSFlexGrid2.Text = "السعر"

MSFlexGrid2.ColAlignment(0) = 5

MSFlexGrid2.ColAlignment(1) = 5

MSFlexGrid2.ColAlignment(2) = 5

MSFlexGrid2.ColAlignment(3) = 5

MSFlexGrid2.ColAlignment(4) = 5

MSFlexGrid2.ColWidth(0) = 500

MSFlexGrid2.ColWidth(1) = 500

MSFlexGrid2.ColWidth(2) = 1500

MSFlexGrid2.ColWidth(3) = 1200

End Sub[/align]

ثم نقوم بالاستعلام عن البيانات المطلوبة ، ووضعها في اماكنها المناسبة عبر استدعاء الحدثين

Put_Data1 و Put_Data2 :

كود :
[align=right]SQL = "select * from tb_sel_bay where kind=0 and date=#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "#"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

Put_Data1

T4.Close

SQL = "select * from tb_sel_bay where kind=1 and date=#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "#"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

Put_Data2

T4.Close[/align]

في حدث Put_Data سنقوم بوضع البيانات في الجدول كما هي العادة ، ولكن المخزن لدينا في الجدول هو رقم البضاعة وليس اسمها ، لذا سنقوم بالاستعلام عنه أولاً ، وسنضطر لتعرف T6 في الموديول :

كود :
[align=right]Public T6 As Recordset[/align]

بهذا يكون شكل الأمر

كود :
[align=right]Private Sub Put_Data1()

n = 0

If T4.RecordCount <> 0 Then

T4.MoveLast

T4.MoveFirst

End If

With MSFlexGrid1

For i = 0 To T4.RecordCount - 1

n = n + 1

.Row = n

.Col = 0

.Text = n

.Col = 1

.Text = T4!Number

.Col = 2

SQL = "select name from tb_product where number=" & T4!product

Set T6 = D1.OpenRecordset(SQL, dbOpenDynaset)

.Text = T6!Name

T6.Close

.Col = 3

.Text = T4!Count

.Col = 4

.Text = T4!price

T4.MoveNext

Next i

End With

End Sub[/align]

وكذلك الثاني تماماً .

يتبع ..

الدرس الخامس والعشرون - الإحصائيات والرسوم البيانية

Mon, 15 Oct 2012 04:37:24 +0000

كاتب الموضوع : أحمد جمال

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

الاحصائيات والرسوم البيانية .

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

وهكذا ، وبما أن برنامجنا لا يعدو أن يكون برنامجاً لسوبر ماركت فقط ، فلن يتوقع المستخدم الكثير من المخططات أو الاحصائيات ، ولكن لتطبيق المفهوم سوف نتعلم سوية كيفية عمل مخطط بياني لنسب مبيعات ومشتريات البضاعة من ضمن المشتريات ، وسنضيفها ضمن شاشة تقارير البضائع Frm_Report1 .

وسنبدأ سوية في طريقة عامة لعمل المخططات البيانية .

قم بالنقر على

Ctrl+T لعرض الأدوات ، ومنها قم باختيار الأداة :

Microsoft Chart Control 6.0(OLEDB

)

والآن قم برسمها على الفورم كما يحلو لك ، وسنحتاج إلى ضبط بعض الخصائص .
خاصية Charttype : أحد أهم خصائص الأداة ، وذلك أنها تحدد شكل المخطط البياني ( ثلاثي أو ثنائي الأبعاد - دائري أو اعتيادي أو X,Y ... ) وهكذا .
وسنختار VtchChartType2dPie

وآخر ثلاثة أحرف من الأسم للنوع وقبلها حرفان لتحديد ( ثلاثي أم ثنائي الأبعاد ) .

خاصيتا Row و Column وكل ما يتعلق بهما .

تحدد خاصية Row عدد الصفوف ، أي عدد السجلات أو التقارير المطلوبة ، فمثلاً لو كنا نريد أن نعرض في نفس الوقت أكثر من بضاعة للمقارنة فإننا نضبط خاصية RowCount بعدد البضائع ، أم الآن فسنضبطها بحيث تساوي 1 .

أما Column فتحدد عدد النقاط أو البيانات ، وفي مثالنا هذا لدينا أربع بيانات ( اجمالي المبيعات - اجمالي المشتريات - اجمالي مبيعات البضاعة - اجمالي مشتريات البضاعة ) . لذا نضبط ColumnCount=4 .

وسنضبط باقي الخصائص وقت التصميم .

والآن نحتاج إلى أربع قيم نخزنها في مصفوفة Total(3) بالترتيب ، وسنضع هذه الأوامر في آخر زر التنفيذ .
فالأولى هو العدد الكلي للمبيعات ، لذا ننفذ جملة استعلام على المدة المحددة ونخزن البيانات في العنصر الأول للمصفوفة :
وسنستعلم عن مجموع العمود الذي يحقق الشرط ، وعدد السجلات فيه لمنع حدوث خطأ NULL .

كود :
If Option1.Value = True Then

SQL = "select sum(count) as sum1,count(product) as cnt from tb_sel_bay where kind=0"

Else

SQL = "select sum(count) as sum1,count(product) as cnt from tb_sel_bay where kind=0 " & " and date between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY") & "#"

End If

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

If T4!cnt <> 0 Then

Total(0) = T4!sum1

End If

T4.Close

لاحظ أننا تأكدنا من عدد السجلات مسبقاً لتلافي خطأ Null ، جرب ازالته ولاحظ الفرق .

والثاني العدد الكلي للمشتريات ، وهو مثل السابق مع اختلاف Kind في جملة الاستعلام :

كود :
If Option1.Value = True Then

SQL = "select sum(count) as sum1,count(product) as cnt from tb_sel_bay where kind=1"

Else

SQL = "select sum(count) as sum1,count(product) as cnt from tb_sel_bay where kind=1 " & " and date between#" & Format(MaskEdBox1.Text, "MM/DD/YYYY") & "# and #" & Format(MaskEdBox2.Text, "MM/DD/YYYY") & "#"

End If

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

If T4!cnt <> 0 Then

Total(1) = T4!sum1

End If

T4.Close

أما البيان الثالث فهو مجموع مبيعات البضاعة ، ونستطيع الحصول عليها من الجدول دون أن نضطر إلى جملة استعلام أخرى :

كود :
MSFlexGrid(0).Col = 3

For i = 1 To MSFlexGrid(0).Rows - 1

MSFlexGrid(0).Row = i

Total(2) = Total(2) + MSFlexGrid(0).Text

Next i

ونفس الأمر بالنسبة لمشتريات البضاعة :

كود :
MSFlexGrid(1).Col = 3

For i = 1 To MSFlexGrid(1).Rows - 1

MSFlexGrid(1).Row = i

Total(3) = Total(3) + MSFlexGrid(1).Text

Next i

والآن جاء دور وضع البيانات ، وبما أننا نريد الاستفادة من خاصية Index سنضيف النصوص التوضيحية في مصفوفة هي الأخرى :

كود :
Dim str(3) As String

str(0) = "اجمالي مبيعات"

str(1) = "اجمالي مشتريات"

str(2) = "اجمالي مبيعات بضاعة"

str(3) = "اجمالي مشتريات بضاعة"

ونضبط خصائص المخطط كما أسلفنا :

كود :
MSChart2.ColumnCount = 4

MSChart2.RowCount = 1

ونبدأ في وضع البيانات بحلقة تكرار ، مع مراعاة أننا نضع البيان بواسطة الخاصية Date وننتقل للعمود من خلال الخاصية Column ونضع النص التوضيحي من خلال الخاصية ColumnLabel :

كود :
For i = 1 To 4

MSChart2.Column = i

MSChart2.Data = Total(i - 1)

MSChart2.ColumnLabel = str(i - 1)

Next i

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

prog21.rar (الحجم : 187.87 ك ب / التحميلات : 255)

الدرس الرابع والعشرون - تقارير المصانع والأنواع

Mon, 15 Oct 2012 04:36:02 +0000

كاتب الموضوع : أحمد جمال

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

تقارير المصانع والأنواع :

هناك الكثير مما يمكن أن تقدمه كتقرير لنوع أو مصنع ، لكننا لن نتوسع كثيراً بل كل ما سوف نعرضه هو منتجات المصنع والنوع .
كل ما نحتاج إليه لتصميم هذا الفورم هو :

أداة مربع تحرير وسرد Combo ، وثلاث مربعات عناوين Label لعرض اسم النوع أو المصنع ، عدد البضائع تحته ، وحالته ( محذوف - غير محذوف ) .

نحتاج أيضاً في كلا الفورمين إلى جدول MSFlexGrid لنعرض فيه البضائع تحت هذا المصنع أو ذاك النوع ، وأخيراً زر أمر نكتب فيها Unload Me وذلك للاغلاق .

ولنضبط خاصية MDIChild لكلا الفورمين بحيث تصبح True ، ونسميهما Frm_Report2 و Frm_Report3 على التوالي .

والآن سنبدا في كتابة الأكواد ، ونبدأ بحدث Form_Load لكلا الفورمين .
في هذا الحدث سوف نضبط احداثيات الموقع كما تعودنا مع كل فورم ، ومن ثم نعبئ القائمة بالموردين أو بالمصانع :

كود :
[align=right]Me.Width = 4800

Me.Height = 3600

Me.Left = ((MDIForm1.Width - Me.Width) / 2)

Me.Top = ((MDIForm1.Height - Me.Height) / 2) - 40

Me.Show

Combo1.Clear

T2.MoveFirst

For i = 0 To T2.RecordCount - 1

Combo1.AddItem T2!Name

T2.MoveNext

Next i

Combo1.ListIndex = 0[/align]

مع ملاحظة أنه في الفورم الثالث الخاص بالمصانع سوف نستخدم T3 بدلاً من T2 .
والآن سنقوم بعمل حدث Flex خاص بتكوين الجدول ، والفرق بين الفورمين في هذا التكوين أننا في الأول نضع معلومة ( مصنع البضاعة ) دون النوع ، والعكس في الفورم الثاني :

كود :
[align=right]Private Sub Flex()

MSFlexGrid1.Clear

MSFlexGrid1.Cols = 6

MSFlexGrid1.Rows = T4.RecordCount + 1

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "ت"

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "رقم"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = " اسم البضاعة"

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = "المصنع"

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = "السعر"

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = "العدد"

MSFlexGrid1.ColAlignment(0) = 5

MSFlexGrid1.ColAlignment(1) = 5

MSFlexGrid1.ColAlignment(2) = 3

MSFlexGrid1.ColAlignment(3) = 5

MSFlexGrid1.ColAlignment(4) = 5

MSFlexGrid1.ColAlignment(5) = 5

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.ColWidth(1) = 500

MSFlexGrid1.ColWidth(2) = 1500

MSFlexGrid1.ColWidth(3) = 1500

End Sub[/align]

وأخيراً نقوم بعمل الحدث Combo1_Click والذي يطلق عند اختيار المستخدم لنوع أو مصنع ما .
في البداية نقوم بعمل جملة الاستعلام والتي ستكون في حالة المصانع :

كود :
[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and tb_factory.name='" & Combo1.Text & "'"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset[/align]

)

وسنغير شرط البحث من Tb_Factory.name إلى Tb_Category في حالة الأنواع .

والآن سنختبر شرط وجود سجلات ، فإن لم يكن هناك أي بضائع تحت هذا النوع-المصنع :

كود :
[align=right]If T4.RecordCount = 0 Then

Lbl_name = "اسم المصنع : " & Combo1.Text

lbl_cnt = "عدد بضائع المصنع : " & T4.RecordCount

lbl_sta = "الحالة : عادي"

Flex

Exit Sub

End If[/align]

بالرغم من عدم وجود سجلات سنضبط بعض الخصائص ، كما سنستدعي الحدث Flex والذي يكون الجدول دون أي صفوف .
لاحقاً لن يكتمل التنفيذ إلا في حالة وجود سجلات ، حيث نقوم بالانتقال للسجل الأخير ثم إلى الأول وذلك للتحديث :

كود :
[align=right]T4.MoveLast

T4.MoveFirst[/align]

ثم نضبط مجموعة من المعلومات المتعلقة بهذا النوع ... لاحظ الأمر التالي :

كود :
[align=right]Lbl_name = "اسم المصنع : " & Combo1.Text

lbl_cnt = "عدد بضائع المصنع : " & T4.RecordCount

If T4.Fields("tb_category.view") = False Then

lbl_sta = "الحالة : محذوف"

Else

lbl_sta = "الحالة : عادي"

End If

Flex[/align]

والآن ... لماذا في حالة وجود بضائع تحت النوع أو المصنع تأكدنا من الحالة ( محذوف أم غير ذلك ) ، أما في حالة عدم وجود بضائع فإننا نضع مباشرة ( عادي ) ؟؟؟ ذلك انه لو كان محذوف ولا توجد تحته بضائع لكان قد تم حذفه سابقاً .

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

كود :
[align=right]Frm_Wait.Show

Frm_Wait.ProgressBar1.Max = T4.RecordCount

Frm_Wait.ProgressBar1.Min = 0

Frm_Wait.ProgressBar1.Value = 0[/align]

ومن ثم نبدأ في وضع البيانات في أماكنها الصحيحة :

كود :
[align=right]For i = 0 To T4.RecordCount - 1

Frm_Wait.ProgressBar1.Value = Frm_Wait.ProgressBar1.Value + 1

DoEvents

MSFlexGrid1.Row = i + 1

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = T4.Fields("tb_product.Number")

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = T4.Fields("tb_product.name")

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = T4.Fields("tb_category.name")

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = T4!price

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = T4.Fields("Count")

T4.MoveNext

Next i[/align]

لاحقاً نقوم بعمل Sort ترتيب للجدول مع اعادة الترتيب كما سبق :

كود :
[align=right]MSFlexGrid1.Col = 2

MSFlexGrid1.Sort = 7

MSFlexGrid1.Col = 0

For i = 0 To T4.RecordCount - 1

MSFlexGrid1.Row = i + 1

MSFlexGrid1.Text = i + 1

Next i[/align]

أخيراً نغلق قاعدة البيانات ، ونخفي فورم الانتظار :

كود :
[align=right]T4.Close

Unload Frm_Wait[/align]

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

prog20.zip (الحجم : 191.76 ك ب / التحميلات : 155)

الدرس الثالث والعشرون - تقارير البضائع

Mon, 15 Oct 2012 04:30:48 +0000

كاتب الموضوع : أحمد جمال

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

تقارير البضائع .

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

وسنبدأ في البداية بتصميم الفورم .
فعن محتويات الفورم فنحتاج إلى قائمة نعرض فيها البضائع ، وأداتي اختيار لتحديد نوع التقرير ( شامل أو بين تاريخين ) ، وبناء عليه سنضع اثنين من أداة MaskedEditBox .
سنضع أيضاً زر ( تنفيذ ) لتنفيذ التقرير ، وزر اغلاق للفورم ، كما سنضع أداتي MsFlexGeid ولكن لهما نفس الاسم ، ولها Index يساوي 0 أو 1 . وتختص بعرض عمليات البيع والشراء لهذه البضاعة .
ونضع أيضاً خمس مربعات عناوين Labels لنضع فيها معلومات حول البضاعة المختارة في التقرير ( الاسم - المصنع - النوع - الكمية - السعر ) .

فيما سؤجل عمليات الاحصائيات إلى درس لاحق إن شاء الله .

والآن انتهى التصميم ، ولنبدء في كتابة الكود .

في الفورم الرئيسي لن يكون هناك سوى أمر التاكد من وجود بضائع ، ومن ثم معرفة Index القائمة وبناء عليه نظهر الفورم وذلك بالشكل التالي :

كود :
[align=right]If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Select Case Index

Case 0

Frm_Report1.Show

End Select[/align]

أما في حدث

Form_Load للفورم الخاص بالتقرير فسنضبط أولاً خصائص الارتفاع :

كود :
[align=right]Me.Width = 4800

Me.Height = 6615

Me.Left = ((MDIForm1.Width - Me.Width) / 2)

Me.Top = ((MDIForm1.Height - Me.Height) / 2) - 40

Me.Show[/align]

ثم نحدد تاريخ اليوم لنضعه في مربعي

MaskEditBox :

كود :
[align=right]Dim Myday, Mymonth, Myyear

Myday = Day(Now)

If Len(Myday) = 1 Then Myday = 0 & Myday

Mymonth = Month(Now)

If Len(Mymonth) = 1 Then Mymonth = 0 & Mymonth

Myyear = Year(Now)

MaskEdBox1.Text = Myday & "/" & Mymonth & "/" & Myyear

MaskEdBox2.Text = MaskEdBox1.Text[/align]

ومن ثم نملئ القائمة بالبضائع الحالية :

كود :
[align=right]Combo1.Clear

T1.MoveFirst

For i = 0 To T1.RecordCount - 1

Combo1.AddItem T1!Name

T1.MoveNext

Next i[/align]

وأخيراً نجعل

Option1 محدداً - لم نضبطه وقت التصميم لغرض ما سنشرحه لاحقاً - ، ومن ثم نحدد العنصر الأول في القائمة ، ونطلق زر التنفيذ ، حيث أن تقريراً عن البضاعة الأولى سيكون هو الموجود بصورة افتراضية :

كود :
[align=right]Option1.Value = True

Combo1.ListIndex = 0

Command2.Value = True[/align]

والآن لنر لماذا ضبطنا Option1 وقت التصميم ، ذلك أننا نريد في حالة اراد المستخدم تقريراً شاملاً أن لا نعطيه التحكم في مربعي التاريخ ، ونقوم بذلك عبر خاصية Click لأزرار الاختيار بالشكل التالي :

كود :
[align=right]Private Sub Option1_Click()

MaskEdBox1.Enabled = False

MaskEdBox2.Enabled = False

End Sub[/align]

كود :
[align=right]Private Sub Option2_Click()

MaskEdBox1.Enabled = True

MaskEdBox2.Enabled = True

End Sub[/align]

*** ويمكن ايضاً الاستعاضة عن OptionButton باستخدام CheckBox .

والآن سنضيف متغيران لمعرفة عدد سجلات البيع والشراء ، ولأننا نتعامل مع مصفوفة فسنكتب الأمر التالي في قسم التصاريح Genral :

Dim MyCnt(1

)

مما يعني أن لدينا متغيرات MyCnt(0) و MyCnt(1)

والآن سنبرمج أوامر Command2 وهو زر تنفيذ التقرير .
في البداية سنقوم بعمل استعلام عن اسم هذه البضاعة لمعرفة المعلومات المطلوبة عنها ووضعها في أماكنها :

كود :
[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number and tb_product.name='" & Combo1.Text & "'"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset)

Lbl_name = "اسم البضاعة : " & T4.Fields("tb_product.name")

lbl_cate = "النوع : " & T4.Fields("tb_category.name")

lbl_fact = "المصنع : " & T4.Fields("tb_factory.name")

lbl_prc = "السعر : " & T4.Fields("price")

lbl_cnt = "الكمية الموجودة : " & T4.Fields("count")

Dim num, i

num = T4.Fields("tb_product.Number")

T4.Close[/align]

وقد سبق شرح جملة الاستعلام أكثر من مرة .

يتبع ...

الدرس الثاني والعشرون - البحث عن البضائع

Mon, 15 Oct 2012 04:28:14 +0000

كاتب الموضوع : أحمد جمال

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

البحث عن البضائع .

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

نحتاج في هذه الشاشة إلى زر للبحث ، زر لاغلاق الشاشة ، أداة جدول لعرض النتائج ، مربع نص لكتابة قيمة البحث .

اضافة لذلك نحتاج إلى

Combo1 لنحدد هل نريد البحث في الاسم ، المصنع ، الكمية ... الخ ، وأيضاً Combo2 لنعرف شرط البحث - في الحالة الرقمية - أكبر من ، أصغر من ، = .

سنجعل هذا الفورم MDICHild ، وفي أمر اظهاره في الفورم الرئيسي سنكتب :

كود :
[align=right]If T1.RecordCount = 0 Then

MsgBox "لا توجد أي بضائع للبحث عنها ، لاضافة بضاعة جديدة اختر اضافة - اضافة بضاعة", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Frm_Find.Show[/align]

والآن سننشأ حدث Create_Flex والذي ستكون مهمته تكوين الجدول ، وهو نفس الكود الذي قمنا بكتابته في Frm_Show دون أي تغيير ، اللهم ما عدا أن السطر التالي :

كود :
[align=right]MSFlexGrid1.Rows = T4.RecordCount + 1[/align]

سيتحول إلى :

كود :
[align=right]On Error Resume Next

MSFlexGrid1.Rows = T4.RecordCount + 1

If Err = 3420 Then

MSFlexGrid1.Rows = 2

End If[/align]

وسبب هذا أننا سنستدعي الأمر في حالة كون القاعدة مغلقة مما يسبب الخطأ رقم 3420 ، وهذا الكود لعدم اظهار رسالة خطأ .
وبهذا يصبح الكود الكامل :

كود :
[align=right]Sub Create_Flex()

MSFlexGrid1.Clear

MSFlexGrid1.Cols = 8

On Error Resume Next

MSFlexGrid1.Rows = T4.RecordCount + 1

If Err = 3420 Then

MSFlexGrid1.Rows = 2

End If

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = "ت"

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = "رقم"

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = " اسم البضاعة"

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = "النوع"

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = "المصنع"

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = "السعر"

MSFlexGrid1.Col = 6

MSFlexGrid1.Text = "العدد"

MSFlexGrid1.Col = 7

MSFlexGrid1.Text = "وحدة/صندوق"

MSFlexGrid1.ColAlignment(0) = 5

MSFlexGrid1.ColAlignment(1) = 5

MSFlexGrid1.ColAlignment(2) = 3

MSFlexGrid1.ColAlignment(3) = 5

MSFlexGrid1.ColAlignment(4) = 5

MSFlexGrid1.ColAlignment(5) = 5

MSFlexGrid1.ColAlignment(6) = 5

MSFlexGrid1.ColAlignment(7) = 5

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.ColWidth(1) = 500

MSFlexGrid1.ColWidth(2) = 1500

MSFlexGrid1.ColWidth(3) = 1500

MSFlexGrid1.ColWidth(4) = 1500

End Sub[/align]

من أجل هذا سنكتب في حدث Form_Load :

كود :
[align=right]Me.Width = 5625

Me.Height = 5400

Me.Left = ((MDIForm1.Width - Me.Width) / 2)

Me.Top = ((MDIForm1.Height - Me.Height) / 2) - 40

Me.Show

Create_Flex[/align]

ومن ثم نضيف العناصر المناسبة إلى Combo1 و Combo2 :

كود :
[align=right]Combo1.AddItem "اسم البضاعة"

Combo1.AddItem "النوع"

Combo1.AddItem "المورد - المصنع"

Combo1.AddItem "الكمية"

Combo1.AddItem "السعر"

Combo2.AddItem "<"

Combo2.AddItem ">"

Combo2.AddItem "="

Combo1.ListIndex = 0[/align]

والآن لنر أمراً ما ، ففي حالة اختار المستخدم البحث عن اسم البضاعة أو المصنع أو النوع فليس ثم خيار من

Combo2 إلا (=) لأن البيانات في هذه الحالة نصية فلن نستخدم < و > .

من أجل هذا نكتب الأمر التالي في حدث Combo1_Click :

كود :
[align=right]If Combo1.ListIndex <> 3 And Combo1.ListIndex <> 4 Then

Combo2.ListIndex = 2

Combo2.Enabled = False

Else

Combo2.Enabled = True

End If[/align]

الحدث الثاني الذي سننشأه هو حدث Refresh_Me ، ولن نغير في الحدث الموجود في Frm_Show إلا نقطتين رئيسيتين :
* النقطة الأولى : سنزيل كل الأوامر التي كانت مخصصة لتعبئة القائمة بالبيانات .
* النقطة الثانية : سنغير جملة الاستعلام .

لو نتذكر أمر الاستعلام السابق :

كود :
[align=right]SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number"

Set T4 = D1.OpenRecordset(SQL, dbOpenDynaset[/align]

)

سنزيله ، ونستدعي بدلاً منه حدثاً اسمه Search تكون مهمته تكوين جملة الاستعلام ، ومن أجل ذلك يصبح كود الحدث بالشكل التالي :

كود :
[align=right]Public Sub Refresh_Me()

Call Search

Create_Flex

If T4.RecordCount = 0 Then Exit Sub

Frm_Wait.Show

Frm_Wait.ProgressBar1.Max = T1.RecordCount

Frm_Wait.ProgressBar1.Min = 0

Frm_Wait.ProgressBar1.Value = 0

T4.MoveLast

T4.MoveFirst

Create_Flex

If T4.RecordCount <> 0 Then

T4.MoveFirst

For I = 0 To T4.RecordCount - 1

Frm_Wait.ProgressBar1.Value = Frm_Wait.ProgressBar1.Value + 1

DoEvents

MSFlexGrid1.Row = I + 1

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = T4.Fields("tb_product.Number")

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = T4.Fields("tb_product.name")

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = T4.Fields("tb_category.name")

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = T4.Fields("tb_factory.name")

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = T4!price

MSFlexGrid1.Col = 6

MSFlexGrid1.Text = T4.Fields("Count")

MSFlexGrid1.Col = 7

MSFlexGrid1.Text = T4!Box_count

T4.MoveNext

Next I

MSFlexGrid1.Col = 2

MSFlexGrid1.Sort = 7

MSFlexGrid1.Col = 0

For I = 0 To T4.RecordCount - 1

MSFlexGrid1.Row = I + 1

MSFlexGrid1.Text = I + 1

Next I

End If

T4.Close

Unload Frm_Wait

End Sub[/align]

يتبع ...

الدرس الحادي والعشرون - الإستيراد والتصدير لقاعدة البيانات

Mon, 15 Oct 2012 04:26:09 +0000

كاتب الموضوع : أحمد جمال

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

الاستيراد والتصدير Import & Export :

لن نقوم بالنسخ في هذا الدرس بما يمكن أن نسميه نسخاً احتياطياً كاملاً ، بل إن ما سنقوم به هو نسخ ملف قاعدة البيانات .
وسنبدأ بعمل اجراءين Copy_Me لعمل نسخة احتياطية ، و Copy_2 لاستعادة نسخة احتياطية ، وسنكتب الأمر بالشكل التالي :

كود :
Select Case Index

Case 0

Copy_Me

Case 1

Copy_2

End Select

والآن سنضيف أداة CommonDialog والتي من ضمن اختصاصاتها المربعات الحوارية للفتح والحفظ ، ولما كان MDIForm لا يقبل اضافة أي أدوات عليه سوى Picture فإننا سنضيف واحدة ونجعل Visible=False ، ونضع عليها الأداة .
ولاضافة الأداة اضغط Ctrl+T واختر Microsoft CommonDialog Control 6.0 .

برمجة الأمر

Copy_Me :

في بداية هذا الأمر سوف نكتب عبارة تلافي الأخطاء :

كود :
On Error GoTo 11

وفي آخر الأمر :

كود :
11:

Exit Sub

وهذا يخبر البرنامج أنه في حال وجدت خطأ توجه إلى السطر 11 ، وفي السطر 11 نأمره بانهاء الاجراء .

ولكي نجعل المستخدم عندما يضغط على ( الغاء الأمر - Cancel ) يخرج فإننا نجعل الغاء الأمر خطأ بالشكل التالي :

كود :
CommonDialog1.CancelError = True

ومن ثم نضبط العنوان ، ونوع الملفات التي سيتم حفظها :

كود :
CommonDialog1.CancelError = True

CommonDialog1.DialogTitle = "اختر المكان المطلوب للحفظ"

CommonDialog1.Filter = "Access File|*.mdb|"

وأخيراً نظهر المربع الحواري للحفظ :

كود :
CommonDialog1.ShowSave

ستعيد هذه الوظيفة الاسم الكامل للمسار + الملف في الخاصية FileName فيما تعيد اسم الملف فقط في FileTitle .

سنجري الآن سلسلة من الاختبارات على اسم الملف ، فنتأكد من أنه فارغ ، وأنه ليس ثم ملف يحمل نفس الاسم في نفس المكان :

كود :
If CommonDialog1.FileTitle = "" Then Exit Sub

If Dir(CommonDialog1.FileName) <> "" Then

MsgBox "توجد ملف بنفس الإسم في المسار المحدد", vbExclamation + arabic, "نسخ واستيراد"

Exit Sub

End If

والآن تمهيداً للنسخ لابد من اغلاق قاعدة البيانات :

كود :
D1.Close

ومن ثم أمر النسخ :

كود :
FileCopy Folder & "db1.mdb", CommonDialog1.FileName

ونعيد فتح قاعدة البيانات من جديد :

كود :
Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=" & PassWord)

Set T1 = D1.OpenRecordset("Tb_Product", dbOpenTable)

Set T2 = D1.OpenRecordset("Tb_Category", dbOpenTable)

Set T3 = D1.OpenRecordset("Tb_Factory", dbOpenTable)

Set T5 = D1.OpenRecordset("Tb_Sel_Bay", dbOpenTable

)

ومن ثم رسالة باتمام العملية بنجاح :

كود :
MsgBox "تم نسخ قاعدة البيانات بنجاح إلى : " & CommonDialog1.FileName, vbInformation + arabic, "نسخ واستيراد"

وبهذا يصبح الكود الكامل لأمر

Copy_Me بالشكل التالي :

كود :
Private Sub Copy_Me()

On Error GoTo 11

CommonDialog1.CancelError = True

CommonDialog1.DialogTitle = "اختر المكان المطلوب للحفظ"

CommonDialog1.Filter = "Access File|*.mdb|"

CommonDialog1.ShowSave

If CommonDialog1.FileTitle = "" Then Exit Sub

If Dir(CommonDialog1.FileName) <> "" Then

MsgBox "توجد ملف بنفس الإسم في المسار المحدد", vbExclamation + arabic, "نسخ واستيراد"

Exit Sub

End If

D1.Close

FileCopy Folder & "db1.mdb", CommonDialog1.FileName

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=" & PassWord)

Set T1 = D1.OpenRecordset("Tb_Product", dbOpenTable)

Set T2 = D1.OpenRecordset("Tb_Category", dbOpenTable)

Set T3 = D1.OpenRecordset("Tb_Factory", dbOpenTable)

Set T5 = D1.OpenRecordset("Tb_Sel_Bay", dbOpenTable)

MsgBox "تم نسخ قاعدة البيانات بنجاح إلى : " & CommonDialog1.FileName, vbInformation + arabic, "نسخ واستيراد"

11:

Exit Sub

End Sub

يتبع ...

الدرس العشرين - اضافة آلة حاسبة للبرنامج

Mon, 15 Oct 2012 04:20:59 +0000

كاتب الموضوع : أحمد جمال

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

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

آلة حاسبة

سنتعلم سوية خلال هذا الدرس عمل آلة حاسبة بسيطة ، وسنحاول جاهدين تلافي كتابة أسطر كثيرة معتمدين في ذلك على خاصية Index للأزرار .

ولمن لا يعرف خاصية Index فهي الخاصية التي تتيح تسمية أكثر من أداة بنفس الاسم مع تغيير قيمة هذه الخاصية فقط ، أو بمعنى آخر إنها تقوم بعمل مصفوفة Array من الأدوات .

وتتيح هذه الخاصية أيضاً وضع كود مشترك لجميع هذه الأدوات .

من أجل ذلك سنبدأ في تصميم فورم صغير ، ونضبط خاصية MDIChild بحيث تصبح True ، وذلك لمكن استخدام هذا الفورم أثناء عمل البرنامج .

يحتوي هذا الفورم على ما يلي :

Command1وبـ Index من 0 إلى 10 تحتوي في خاصية Caption على الأرقام بالترتيب من 0 وحتى 9 اضافة إلى الفاصلة .

Command2

ويحتوي في خاصية Caption على +/- وهي مختصة بتغيير الاشارة .

Command3

وبـ Index من 0 إلى 3 تحتوي على العمليات التالية : + ، - ، * ، / .

Command4

ويحتوي على = .

Command5

ويحتوي على Index من 0 وحتى 2 تحتوي على الرموز التالية CE لمسح العملية الحالية ، C لافراغ الخانات من جديد ، و Off لاغلاق الآلة .

Command6

ويحتوي على Index من 0 وحتى 2 ويحتوي على MS لتخزين رقم ، MR لاسترجاع التخزين ، MC لافراغ التخزين .

Text1

وهو خانة العمليات .

Text2

وهي الخانة التي توضح الاشارة الحالية ، حاول وضعه على المربع الأول بحيث يبدو أنه بداخله .

واضبط خاصيتي

Locked لهذين المربعين بحيث تصبح True لمنع التلاعب فيهما .

والآن أضف ثلاثة متغيرات ، متغير Memory من النوع double ليحل محل الذاكرة ، ومتغير First من نفس النوع والذي سيحتوي على الرقم الأول ، There وهو متغير من النوع Boolean وهو يبين لنا إذا ما كنا لتونا قد ضغطنا على أحد العمليات أو = بحيث تمسح الخانه مع أول ضغطة لرقم .

كود :
[align=right]Dim First As Double 

Dim There As Boolean

Dim Memory As Double[/align]

الأمر الثاني هو التعامل مع الأرقام ، وكما ترى فكل ما نحتاج إليه في الأرقام والفاصلة هو أن نزيد مربع النص Text1 بمحتويات الزر المضغوط عليه .

إذن سنجل مربع النص = مربع النص اضافة إلى Caption للزر المضغوط عليه .

ولكن قبل ذلك نتأكد من أن There تحتوي على False ، وإلا فإننا نفرغ الخانة أولاً :

كود :
[align=right]If There = True Then 

There = False

Text1.Text = ""

End If

Text1.Text = Text1.Text & Command1(Index).Caption[/align]

والآن إلى جزء العمليات الحسابية ، سنستدعي أولاً دالة نسميها Calc_Me ، ومن ثم نضبط There على True ، ونضع في First الرقم الحالية ، واضافة لذلك ، نضع العلامة الحالية في Text2 .

كود :
[align=right]Call Calc_Me 

There = True 

First = Val(Text1.Text)

Text2.Text = Command3(Index).Caption[/align]

ولنر كيف سيكون شكل الاجراء Calc_Me ، والذي سنختبر قيمة Text2 وعلى أساسها سوف نقوم بعمل العملية الحسابية بين First و Text1 ونضعها في Text1 :

كود :
[align=right]Select Case Text2.Text 

Case "+"

Text1.Text = First + Val(Text1.Text)

Case "-"

Text1.Text = First - Val(Text1.Text)

Case "*"

Text1.Text = First * Val(Text1.Text)

Case "/"

Text1.Text = First / Val(Text1.Text)

End Select[/align]

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

كود :
[align=right]On Error Resume Next [/align]

وفي آخر الكود نضع ماذا يحدث لو تم اكتشاف خطأ ، حيث نظهر رسالة بهذا الخطأ ، وتخزن كل معلومات الخطأ في الكائن Err :

كود :
[align=right]If Err Then 

MsgBox Err.Description, vbCritical, "[/align]

كود :
[align=right]خطأ[FONT=Times New Roman] " & Err

Err.Clear

End If[/FONT][/align]

[FONT=Times New Roman]

[/FONT]

لنعد مرة أخرى إلى أمر = ، ولو لاحظنا أننا سنستدعي الاجراء Calc_Me ، ومن ثم نفرغ خانة العملية Text2 ونضع There=True .

كود :
[align=right]Call Calc_Me 

There = True 

Text2.Text = ""[/align]

والآن أوامر Command5 والتي تحتوي على C و CE و Off .

كود :
[align=right]Select Case Index 

Case 0

Text1.Text = ""

Text2.Text = ""

Case 1

Text1.Text = ""

Case 2

Unload Me

End Select[/align]

وأخيراً أوامر MS و MR و MC :

كود :
[align=right]Select Case Index 

Case 0

Memory = Val(Text1.Text)

Case 1

Text1.Text = Memory

There = False

Case 2

Memory = 0

End Select[/align]

ويمكنك جلياً أن تلاحظ كم من الأكواد وفرت علينا بفضل الله خاصية Index واستدعاء الاجراء Calc_Me بدلاً من كتابته مع كل حدث .

والآن ، نرى كود اظهار هذا الفورم ، وسنظهره في الطرف الأعلى والأيسر للفورم .

كود :
[align=right]Case 7 

Frm_Calc.Width = 3105

Frm_Calc.Height = 2640

Frm_Calc.Top = 0 ' MDIForm1.Height - Frm_Calc.Height

Frm_Calc.Left = 0

Frm_Calc.Show[/align]

يتبع

...