實(shí)驗(yàn)八菜單與工具欄設(shè)計(jì)

1、實(shí)驗(yàn)設(shè)一、 實(shí)驗(yàn)?zāi)?二、實(shí)驗(yàn)內(nèi)實(shí)驗(yàn)實(shí)驗(yàn)82實(shí)驗(yàn)設(shè)一、 實(shí)驗(yàn)?zāi)?二、實(shí)驗(yàn)內(nèi)實(shí)驗(yàn)實(shí)驗(yàn)82。學(xué)打開(kāi)“學(xué)”?！薄２僮鞑襟E如操作步驟如下 7把主菜單掛接到窗體上（略實(shí)驗(yàn)8-實(shí)驗(yàn)8-。8-。（1）“類(lèi)型”3個(gè)選項(xiàng)，選擇（2“（1）“類(lèi)型”3個(gè)選項(xiàng)，選擇（2“（3）欄8-省略使用“宏”創(chuàng)建菜單（5-10操作（3）通過(guò)工具箱中的“其他控件”按鈕在窗口中添加ImageList、ToolBarTreeview在“屬性”窗口設(shè)置ImageList、ToolBarTreeview標(biāo)題：學(xué)管邊框樣式框邊略略（3）通過(guò)工具箱中的“其他控件”按鈕在窗口中添加ImageList、ToolBarTreeview在“屬性”窗口設(shè)

2、置ImageList、ToolBarTreeview標(biāo)題：學(xué)管邊框樣式框邊略略無(wú)略前景色無(wú)（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 = 管理學(xué)院, Set nodx = 學(xué)院學(xué)院, 學(xué)院, tvwChild, , 學(xué)院, tvwChild, , 學(xué)院, tvwChild, , 學(xué)院, tvwChild, 經(jīng)濟(jì)管理學(xué)院, 學(xué)院, tvwChild, , 社, Set nodx = objtree.Nodes.Add(, tvwChild, 計(jì)算機(jī)專(zhuān)業(yè), 算機(jī)專(zhuān)業(yè),

4、 Set nodx = objtree.Nodes.Add(信息電氣工程專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(信息動(dòng)化專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(信息通訊工程專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(機(jī)械專(zhuān)業(yè), 3), tvwChild, 電氣工程專(zhuān)業(yè), , tvwChild, 自動(dòng)化專(zhuān)業(yè), , tvwChild, 通訊工程專(zhuān)業(yè), , tvwChild, 機(jī)械專(zhuān)業(yè), Set nodx = objtree.Nodes.Add(機(jī)械專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Ad

5、d(機(jī)械專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(機(jī)械專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(機(jī)械專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)分子專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(人文社旅游管理專(zhuān)業(yè), 3)Set nodx = objtree.Nodes.Add(人文社公共管理專(zhuān)業(yè), 3)objtree.Nodes(1).Ex

6、panded=True End Sub, tvwChild, 機(jī)電專(zhuān)業(yè), , tvwChild, 儲(chǔ)運(yùn)專(zhuān)業(yè), , tvwChild, 化學(xué)專(zhuān)業(yè), , tvwChild, 高分子專(zhuān)業(yè), , tvwChild, 旅游管理專(zhuān)業(yè), , tvwChild, 公共管理專(zhuān)業(yè), )PrivateSubToolbar1_ButtonClick(ByValButtonAsObject) Select Case ButtonCase添加DoCmd.OpenForm學(xué)生基本情況 Case 修改DoCmd.OpenForm教師基本情況 End SelectEnd Dim strSQL As StringDimstrkey1AsString strkey1 = Node.KeystrSQLselect * from 學(xué)院