vc++ 根据数据库动态添加菜单项

效果如下：

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，我改了。