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

来源：互联网发布：java 简单工作流编辑：程序博客网时间：2024/05/02 03:23

效果如下：

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