效果如下:
1 建立数据库 本人用的是access2000
表名:tb_menuinfo
字段名 parentmenu 文本类型, 父菜单
字段名 menuname 文本类型 ,菜单名
2 关键函数
///
函数说明: 从数据库中读取信息,然后创建菜单并显示。
void CDemo3Dlg::LoadMenuFromDataBase()
{
CString sql;
sql.Format("select * from tb_menuinfo where parentmenu is NULL");
_ConnectionPtr m_con;
_RecordsetPtr m_record;
CoInitialize(NULL);//初始化com环境
HRESULT hr;
try
{
hr = m_con.CreateInstance("ADODB.Connection");///创建Connection对象
if(SUCCEEDED(hr))
{
m_con->ConnectionTimeout=5;///设置超时时间为3秒
hr = m_con->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E://c++//demo//demo3//demo3.mdb;","","",adModeUnknown); //目录根据实际情况更改
///连接数据库
}
}
catch(_com_error e)///捕捉异常
{
CString temp;
temp.Format("连接数据库错误信息:%s",e.ErrorMessage());
return ;
}
m_record.CreateInstance("ADODB.Recordset");
m_record = m_con->Execute((_bstr_t)sql,NULL,adCmdText);
CMenu m_menu;
m_menu.LoadMenu(IDR_MENU1); //资源需要自己创建
CString c_menustr;
while(!m_record->adoEOF)
{
c_menustr = m_record->GetCollect("menuname").bstrVal;
LoadSubMenu(&m_menu,c_menustr);
m_record->MoveNext();
}
m_menu.DeleteMenu(0,MF_BYPOSITION);
SetMenu(&m_menu);
if(m_record != NULL)
{
m_record.Release();
}
if(m_con != NULL)
{
m_con.Release();
}
///
函数说明 利用递归过程添加菜单项,m_menu 菜单指针,str 菜单名。
void CDemo3Dlg::LoadSubMenu(CMenu* m_menu, CString str)
{
_ConnectionPtr m_con;
_RecordsetPtr m_record;
m_con.CreateInstance("ADODB.Connection");
m_record.CreateInstance("ADODB.Recordset");
m_con->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E://c++//demo//demo3//demo3.mdb;","","",adModeUnknown);
CString sql;
sql.Format("select * from tb_menuinfo where parentmenu= '%s'",str);
m_record = m_con->Execute((_bstr_t)sql,NULL,adCmdText);
CMenu m_tempMenu;
m_tempMenu.CreatePopupMenu();
while(!m_record->adoEOF)
{
CString c_menustr = m_record->GetCollect("menuname").bstrVal;
//-----------解决上面的图片效果是编写时的bug
if(IsHaveSubMenu(c_menustr)) //存在子菜单项时 程序会添加两个c_menustr
{
LoadSubMenu(&m_tempMenu,c_menustr);
}
else //不存在子菜单项时 解决上面的图片效果是编写时的bug
{
m_tempMenu.AppendMenu(MF_STRING,-1,c_menustr);
}
m_record->MoveNext();
}
//如果不判断是否存在子菜单,直接调用m_tempMenu.AppendMenu(MF_STRING,n,c_menustr); 下面这句和这句会创建两个菜单
//项。可以试试
m_menu->AppendMenu(MF_POPUP,(UINT)m_tempMenu.m_hMenu,str);
m_tempMenu.Detach();
if(m_record != NULL)
{
m_record.Release();
}
if(m_con != NULL)
{
m_con.Release();
}
}
///
函数说明:根据菜单名判断是否存在子菜单。
BOOL CDemo3Dlg::IsHaveSubMenu(CString str)
{
_ConnectionPtr m_con;
_RecordsetPtr m_record;
HRESULT hr;
try
{
hr = m_con.CreateInstance("ADODB.Connection");///创建Connection对象
if(SUCCEEDED(hr))
{
m_con->ConnectionTimeout=5;///设置超时时间为3秒
hr = m_con->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E://c++//demo//demo3//demo3.mdb;","","",adModeUnknown);
///连接数据库
}
}
catch(_com_error e)///捕捉异常
{
CString temp;
temp.Format("连接数据库错误信息:%s",e.ErrorMessage());
return false;
}
m_record.CreateInstance("ADODB.Recordset");
CString sql;
sql.Format("select * from tb_menuinfo where parentmenu = '%s'",str);
m_record = m_con->Execute((_bstr_t)sql,NULL,adCmdText);
if((!m_record->BOF) && (!m_record->adoEOF))
{
return true;
}
return false;
}
然后在InitDialog中调用LoadMenuFromDataBase();
上面的图片效果是编写时的bug,我改了。