برمجة وتصميم الفورم الرئيسي لمشروع السوبر ماركت

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

اذن نقوم باضافة فورم ونسميه mainpage  طيب بعد ما أضفنا الفورم لازم نضبط خصائص هذه الفورم 

نذهب إلى الخصائص ونختار خيار lsmdiContainer ونجعله True 

ومن قائمه project نختار mr_vbs properties ومن خيار Startup from نختار فورم mainpage… . 

من صندوق الادوات نضيف اداة menuStrip ثم نعمل قوائم كما ياتي : 

 الموظفين وتضم موظف جديد  , الموردين وتضم مورد جديد , العملاء وتضم عميل جديد . 

الاصناف وتضم التالي : صنف جديد , مجموعة جديده  شركة جديدة , مكان او رف جديد .

• كما في الصور  التالية  يصبح الفورم . 

صورة رقم 2 قائمه الاصناف ltems

صورة رقم 3 قائمه العملاء customers

صورة رقم 4 القوائم التي قمنا بتصميمها

 الان نقوم ببرمجة هذه القوائم بحيث تاخذ كل قائمه الفورم الذي يناسبها مثلا قائمه الموظفين تاخذ فورم الموظفين وهو فورم users وفورم الموردين تاخذ فورم lmporters وفورم الاصناف تاخذ فورم الاصناف ltems وهكذا .

 ننقر علئ قائمه الموظفين ونختار موظف جديد وننقر نقرتين عليه ونكتب الكود التالي :

mainpage.vb

	  
users.MdiParent = Me


users.WindowState = FormWindowState.Maximized


users.Show()
	

ننقر علئ قائمه الموردين ونختار مورد جديد وننقر نقرتين عليه ونكتب الكود التالي :

mainpage.vb

	  
lmporters.MdiParent = Me


lmporters.WindowState = FormWindowState.Maximized


lmporters.Show()
	

 ننقر على قائمة العملاء customers ونختار مورد جديد وننقر نقرتين عليه ونكتب الكود التالي :

mainpage.vb

	  

customers.MdiParent = Me


customers.WindowState = FormWindowState.Maximized


customers.Show()
	

ننقر علئ قائمه الاصناف ونختار صنف جديد وننقر نقرتين عليه ونكتب الكود التالي :

mainpage.vb

	  

ltems.MdiParent = Me


ltems.WindowState = FormWindowState.Maximized


ltems.Show()
	

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

mainpage.vb

	  


ltemGrops.MdiParent = Me


ltemGrops.WindowState =


FormWindowState.Maximized


ltemGrops.Show()

	

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

mainpage.vb

	  
ltmecompanies.MdiParent = Me

ltmecompanies.WindowState = FormWindowState.Maximized


ltmecompanies.Show()

	

كذلك من نفس قائمه الاصناف نختار مكان او رف جديد وننقر نقرتين عليه ونكتب الكود التالي :

mainpage.vb

	  
ltmeplacesvb.MdiParent = Me


ltmeplacesvb.WindowState  FormWindowState.Maximized=


ltmeplacesvb.Show()
  
	

• كما في الصورة التالية . جميع الاكواد لا تحتاج شرح لانها سهله 

لاحظ الاكواد كما في الصورتين رقم 1 و 2 

1

  شكل الفورم الرئيسي بعد التنفيذ :

صورة رقم 1 بعد تنفيذ البرنامج وضغطنا علئ قائمه الموظفين وخترنا موظف جديد وظهرت لدينا فورم الموظفين users 

 صورة رقم 2 بعد تنفيذ البرنامج

 صورة رقم 3 بعد تنفيذ البرنامج 

 صورة رقم 4 بعد تنفيذ البرنامج 

 صورة رقم 5 بعد تنفيذ البرنامج 

 صورة رقم 6 بعد تنفيذ البرنامج 

الى هنا انتهينا من برمجة فورم الشاشة الرئيسية للمشروع بأكمله…… ✅ يتبع تكمله مشروعنا ضخم ان شاء 

تعديل المقال