Trả lời :
Để giải quyết việc tạo menu động như bạn yêu cầu, cần trang bị 2 kiến thức chính:
- Kiến thức về các hàm API Windows để quản lý menu như GetMenu(), DeleteMenu(), InsertMenuItem(), CreatePopupMenu()... Thông tin cụ thể và chi tiết về cách dùng các hàm này được trình bày trong CD MSDN của Microsoft.
- Kiến thức về việc truy xuất dữ liệu trong database, thí dụ kiến thức về việc dùng các đối tượng trong thư viện cấp cao ADO để truy xuất database.
Ý tưởng của việc tạo menu động từ thông tin trong database có thể tóm tắt như sau:
- Tạo 1 menu trống cho Form
ứng dụng.
- Đọc vào danh sách các record của bảng menuchinh theo thứ tự của field vitri (phải có giá trị liên tục từ 0 trở lên).
- Lặp thêm từng menu pop-up theo thông tin của record trong danh sách, đọc vào danh sách các record của bảng menucap2 có cùng giá trị ID như phần tử menu chính hiện hành, lặp thêm từng option theo thông tin của record trong danh sách.
Qui trình viết ứng dụng tạo menu động cụ thể sẽ phụ thuộc nhiều vào môi trường
lập trình, vào ngôn ngữ lập trình được dùng. Ở đây chúng tôi xin giới thiệu qui trình điển hình để viết ứng dụng tạo menu động theo yêu cầu của bạn bằng môi trường VB 6.0. Giả sử bạn đã tạo sẵn 2 bảng menuchinh và menucap2 với nội dung theo yêu cầu và chứa chúng trong file Access c:\YourDB.mdb:
1. Chạy VB 6.0, tạo Project ứng dụng mới theo dạng "Standard EXE". Đây là Project quản lý ứng dụng đơn giản nhất, có 1 Form trống ban đầu.
2. Sau khi Form ứng dụng hiển thị, chọn menu Tool.Menu Editor để mở
cửa sổ soạn menu cho Form. Hãy tạo 1 menubar chỉ chứa 1 menu ban đầu (thí dụ Caption=File, Name=mnuFile) rồi đóng cửa sổ soạn menu lại. Mục đích của bước này là tạo 1 menu tĩnh ban đầu cho Form chỉ chứa 1 menu pop-up trống. Việc hiệu chỉnh thông tin về menu sẽ được lập trình động trong bước kế tiếp.
3. Chọn menu Project.References để hiển thị cửa sổ References, duyệt tìm và chọn mục "Microsoft ActiveX Data Objects 2.x Library" và chọn button Ok để thêm các đối tượng ADO của thư viện này vào Project ứng dụng.
4. Chọn menu View.Code để mở cửa sổ soạn code của chương trình rồi nhập đoạn chương trình sau đây:
'khai báo các hàm API cần dùng
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long
'khai báo kiểu cần dùng
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
'khai báo hằng cần dùng
Const MF_STRING = &H0
Const MIIM_STRING = &H40
Const MIIM_SUBMENU = &H4
Const MIIM_ID = &H2
Const MIIM_TYPE = &H10
Const MIIM_DATA = &H20
Const MF_BYPOSITION = &H400
'Khai báo các biến cần dùng
Dim MII As MENUITEMINFO
Dim Connection1 As ADODB.Connection
Dim Command1 As ADODB.Command
Dim RecordSet1 As ADODB.Recordset
Dim RecordSet2 As ADODB.Recordset
'thủ tục khởi động Form ứng dụng
Private Sub Form_Load()
Dim hMenu As Long
Dim hSubMenu As Long
'xác định menubar của Form
hMenu = GetMenu(Me.hwnd)
'xóa menu pop-up đã có
kq = DeleteMenu(hMenu, 0, MF_BYPOSITION)
Dim MyConString As String
MyConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\YourDB.mdb"
'Tạo connection tới database
Set Connection1 = New ADODB.Connection
Connection1.Open MyConString
'Tạo command làm việc với database
Set Command1 = New ADODB.Command
Command1.ActiveConnection = Connection1
'tạo danh sách menu cấp 1 theo thứ tự vị trí
Command1.CommandText = "select * from menuchinh order by vitri ASC"
Set RecordSet1 = Command1.Execute()
'lặp thêm động từng menu pop-up trong danh sách
While Not RecordSet1.EOF()
'xây dựng thông tin về menu pop-up cần tạo
MII.cbSize = Len(MII)
MII.dwTypeData = RecordSet1.Fields("tieudechinh").Value
MII.cch = LenB(MII.dwTypeData)
MII.hSubMenu = CreatePopupMenu()
MII.fMask = MIIM_ID Or MIIM_STRING Or MIIM_SUBMENU
'thêm menu pop-up này
ret = InsertMenuItem(hMenu, RecordSet1.Fields("vitri").Value, MF_BYPOSITION, MII)
hSubMenu = MII.hSubMenu
'tạo danh sách menu cấp 2 của menu pop-up hiện hành theo thứ tự vị trí
Command1.CommandText = "select * from menucap2 where ID=" & RecordSet1.Fields("ID").Value & " order by vitri ASC"
Set RecordSet2 = Command1.Execute()
'lặp thêm động từng menu item trong danh sách
While Not RecordSet2.EOF()
'xây dựng thông tin về menu item cần tạo
MII.cbSize = Len(MII)
MII.dwTypeData = RecordSet2.Fields("tieudephu").Value
MII.cch = LenB(MII.dwTypeData)
MII.fMask = MIIM_STRING
'thêm menu item này
ret = InsertMenuItem(hSubMenu, RecordSet2.Fields("vitri").Value, MF_BYPOSITION, MII)
'di chuyển đến item kế tiếp
RecordSet2.MoveNext
Wend
'di chuyển đến menu pop-up kế tiếp
RecordSet1.MoveNext
Wend
'đóng các đối tượng đã dùng lại
RecordSet1.Close
RecordSet2.Close
Connection1.Close
End Sub
5. Chạy chương trình và kiểm tra kết quả xem menu được tạo ra đúng theo đặc tả trong database hay không? Lưu ý rằng đoạn code trên mới chỉ tạo động được menubar chứ chưa liên kết thủ tục xử lý sự kiện cho từng option menu.