实验八菜单与工具栏设计

1、实验设一、 实验目1二、实验内实验实验82实验设一、 实验目1二、实验内实验实验82。学打开“学”。”。操作步骤如操作步骤如下 7把主菜单挂接到窗体上（略实验8-实验8-。8-。（1）“类型”3个选项，选择（2“（1）“类型”3个选项，选择（2“（3）栏8-省略使用“宏”创建菜单（5-10操作（3）通过工具箱中的“其他控件”按钮在窗口中添加ImageList、ToolBarTreeview在“属性”窗口设置ImageList、ToolBarTreeview标题：学管边框样式框边略略（3）通过工具箱中的“其他控件”按钮在窗口中添加ImageList、ToolBarTreeview在“属性”窗口设

2、置ImageList、ToolBarTreeview标题：学管边框样式框边略略无略前景色无（6）Dim objtreeAsForm_load()PrivateSubForm_Load() Dim nodx As NodeSetobjtree=Me.TreeView.Object Setnodx=objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add(, Set（6）Dim objtreeAsForm_load()PrivateSubForm_Load() Dim nodx As NodeSetobjtree=Me.TreeView.Object Set

3、nodx=objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add( , 3)Set nodx = objtree.Nodes.Add( , 3)Set nodx = 管理学院, Set nodx = 学院学院, 学院, tvwChild, , 学院, tvwChild, , 学院, tvwChild, , 学院, tvwChild, 经济管理学院, 学院, tvwChild, , 社, Set nodx = objtree.Nodes.Add(, tvwChild, 计算机专业, 算机专业,

4、 Set nodx = objtree.Nodes.Add(信息电气工程专业, 3)Set nodx = objtree.Nodes.Add(信息动化专业, 3)Set nodx = objtree.Nodes.Add(信息通讯工程专业, 3)Set nodx = objtree.Nodes.Add(机械专业, 3), tvwChild, 电气工程专业, , tvwChild, 自动化专业, , tvwChild, 通讯工程专业, , tvwChild, 机械专业, Set nodx = objtree.Nodes.Add(机械专业, 3)Set nodx = objtree.Nodes.Ad

5、d(机械专业, 3)Set nodx = objtree.Nodes.Add(化学专业, 3)Set nodx = objtree.Nodes.Add(机械专业, 3)Set nodx = objtree.Nodes.Add(机械专业, 3)Set nodx = objtree.Nodes.Add(化学专业, 3)Set nodx = objtree.Nodes.Add(化学分子专业, 3)Set nodx = objtree.Nodes.Add(人文社旅游管理专业, 3)Set nodx = objtree.Nodes.Add(人文社公共管理专业, 3)objtree.Nodes(1).Ex

6、panded=True End Sub, tvwChild, 机电专业, , tvwChild, 储运专业, , tvwChild, 化学专业, , tvwChild, 高分子专业, , tvwChild, 旅游管理专业, , tvwChild, 公共管理专业, )PrivateSubToolbar1_ButtonClick(ByValButtonAsObject) Select Case ButtonCase添加DoCmd.OpenForm学生基本情况 Case 修改DoCmd.OpenForm教师基本情况 End SelectEnd Dim strSQL As StringDimstrkey1AsString strkey1 = Node.KeystrSQLselect * from 学院