وصول أمثلة

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

1 - دعونا إنشاء جدول حيث سنقوم بتخزين الاسم الذي تريده لإعطاء كل شكل واسم النموذج الذي سيتم فتح. في المثال أنا خلقت "tblmenu 'الجدول مع الحقول التالية:
حقل نوع
نص Nomedomenu - (مربع التحرير والسرد)> الاسم الذي سيتبين في القائمة
شكل النص -> اسم النموذج التي ستفتح

بعد البيانات التي أدخلت على سبيل المثال ما يلي:

NomedoMenu نموذج

حسابات Form1
الودائع Form2
حركات formulario3
حساب بوكس ​​formulario4
الحساب حساب formulario5
استخراج formulario6

2 - ثم نقوم بإنشاء استعلام من الجدول السابق:
اختار Tblmenu الجدول ثم اختر الحقلين الذي اخترناه لتصاعدي nomedomenu الفرز ليكون من الأسهل العثور على القائمة غير قليل من الأحيان عندما نريد فتح النماذج. لهذا الاستعلام دعوت 'CsMenu ".

3 - دعونا خلق "القائمة" النموذج، أي اختيار نموذج جديد في طريقة عرض التصميم. ثم نقوم بإنشاء مربع التحرير والسرد، وتغيير الخصائص التالية:
- عدد الأعمدة: 2
عرض الأعمدة -: 1cm، 0cm؛
- أصل الخط: csmenu (والذي هو اسم من الاستعلام التي تم إنشاؤها في الفقرة السابقة)

4 - وفي نفس النموذج سنخلق فرعي نموذج غير منضم الرئيسي (في المثال اتصلت menuquadro). هذا هو النموذج الذي سيتم فتح كل واحد من النماذج لاختيار من القائمة (مربع التحرير والسرد).

5 - إنشاء وحدة نمطية الآن من شأنها أن تسمح لنا لفتح القائمة الذي تم تحديده في مربع التحرير والسرد في النموذج الفرعي.
أنشأنا وحدة نمطية (التي تسمى "abrirmenu ') ولصق التعليمات البرمجية التالية:

جمهور AtivarMenu وظيفة (Combmenu في ComboBox، subabrir الفرعي)
Abrirform وخافت سلسلة
= abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
نهاية وظيفة

بعد الذهاب الى خصائص مربع التحرير والسرد في القائمة شكل، وبعد الحدث تحديث وضع خلق وظيفة: ativarmenu = ([القائمة]، [menuquadro]) أن "القائمة" هو اسم مربع التحرير والسرد و "menuquadro" في اسم فرعي.

وأخيرا القائمة جاهزة للاستخدام. مجرد محاولة واستخدامها. أرجو أن تتمتع هذه النصيحة.
التحميل: القائمة

أدناه صورة من القائمة.

عرف القائمة