منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كما هو الحال مع الشاشة الافتتاحية ، فإن الفيجوال بيسك يوفر لنا شاشة قياسية لعملية تسجيل الدخول ... تستطيع تجربتها من خلال اختيار New ومن ثم Log in Form .
ولكننا سوف نصمم يدوياً شاشة تسجيل الدخول .

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

والآن لنضع سوية أوامر الدخول :

وذلك باستخدام الخاصيتين SelLength و SelStart اضافة للدالة Len .
تحدد الخاصية SetStart بداية التحديد ، و SelLength نهاية التحديد والذي نبغي أن يكون طول النص الموجود Len وذلك بالشكل التالي :



ونفس الأمر بالنسبة لكلمة المرور .

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

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

لذلك سوف نضيف متغير ما وليكن اسمه My_Count في قسم التصريحات Genral ونضع قيمته في حدث Form_Load بحيث يصبح 0 .

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

بذلك يصبح كود تسجيل الدخول بالشكل التالي :





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

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

بالنسبة للمهمة الأولى فسيكون الأمر سهلاً جداً ... كل ما عليك هو كتابة الأمر التالي في Start :

= "برنامج البائع الذكي - " & Info(2)


أما الجزء الثاني فهو سهل إن شاء الله ، ولكن ثم مشكلة متعلقة ب MDIForm .
لو لاحظت أنه لا يمكن وضع أي أدوات على الفورم مثل Lable وغيره مما نريد أن تظهر فيها معلومات المحل ، ولا يمكن عرض إلا أداة مثل PictureBox ، ولو قمنا بوضعه على كامل الشاشة فإن جميع الشاشات الأبناء للشاشة الرئيسية سوف تظهر أسفل منها ، وبهذا لا يمكننا رؤيتها ، لكننا سوف نتحايل على ذلك بأن ننشأ فورماً خاصاً Frm_Info ونعرضه بصورة دائمة في منتصف الشاشة .

سنبدأ فوراً بتصميم هذا الفورم ، تأكد من أنك تضع Label1 لاسم المحل ، Label2 لرقم الهاتف ، Label3 لعرض المعلومات الأخرى .
صمم الشكل العام كما يحلو لك .
وتذكر أن خاصية BorderStyle لهذا الفورم لا بد أن تكون 0 وبنفس اللون ، حتى لا يظهر مختلفاً عن خلفية الشاشة الرئيسية .

أيضاً لا تنس أن تضع خاصية MDIChild له True .

الآن وفي دالة Start سوف نحدث محتويات هذا الفورم اضافة إلى اظهاره :




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

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