ตัวอย่างการเข้าถึง

โพสต์เมื่อเสาร์กันยายน 20, 2008 - 19:22 | โดย admin |

นี่คือประเภทของเมนูที่ช่วยให้เราประหยัดเวลาสายรหัสและการจัดเรียงที่ดีกว่าในแง่ของรูปแบบที่เปิดมาตั้งแต่มีเมนูนี้ก็ต้องใช้แบบฟอร์มที่เปิดอยู่ นอกเหนือจากการลดจำนวนของรูปแบบที่เปิดยังลดจำนวนของปุ่มในเมนูเพื่อเปิดฟอร์มแต่ละ
ชนิดของเมนูนี้อย่างแน่นอนที่มีอยู่บางครั้งและมีอยู่แล้วมาใช้โดยผู้ใช้จำนวนมากการใช้งาน
ดังนั้นที่เมนูนี้คืออะไร?
Let 's สร้างเมนูโดยใช้กล่องคำสั่งผสมที่ประกอบด้วยรูปแบบทั้งหมดที่เราวางแผนที่จะเปิดผ่านมัน เมื่อคุณเลือกตัวเลือกจากกล่องคำสั่งผสมแบบฟอร์มใบสมัครจะปรากฏขึ้นภายในฟอร์มย่อย จากนั้นเราจะเริ่มต้นที่จะทำให้ขั้นตอนเมนูตามขั้นตอน

1 - Let 's สร้างตารางที่เราจะเก็บชื่อที่คุณต้องการให้แต่ละฟอร์มและชื่อของฟอร์มที่จะเปิด ในตัวอย่างผมสร้าง 'tblmenu' ตารางที่มีฟิลด์ต่อไปนี้:
ฟิลด์ชนิด
ข้อความ Nomedomenu - (กล่องคำสั่งผสม) ชื่อ> ที่จะเห็นในเมนู
ในรูปแบบข้อความ - ชื่อ> ของฟอร์มที่จะเปิด

หลังจากที่ข้อมูลที่นำมาใช้ในตัวอย่างคือ:

แบบฟอร์ม NomedoMenu

บัญชี Form1
เงินฝาก Form2
เคลื่อนไหว formulario3
บัญชี-Box formulario4
บัญชีบัญชี-formulario5
สารสกัดจาก formulario6

2 - จากนั้นเราสร้างแบบสอบถามจากตารางก่อนหน้านี้:
Tblmenu เลือกตารางแล้วเลือกสองช่องที่เราเลือกสำหรับ nomedomenu จากน้อยไปมากเรียงลำดับที่จะง่ายต่อการค้นหาเมนูที่ค่อนข้างไม่กี่ครั้งเมื่อเราต้องการเปิดฟอร์ม ในแบบสอบถามนี้ผมเรียกว่า 'CsMenu'

3 - Let 's สร้าง' เมนู 'รูปแบบคือเลือกรูปแบบใหม่ในมุมมองออกแบบ จากนั้นเราจะสร้างกล่องคำสั่งผสมและการเปลี่ยนแปลงคุณสมบัติดังต่อไปนี้:
จำนวนคอลัมน์ -: 2
- ความกว้างของคอลัมน์: 1cm, 0cm;
แหล่งกำเนิดของเส้น -: csmenu (ซึ่งเป็นชื่อของแบบสอบถามที่สร้างขึ้นในย่อหน้าก่อนหน้า)

4 - ในรูปแบบเดียวกันเราจะสร้างฟอร์มย่อยไม่ได้ผูกไว้รูปแบบหลักของ (ในตัวอย่างที่ผมเรียกว่า menuquadro) มันเป็นฟอร์มที่จะเปิดรับในแต่ละรูปแบบให้เลือกเมนู (กล่องคำสั่งผสม) นี้

5 - ตอนนี้สร้างโมดูลที่จะช่วยให้เราสามารถเปิดเมนูที่เลือกไว้ในกล่องคำสั่งผสมในฟอร์มย่อย
เราได้สร้างโมดูล (ซึ่งผมเรียกว่า 'abrirmenu') และวางรหัสต่อไปนี้:

AtivarMenu ฟังก์ชั่น (มหาชน Combmenu ComboBox, subabrir ฟอร์มย่อย)
Abrirform As String Dim
= abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
ฟังก์ชั่นเอนด์

หลังจากที่ไปถึงคุณสมบัติของกล่องคำสั่งผสมบนเมนูรูปแบบและหลังจากเหตุการณ์วันที่ปรับปรุงข้อมูลใส่ฟังก์ชั่นที่สร้าง: ativarmenu = ([เมนู], [menuquadro]) ที่ 'เมนู' คือชื่อของกล่องคำสั่งผสมและ 'menuquadro' ชื่อของฟอร์มย่อย

และสุดท้ายเมนูพร้อมใช้งาน เพียงแค่พยายามและใช้ ฉันหวังว่าคุณจะสนุกกับทิปนี้
ดาวน์โหลด: ที่เมนู

ข้างล่างเป็นรูปของเมนู